Changeset 80 for trunk

Timestamp:

Jan 1, 2017, 11:34:52 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Exception if optimization for empty code was used.
• Fixed: Correctly show used memory cells.

Location:

trunk

Files:

• Target/UTargetInterpretter.pas (modified) (2 diffs)
• UBFTarget.pas (modified) (2 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -228 +228 @@
   if MemoryPosition < MemorySize then Inc(MemoryPosition, FProgram[FProgramIndex].Parameter)
     else raise Exception.Create(SProgramUpperLimit);
-  if MemoryPosition > MemoryMaxUsed then
-    MemoryMaxUsed := MemoryPosition;
+  if (MemoryPosition + 1) > MemoryMaxUsed then
+    MemoryMaxUsed := MemoryPosition + 1;
 end;
 
@@ -255 +255 @@
   OutputPosition := 1;
   MemoryPosition := 0;
-  MemoryMaxUsed := 0;
+  MemoryMaxUsed := 1;
   //FillChar(Pointer(Memory)^, Length(Memory), 0);
   for I := 0 to Length(Memory) - 1 do

trunk/UBFTarget.pas

@@ -110 +110 @@
   // Replace old program by new program
   SetLength(FProgram, Length(NewProgram));
-  Move(NewProgram[0], FProgram[0], SizeOf(TMachineOperation) * Length(NewProgram));
+  Move(Pointer(NewProgram)^, Pointer(FProgram)^, SizeOf(TMachineOperation) * Length(NewProgram));
 end;
 
@@ -251 +251 @@
   // Replace old program by new program
   SetLength(FProgram, Length(NewProgram));
-  Move(NewProgram[0], FProgram[0], SizeOf(TMachineOperation) * Length(NewProgram));
+  Move(Pointer(NewProgram)^, Pointer(FProgram)^, SizeOf(TMachineOperation) * Length(NewProgram));
 end;