Changeset 62 for trunk/Compiler/Analyze/UAnalyzerPascal.pas

Timestamp:

Jul 17, 2012, 10:14:41 AM (12 years ago)

Author:

chronos

Message:

• Modified: Show tab sheets of source code forms on file click in project manager.
• Fixed: Compilation error message line calculation on Windows.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (2 diffs)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -568 +568 @@
       if NextToken = 'initialization' then Break
       else if NextToken = 'finalization' then Break
+      else if NextToken = 'end' then Break
       else begin
         ErrorMessage(SInvalidConstruction, [NextToken]);
@@ -1444 +1445 @@
       Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name);
       if not Assigned(Module) then begin
-        if ParseFile(Name) then begin
+        if ParseFile(Name + '.pas') then begin
           Module := SourceCode.ParentModule.ParentProgram.Modules.Search(Name);
           Exported := AExported;