From 4781232719dc36e9fe617b7e5b40e41566f3cfea Mon Sep 17 00:00:00 2001
From: myonlylonely <myonlylonely@users.noreply.github.com>
Date: Sat, 28 Oct 2023 20:17:03 +0800
Subject: [PATCH] Fix 64bit Pointer bug in TsdFastMemStream

---
 general/sdStreams.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/general/sdStreams.pas b/general/sdStreams.pas
index 5623768..6219e34 100644
--- a/general/sdStreams.pas
+++ b/general/sdStreams.pas
@@ -138,7 +138,7 @@ function TsdFastMemStream.Read(var Buffer; Count: Integer): Longint;
     begin
       if Result > Count then
         Result := Count;
-      Move(Pointer(Longint(FMemory) + FPosition)^, Buffer, Result);
+      Move(Pointer(PByte(FMemory) + FPosition)^, Buffer, Result);
       Inc(FPosition, Result);
       Exit;
     end;
@@ -215,7 +215,7 @@ function TsdFastMemStream.Write(const Buffer; Count: Integer): Longint;
           SetCapacity(NewPos);
         FSize := NewPos;
       end;
-      System.Move(Buffer, Pointer(Longint(FMemory) + FPosition)^, Count);
+      System.Move(Buffer, Pointer(PByte(FMemory) + FPosition)^, Count);
       FPosition := NewPos;
       Result := Count;
       Exit;