blob: 4e6f121dd5d505127d54b61e21f700b766c7114a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
* Summary: va_list support for ILE/RPG.
*
* Copy: See Copyright for the status of this software.
*
* Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
/if not defined(XML_STDARG_H__)
/define XML_STDARG_H__
/include "libxmlrpg/xmlversion"
* The va_list object.
d xmlVaList ds based(######typedef######)
d align qualified
d current *
d next *
* Procedures.
d xmlVaStart pr extproc('__xmlVaStart')
d list like(xmlVaList)
d lastargaddr * value
d lastargsize 10u 0 value
d xmlVaArg pr * extproc('__xmlVaArg')
d list like(xmlVaList)
d dest * value
d argsize 10i 0 value
d xmlVaEnd pr extproc('__xmlVaEnd')
d list like(xmlVaList)
/endif XML_STDARG_H__
|