paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make the dwarf line info reader more fault tolerant, patch by Martin Friebe, resolves #24900

Browse Source 
git-svn-id: trunk@26812 -
This commit is contained in:
florian 2014-02-18 20:36:25 +00:00
parent caba4a2050
commit f7785be945
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/lnfodwrf.pp
View File

@ -483,7 +483,7 @@ var
adjusted_opcode : Int64;
opcode : PtrInt;
extended_opcode : Byte;
extended_opcode : PtrInt;
extended_opcode_length : PtrInt;
i, addrIncrement, lineIncrement : PtrInt;
@ -579,6 +579,9 @@ begin
extended_opcode_length := ReadULEB128();
extended_opcode := ReadNext();
case (extended_opcode) of
-1: begin
exit;
end;
DW_LNE_END_SEQUENCE : begin
state.end_sequence := true;
state.append_row := true;
@ -598,7 +601,8 @@ begin
else begin
DEBUG_WRITELN('Unknown extended opcode (opcode ', extended_opcode, ' length ', extended_opcode_length, ')');
for i := 0 to extended_opcode_length-2 do
ReadNext();
if ReadNext() = -1 then
exit;
end;
end;
end;