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

* don't hard-code size of linebuf entries

Browse Source 
* use reallocmem when growing linebuf instead of getmem+move

git-svn-id: trunk@27792 -
This commit is contained in:
Jonas Maebe 2014-05-15 09:08:05 +00:00
parent 656ba70fd8
commit 5e76203bc3
1 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/finput.pas
View File

@ -226,7 +226,7 @@ uses
close;
{ free memory }
if assigned(linebuf) then
freemem(linebuf,maxlinebuf shl 2);
freemem(linebuf,maxlinebuf*sizeof(linebuf^[0]));
end;
@ -368,24 +368,16 @@ uses
procedure tinputfile.setline(line,linepos:longint);
var
oldlinebuf : plongintarr;
begin
if line<1 then
exit;
while (line>=maxlinebuf) do
begin
oldlinebuf:=linebuf;
{ create new linebuf and move old info }
getmem(linebuf,(maxlinebuf+linebufincrease) shl 2);
if assigned(oldlinebuf) then
begin
move(oldlinebuf^,linebuf^,maxlinebuf shl 2);
freemem(oldlinebuf,maxlinebuf shl 2);
end;
fillchar(linebuf^[maxlinebuf],linebufincrease shl 2,0);
inc(maxlinebuf,linebufincrease);
end;
begin
{ create new linebuf and move old info }
linebuf:=reallocmem(linebuf,(maxlinebuf+linebufincrease)*sizeof(linebuf^[0]));
fillchar(linebuf^[maxlinebuf],linebufincrease*sizeof(linebuf^[0]),0);
inc(maxlinebuf,linebufincrease);
end;
linebuf^[line]:=linepos;
end;