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

* automatically create omf libraries with the smallest page size possible. This

Browse Source 
greatly reduces the size of i8086 snapshots by keeping the amount of padding
  in the library files to the minimum.

git-svn-id: trunk@39195 -
This commit is contained in:
nickysn 2018-06-07 22:27:47 +00:00
parent 345713c1fa
commit 3f5577077a
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/owomflib.pas
View File

@ -78,6 +78,7 @@ type
procedure WriteHeader(DictStart: DWord; DictBlocks: Word);
procedure WriteFooter;
function TryPageSize(aPageSize: Integer): Boolean;
procedure DeterminePageSize;
procedure WriteLib;
function WriteDictionary: Word;
function TryWriteDictionaryWithSize(nblocks: Word): Boolean;
@ -185,7 +186,7 @@ implementation
constructor TOmfLibObjectWriter.createAr(const Aarfn: string);
begin
createAr(Aarfn,512);
createAr(Aarfn,-1);
end;
constructor TOmfLibObjectWriter.createAr(const Aarfn: string;PageSize: Integer);
@ -319,6 +320,19 @@ implementation
Result:=True;
end;
procedure TOmfLibObjectWriter.DeterminePageSize;
var
I: Integer;
begin
if (FPageSize<>-1) and TryPageSize(FPageSize) then
{ success }
exit;
for I:=4 to 15 do
if TryPageSize(1 shl I) then
exit;
internalerror(2018060703);
end;
procedure TOmfLibObjectWriter.WriteLib;
var
libf: TCCustomFileStream;
@ -327,7 +341,7 @@ implementation
I: Integer;
buf: array [0..1023] of Byte;
begin
TryPageSize(512);
DeterminePageSize;
libf:=CFileStreamClass.Create(FLibName,fmCreate);
if CStreamError<>0 then
begin