Changeset 152 for trunk/Forms/FormCPU.pas
- Timestamp:
- Jun 6, 2024, 9:10:15 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormCPU.pas
r149 r152 32 32 33 33 uses 34 Core, TargetInterpret ter;34 Core, TargetInterpreter; 35 35 36 36 {$R *.lfm} … … 43 43 procedure TFormCPU.Reload; 44 44 begin 45 if Core.Core.CurrentTarget is TTargetInterpret ter then46 with TTargetInterpret ter(Core.Core.CurrentTarget) do begin45 if Core.Core.CurrentTarget is TTargetInterpreter then 46 with TTargetInterpreter(Core.Core.CurrentTarget) do begin 47 47 LabelProgramPointer.Caption := IntToStr(ProgramIndex); 48 48 LabelMemoryPointer.Caption := IntToStr(MemoryPosition);
Note:
See TracChangeset
for help on using the changeset viewer.