[fpc-pascal] importtl tool

José Mejuto joshyfun at gmail.com
Fri Oct 21 12:10:25 CEST 2016

El 21/10/2016 a las 12:05, LacaK escribió:

> - in typelib.pas is on line 631 vt=VT_PTR and sl='PWideString' ('P' is
> deleted on line 635) wParamFlags=0
> When I add "else" part:
>             case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and
>               PARAMFLAG_FIN or PARAMFLAG_FOUT:sPar:='var ';
>               PARAMFLAG_FOUT:sPar:='out ';
>               PARAMFLAG_FIN:sPar:='var '; //constref in safecall? TBD
> /*added*/  else sPar:='var ';
>             end;
> it works for me.
> But I have no idea if it can negative impact other cases ?


Looking again to the code I think you are right and is the third case 
"PARAMFLAG_FIN" which may be wrong, it should be "constref" (IN only). 
Have you tried to use constref in the else case ?


More information about the fpc-pascal mailing list