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

* Don't access tcfilestream.size 3 times in sequence, as each access costs two seeks (syscalls).

Browse Source 
+ made size of tobjectreader data available via property.

git-svn-id: trunk@21905 -
This commit is contained in:
sergei 2012-07-12 16:10:34 +00:00
parent dd59db1bba
commit e5ee1c9f67
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/owbase.pas
View File

@ -72,6 +72,7 @@ type
function read(out b;len:longint):boolean;virtual; function read(out b;len:longint):boolean;virtual;
function readarray(a:TDynamicArray;len:longint):boolean; function readarray(a:TDynamicArray;len:longint):boolean;
property filename : string read getfilename; property filename : string read getfilename;
property size:longint read bufmax;
end; end;
implementation implementation
@ -240,9 +241,9 @@ begin
exit; exit;
end; end;
ffilename:=fn; ffilename:=fn;
getmem(buf,f.Size);
f.read(buf^,f.Size);
bufmax:=f.Size; bufmax:=f.Size;
getmem(buf,bufmax);
f.read(buf^,bufmax);
f.free; f.free;
bufidx:=0; bufidx:=0;
opened:=true; opened:=true;