This lines give me warning
function RangeToProcessor(Range: Pointer): Byte;
begin
Result := PtrUInt(Range); <----
end;
Error:
Hint: Conversion between ordinals and pointers is not portable
How to make it portable?
I want to take my byte from that pointer, that i save it before in another function.
there is another problem but in linux only, windows works fine
TRangeState = (rsUnknown, rsComment, rsString);
FRange: TRangeState;
function TSynFirebirdSyn.GetRange: Pointer;
begin
Result := Pointer(FRange);
end;
Error:
Illegal type conversion: "TRangeState" to "Pointer"
Thanks in advance
EDIT:
removed " and $FF"