paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 05:11:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* load object files always at once, speeds up Morfik project compilation by 15%

Browse Source 
git-svn-id: trunk@6970 -
This commit is contained in:
florian 2007-03-24 10:39:55 +00:00
parent 66a6764d8a
commit a6f503f263
1 changed files with 14 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
compiler/owbase.pas
View File

@ -214,7 +214,7 @@ end;
constructor tobjectreader.create;
begin
getmem(buf,bufsize);
buf:=nil;
bufidx:=0;
bufmax:=0;
opened:=false;
@ -225,7 +225,7 @@ destructor tobjectreader.destroy;
begin
if opened then
closefile;
freemem(buf,bufsize);
freemem(buf);
end;
@ -238,8 +238,11 @@ begin
Comment(V_Error,'Can''t open object file: '+fn);
exit;
end;
getmem(buf,f.Size);
f.read(buf^,f.Size);
bufmax:=f.Size;
f.free;
bufidx:=0;
bufmax:=0;
opened:=true;
openfile:=true;
end;
@ -247,7 +250,6 @@ end;
procedure tobjectreader.closefile;
begin
f.free;
opened:=false;
bufidx:=0;
bufmax:=0;
@ -256,91 +258,29 @@ end;
function tobjectreader.readbuf:boolean;
begin
bufmax:=f.read(buf^,bufsize);
bufidx:=0;
readbuf:=(bufmax>0);
result:=true;
end;
procedure tobjectreader.seek(len:longint);
begin
f.seek(len,soFromBeginning);
bufidx:=0;
bufmax:=0;
bufidx:=len;
end;
function tobjectreader.read(out b;len:longint):boolean;
var
p : pchar;
lenleft,
bufleft,
idx : longint;
begin
result:=false;
if bufmax=0 then
if not readbuf then
exit;
p:=pchar(@b);
idx:=0;
lenleft:=len;
while lenleft>0 do
begin
bufleft:=bufmax-bufidx;
if lenleft>bufleft then
begin
move(buf[bufidx],p[idx],bufleft);
dec(lenleft,bufleft);
inc(idx,bufleft);
inc(bufidx,bufleft);
if not readbuf then
exit;
end
else
begin
move(buf[bufidx],p[idx],lenleft);
inc(bufidx,lenleft);
inc(idx,lenleft);
break;
end;
end;
result:=(idx=len);
move(buf[bufidx],b,len);
inc(bufidx,len);
result:=true;
end;
function tobjectreader.readarray(a:TDynamicArray;len:longint):boolean;
var
orglen,
bufleft,
idx : longint;
begin
readarray:=false;
if bufmax=0 then
if not readbuf then
exit;
orglen:=len;
idx:=0;
while len>0 do
begin
bufleft:=bufmax-bufidx;
if len>bufleft then
begin
a.Write(buf[bufidx],bufleft);
dec(len,bufleft);
inc(idx,bufleft);
inc(bufidx,bufleft);
if not readbuf then
exit;
end
else
begin
a.Write(buf[bufidx],len);
a.write(buf[bufidx],len);
inc(bufidx,len);
inc(idx,len);
break;
end;
end;
readarray:=(idx=orglen);
result:=true;
end;
function tobjectreader.getfilename : string;