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

* load/write loadnodeflags from/to ppu

Browse Source 
git-svn-id: trunk@19559 -
This commit is contained in:
florian 2011-10-30 16:15:54 +00:00
parent 6ec0f2549a
commit 5fd5770059
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nld.pas
View File

@ -201,6 +201,7 @@ implementation
ppufile.getderef(symtableentryderef); ppufile.getderef(symtableentryderef);
symtable:=nil; symtable:=nil;
ppufile.getderef(fprocdefderef); ppufile.getderef(fprocdefderef);
ppufile.getsmallset(loadnodeflags);
end; end;
@ -209,6 +210,7 @@ implementation
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putderef(symtableentryderef); ppufile.putderef(symtableentryderef);
ppufile.putderef(fprocdefderef); ppufile.putderef(fprocdefderef);
ppufile.putsmallset(loadnodeflags);
end; end;