diff options
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 8 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-helpers2.ads | 1 |
2 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index cca540642..3f62db739 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -29,7 +29,7 @@ with Trans.Chap5; with Trans.Chap6; with Trans.Chap8; with Trans.Rtis; -with Trans.Helpers2; +with Trans.Helpers2; use Trans.Helpers2; with Trans_Decls; use Trans_Decls; with Translation; use Translation; @@ -416,7 +416,6 @@ package body Trans.Chap2 is Mark : Id_Mark_Type; Final : Boolean; - -- Set for a public method. In this case, the lock must be acquired -- and retained. Is_Prot : Boolean := False; @@ -539,9 +538,10 @@ package body Trans.Chap2 is Subprgs.Pop_Subprg_Instance (Wki_Upframe, Prev_Subprg_Instances); end if; - -- Create the body + -- Create the body. Add a line very early, before any statement. Start_Subprogram_Body (Info.Subprg_Node); + New_Debug_Line_Stmt (Get_Line_Number (Subprg)); Start_Subprg_Instance_Use (Spec); @@ -577,7 +577,7 @@ package body Trans.Chap2 is -- Initial state: allocate frame. New_Assign_Stmt (New_Obj (Frame_Ptr), - Helpers2.Gen_Alloc + Gen_Alloc (Alloc_Return, New_Lit (New_Sizeof (Get_Scope_Type (Info.Subprg_Frame_Scope), diff --git a/src/vhdl/translate/trans-helpers2.ads b/src/vhdl/translate/trans-helpers2.ads index 86edd82c6..bcf41ddc8 100644 --- a/src/vhdl/translate/trans-helpers2.ads +++ b/src/vhdl/translate/trans-helpers2.ads @@ -66,6 +66,7 @@ package Trans.Helpers2 is return O_Enode; procedure Gen_Oenode_Finish_Data_Composite (Data : in out Mnode); + -- Just the line from TARGET location. function Get_Line_Number (Target: Iir) return Natural; procedure Assoc_Filename_Line (Assoc : in out O_Assoc_List; |