index 81b026f7c348420a27b2fb08ee333deda42fd505..a2787be1a540abd3a6e8a02df71ff481d00af781 100644 (file)
num := length;
bptr := @buf;
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
while num > 0 do
begin