Changeset 196 for branches/virtcpu varint/UMachine.pas

Timestamp:

Sep 22, 2019, 7:13:15 PM (5 years ago)

Author:

chronos

Message:

• Modified: Address CPU memory as pointer instead array of bytes.
• Added: TMachine class to represent virtual machine itself.

Location:

branches/virtcpu varint

Files:

• . (modified) (1 prop)
• UMachine.pas (modified) (12 diffs)

branches/virtcpu varint/UMachine.pas

@@ -1 +1 @@
 unit UMachine;
-
 
 {$mode delphi}{$H+}
@@ -85 +84 @@
     procedure OpcodeLddr;
   public
+    Memory: Pointer;
     Registers: array of T;
     IP: T;
+    SP: T;
     Condition: Boolean;
-    SP: T;
-    Memory: array of Byte;
     Terminated: Boolean;
     Ticks: Integer;
     procedure Start;
     procedure Stop;
+    procedure Step; inline;
     constructor Create(AOwner: TComponent); override;
   published
@@ -100 +100 @@
   end;
 
+  { TMachine }
+
+  TMachine = class(TComponent)
+  private
+    FMemorySize: Integer;
+    procedure SetMemorySize(AValue: Integer);
+  public
+    Cpu: TCpu;
+    Memory: Pointer;
+    property MemorySize: Integer read FMemorySize write SetMemorySize;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
 
 implementation
 
+{ TMachine }
+
+procedure TMachine.SetMemorySize(AValue: Integer);
+begin
+  if FMemorySize = AValue then Exit;
+  FMemorySize := AValue;
+  Memory := ReAllocMem(Memory, FMemorySize);
+  Cpu.Memory := Memory;
+end;
+
+constructor TMachine.Create(AOwner: TComponent);
+begin
+  inherited;
+  Cpu := TCpu.Create(nil);
+  MemorySize := 1000;
+end;
+
+destructor TMachine.Destroy;
+begin
+  MemorySize := 0;
+  FreeAndNil(Cpu);
+  inherited Destroy;
+end;
+
 { TCPU }
 
 function TCPU.ReadNext: T;
 begin
-  IP := IP + Result.ReadFromAddr(@Memory[IP]);
+  IP := IP + Result.ReadFromAddr(Pointer(NativeUInt(Memory) + IP));
 end;
 
@@ -147 +185 @@
   P1 := ReadNext;
   P2 := ReadNext;
-  Registers[P1] := Memory[Registers[P2]];
+  Registers[P1].ReadFromAddr(Pointer(NativeUInt(Memory) + Integer(Registers[P2])));
 end;
 
@@ -157 +195 @@
   P1 := ReadNext;
   P2 := ReadNext;
-  Memory[Registers[P1]] := Registers[P2];
+  Registers[P2].WriteToAddr(Pointer(NativeUInt(Memory) + Registers[P1]));
 end;
 
@@ -307 +345 @@
   P1 := ReadNext;
   SP := SP - Registers[P1].GetByteSize;
-  Registers[P1].WriteToAddr(@Memory[SP]);
+  Registers[P1].WriteToAddr(Pointer(NativeUInt(Memory) + Integer(SP)));
 end;
 
 procedure TCPU.OpcodePop;
 begin
-  SP := SP + Registers[ReadNext].ReadFromAddr(@Memory[SP]);
+  SP := SP + Registers[ReadNext].ReadFromAddr(Pointer(NativeUInt(Memory) + Integer(SP)));
 end;
 
@@ -321 +359 @@
   Addr := ReadNext;
   SP := SP - IP.GetByteSize;
-  IP.WriteToAddr(@Memory[SP]);
+  IP.WriteToAddr(Pointer(NativeUInt(Memory) + SP));
   IP := Addr;
 end;
@@ -331 +369 @@
   Addr := ReadNext;
   SP := SP - IP.GetByteSize;
-  IP.WriteToAddr(@Memory[SP]);
+  IP.WriteToAddr(Pointer(NativeUInt(Memory) + SP));
   IP := IP + Addr;
 end;
 
 procedure TCPU.OpcodeReturn;
-var
-  S: Integer;
-begin
-  SP := SP + IP.ReadFromAddr(@Memory[SP]);
+begin
+  SP := SP + IP.ReadFromAddr(Pointer(NativeUInt(Memory) + SP));
 end;
 
@@ -424 +460 @@
   Src: T;
   Dst: T;
-  Size: T;
+  Count: T;
+  Bytes: T;
 begin
   Src := ReadNext;
   Dst := ReadNext;
-  Size := ReadNext;
-  while Registers[Size] > 0 do begin
-    Memory[Registers[Dst]] := Memory[Registers[Src]];
-    Inc(Registers[Src]);
-    Inc(Registers[Dst]);
-    Dec(Registers[Size]);
+  Count := ReadNext;
+  Bytes := ReadNext;
+  while Registers[Count] > 0 do begin
+    Move(Pointer(NativeUInt(Memory) + Registers[Src])^,
+      Pointer(NativeUInt(Memory) + Registers[Dst])^, Bytes);
+    Inc(Registers[Src], Bytes);
+    Inc(Registers[Dst], Bytes);
+    Dec(Registers[Count]);
   end;
 end;
@@ -441 +480 @@
   Src: T;
   Dst: T;
-  Size: T;
+  Count: T;
+  Bytes: T;
 begin
   Src := ReadNext;
   Dst := ReadNext;
-  Size := ReadNext;
-  while Registers[Size] > 0 do begin
-    Memory[Registers[Dst]] := Memory[Registers[Src]];
-    Dec(Registers[Src]);
-    Dec(Registers[Dst]);
-    Dec(Registers[Size]);
+  Count := ReadNext;
+  Bytes := ReadNext;
+  while Registers[Count] > 0 do begin
+    Move(Pointer(NativeUInt(Memory) + Registers[Src])^,
+      Pointer(NativeUInt(Memory) + Registers[Dst])^, Bytes);
+    Dec(Registers[Src], Bytes);
+    Dec(Registers[Dst], Bytes);
+    Dec(Registers[Count]);
   end;
 end;
 
 procedure TCPU.Start;
-var
-  Opcode: T;
 begin
   Terminated := False;
   Ticks := 0;
   IP := 0;
-  SP := Length(Memory);
-  while not Terminated do begin
-    Opcode := ReadNext;
-    if (Opcode >= 0) and (Opcode <= T(Integer(High(TOpcode)))) then
-      OpcodeHandlers[TOpcode(Byte(Opcode))]
-      else raise Exception.Create(Format('Unsupported instruction %d', [Int64(Opcode)]));
-    Inc(Ticks);
-  end;
+  SP := MemSize(Memory);
+  while not Terminated do
+    Step;
 end;
 
@@ -474 +509 @@
 begin
   Terminated := True;
+end;
+
+procedure TCPU.Step;
+var
+  Opcode: T;
+begin
+  Opcode := ReadNext;
+  if (Opcode >= 0) and (Opcode <= T(Integer(High(TOpcode)))) then
+    OpcodeHandlers[TOpcode(Byte(Opcode))]
+    else raise Exception.Create(Format('Unsupported instruction %d on address %x', [Int64(Opcode), Int64(IP)]));
+  Inc(Ticks);
 end;
 
@@ -480 +526 @@
   inherited;
   SetLength(Registers, 16);
-  SetLength(Memory, 1024);
   OpcodeHandlers[opNop] := OpcodeNop;
   OpcodeHandlers[opHalt] := OpcodeHalt;