Hola DEC,
Buscando por el nombre de la función en google, aparece en github una versión mas actualizada en donde el autor ya parece tener resuelto el problema
https://github.com/pyscripter/pyscri...lighterWeb.pas
Código Delphi
[-]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;
Espero te sirva
Un saludo