PQArgBlock

type PQArgBlock = record

  len: LongInt;

  isint: LongInt;

  u: record

    case LongInt of

      0: (

          ptr: Plongint;

        );

      1: (

          integer: LongInt;

        );

  end;

end;