paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 17:26:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed 32 bit -> 64 bit cross compilation

Browse Source 
git-svn-id: trunk@14366 -
This commit is contained in:
Jonas Maebe 2009-12-08 16:06:28 +00:00
parent 14d42da206
commit a9c025cd6a
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/dbgdwarf.pas
View File

@ -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: