fredvs <fi...@hotmail.com> schrieb am Mi., 24. Juli 2019, 08:10:
> Hello.
>
> > Check for pfHidden.
>
> Thanks Sven for helping.
> But I do not catch how to hide those "self" parameter.
>
> IMHO, the guilty is here, in Martin's code msedisignparser.pas
> (Sadly I did not find any example how to use TParameterFlag.
> The goal is to ignore first parameter if fpc >= 3.2.x)
> ___________________________________________________
>
> procedure getmethodparaminfo(const atype: ptypeinfo;
> var info: methodparaminfoty);
> begin
> ...
> for int1:= 0 to paramcount - 1 do begin
> with params[int1] do begin
>
> -----> //////////// Here flags must be adapted for fpc 3.2.0
>
> flags:= tparamflags(
> {$ifde mse_fpc_3_0_2}wordset{$else}byteset{$endif}(pbyte(po1)^));
> inc(po1,{$ifdef mse_fpc_3_2}2{$else}1{$endif});
>
Shouldn't the first $ifdef check for mse_fpc_3_2 as well?
I don't know the surrounding code, but in the end you should skip to insert
the parameter into whatever structure you're generating if "pfHidden in
flags", but you nevertheless need to advance your pointer to the next
parameter.
Regards,
Sven
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
