From a9c025cd6a84f87ada180fc1fee596e862a00e0c Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Tue, 8 Dec 2009 16:06:28 +0000 Subject: [PATCH] * fixed 32 bit -> 64 bit cross compilation git-svn-id: trunk@14366 - --- compiler/dbgdwarf.pas | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas index 441c2a345a..61d82389fa 100644 --- a/compiler/dbgdwarf.pas +++ b/compiler/dbgdwarf.pas @@ -2251,7 +2251,8 @@ implementation procedure TDebugInfoDwarf.appendsym_const(list:TAsmList;sym:tconstsym); var - i: aint; + i, + size: aint; usedef: tdef; begin { These are default values of parameters. These should be encoded @@ -2302,16 +2303,24 @@ implementation current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_uleb128bit(sym.value.len+sizeof(pint))); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_pint(sym.value.len)); end; - for i:=0 to sym.value.len-1 do + 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); end; constguid, constset: begin current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_block1))); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(usedef.size)); - for i:=0 to sym.constdef.size-1 do + 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); end; constwstring, constresourcestring: