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

* save/load LinkOtherFrameworks to/from ppu files

Browse Source 
git-svn-id: trunk@8344 -
This commit is contained in:
Jonas Maebe 2007-08-31 17:03:33 +00:00
parent 169b04a237
commit c5b3180f5f
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/fppu.pas
View File

@ -939,6 +939,8 @@ uses
readlinkcontainer(LinkotherStaticLibs); readlinkcontainer(LinkotherStaticLibs);
iblinkothersharedlibs : iblinkothersharedlibs :
readlinkcontainer(LinkotherSharedLibs); readlinkcontainer(LinkotherSharedLibs);
iblinkotherframeworks :
readlinkcontainer(LinkOtherFrameworks);
ibImportSymbols : ibImportSymbols :
readImportSymbols; readImportSymbols;
ibderefmap : ibderefmap :
@ -1027,6 +1029,7 @@ uses
writelinkcontainer(linkotherofiles,iblinkotherofiles,false); writelinkcontainer(linkotherofiles,iblinkotherofiles,false);
writelinkcontainer(linkotherstaticlibs,iblinkotherstaticlibs,true); writelinkcontainer(linkotherstaticlibs,iblinkotherstaticlibs,true);
writelinkcontainer(linkothersharedlibs,iblinkothersharedlibs,true); writelinkcontainer(linkothersharedlibs,iblinkothersharedlibs,true);
writelinkcontainer(linkotherframeworks,iblinkotherframeworks,true);
writeImportSymbols; writeImportSymbols;
writeResources; writeResources;
ppufile.do_crc:=true; ppufile.do_crc:=true;

4
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum} {$endif Test_Double_checksum}
const const
CurrentPPUVersion=83; CurrentPPUVersion=84;
{ buffer sizes } { buffer sizes }
maxentrysize = 1024; maxentrysize = 1024;
@ -125,6 +125,8 @@ const
ibnodetree = 80; ibnodetree = 80;
ibasmsymbols = 81; ibasmsymbols = 81;
ibresources = 82; ibresources = 82;
{ target-specific things }
iblinkotherframeworks = 100;
{ unit flags } { unit flags }
uf_init = $1; uf_init = $1;