Changeset 52 for trunk/Forms/UFormCPU.pas

Timestamp:

Jul 26, 2012, 3:11:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optimization functions moved to shared place in TTarget.
• Modified: Text source is loaded to program source array of brainfuck commands for better processing.

File:

• trunk/Forms/UFormCPU.pas (modified) (1 diff)

trunk/Forms/UFormCPU.pas

@@ -47 +47 @@
   if MainForm.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(MainForm.CurrentTarget) do begin
-    LabelProgramPointer.Caption := IntToStr(SourcePosition);
+    LabelProgramPointer.Caption := IntToStr(ProgramIndex);
     LabelMemoryPointer.Caption := IntToStr(MemoryPosition);
     LabelStepCounter.Caption := IntToStr(StepCount);