Pointer syntax?

[kapibara]

The procedure below only compiles under $mode delphi. How to make it work with $mode objfpc?

procedure SetPointerToData;
var
  t: TPSVariantIFC;
begin
  t.Dta := @PPSVariantData(v).Data;
end;


Type definitions used:

PPSVariantData = ^TPSVariantData;
TPSVariantData = packed record
  VI: TPSVariant;
  Data: array[0..0] of Byte;
end;

TPSVariantIFC = packed record
  Dta: Pointer;
  aType: TPSTypeRec;
  VarParam: Boolean;
end;

(The code is part of PascalScript)

[Basile B.]

try this:

Code: [Select]

t.Dta := @PPSVariantData(v)^.Data;
in FPC mode, dereference has to be explicit.

[kapibara]

That works, thanks.