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

* fixed endless loop when generating debug info for empty string constants

Browse Source 
after r14366

git-svn-id: trunk@14369 -
This commit is contained in:
Jonas Maebe 2009-12-08 19:13:07 +00:00
parent b521f80b13
commit 82b2a1d48f
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/dbgdwarf.pas
View File

@ -2305,10 +2305,11 @@ implementation
end;
i:=0;
size:=sym.value.len;
repeat
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^)));
inc(i);
until (i=size);
while(i<size) do
begin
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^)));
inc(i);
end;
end;
constguid,
constset:
@ -2317,10 +2318,11 @@ implementation
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(usedef.size));
i:=0;
size:=sym.constdef.size;
repeat
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^)));
inc(i);
until(i=size);
while (i<size) do
begin
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^)));
inc(i);
end;
end;
constwstring,
constresourcestring: