Changeset 197 for branches/virtcpu varint/UVarInt.pas

Timestamp:

Sep 22, 2019, 9:31:49 PM (5 years ago)

Author:

chronos

Message:

• Modified: All parts of virtual machine have own form in Forms subdirectory.
• Modified: Main form moved to Forms subdirectory.
• Modified: TCpu class moved to UCpu unit.
• Added: Assembler and dissasembler forms.

File:

• branches/virtcpu varint/UVarInt.pas (modified) (7 diffs)

branches/virtcpu varint/UVarInt.pas

@@ -39 +39 @@
     class operator Multiply(A: TVarInt; B: TVarInt): TVarInt;
     class operator IntDivide(A: TVarInt; B: TVarInt): TVarInt;
+    class operator Modulus(A: TVarInt; B: TVarInt): TVarInt;
     class operator Subtract(A: TVarInt; B: TVarInt): TVarInt;
     class operator Equal(A: TVarInt; B: TVarInt): Boolean;
@@ -67 +68 @@
     class operator Implicit(A: TVarUInt): Byte;
     class operator Implicit(A: TVarUInt): Char;
+    class operator Implicit(A: TVarUInt): TVarInt;
     class operator Implicit(A: Byte): TVarUInt;
     class operator Implicit(A: Integer): TVarUInt;
     class operator Implicit(A: Int64): TVarUInt;
     class operator Implicit(A: QWord): TVarUInt;
+    class operator Implicit(A: TVarInt): TVarUInt;
     class operator Explicit(A: Byte): TVarUInt;
     class operator Explicit(A: Integer): TVarUInt;
@@ -83 +86 @@
     class operator Multiply(A: TVarUInt; B: TVarUInt): TVarUInt;
     class operator IntDivide(A: TVarUInt; B: TVarUInt): TVarUInt;
+    class operator Modulus(A: TVarUInt; B: TVarUInt): TVarUInt;
     class operator Subtract(A: TVarUInt; B: TVarUInt): TVarUInt;
     class operator Equal(A: TVarUInt; B: TVarUInt): Boolean;
@@ -148 +152 @@
 end;
 
+class operator TVarUInt.Implicit(A: TVarUInt): TVarInt;
+begin
+  Result.Value := A.Value;
+end;
+
 class operator TVarUInt.Implicit(A: Byte): TVarUInt;
 begin
@@ -168 +177 @@
 end;
 
+class operator TVarUInt.Implicit(A: TVarInt): TVarUInt;
+begin
+  Result.Value := A.Value;
+end;
+
 class operator TVarUInt.Explicit(A: Byte): TVarUInt;
 begin
@@ -226 +240 @@
 begin
   Result.Value := A.Value div B.Value;
+end;
+
+class operator TVarUInt.Modulus(A: TVarUInt; B: TVarUInt): TVarUInt;
+begin
+  Result.Value := A.Value mod B.Value;
 end;
 
@@ -466 +485 @@
 end;
 
+class operator TVarInt.Modulus(A: TVarInt; B: TVarInt): TVarInt;
+begin
+  Result.Value := A.Value mod B.Value;
+end;
+
 class operator TVarInt.Subtract(A: TVarInt; B: TVarInt): TVarInt;
 begin
-  Result.Value := A.Value - B.Value
+  Result.Value := A.Value - B.Value;
 end;