paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 17:50:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* very small change to scanner ...

Browse Source
This commit is contained in:
florian 2000-03-12 17:53:16 +00:00
parent fa2e0c064b
commit 60058ae960
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -269,6 +269,7 @@ implementation
constructor tscannerfile.init(const fn:string); constructor tscannerfile.init(const fn:string);
begin begin
inputfile:=new(pinputfile,init(fn)); inputfile:=new(pinputfile,init(fn));
if assigned(current_module) then
current_module^.sourcefiles^.register_file(inputfile); current_module^.sourcefiles^.register_file(inputfile);
{ reset localinput } { reset localinput }
inputbuffer:=nil; inputbuffer:=nil;
@ -1788,7 +1789,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.107 2000-02-29 23:59:47 pierre Revision 1.108 2000-03-12 17:53:16 florian
* very small change to scanner ...
Revision 1.107 2000/02/29 23:59:47 pierre
Use $GOTO ON Use $GOTO ON
Revision 1.106 2000/02/28 17:23:57 daniel Revision 1.106 2000/02/28 17:23:57 daniel