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

* fixed crash when old_compiled_module was nil

Browse Source
This commit is contained in:
peter 2002-12-24 23:32:19 +00:00
parent 9394913716
commit 680c90c65d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/parser.pas
View File

@ -519,7 +519,10 @@ implementation
ResourceStrings:=OldResourceStrings;
objectlibrary:=oldobjectlibrary;
{ restore previous scanner }
current_scanner:=tscannerfile(old_compiled_module.scanner);
if assigned(old_compiled_module) then
current_scanner:=tscannerfile(old_compiled_module.scanner)
else
current_scanner:=nil;
if assigned(current_scanner) then
parser_current_file:=current_scanner.inputfile.name^;
{ restore symtable state }
@ -618,7 +621,10 @@ implementation
end.
{
$Log$
Revision 1.46 2002-11-20 12:36:24 mazen
Revision 1.47 2002-12-24 23:32:19 peter
* fixed crash when old_compiled_module was nil
Revision 1.46 2002/11/20 12:36:24 mazen
* $UNITPATH directive is now working
Revision 1.45 2002/10/07 19:29:52 peter