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

Timestamp:

Apr 6, 2012, 9:43:56 AM (13 years ago)

Author:

chronos

Message:

• Added: Project determines which source file is main program source.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (1 diff)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -424 +424 @@
     ParseCommonBlock(Body, '.');
     SourceCode.ParentProgram.Modules.Add(SourceCode);
+    ProgramCode.MainModule := SourceCode;
     Result := True;
   end;