diff options
| author | Tristan Gingold | 2014-01-26 07:50:15 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-26 07:50:15 +0100 |
| commit | f74185d729e80fb2073375a6c4c39081209e914f (patch) | |
| tree | 2179dd5f6986120bf05eede09ad10849a4ec6204 /ortho/debug | |
| parent | 2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7 (diff) | |
| download | ghdl-f74185d729e80fb2073375a6c4c39081209e914f.tar.gz ghdl-f74185d729e80fb2073375a6c4c39081209e914f.tar.bz2 ghdl-f74185d729e80fb2073375a6c4c39081209e914f.zip | |
Make ghdl_rti_type an address. Remove union from translation.
LLVM preliminary work.
Diffstat (limited to 'ortho/debug')
| -rw-r--r-- | ortho/debug/ortho_debug.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ortho/debug/ortho_debug.adb b/ortho/debug/ortho_debug.adb index 023729b..ba02904 100644 --- a/ortho/debug/ortho_debug.adb +++ b/ortho/debug/ortho_debug.adb @@ -410,7 +410,9 @@ package body Ortho_Debug is is subtype O_Cnode_Sizeof_Type is O_Cnode_Type (OC_Sizeof_Lit); begin - if Rtype.Kind /= ON_Unsigned_Type then + if Rtype.Kind /= ON_Unsigned_Type + and then Rtype.Kind /= ON_Access_Type + then raise Type_Error; end if; Check_Complete_Type (Atype); @@ -442,7 +444,9 @@ package body Ortho_Debug is is subtype O_Cnode_Offsetof_Type is O_Cnode_Type (OC_Offsetof_Lit); begin - if Rtype.Kind /= ON_Unsigned_Type then + if Rtype.Kind /= ON_Unsigned_Type + and then Rtype.Kind /= ON_Access_Type + then raise Type_Error; end if; if Field.Parent /= Rec_Type then |