diff options
| author | gingold | 2006-10-05 00:23:04 +0000 |
|---|---|---|
| committer | gingold | 2006-10-05 00:23:04 +0000 |
| commit | dad8fb6d64a2b12a7b929f1c63b7dfd6b177b3ea (patch) | |
| tree | bd019af73d62d78d90c68755f35b6986567c004f /ortho | |
| parent | 7a57404e5337453db969bf8f51cad9fa7f4c1913 (diff) | |
| download | ghdl-dad8fb6d64a2b12a7b929f1c63b7dfd6b177b3ea.tar.gz ghdl-dad8fb6d64a2b12a7b929f1c63b7dfd6b177b3ea.tar.bz2 ghdl-dad8fb6d64a2b12a7b929f1c63b7dfd6b177b3ea.zip | |
add one more underscore to chkstk, use program path for install path (windows)
Diffstat (limited to 'ortho')
| -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 db22384..67b4de2 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 97f3896..85327fd 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) := |