fix non portable pointer conversion

diff --git a/src/lib/vorbis/vorbis.pas b/src/lib/vorbis/vorbis.pas
index 81b026f7c348420a27b2fb08ee333deda42fd505..a2787be1a540abd3a6e8a02df71ff481d00af781 100644 (file)
--- 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