Ignore:
Timestamp:
May 1, 2019, 11:39:27 PM (6 years ago)
Author:
chronos
Message:
  • Added: Partial implementation of compiler to Pascal source.
Location:
branches/virtualcpu4/Forms
Files:
2 added
2 edited

Legend:

Unmodified
Added
Removed

  • branches/virtualcpu4/Forms/UFormMain.lfm

    r185 r186  
    11object FormMain: TFormMain
    2   Left = 780
    3   Height = 269
    4   Top = 527
    5   Width = 659
     2  Left = 686
     3  Height = 318
     4  Top = 444
     5  Width = 806
    66  Caption = 'VirtCpu4'
    7   ClientHeight = 269
    8   ClientWidth = 659
     7  ClientHeight = 318
     8  ClientWidth = 806
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    … …  
    4343  end
    4444  object ButtonMemory: TButton
    45     Left = 371
     45    Left = 24
    4646    Height = 38
    47     Top = 64
     47    Top = 112
    4848    Width = 185
    4949    Caption = 'Memory'
    … …  
    5353  end
    5454  object ButtonCpuState: TButton
    55     Left = 371
     55    Left = 24
    5656    Height = 38
    57     Top = 110
     57    Top = 160
    5858    Width = 185
    5959    Caption = 'CPU state'
    … …  
    8585    Left = 371
    8686    Height = 38
    87     Top = 154
     87    Top = 56
    8888    Width = 185
    8989    Caption = 'Assembler'
    … …  
    9393  end
    9494  object ButtonClearMemory: TButton
    95     Left = 371
     95    Left = 24
    9696    Height = 38
    97     Top = 192
     97    Top = 208
    9898    Width = 185
    9999    Caption = 'Clear memory'
    … …  
    102102    TabOrder = 8
    103103  end
     104  object ButtonCompilerPascal: TButton
     105    Left = 371
     106    Height = 38
     107    Top = 200
     108    Width = 185
     109    Caption = 'Pascal compiler'
     110    OnClick = ButtonCompilerPascalClick
     111    ParentFont = False
     112    TabOrder = 9
     113  end
    104114end

  • branches/virtualcpu4/Forms/UFormMain.pas

    r185 r186  
    1515  TFormMain = class(TForm)
    1616    ButtonAssembler: TButton;
     17    ButtonCompilerPascal: TButton;
    1718    ButtonClearMemory: TButton;
    1819    ButtonScreen: TButton;
    … …  
    2526    procedure ButtonAssemblerClick(Sender: TObject);
    2627    procedure ButtonClearMemoryClick(Sender: TObject);
     28    procedure ButtonCompilerPascalClick(Sender: TObject);
    2729    procedure ButtonConsoleClick(Sender: TObject);
    2830    procedure ButtonCpuStateClick(Sender: TObject);
    … …  
    5254uses
    5355  UFormDisassembler, UFormMemory, UFormCpuState, UFormScreen, UFormConsole,
    54   UFormAssembler;
     56  UFormAssembler, UFormCompilerPascal;
    5557
    5658{ TFormMain }
    … …  
    116118begin
    117119  Machine.ClearMemory;
     120end;
     121
     122procedure TFormMain.ButtonCompilerPascalClick(Sender: TObject);
     123begin
     124  if not Assigned(FormCompilerPascal) then
     125    FormCompilerPascal := TFormCompilerPascal.Create(Self);
     126  FormCompilerPascal.CompilerPascal.Reader.Cpu := Machine.Cpu;
     127  FormCompilerPascal.Show;
    118128end;
    119129
Note: See TracChangeset for help on using the changeset viewer.