Changeset 51 for trunk/Compiler/USourceCode.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/USourceCode.pas (modified) (2 diffs)

trunk/Compiler/USourceCode.pas

@@ -380 +380 @@
   end;
 
+  { TProgram }
+
   TProgram = class
     Device: TDevice;
     Modules: TModuleList;
+    MainModule: TModule;
+    procedure Clear;
     constructor Create;
     destructor Destroy; override;
@@ -421 +425 @@
 
 { TProgram }
+
+procedure TProgram.Clear;
+begin
+  Modules.Clear;
+  MainModule := nil;
+end;
 
 constructor TProgram.Create;