diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-04-02 07:26:13 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-04-02 07:29:41 +0200 |
commit | 122fa90fb7e5c15b58efa100da828c1e879b4e4e (patch) | |
tree | 5a87de707db57f8b71b614c5c424b585d51b1a44 /src/ortho | |
parent | e29e126bc30cf3fdfee9962a2f6d0fed0a08c94c (diff) | |
download | ghdl-122fa90fb7e5c15b58efa100da828c1e879b4e4e.tar.gz ghdl-122fa90fb7e5c15b58efa100da828c1e879b4e4e.tar.bz2 ghdl-122fa90fb7e5c15b58efa100da828c1e879b4e4e.zip |
ortho_code-dwarf: fix potential crash.
Diffstat (limited to 'src/ortho')
-rw-r--r-- | src/ortho/mcode/ortho_code-dwarf.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-dwarf.adb b/src/ortho/mcode/ortho_code-dwarf.adb index 48ddddaf3..b65abaf83 100644 --- a/src/ortho/mcode/ortho_code-dwarf.adb +++ b/src/ortho/mcode/ortho_code-dwarf.adb @@ -351,6 +351,7 @@ package body Ortho_Code.Dwarf is -- Emit header. Set_Current_Section (Line_Sect); + Prealloc (32); -- Unit_Length (to be patched). Gen_32 (0); @@ -394,6 +395,7 @@ package body Ortho_Code.Dwarf is Gen_String_Nul (D.Name.all); D := D.Next; end loop; + Prealloc (1); Gen_8 (0); -- last entry. end; @@ -404,6 +406,7 @@ package body Ortho_Code.Dwarf is F := Files; while F /= null loop Gen_String_Nul (F.Name.all); + Prealloc (8); Gen_Uleb128 (Unsigned_32 (F.Dir)); Gen_8 (0); -- time Gen_8 (0); -- length @@ -416,6 +419,7 @@ package body Ortho_Code.Dwarf is Patch_32 (6, Unsigned_32 (Get_Current_Pc - 6)); Merge_Section (Line_Sect, Line1_Sect); + Prealloc (4); -- Emit end of sequence. Gen_8 (0); -- extended opcode @@ -427,6 +431,7 @@ package body Ortho_Code.Dwarf is -- Info. Set_Current_Section (Info_Sect); + Prealloc (8); -- Finish child. Gen_Uleb128 (0); -- Set total length. @@ -437,6 +442,7 @@ package body Ortho_Code.Dwarf is Set_Section_Info (Aranges_Sect, null, 0, 0); Set_Current_Section (Aranges_Sect); + Prealloc (32); Gen_32 (24 + Pc_Type_Sizeof); -- Length. Gen_16 (2); -- version Gen_Ua_32 (Info_Sym); -- info offset |