Cleanup: Eliminate warnings and hints

[d2df-editor.git] / src / shared / WADEDITOR.pas

diff --git a/src/shared/WADEDITOR.pas b/src/shared/WADEDITOR.pas
index e68fd21bcdee1c7d63ced3b086fb58abf80cd09d..d2183553cb10fbe67272913c96002f72b0fbff0a 100644 (file)
--- a/src/shared/WADEDITOR.pas
+++ b/src/shared/WADEDITOR.pas
@@ -143,7 +143,7 @@ begin
         P := OutBuf;
         Inc(OutBytes, 256);
         ReallocMem(OutBuf, OutBytes);
-        strm.next_out := PByteF(Integer(OutBuf) + (Integer(strm.next_out) - Integer(P)));
+        strm.next_out := PByteF(PtrUInt(OutBuf + (strm.next_out - P)));
         strm.avail_out := 256;
       end;
     finally