paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 07:59:09 +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; Close;
ofm:=filemode; ofm:=filemode;
filemode:=0; filemode:=0;
Assign(f,inputfile^.path^+inputfile^.name^); Assign(f,path^+name^);
{$I-} {$I-}
reset(f,1); reset(f,1);
{$I+} {$I+}
@ -410,7 +410,7 @@ implementation
begin begin
if is_macro then if is_macro then
begin begin
Freemem(inputbuffer,InputFileBufSize); Freemem(inputbuffer,inputbufsize);
is_macro:=false; is_macro:=false;
inputbuffer:=nil; inputbuffer:=nil;
inputpointer:=nil; inputpointer:=nil;
@ -423,7 +423,7 @@ implementation
system.close(f); system.close(f);
{$I+} {$I+}
i:=ioresult; i:=ioresult;
Freemem(inputbuffer,InputFileBufSize); Freemem(inputbuffer,inputbufsize);
inputbuffer:=nil; inputbuffer:=nil;
inputpointer:=nil; inputpointer:=nil;
closed:=true; closed:=true;
@ -447,7 +447,7 @@ implementation
system.close(f); system.close(f);
{$I+} {$I+}
i:=ioresult; i:=ioresult;
Freemem(inputbuffer,InputFileBufSize); Freemem(inputbuffer,inputbufsize);
inputbuffer:=nil; inputbuffer:=nil;
inputpointer:=nil; inputpointer:=nil;
closed:=true; closed:=true;
@ -472,7 +472,7 @@ implementation
exit; exit;
ofm:=filemode; ofm:=filemode;
filemode:=0; filemode:=0;
Assign(f,inputfile^.path^+inputfile^.name^); Assign(f,path^+name^);
{$I-} {$I-}
reset(f,1); reset(f,1);
{$I+} {$I+}
@ -1619,7 +1619,10 @@ exit_label:
end. end.
{ {
$Log$ $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 * fixed scannerfiles for macros
+ $I %<environment>% + $I %<environment>%