Changeset 174 for branches/virtualcpu4/UInstructionWriter.pas

Timestamp:

Apr 12, 2019, 12:06:05 AM (6 years ago)

Author:

chronos

Message:

• Added: Unit UMachine which will cover virtual hardware for virtual CPU.

File:

• branches/virtualcpu4/UInstructionWriter.pas (modified) (4 diffs)

branches/virtualcpu4/UInstructionWriter.pas

@@ -150 +150 @@
 procedure TInstructionWriter.Write8(Value: Byte);
 begin
-  PByte(@Cpu.Memory[IP])^ := Value;
+  PByte(Cpu.Memory + IP)^ := Value;
   Inc(IP, SizeOf(Byte));
 end;
@@ -156 +156 @@
 procedure TInstructionWriter.Write16(Value: Word);
 begin
-  PWord(@Cpu.Memory[IP])^ := Value;
+  PWord(Cpu.Memory + IP)^ := Value;
   Inc(IP, SizeOf(Word));
 end;
@@ -162 +162 @@
 procedure TInstructionWriter.Write32(Value: DWord);
 begin
-  PDWord(@Cpu.Memory[IP])^ := Value;
+  PDWord(Cpu.Memory + IP)^ := Value;
   Inc(IP, SizeOf(DWord));
 end;
@@ -168 +168 @@
 procedure TInstructionWriter.Write64(Value: QWord);
 begin
-  PQWord(@Cpu.Memory[IP])^ := Value;
+  PQWord(Cpu.Memory + IP)^ := Value;
   Inc(IP, SizeOf(QWord));
 end;