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

Timestamp:

Jul 12, 2022, 10:43:40 PM (23 months ago)

Author:

chronos

Message:

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

File:

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

branches/CpuSingleSize/Forms/UFormStorage.pas

@@ -1 +1 @@
 unit UFormStorage;
-
-{$mode delphi}
 
 interface
@@ -18 +16 @@
     procedure SetDevice(AValue: TDevice); override;
   public
-    Storage: TStorage;
+    Storage: TDeviceStorage;
   end;
 
@@ -37 +35 @@
 procedure TFormStorage.SetDevice(AValue: TDevice);
 begin
-  if AValue is TStorage then
-    Storage := TStorage(AValue);
+  if AValue is TDeviceStorage then
+    Storage := TDeviceStorage(AValue);
 end;