Regression: cast Variant to NativeInt is broken
Original Reporter info from Mantis: bork
-
Reporter name: Boris Matkov
Original Reporter info from Mantis: bork
- Reporter name: Boris Matkov
Description:
Regression: cast Variant to NativeInt is broken
Steps to reproduce:
This code can be compiled in FPC 3.0.4 and any Delphi version succesfully:
function VarToObj(const Value: Variant): TObject;
begin
Result := TObject(Pointer(NativeInt(Value)));
end;
But in FPC 3.2.0 I get the error:
Error: Illegal type conversion: "Variant" to "NativeInt"
Mantis conversion info:
- Mantis ID: 37339
- Version: 3.2.0
- Fixed in version: 3.3.1
- Fixed in revision: 45797 (#a57f3ba3)