This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
edc043ddf155374f185c1ecb8e95eba99cc10f58
[perl5.git] / byterun.h
1 /*
2  *      Copyright (c) 1996-1998 Malcolm Beattie
3  *
4  *      You may distribute under the terms of either the GNU General Public
5  *      License or the Artistic License, as specified in the README file.
6  *
7  */
8 /*
9  * This file is autogenerated from bytecode.pl. Changes made here will be lost.
10  */
11 #ifdef INDIRECT_BGET_MACROS
12 struct bytestream {
13     void *data;
14     int (*fgetc)(void *);
15     int (*fread)(char *, size_t, size_t, void*);
16     void (*freadpv)(U32, void*);
17 };
18 void byterun _((struct bytestream));
19 #else
20 void byterun _((FILE *));
21 #endif /* INDIRECT_BGET_MACROS */
22
23 void *bset_obj_store _((void *, I32));
24
25 enum {
26     INSN_RET,                   /* 0 */
27     INSN_LDSV,                  /* 1 */
28     INSN_LDOP,                  /* 2 */
29     INSN_STSV,                  /* 3 */
30     INSN_STOP,                  /* 4 */
31     INSN_LDSPECSV,                      /* 5 */
32     INSN_NEWSV,                 /* 6 */
33     INSN_NEWOP,                 /* 7 */
34     INSN_NEWOPN,                        /* 8 */
35     INSN_NEWPV,                 /* 9 */
36     INSN_NOP,                   /* 10 */
37     INSN_PV_CUR,                        /* 11 */
38     INSN_PV_FREE,                       /* 12 */
39     INSN_SV_UPGRADE,                    /* 13 */
40     INSN_SV_REFCNT,                     /* 14 */
41     INSN_SV_REFCNT_ADD,                 /* 15 */
42     INSN_SV_FLAGS,                      /* 16 */
43     INSN_XRV,                   /* 17 */
44     INSN_XPV,                   /* 18 */
45     INSN_XIV32,                 /* 19 */
46     INSN_XIV64,                 /* 20 */
47     INSN_XNV,                   /* 21 */
48     INSN_XLV_TARGOFF,                   /* 22 */
49     INSN_XLV_TARGLEN,                   /* 23 */
50     INSN_XLV_TARG,                      /* 24 */
51     INSN_XLV_TYPE,                      /* 25 */
52     INSN_XBM_USEFUL,                    /* 26 */
53     INSN_XBM_PREVIOUS,                  /* 27 */
54     INSN_XBM_RARE,                      /* 28 */
55     INSN_XFM_LINES,                     /* 29 */
56     INSN_XIO_LINES,                     /* 30 */
57     INSN_XIO_PAGE,                      /* 31 */
58     INSN_XIO_PAGE_LEN,                  /* 32 */
59     INSN_XIO_LINES_LEFT,                        /* 33 */
60     INSN_XIO_TOP_NAME,                  /* 34 */
61     INSN_COMMENT,                       /* 35 */
62     INSN_XIO_TOP_GV,                    /* 36 */
63     INSN_XIO_FMT_NAME,                  /* 37 */
64     INSN_XIO_FMT_GV,                    /* 38 */
65     INSN_XIO_BOTTOM_NAME,                       /* 39 */
66     INSN_XIO_BOTTOM_GV,                 /* 40 */
67     INSN_XIO_SUBPROCESS,                        /* 41 */
68     INSN_XIO_TYPE,                      /* 42 */
69     INSN_XIO_FLAGS,                     /* 43 */
70     INSN_XCV_STASH,                     /* 44 */
71     INSN_XCV_START,                     /* 45 */
72     INSN_XCV_ROOT,                      /* 46 */
73     INSN_XCV_GV,                        /* 47 */
74     INSN_XCV_FILEGV,                    /* 48 */
75     INSN_XCV_DEPTH,                     /* 49 */
76     INSN_XCV_PADLIST,                   /* 50 */
77     INSN_XCV_OUTSIDE,                   /* 51 */
78     INSN_XCV_FLAGS,                     /* 52 */
79     INSN_AV_EXTEND,                     /* 53 */
80     INSN_AV_PUSH,                       /* 54 */
81     INSN_XAV_FILL,                      /* 55 */
82     INSN_XAV_MAX,                       /* 56 */
83     INSN_XAV_FLAGS,                     /* 57 */
84     INSN_XHV_RITER,                     /* 58 */
85     INSN_XHV_NAME,                      /* 59 */
86     INSN_HV_STORE,                      /* 60 */
87     INSN_SV_MAGIC,                      /* 61 */
88     INSN_MG_OBJ,                        /* 62 */
89     INSN_MG_PRIVATE,                    /* 63 */
90     INSN_MG_FLAGS,                      /* 64 */
91     INSN_MG_PV,                 /* 65 */
92     INSN_XMG_STASH,                     /* 66 */
93     INSN_GV_FETCHPV,                    /* 67 */
94     INSN_GV_STASHPV,                    /* 68 */
95     INSN_GP_SV,                 /* 69 */
96     INSN_GP_REFCNT,                     /* 70 */
97     INSN_GP_REFCNT_ADD,                 /* 71 */
98     INSN_GP_AV,                 /* 72 */
99     INSN_GP_HV,                 /* 73 */
100     INSN_GP_CV,                 /* 74 */
101     INSN_GP_FILEGV,                     /* 75 */
102     INSN_GP_IO,                 /* 76 */
103     INSN_GP_FORM,                       /* 77 */
104     INSN_GP_CVGEN,                      /* 78 */
105     INSN_GP_LINE,                       /* 79 */
106     INSN_GP_SHARE,                      /* 80 */
107     INSN_XGV_FLAGS,                     /* 81 */
108     INSN_OP_NEXT,                       /* 82 */
109     INSN_OP_SIBLING,                    /* 83 */
110     INSN_OP_PPADDR,                     /* 84 */
111     INSN_OP_TARG,                       /* 85 */
112     INSN_OP_TYPE,                       /* 86 */
113     INSN_OP_SEQ,                        /* 87 */
114     INSN_OP_FLAGS,                      /* 88 */
115     INSN_OP_PRIVATE,                    /* 89 */
116     INSN_OP_FIRST,                      /* 90 */
117     INSN_OP_LAST,                       /* 91 */
118     INSN_OP_OTHER,                      /* 92 */
119     INSN_OP_TRUE,                       /* 93 */
120     INSN_OP_FALSE,                      /* 94 */
121     INSN_OP_CHILDREN,                   /* 95 */
122     INSN_OP_PMREPLROOT,                 /* 96 */
123     INSN_OP_PMREPLROOTGV,                       /* 97 */
124     INSN_OP_PMREPLSTART,                        /* 98 */
125     INSN_OP_PMNEXT,                     /* 99 */
126     INSN_PREGCOMP,                      /* 100 */
127     INSN_OP_PMFLAGS,                    /* 101 */
128     INSN_OP_PMPERMFLAGS,                        /* 102 */
129     INSN_OP_SV,                 /* 103 */
130     INSN_OP_GV,                 /* 104 */
131     INSN_OP_PV,                 /* 105 */
132     INSN_OP_PV_TR,                      /* 106 */
133     INSN_OP_REDOOP,                     /* 107 */
134     INSN_OP_NEXTOP,                     /* 108 */
135     INSN_OP_LASTOP,                     /* 109 */
136     INSN_COP_LABEL,                     /* 110 */
137     INSN_COP_STASH,                     /* 111 */
138     INSN_COP_FILEGV,                    /* 112 */
139     INSN_COP_SEQ,                       /* 113 */
140     INSN_COP_ARYBASE,                   /* 114 */
141     INSN_COP_LINE,                      /* 115 */
142     INSN_MAIN_START,                    /* 116 */
143     INSN_MAIN_ROOT,                     /* 117 */
144     INSN_CURPAD,                        /* 118 */
145     MAX_INSN = 118
146 };
147
148 enum {
149     OPt_OP,             /* 0 */
150     OPt_UNOP,           /* 1 */
151     OPt_BINOP,          /* 2 */
152     OPt_LOGOP,          /* 3 */
153     OPt_CONDOP,         /* 4 */
154     OPt_LISTOP,         /* 5 */
155     OPt_PMOP,           /* 6 */
156     OPt_SVOP,           /* 7 */
157     OPt_GVOP,           /* 8 */
158     OPt_PVOP,           /* 9 */
159     OPt_LOOP,           /* 10 */
160     OPt_COP             /* 11 */
161 };
162
163 EXT int optype_size[]
164 #ifdef DOINIT
165 = {
166     sizeof(OP),
167     sizeof(UNOP),
168     sizeof(BINOP),
169     sizeof(LOGOP),
170     sizeof(CONDOP),
171     sizeof(LISTOP),
172     sizeof(PMOP),
173     sizeof(SVOP),
174     sizeof(GVOP),
175     sizeof(PVOP),
176     sizeof(LOOP),
177     sizeof(COP)
178 }
179 #endif /* DOINIT */
180 ;
181
182 EXT SV * specialsv_list[4];
183 #define INIT_SPECIALSV_LIST STMT_START { \
184         specialsv_list[0] = Nullsv; \
185         specialsv_list[1] = &sv_undef; \
186         specialsv_list[2] = &sv_yes; \
187         specialsv_list[3] = &sv_no; \
188     } STMT_END