From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 21 Sep 2019 11:59:11 +0000 (+0300)
Subject: fix non portable pointer conversion
X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=commitdiff_plain;h=8fc95564b0e23e4dc87769e61b96dee92bd01f11

fix non portable pointer conversion
---

diff --git a/src/lib/vorbis/vorbis.pas b/src/lib/vorbis/vorbis.pas
index 81b026f..a2787be 100644
--- a/src/lib/vorbis/vorbis.pas
+++ b/src/lib/vorbis/vorbis.pas
@@ -439,7 +439,7 @@ begin
   num := length;
 
   bptr := @buf;
-  while ((LongWord(bptr) and $0f) <> 0) do Inc(bptr);
+  while ((PtrUInt(bptr) and $0f) <> 0) do Inc(bptr);
 
   while num > 0 do
   begin