Changeset 176 for branches/virtualcpu4/UMachine.pas

Timestamp:

Apr 12, 2019, 11:43:24 AM (5 years ago)

Author:

chronos

Message:

• Modified: Optimization of draw only modified part of screen.

Location:

branches/virtualcpu4

Files:

• . (modified) (1 prop)
• UMachine.pas (modified) (4 diffs)

branches/virtualcpu4

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc

branches/virtualcpu4/UMachine.pas

@@ -12 +12 @@
     Size: TPoint;
     MemoryBase: Integer;
+    MemorySize: Integer;
+    ChangedAreaFrom: Integer;
+    ChangedAreaTo: Integer;
   end;
 
@@ -18 +21 @@
   TMachine = class
   private
+    FMemorySize: Integer;
     function CpuInput(Port: TAddress): TRegister;
     procedure CpuOutput(Port: TAddress; Value: TRegister);
@@ -128 +132 @@
       bw64: Screen.MemoryBase := Value.Q;
     end;
+    4: case Cpu.DataSize of
+      bw8: Screen.ChangedAreaFrom := Value.B;
+      bw16: Screen.ChangedAreaFrom := Value.W;
+      bw32: Screen.ChangedAreaFrom := Value.D;
+      bw64: Screen.ChangedAreaFrom := Value.Q;
+    end;
+    5: case Cpu.DataSize of
+      bw8: Screen.ChangedAreaTo := Value.B;
+      bw16: Screen.ChangedAreaTo := Value.W;
+      bw32: Screen.ChangedAreaTo := Value.D;
+      bw64: Screen.ChangedAreaTo := Value.Q;
+    end;
   end;
 end;
@@ -133 +149 @@
 function TMachine.GetMemorySize: Integer;
 begin
-  Result := MemSize(Memory);
+  Result := FMemorySize;
 end;
 
 procedure TMachine.SetMemorySize(AValue: Integer);
 begin
-  Memory := ReAllocMem(Memory, AValue);
+  if FMemorySize = AValue then Exit;
+  FMemorySize := AValue;
+  Memory := ReAllocMem(Memory, FMemorySize);
 end;
 

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc