procedure TSynWebEngine.SetRangeInt(ALen, APos, AVal: Longword);
var
i: Longword;
begin
i := $FFFFFFFF shl ALen;
{$IFDEF CPUX64}
i:= (i shl APos) or (i shr (32-APos));
{$ELSE}
asm
mov ecx, APos
rol i, cl
end;
{$ENDIF}
FInstance^.FRange := (FInstance^.FRange and i) or ((AVal shl APos) and not i);
end;