Changeset 71 for branches/Transpascal/Compiler/Analyze/UPascalParser.pas

Timestamp:

Oct 19, 2010, 1:11:59 PM (14 years ago)

Author:

george

Message:

• Minor modifications.

File:

• branches/Transpascal/Compiler/Analyze/UPascalParser.pas (modified) (4 diffs)

branches/Transpascal/Compiler/Analyze/UPascalParser.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UParser, USourceCode;
+  Classes, SysUtils, UParser, USourceCode, Dialogs;
 
 type
@@ -61 +61 @@
     Parser.ProgramCode := ProgramCode;
     Parser.OnGetSource := OnGetSource;
-    if Assigned(FOnGetSource) then begin
+    if Assigned(OnGetSource) then begin
       if FOnGetSource(Name, Parser.SourceCodeText) then begin
         Parser.Init;
@@ -948 +948 @@
         Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name);
         Exported := AExported;
-      end else ErrorMessage(SUnitNotFound, [Name]);
+      end else begin
+        ErrorMessage(SUnitNotFound, [Name]);
+        SourceCode.Delete(SourceCode.Count - 1);
+      end;
     end;
   end;
@@ -962 +965 @@
       Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name);
       if not Assigned(Module) then begin
-        if not ParseFile(Name) then ErrorMessage(SUnitNotFound, [Name]);
+        if not ParseFile(Name) then begin
+          ErrorMessage(SUnitNotFound, [Name]);
+          SourceCode.Delete(SourceCode.Count - 1);
+        end;
       end;
     end;