Delphi XE7 Cant install package

[bamsey2k1]

I've got:

[dcc32 Error] InvokeCall.inc(115): E2089 Invalid typecast;

when try to install package PascalScript_Core_D21;

Previous revision works fine;

[pult]

Need fix: uPSRuntime.pas

...
{$UNDEF _INVOKECALL_INC_}
{---?$IFDEF DELPHI2010UP} // TODO: not compiled for all delphi compilers
{$IFDEF DELPHI23UP}    // DELPHI2010UP == DELPHI14UP
  {$IFDEF AUTOREFCOUNT}
    {$fatal Pascal Script does not supports compilation with AUTOREFCOUNT at the moment!}
  {$ELSE}
    {$include InvokeCall.inc}
    {$DEFINE _INVOKECALL_INC_}
  {$ENDIF}
{$ELSE}

...

try
  {$IFDEF _INVOKECALL_INC_}
  Result := Caller.InnerfuseCall(FSelf, p.Ext1, TPSCallingConvention(Integer(cc) or 64), MyList, v);
  {$ELSE}
  Result := Caller.InnerfuseCall(FSelf, p.Ext1, {$IFDEF FPC}TPSCallingConvention(Integer(cc) or 64){$ELSE}cc{$ENDIF}, MyList, v);
  {$ENDIF}
finally
  DisposePPSVariantIFC(v);
  DisposePPSVariantIFCList(mylist);
  DestroyHeapVariant(intval);
end;
end;

function ClassCallProcVirtualConstructor(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
...

try
  {$IFDEF _INVOKECALL_INC_}
  Result := Caller.InnerfuseCall(FSelf, VirtualClassMethodPtrToPtr(p.Ext1, FSelf), TPSCallingConvention(Integer(cc) or 128), MyList, v);
  {$ELSE}
  Result := Caller.InnerfuseCall(FSelf, VirtualClassMethodPtrToPtr(p.Ext1, FSelf), {$IFDEF FPC}TPSCallingConvention(Integer(cc) or 128){$ELSE}cc{$ENDIF}, MyList, v);
  {$ENDIF}
finally
  DisposePPSVariantIFC(v);
  DisposePPSVariantIFCList(mylist);
  DestroyHeapVariant(intval);
end;
end;

function CastProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;

...

[bamsey2k1]

Thx, it worked!! :)