diff options
| author | gingold | 2006-10-02 04:20:13 +0000 |
|---|---|---|
| committer | gingold | 2006-10-02 04:20:13 +0000 |
| commit | 4562a047d324729789ba826c77e92c14dcb5d781 (patch) | |
| tree | 56dcef5b5762780ddba66cc2d02b812fd7a27a94 /ortho/mcode/ortho_code-x86-abi.adb | |
| parent | 17450f134e39ffa345eab48dd9aec6127a893946 (diff) | |
| download | ghdl-4562a047d324729789ba826c77e92c14dcb5d781.tar.gz ghdl-4562a047d324729789ba826c77e92c14dcb5d781.tar.bz2 ghdl-4562a047d324729789ba826c77e92c14dcb5d781.zip | |
use __chkstk on windows system
Diffstat (limited to 'ortho/mcode/ortho_code-x86-abi.adb')
| -rw-r--r-- | ortho/mcode/ortho_code-x86-abi.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_code-x86-abi.adb b/ortho/mcode/ortho_code-x86-abi.adb index 1515c2e..db22384 100644 --- a/ortho/mcode/ortho_code-x86-abi.adb +++ b/ortho/mcode/ortho_code-x86-abi.adb @@ -716,6 +716,9 @@ package body Ortho_Code.X86.Abi is function Muldi3 (A, B : Long_Integer) return Long_Integer; pragma Import (C, Muldi3, "__muldi3"); + procedure Chkstk (Sz : Integer); + pragma Import (C, Chkstk, "_chkstk"); + procedure Link_Intrinsics is begin @@ -727,5 +730,7 @@ package body Ortho_Code.X86.Abi is (Ortho_Code.X86.Emits.Intrinsics_Symbol (Ortho_Code.X86.Intrinsic_Div_Ov_I64), Divdi3'Address); + Binary_File.Memory.Set_Symbol_Address + (Ortho_Code.X86.Emits.Chkstk_Symbol, Chkstk'Address); end Link_Intrinsics; end Ortho_Code.X86.Abi; |