X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Flib%2Fvorbis%2Fvorbis.pas;h=a2787be1a540abd3a6e8a02df71ff481d00af781;hb=651f063582ce4ebc8eb1b36025d7553675005995;hp=81b026f7c348420a27b2fb08ee333deda42fd505;hpb=2d289acb4cb4cef37b53ecf37b79f5331e5b9dec;p=d2df-sdl.git

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