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
35
36
37
38
39
40
41
42
|
/*
* isode/pepsy/macdefs.h
*/
/*
* NOTICE
*
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
* this agreement.
*
*/
/*
* common encoding macro definitions
*/
#define DO_OFFSET(parm, p) ((parm) + (p)->pe_ucode)
#define NO_OFFSET(parm, p) (parm)
/* various things From Pointer And Offset- *_FPAO */
#define INT_FPAO(parm, p) (*(integer *)DO_OFFSET(parm, p))
#define REAL_FPAO(parm, p) (*(double *)DO_OFFSET(parm, p))
#define CHAR_FPAO(parm, p) (*(char *)DO_OFFSET(parm, p))
#define OID_FPAO(parm, p) (*(OID *)DO_OFFSET(parm, p))
#define SOID_FPAO(parm, p) ((OID)NO_OFFSET(parm, p))
#define PTR_FPAO(parm, p) (*(char **)DO_OFFSET(parm, p))
#define SPTR_FPAO(parm, p) ((char *)NO_OFFSET(parm, p))
#define QB_FPAO(parm, p) (*(struct qbuf **)DO_OFFSET(parm, p))
#define SQB_FPAO(parm, p) ((struct qbuf *)NO_OFFSET(parm, p))
#define PE_FPAO(parm, p) (*(PE *)DO_OFFSET(parm, p))
#define SPE_FPAO(parm, p) ((PE)NO_OFFSET(parm, p)
#define TYPE2MOD(mod, p) ((mod)->md_etab[p->pe_tag])
|
