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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#include "icmun.h"
BIN_HEADER_
*headerp;
char
*funname [] =
{
"arghead",
"argtail",
"ascii_str2int",
"ascii_int2str",
"change_base",
"chdir",
"change_ext",
"cmdhead",
"cmdtail",
"change_path",
"echo",
"list_element",
"exec",
"execute",
"exists",
"strtok",
"fgets",
"fprintf",
"get_base",
"getch",
"gets",
"get_ext",
"get_path",
"makelist",
"printf",
"putenv",
"sizeoflist",
"stat",
"string_element",
NULL, /* occupied by strlwr */
NULL, /* occupied by strupr */
"system",
NULL, /* occupied by strlen */
NULL, /* occupied by substr */
"getpid",
};
FILE
*infile;
INT8
*local_types;
UNS16
curoffs,
nvar;
VAR_
*var;
void
(*procfun[]) ARG ((void)) =
{
fun_jmp,
fun_jmp_false,
fun_jmp_true,
fun_push_1_jmp_end,
fun_push_0,
fun_push_imm,
fun_push_strconst,
fun_push_var,
fun_push_reg,
fun_pop_var,
fun_umin,
fun_atoi,
fun_itoa,
fun_atol,
fun_mul,
fun_div,
fun_mod,
fun_add,
fun_sub,
fun_eq,
fun_neq,
fun_sm,
fun_gr,
fun_younger,
fun_older,
fun_smeq,
fun_greq,
fun_call_rss,
fun_asp,
fun_exit,
fun_copy_var,
fun_inc,
fun_dec,
fun_call,
fun_frame,
fun_ret,
fun_pop_reg,
fun_band,
fun_bor,
fun_bnot,
fun_xor,
fun_shl,
fun_shr,
/* fun_hlt : bogus value... op_hlt does not really exist */
};
|
