Changeset 223 for branches/CpuSingleSize/Forms/UFormDevices.pas

Timestamp:

Jul 12, 2022, 10:43:40 PM (2 years ago)

Author:

chronos

Message:

• Modified: More instructions.
• Modified: Optimized instruction execution with procedure array instead case.

File:

• branches/CpuSingleSize/Forms/UFormDevices.pas (modified) (3 diffs)

branches/CpuSingleSize/Forms/UFormDevices.pas

@@ -1 +1 @@
 unit UFormDevices;
-
-{$mode delphi}
 
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, UMachine;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
+  UMachine;
 
 type
@@ -35 +34 @@
 const
   DeviceClassFormClasses: array[TDeviceClass] of TFormDeviceClass = (
-    nil, nil, nil, TFormStorage, TFormScreen, TFormConsole);
+    nil, nil, nil, TFormStorage, TFormScreen, TFormConsole, nil);
 
 { TFormDevices }
@@ -55 +54 @@
         FormClass := DeviceClassFormClasses[Device.DeviceClass];
         if Assigned(FormClass) then begin
-          Device.Form := TFormDevice(FormClass.Create(nil));
+          Device.Form := FormClass.Create(nil);
           Device.Form.Device := Device;
           Device.Form.Show;