Changeset 51 for trunk/Compiler/UCompiler.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Compiler/UCompiler.pas (modified) (3 diffs)

trunk/Compiler/UCompiler.pas

@@ -37 +37 @@
     TargetFolder: string;
     Targets: TListTarget;
+    MainSource: string;
     SourceFiles: TListString;
     TargetFiles: TListString;
@@ -84 +85 @@
 begin
   ErrorMessages.Clear;
-  AbstractCode.Modules.Clear;
+  AbstractCode.Clear;
 end;
 
@@ -169 +170 @@
 procedure TCompiler.AnalyzeAll;
 begin
-  if SourceFiles.Count > 0 then begin
-    Analyzer.FileName := SourceFiles[0];
+  if (SourceFiles.Count > 0) then begin
+    Analyzer.FileName := MainSource;
     Analyzer.OnGetSource(ExtractFileNameOnly(Analyzer.FileName), Analyzer.SourceCode);
     Analyzer.Process;