diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-28 06:08:48 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-28 06:08:48 +0000 |
| commit | e2b41faa79b1f32569ccbc514a375fc2e6f5e99f (patch) | |
| tree | bdb53cf3c46d99c7dd5d125cb262034e7498cde8 /ortho/mcode/ortho_mcode.adb | |
| parent | 3cc13c09aeaaf0920cedd2bf7a8e902735a92d42 (diff) | |
| download | ghdl-e2b41faa79b1f32569ccbc514a375fc2e6f5e99f.tar.gz ghdl-e2b41faa79b1f32569ccbc514a375fc2e6f5e99f.tar.bz2 ghdl-e2b41faa79b1f32569ccbc514a375fc2e6f5e99f.zip | |
Improve doc.
Remove ortho_code-sysdeps.
Add Pragma convention C in grt for accesses to subprograms.
Fix build on windows.
Diffstat (limited to 'ortho/mcode/ortho_mcode.adb')
| -rw-r--r-- | ortho/mcode/ortho_mcode.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/ortho/mcode/ortho_mcode.adb b/ortho/mcode/ortho_mcode.adb index f9335fac1..722e884a7 100644 --- a/ortho/mcode/ortho_mcode.adb +++ b/ortho/mcode/ortho_mcode.adb @@ -17,7 +17,6 @@ -- 02111-1307, USA. with Ada.Text_IO; with Ortho_Code.Debug; -with Ortho_Code.Sysdeps; with Ortho_Ident; -- with Binary_File; @@ -80,7 +79,6 @@ 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); |