From 680c90c65dc954198e7c3aed1ff2f211ca96ee8e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 24 Dec 2002 23:32:19 +0000
Subject: [PATCH]   * fixed crash when old_compiled_module was nil

---
 compiler/parser.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/compiler/parser.pas b/compiler/parser.pas
index c453b54b1c..0c8b2892ef 100644
--- a/compiler/parser.pas
+++ b/compiler/parser.pas
@@ -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