diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-10-02 04:20:13 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-10-02 04:20:13 +0000 |
| commit | 4562a047d324729789ba826c77e92c14dcb5d781 (patch) | |
| tree | 56dcef5b5762780ddba66cc2d02b812fd7a27a94 /ortho/mcode/ortho_mcode.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_mcode.adb')
| -rw-r--r-- | ortho/mcode/ortho_mcode.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_mcode.adb b/ortho/mcode/ortho_mcode.adb index 6c91f268c..bc4dc3215 100644 --- a/ortho/mcode/ortho_mcode.adb +++ b/ortho/mcode/ortho_mcode.adb @@ -18,6 +18,7 @@ with Ortho_Code.Abi; with Ada.Text_IO; with Ortho_Code.Debug; +with Ortho_Code.Sysdeps; with Ortho_Ident; with Binary_File; @@ -88,6 +89,7 @@ package body Ortho_Mcode is if New_Access_Type (O_Tnode_Null) /= O_Tnode_Ptr then raise Program_Error; end if; + Ortho_Code.Sysdeps.Init; -- Do not finish the access, since this creates an infinite recursion -- in gdb (at least for GDB 6.3). --Finish_Access_Type (O_Tnode_Ptr, O_Tnode_Ptr); |