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

* fixed freemem calls which had the wrong size sometimes

Browse Source
This commit is contained in:
peter 1998-08-29 13:49:00 +00:00
parent 8cf2b05bf3
commit 08f3c3dc77
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/scanner.pas
View File

@ -379,7 +379,7 @@ implementation
Close;
ofm:=filemode;
filemode:=0;
Assign(f,inputfile^.path^+inputfile^.name^);
Assign(f,path^+name^);
{$I-}
reset(f,1);
{$I+}
@ -410,7 +410,7 @@ implementation
begin
if is_macro then
begin
Freemem(inputbuffer,InputFileBufSize);
Freemem(inputbuffer,inputbufsize);
is_macro:=false;
inputbuffer:=nil;
inputpointer:=nil;
@ -423,7 +423,7 @@ implementation
system.close(f);
{$I+}
i:=ioresult;
Freemem(inputbuffer,InputFileBufSize);
Freemem(inputbuffer,inputbufsize);
inputbuffer:=nil;
inputpointer:=nil;
closed:=true;
@ -447,7 +447,7 @@ implementation
system.close(f);
{$I+}
i:=ioresult;
Freemem(inputbuffer,InputFileBufSize);
Freemem(inputbuffer,inputbufsize);
inputbuffer:=nil;
inputpointer:=nil;
closed:=true;
@ -472,7 +472,7 @@ implementation
exit;
ofm:=filemode;
filemode:=0;
Assign(f,inputfile^.path^+inputfile^.name^);
Assign(f,path^+name^);
{$I-}
reset(f,1);
{$I+}
@ -1619,7 +1619,10 @@ exit_label:
end.
{
$Log$
Revision 1.45 1998-08-26 15:35:35 peter
Revision 1.46 1998-08-29 13:49:00 peter
* fixed freemem calls which had the wrong size sometimes
Revision 1.45 1998/08/26 15:35:35 peter
* fixed scannerfiles for macros
+ $I %<environment>%