diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-24 06:55:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-24 06:55:07 +0100 |
| commit | da76e8be06184b9362ae4998a950cb2d31a347a0 (patch) | |
| tree | 52e38ae3c15f25f3d7a51b50ca1a4dfd54996020 | |
| parent | dd191d5f5d6ac2dc48ed1ee4fb4d1bd09dce8b73 (diff) | |
| download | ghdl-da76e8be06184b9362ae4998a950cb2d31a347a0.tar.gz ghdl-da76e8be06184b9362ae4998a950cb2d31a347a0.tar.bz2 ghdl-da76e8be06184b9362ae4998a950cb2d31a347a0.zip | |
translation: use of incomplete record instead of access (for llvm).
| -rw-r--r-- | translate/translation.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index e32f73483..c995f4642 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -28995,11 +28995,14 @@ package body Translation is New_Type_Decl (Get_Identifier ("__ghdl_scalar_bytes"), Ghdl_Scalar_Bytes); - Ghdl_Signal_Ptr := New_Access_Type (O_Tnode_Null); + New_Uncomplete_Record_Type (Ghdl_Signal_Type); + New_Type_Decl (Get_Identifier ("__ghdl_signal"), Ghdl_Signal_Type); + + Ghdl_Signal_Ptr := New_Access_Type (Ghdl_Signal_Ptr); New_Type_Decl (Get_Identifier ("__ghdl_signal_ptr"), Ghdl_Signal_Ptr); -- Type __signal_signal is record - Start_Record_Type (Rec); + Start_Uncomplete_Record_Type (Ghdl_Signal_Type, Rec); New_Record_Field (Rec, Ghdl_Signal_Value_Field, Get_Identifier ("value"), Ghdl_Scalar_Bytes); @@ -29028,9 +29031,6 @@ package body Translation is Get_Identifier ("has_active"), Ghdl_Bool_Type); Finish_Record_Type (Rec, Ghdl_Signal_Type); - New_Type_Decl (Get_Identifier ("__ghdl_signal"), Ghdl_Signal_Type); - - Finish_Access_Type (Ghdl_Signal_Ptr, Ghdl_Signal_Type); Ghdl_Signal_Ptr_Ptr := New_Access_Type (Ghdl_Signal_Ptr); New_Type_Decl (Get_Identifier ("__ghdl_signal_ptr_ptr"), |