paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* auto close an open file and better error msg

Browse Source
This commit is contained in:
peter 1998-08-11 14:04:33 +00:00
parent 6b3f286443
commit 1af9338130
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/scanner.pas
View File

@ -335,7 +335,7 @@ implementation
maxlinebuf:=0;
{ load block }
if not open then
Message(scan_f_cannot_open_input);
Message1(scan_f_cannot_open_input,fn);
reload;
end;
@ -385,7 +385,7 @@ implementation
begin
open:=false;
if not closed then
exit;
Close;
ofm:=filemode;
filemode:=0;
Assign(f,inputfile^.path^+inputfile^.name^);
@ -1548,7 +1548,10 @@ exit_label:
end.
{
$Log$
Revision 1.39 1998-08-10 14:50:26 peter
Revision 1.40 1998-08-11 14:04:33 peter
* auto close an open file and better error msg
Revision 1.39 1998/08/10 14:50:26 peter
+ localswitches, moduleswitches, globalswitches splitting
Revision 1.38 1998/08/10 10:18:34 peter