Changeset 70 for trunk/UBFTarget.pas

Timestamp:

Oct 11, 2015, 6:50:33 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Remember MemorySize and CellSize globally for all projects and targets.

File:

• trunk/UBFTarget.pas (modified) (2 diffs)

trunk/UBFTarget.pas

@@ -33 +33 @@
     procedure LoadProgram; override;
   public
+    MemorySize: Integer;
+    CellSize: Integer;
+    constructor Create; override;
     procedure OptimizeSource; override;
     property ProgramIndex: Integer read FProgramIndex;
@@ -314 +317 @@
 end;
 
+constructor TBFTarget.Create;
+begin
+  inherited Create;
+  MemorySize := 30000;
+  CellSize := 256;
+end;
+
 procedure TBFTarget.OptimizeSource;
 var