Changeset 16 for branches/Void/UModel.pas

Timestamp:

Nov 10, 2009, 10:27:21 AM (15 years ago)

Author:

george

Message:

• Upraveno: Rozdělení jednotek pro generování výstupů do samostatných souborů.
• Přidáno: Generátor kódu pro procesor Z80.
• Přidáno: Parsování celých čísel.

File:

• branches/Void/UModel.pas (modified) (3 diffs)

branches/Void/UModel.pas

@@ -52 +52 @@
   end;
 
+  TModuleType = (mtUnit, mtProgram);
+
   TModule = class
   public
+    Name: string;
+    ModuleType: TModuleType;
     Types: TList;
     Variables: TList;
@@ -67 +71 @@
   end;
 
-  { TModel }
-
   TModel = class
   private
@@ -90 +92 @@
 begin
   Module := TModule.Create;
+  Module.ModuleType := mtProgram;
 end;