X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Flib%2Fvorbis%2Fvorbis.pas;h=a2787be1a540abd3a6e8a02df71ff481d00af781;hb=8fc95564b0e23e4dc87769e61b96dee92bd01f11;hp=81b026f7c348420a27b2fb08ee333deda42fd505;hpb=1e8d8649f9fa70dd54b628bee55772e2f4b934a0;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