diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-11-18 20:33:16 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-11-18 20:33:16 +0000 |
| commit | 301584eaf540c982676f520d662b473e59890584 (patch) | |
| tree | 3c8a80a0b57610fcb0e12a4f8985764fae538aa7 /ortho | |
| parent | b9d724056d765418acf57c2fa7a79b7ef7e73721 (diff) | |
| download | ghdl-301584eaf540c982676f520d662b473e59890584.tar.gz ghdl-301584eaf540c982676f520d662b473e59890584.tar.bz2 ghdl-301584eaf540c982676f520d662b473e59890584.zip | |
SEH handled
Bug fixes
Diffstat (limited to 'ortho')
| -rw-r--r-- | ortho/mcode/ortho_code-x86-abi.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ortho/mcode/ortho_code-x86-abi.adb b/ortho/mcode/ortho_code-x86-abi.adb index 67b4de236..0087bb1b9 100644 --- a/ortho/mcode/ortho_code-x86-abi.adb +++ b/ortho/mcode/ortho_code-x86-abi.adb @@ -26,6 +26,7 @@ with Ortho_Code.Dwarf; with Ortho_Code.X86; use Ortho_Code.X86; with Ortho_Code.X86.Insns; with Ortho_Code.X86.Emits; +with Ortho_Code.X86.Flags; with Binary_File; with Binary_File.Memory; with Ada.Text_IO; @@ -730,7 +731,9 @@ 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); + if X86.Flags.Flag_Alloca_Call then + Binary_File.Memory.Set_Symbol_Address + (Ortho_Code.X86.Emits.Chkstk_Symbol, Chkstk'Address); + end if; end Link_Intrinsics; end Ortho_Code.X86.Abi; |