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

* don't close inputfile when still closed

Browse Source
This commit is contained in:
peter 2003-04-26 00:30:27 +00:00
parent ab6df4aa5e
commit 2b888374ce
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/scanner.pas
View File

@ -1034,6 +1034,8 @@ implementation
procedure tscannerfile.tempcloseinputfile; procedure tscannerfile.tempcloseinputfile;
begin begin
if inputfile.closed then
exit;
inputfile.setpos(inputstart+(inputpointer-inputbuffer)); inputfile.setpos(inputstart+(inputpointer-inputbuffer));
inputfile.tempclose; inputfile.tempclose;
{ reset buffer } { reset buffer }
@ -2801,7 +2803,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.57 2003-01-09 21:52:37 peter Revision 1.58 2003-04-26 00:30:27 peter
* don't close inputfile when still closed
Revision 1.57 2003/01/09 21:52:37 peter
* merged some verbosity options. * merged some verbosity options.
* V_LineInfo is a verbosity flag to include line info * V_LineInfo is a verbosity flag to include line info