paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 07:38:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change buffer to dyn array

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 17:17:24 +01:00
parent db7abc11d6
commit ec3ed04b73
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/owbase.pas
View File

@ -24,7 +24,9 @@ unit owbase;
{$i fpcdefs.inc}
interface
uses
globtype,
cstreams,
cclasses;
@ -33,7 +35,7 @@ type
private
f : TCCustomFileStream;
opened : boolean;
buf : pchar;
buf : TAnsiCharDynArray;
bufidx : longword;
procedure writebuf;
protected
@ -61,7 +63,7 @@ type
private
f : TCCustomFileStream;
opened : boolean;
buf : pchar;
buf : TAnsiCharDynArray;
ffilename : string;
bufidx,
bufmax : longint;
@ -104,7 +106,7 @@ const
constructor tobjectwriter.create;
begin
getmem(buf,bufsize);
setlength(buf,bufsize);
bufidx:=0;
opened:=false;
fsize:=0;
@ -115,7 +117,7 @@ destructor tobjectwriter.destroy;
begin
if opened then
closefile;
freemem(buf,bufsize);
buf:=nil;
end;
constructor tobjectwriter.createAr(const Aarfn:string);
@ -160,7 +162,7 @@ end;
procedure tobjectwriter.writebuf;
begin
f.write(buf^,bufidx);
f.write(buf[0],bufidx);
bufidx:=0;
end;
@ -183,6 +185,8 @@ begin
while len>0 do
begin
bufleft:=bufsize-bufidx;
if bufleft=0 then
Writebuf;
if len>bufleft then
begin
move(p[idx],buf[bufidx],bufleft);
@ -275,8 +279,8 @@ begin
end;
ffilename:=fn;
bufmax:=f.Size;
getmem(buf,bufmax);
f.read(buf^,bufmax);
setlength(buf,bufmax);
f.read(buf[0],bufmax);
f.free;
bufidx:=0;
opened:=true;
@ -289,7 +293,7 @@ begin
opened:=false;
bufidx:=0;
bufmax:=0;
freemem(buf);
buf:=Nil;
end;