Hello Graeme.
IMHO, the guilty is here, in 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_2}wordset{$else}byteset{$endif}(pbyte(po1)^));
inc(po1,{$ifdef mse_fpc_3_2}2{$else}1{$endif});
...
--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
