paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 00:09:31 +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

8
compiler/scanner.pas
View File

@ -269,7 +269,8 @@ implementation
constructor tscannerfile.init(const fn:string);
begin
inputfile:=new(pinputfile,init(fn));
current_module^.sourcefiles^.register_file(inputfile);
if assigned(current_module) then
current_module^.sourcefiles^.register_file(inputfile);
{ reset localinput }
inputbuffer:=nil;
inputpointer:=nil;
@ -1788,7 +1789,10 @@ exit_label:
end.
{
$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
Revision 1.106 2000/02/28 17:23:57 daniel