|
@@ -747,7 +747,7 @@ unit TypInfo;
|
|
|
(MethodKind : TMethodKind;
|
|
(MethodKind : TMethodKind;
|
|
|
ParamCount : Byte;
|
|
ParamCount : Byte;
|
|
|
case Boolean of
|
|
case Boolean of
|
|
|
- False: (ParamList : array[0..1023] of Char);
|
|
|
|
|
|
|
+ False: (ParamList : array[0..1023] of AnsiChar);
|
|
|
{ dummy for proper alignment }
|
|
{ dummy for proper alignment }
|
|
|
True: (ParamListDummy : Word);
|
|
True: (ParamListDummy : Word);
|
|
|
{in reality ParamList is a array[1..ParamCount] of:
|
|
{in reality ParamList is a array[1..ParamCount] of:
|
Michael VAN CANNEYT