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

* win64 compilation fixed

Browse Source 
git-svn-id: trunk@5217 -
This commit is contained in:
florian 2006-11-04 09:12:19 +00:00
parent 4ea7562084
commit c465b95bdf
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symsym.pas
View File

@ -516,7 +516,7 @@ implementation
for i:=1 to pdcnt do for i:=1 to pdcnt do
begin begin
ppufile.getderef(pdderef); ppufile.getderef(pdderef);
FProcdefDerefList.Add(Pointer(PtrInt(pdderef))); FProcdefDerefList.Add(Pointer(PtrInt(pdderef.dataidx)));
end; end;
end; end;
@ -533,11 +533,15 @@ implementation
procedure tprocsym.ppuwrite(ppufile:tcompilerppufile); procedure tprocsym.ppuwrite(ppufile:tcompilerppufile);
var var
i : longint; i : longint;
d : tderef;
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putword(FProcdefDerefList.Count); ppufile.putword(FProcdefDerefList.Count);
for i:=0 to FProcdefDerefList.Count-1 do for i:=0 to FProcdefDerefList.Count-1 do
ppufile.putderef(TDeref(PtrInt(FProcdefDerefList[i]))); begin
d.dataidx:=PtrInt(FProcdefDerefList[i]);
ppufile.putderef(d);
end;
ppufile.writeentry(ibprocsym); ppufile.writeentry(ibprocsym);
end; end;
@ -604,7 +608,7 @@ implementation
if pd.owner=owner then if pd.owner=owner then
begin begin
d.build(pd); d.build(pd);
FProcdefDerefList.Add(Pointer(PtrInt(d))); FProcdefDerefList.Add(Pointer(PtrInt(d.dataidx)));
end; end;
end; end;
end; end;