paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +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; end;
i:=0; i:=0;
size:=sym.value.len; size:=sym.value.len;
repeat while(i<size) do
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^))); begin
inc(i); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^)));
until (i=size); inc(i);
end;
end; end;
constguid, constguid,
constset: constset:
@ -2317,10 +2318,11 @@ implementation
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(usedef.size)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(usedef.size));
i:=0; i:=0;
size:=sym.constdef.size; size:=sym.constdef.size;
repeat while (i<size) do
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^))); begin
inc(i); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit((pbyte(sym.value.valueptr+i)^)));
until(i=size); inc(i);
end;
end; end;
constwstring, constwstring,
constresourcestring: constresourcestring: