Changeset 160 for branches/virtualcpu3/UFormMain.pas

Timestamp:

Apr 26, 2018, 12:00:02 AM (7 years ago)

Author:

chronos

Message:

• Added: Unfinished unit for Int128 type.

Location:

branches/virtualcpu3

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (5 diffs)

branches/virtualcpu3

@@ -1 +1 @@
 lib
 project1.exe
+project1
 *.lps
 *.res

@@ -1 +1 @@
 lib
 project1.exe
+project1
 *.lps
 *.res

branches/virtualcpu3/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UMachine;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  UMachine, UInt128;
 
 type
@@ -13 +14 @@
 
   TForm1 = class(TForm)
+    Memo1: TMemo;
     procedure FormShow(Sender: TObject);
   private
 
   public
-
+    procedure TestInt128;
   end;
 
@@ -52 +54 @@
   Writer64: TInstWriter64;
 begin
-  CPU8 := TCPU8.Create;
+  TestInt128;
+
+{  CPU8 := TCPU8.Create;
   Writer8 := TInstWriter8.Create;
   Writer8.Machine := CPU8;
@@ -60 +64 @@
   CPU8.Run;
   CPU8.Free;
-
+ }
   CPU16 := TCPU16.Create;
   Writer16 := TInstWriter16.Create;
@@ -89 +93 @@
 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.
 

@@ -1 +1 @@
 lib
 project1.exe
+project1
 *.lps
 *.res