Changeset 196 for branches/virtcpu varint/UVarInt.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)
• UVarInt.pas (modified) (6 diffs)

branches/virtcpu varint/UVarInt.pas

@@ -32 +32 @@
     class operator Explicit(A: TVarInt): Int64;
     class operator Inc(A: TVarInt): TVarInt;
-    class operator Inc(A: TVarInt; B: Integer): TVarInt;
+    class operator Inc(A: TVarInt; B: TVarInt): TVarInt;
     class operator Dec(A: TVarInt): TVarInt;
+    class operator Dec(A: TVarInt; B: TVarInt): TVarInt;
     class operator Negative(A: TVarInt): TVarInt;
     class operator Add(A: TVarInt; B: TVarInt): TVarInt;
@@ -75 +76 @@
     class operator Explicit(A: TVarUInt): Int64;
     class operator Inc(A: TVarUInt): TVarUInt;
-    class operator Inc(A: TVarUInt; B: Integer): TVarUInt;
+    class operator Inc(A: TVarUInt; B: TVarInt): TVarUInt;
     class operator Dec(A: TVarUInt): TVarUInt;
+    class operator Dec(A: TVarUInt; B: TVarUInt): TVarUInt;
     class operator Negative(A: TVarUInt): TVarUInt;
     class operator Add(A: TVarUInt; B: TVarUInt): TVarUInt;
@@ -191 +193 @@
 end;
 
-class operator TVarUInt.Inc(A: TVarUInt; B: Integer): TVarUInt;
-begin
-  Result.Value := A.Value + B;
+class operator TVarUInt.Inc(A: TVarUInt; B: TVarInt): TVarUInt;
+begin
+  Result.Value := A.Value + B.Value;
 end;
 
@@ -199 +201 @@
 begin
   Result.Value := A.Value - 1;
+end;
+
+class operator TVarUInt.Dec(A: TVarUInt; B: TVarUInt): TVarUInt;
+begin
+  Result.Value := A.Value - B.Value;
 end;
 
@@ -424 +431 @@
 end;
 
-class operator TVarInt.Inc(A: TVarInt; B: Integer): TVarInt;
-begin
-  Result := A.Value + B;
+class operator TVarInt.Inc(A: TVarInt; B: TVarInt): TVarInt;
+begin
+  Result := A.Value + B.Value;
 end;
 
@@ -432 +439 @@
 begin
   Result.Value := A.Value - 1;
+end;
+
+class operator TVarInt.Dec(A: TVarInt; B: TVarInt): TVarInt;
+begin
+  Result.Value := A.Value - B.Value;
 end;