paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:26:09 +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
begin
ppufile.getderef(pdderef);
FProcdefDerefList.Add(Pointer(PtrInt(pdderef)));
FProcdefDerefList.Add(Pointer(PtrInt(pdderef.dataidx)));
end;
end;
@ -533,11 +533,15 @@ implementation
procedure tprocsym.ppuwrite(ppufile:tcompilerppufile);
var
i : longint;
d : tderef;
begin
inherited ppuwrite(ppufile);
ppufile.putword(FProcdefDerefList.Count);
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);
end;
@ -604,7 +608,7 @@ implementation
if pd.owner=owner then
begin
d.build(pd);
FProcdefDerefList.Add(Pointer(PtrInt(d)));
FProcdefDerefList.Add(Pointer(PtrInt(d.dataidx)));
end;
end;
end;