Changeset 186 for branches/virtualcpu4/Forms/UFormMain.pas

Timestamp:

May 1, 2019, 11:39:27 PM (6 years ago)

Author:

chronos

Message:

• Added: Partial implementation of compiler to Pascal source.

File:

• branches/virtualcpu4/Forms/UFormMain.pas (modified) (4 diffs)

branches/virtualcpu4/Forms/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ButtonAssembler: TButton;
+    ButtonCompilerPascal: TButton;
     ButtonClearMemory: TButton;
     ButtonScreen: TButton;
@@ -25 +26 @@
     procedure ButtonAssemblerClick(Sender: TObject);
     procedure ButtonClearMemoryClick(Sender: TObject);
+    procedure ButtonCompilerPascalClick(Sender: TObject);
     procedure ButtonConsoleClick(Sender: TObject);
     procedure ButtonCpuStateClick(Sender: TObject);
@@ -52 +54 @@
 uses
   UFormDisassembler, UFormMemory, UFormCpuState, UFormScreen, UFormConsole,
-  UFormAssembler;
+  UFormAssembler, UFormCompilerPascal;
 
 { TFormMain }
@@ -116 +118 @@
 begin
   Machine.ClearMemory;
+end;
+
+procedure TFormMain.ButtonCompilerPascalClick(Sender: TObject);
+begin
+  if not Assigned(FormCompilerPascal) then
+    FormCompilerPascal := TFormCompilerPascal.Create(Self);
+  FormCompilerPascal.CompilerPascal.Reader.Cpu := Machine.Cpu;
+  FormCompilerPascal.Show;
 end;