Changeset 161 for branches/virtualcpu3/UFormMain.pas

Timestamp:

Apr 26, 2018, 1:10:38 PM (6 years ago)

Author:

chronos

Message:

• Modified: Further Int128 unit implementation.

File:

• branches/virtualcpu3/UFormMain.pas (modified) (3 diffs)

branches/virtualcpu3/UFormMain.pas

@@ -19 +19 @@
 
   public
-    procedure TestInt128;
   end;
 
@@ -54 +53 @@
   Writer64: TInstWriter64;
 begin
-  TestInt128;
-
 {  CPU8 := TCPU8.Create;
   Writer8 := TInstWriter8.Create;
@@ -93 +90 @@
 end;
 
-procedure TForm1.TestInt128;
-var
-  A, B, C: Int128;
-begin
-  A := 2;
-  B := 3;
-  C := A + B;
-  Memo1.Lines.Add(IntToStr(A) + ' + ' + IntToStr(B) + ' = ' + IntToStr(C));
-  C := A * B;
-  Memo1.Lines.Add(IntToStr(A) + ' * ' + IntToStr(B) + ' = ' + IntToStr(C));
-end;
-
 end.