diff options
Diffstat (limited to 'ortho/mcode')
| -rw-r--r-- | ortho/mcode/ortho_code-x86-abi.adb | 2 | ||||
| -rw-r--r-- | ortho/mcode/ortho_code-x86-emits.adb | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ortho/mcode/ortho_code-x86-abi.adb b/ortho/mcode/ortho_code-x86-abi.adb index db223849a..67b4de236 100644 --- a/ortho/mcode/ortho_code-x86-abi.adb +++ b/ortho/mcode/ortho_code-x86-abi.adb @@ -717,7 +717,7 @@ package body Ortho_Code.X86.Abi is pragma Import (C, Muldi3, "__muldi3"); procedure Chkstk (Sz : Integer); - pragma Import (C, Chkstk, "_chkstk"); + pragma Import (C, Chkstk, "__chkstk"); procedure Link_Intrinsics is diff --git a/ortho/mcode/ortho_code-x86-emits.adb b/ortho/mcode/ortho_code-x86-emits.adb index 97f389656..85327fd52 100644 --- a/ortho/mcode/ortho_code-x86-emits.adb +++ b/ortho/mcode/ortho_code-x86-emits.adb @@ -2243,7 +2243,7 @@ package body Ortho_Code.X86.Emits is end if; if X86.Flags.Flag_Alloca_Call then - Chkstk_Symbol := Create_Symbol (Get_Identifier ("__chkstk")); + Chkstk_Symbol := Create_Symbol (Get_Identifier ("___chkstk")); end if; Intrinsics_Symbol (Intrinsic_Mul_Ov_U64) := |