Changeset 80 for trunk/Target/UTargetInterpretter.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Target/UTargetInterpretter.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