Changeset 34 for branches/UltimatOS/UMemory.pas

Timestamp:

Jul 12, 2022, 11:51:47 PM (22 months ago)

Author:

chronos

Message:

• Modified: Execute instructions as array of instruction handlers.
• Modified: Optimized some methods call with inline directive.

File:

• branches/UltimatOS/UMemory.pas (modified) (2 diffs)

branches/UltimatOS/UMemory.pas

@@ -11 +11 @@
   TMemory = class
   private
+    FSize: Integer;
     function GetSize: Integer;
     procedure SetSize(AValue: Integer);
   public
     Data: PByte;
-    property Size: Integer read GetSize write SetSize;
+    property Size: Integer read FSize write SetSize;
     constructor Create;
     destructor Destroy; override;
@@ -32 +33 @@
 procedure TMemory.SetSize(AValue: Integer);
 begin
+  if FSize = AValue then Exit;
+  FSize := AValue;
   Data := ReAllocMem(Data, AValue);
 end;