Changeset 223 for branches/CpuSingleSize/Forms/UFormScreen.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/UFormScreen.pas (modified) (3 diffs)

branches/CpuSingleSize/Forms/UFormScreen.pas

@@ -1 +1 @@
 unit UFormScreen;
-
-{$mode delphi}
 
 interface
@@ -25 +23 @@
     procedure SetDevice(AValue: TDevice); override;
   public
-    Screen: TScreen;
+    Screen: TDeviceScreen;
   end;
 
@@ -65 +63 @@
 procedure TFormScreen.SetDevice(AValue: TDevice);
 begin
-  if AValue is TScreen then
-    Screen := TScreen(AValue);
+  if AValue is TDeviceScreen then
+    Screen := TDeviceScreen(AValue);
 end;