annotate mc-code-ia32.c @ 190:1b1c58483e67

minor fix
author kono
date Mon, 01 Dec 2003 21:26:11 +0900
parents f53d70110377
children c193120ee2a6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1 /* Micro-C Code Generatation Part for intel386 */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
2 /* $Id$ */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
3
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
4 #define EXTERN extern
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
5 #include "mc.h"
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
6 #include "mc-codegen.h"
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
7 #include "mc-code.h"
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
8
173
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
9 char *l_include_path[] = {
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
10 "/usr/include/",
182
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
11 "/usr/include/linux/",
183
1d80ad165831 recursive macros
kono
parents: 182
diff changeset
12 "/usr/lib/gcc-lib/i386-redhat-linux/2.96/include/",
173
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
13 0
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
14 };
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
15
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
16
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
17 #define SAVE_STACKS 1
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
18
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
19 #define TEXT_EMIT_MODE 0
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
20 #define DATA_EMIT_MODE 1
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
21 #define RODATA_EMIT_MODE 2
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
22
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
23 static int output_mode = TEXT_EMIT_MODE;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
24 static int data_alignment = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
25
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
26 int size_of_int = 4;
165
kono
parents: 163
diff changeset
27 int size_of_short = 2;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
28 int size_of_float = 4;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
29 int size_of_double = 8;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
30 int size_of_longlong = 8;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
31 int endian = 0;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
32 int MAX_REGISTER=6; /* intel386のレジスタを6つまで使う*/
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
33 #define REAL_MAX_REGISTER 8 /* intel386のレジスタが8つということ*/
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
34 int MAX_DATA_REG=4;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
35 int MAX_POINTER=3;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
36 int MAX_REGISTGER_VAR=2;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
37 int MAX_FREGISTER=1;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
38
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
39 #define MAX_FPU_STACK 7
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
40
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
41 int MAX_INPUT_REGISTER_VAR = 0;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
42 int MAX_CODE_INPUT_REGISTER_VAR = 2;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
43 int MAX_INPUT_DREGISTER_VAR = 0;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
44 int MAX_INPUT_FREGISTER_VAR = 0;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
45 int MAX_CODE_INPUT_DREGISTER_VAR = 0;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
46
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
47 int reg_sp; /* REGister Stack-Pointer */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
48 int reg_stack[MAX_MAX]; /* 実際のレジスタの領域 */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
49
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
50 /* floating point registers */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
51
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
52 int freg_sp; /* floating point REGister Stack-Pointer */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
53 int freg_stack[MAX_MAX]; /* 実際のレジスタの領域 */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
54
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
55
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
56 /*
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
57 -28 -8 local2
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
58 -24 -4 local1
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
59 -20 8 arg3
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
60 -16 4 arg2
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
61 -12 0 arg1
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
62 local2 -20 4 -8 (%edi)
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
63 local1 <-- -16 0 local variable -4 (%esi)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
64 %edi -12 <- disp_offset %ebp
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
65 %esi -8
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
66 %ebx -4
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
67 %ebp = %esp 0
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
68 %eip 4 <- arg_offset
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
69 arg1 8 0
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
70 arg2 12 4
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
71 see enter/enter1/leave see code_enter
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
72 */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
73 int arg_offset = 8;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
74 int disp_offset = -12;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
75 int func_disp_offset = -12;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
76 int code_disp_offset = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
77 int jump_offset = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
78
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
79 static int code_disp_label;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
80 static int func_disp_label;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
81
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
82 static int
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
83 lvar(int l)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
84 {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
85 if (is_code(fnptr)) {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
86 return l+code_disp_offset;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
87 } else if (l<0) {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
88 return l+disp_offset;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
89 } else {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
90 return l+arg_offset;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
91 }
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
92 }
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
93
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
94 /*
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
95 creg currrent virtual register
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
96 dreg spare virtual register
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
97
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
98 rname[creg] currrent real register
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
99 rname[dreg] spare real register
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
100
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
101 regs[] virtual register usage
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
102 regv[] value in virtual register flag
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
103
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
104 reg_name[rname[creg]]
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
105
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
106 freg current floating point register
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
107 fregv calue in floating point register
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
108 */
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
109
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
110 static int dreg; /* general temporal register */
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
111
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
112 int ia32regs[REAL_MAX_REGISTER];
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
113 int ia32regv[REAL_MAX_REGISTER];
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
114 int ia32rname[REAL_MAX_REGISTER];
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
115
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
116 int *regv = ia32regv;
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
117 int *regs = ia32regs;
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
118 static int *rname = ia32rname;
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
119
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
120 int ia32fregs[1];
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
121 int ia32fregv[1];
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
122
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
123 int freg;
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
124 int *fregv = ia32fregv;
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
125 int *fregs = ia32fregs;
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
126
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
127
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
128 #define REG_EAX 0
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
129 #define REG_EBX 1
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
130 #define REG_ECX 2
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
131 #define REG_EDX 3
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
132 #define REG_ESI 4
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
133 #define REG_EDI 5
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
134 #define REG_EBP 6
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
135 #define REG_ESP 7
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
136
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
137
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
138 #define DATA_REG 0
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
139 #define POINTER_REG 3
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
140 static char *reg_name[8];
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
141 static char *reg_name_l[4];
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
142 static char *reg_name_w[4];
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
143
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
144 static void use_register(int virt, int real, int move);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
145 static int virtual(int real);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
146 static void shift(char *op, int reg);
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
147 static void ld_indexx(int byte, int n, int xreg,int sign);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
148 static void data_mode(char *name);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
149 static int edx_setup();
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
150 static void edx_cleanup();
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
151 static void local_table(void);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
152 static char * fload(int d);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
153 static int code_d1(double d);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
154 static int code_d2(double d);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
155 static void code_save_stacks();
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
156 static void code_save_fstacks();
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
157
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
158 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
159 code_init(void)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
160 {
173
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
161 macro_define("__i386__ 1\n");
182
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
162 macro_define("__LITTLE_ENDIAN__ 1\n");
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
163 macro_define("__STDC__ 1\n");
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
164 macro_define("size_t int\n");
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
165 macro_define("__externsion__\n");
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
166 macro_define("__flexarr\n");
183
1d80ad165831 recursive macros
kono
parents: 182
diff changeset
167 macro_define("__builtin_va_list int*\n");
1d80ad165831 recursive macros
kono
parents: 182
diff changeset
168 macro_define("wchar_t int\n");
173
3b33c7daae95 *** empty log message ***
kono
parents: 168
diff changeset
169
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
170 arg_offset = 8;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
171 func_disp_offset = -12;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
172 disp_offset = -12;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
173 size_of_int = 4;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
174 endian = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
175 MAX_REGISTER=6;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
176 MAX_DATA_REG=4;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
177 MAX_POINTER=3;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
178 MAX_REGISTER_VAR=2;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
179
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
180 reg_name[REG_EAX] = "%eax";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
181 reg_name[REG_EBX] = "%ebx";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
182 reg_name[REG_ECX] = "%ecx";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
183 reg_name[REG_EDX] = "%edx";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
184 reg_name[REG_ESI] = "%esi";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
185 reg_name[REG_EDI] = "%edi";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
186 reg_name[REG_EBP] = "%ebp";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
187 reg_name[REG_ESP] = "%esp";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
188 reg_name_l[REG_EAX] = "%al";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
189 reg_name_l[REG_EBX] = "%bl";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
190 reg_name_l[REG_ECX] = "%cl";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
191 reg_name_l[REG_EDX] = "%dl";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
192 reg_name_w[REG_EAX] = "%ax";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
193 reg_name_w[REG_EBX] = "%bx";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
194 reg_name_w[REG_ECX] = "%cx";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
195 reg_name_w[REG_EDX] = "%dx";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
196
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
197 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
198
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
199 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
200 register_name(int i,int byte)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
201 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
202 if (i<0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
203 error(REG_ERR);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
204 return "%eax";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
205 }
165
kono
parents: 163
diff changeset
206 if (byte==1 && rname[i] <= REG_EDX) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
207 return reg_name_l[rname[i]];
165
kono
parents: 163
diff changeset
208 } else if (byte==size_of_short && rname[i] <= REG_EDX) {
kono
parents: 163
diff changeset
209 return reg_name_w[rname[i]];
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
210 } else {
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
211 return reg_name[rname[i]]; /* 0 or 4 means int */
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
212 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
213 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
214
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
215 int use_int(int i) { return i;}
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
216 int use_float(int i) { return i;}
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
217 int use_double(int i) { return i;}
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
218
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
219 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
220 gexpr_code_init(void){
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
221 use_register(creg,REG_EAX,0);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
222 regv[creg]=0;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
223 regv[dreg]=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
224 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
225
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
226 void
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
227 code_gexpr(int e){
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
228 }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
229
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
230 int
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
231 register_var(int r) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
232 return virtual(r+REG_ESI);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
233 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
234
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
235 int
917947ffeb7c power pc version
kono
parents: 87
diff changeset
236 get_register(void)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
237 { /* 使われていないレジスタを調べる */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
238 int i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
239 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
240 if (! regs[i]) { /* 使われていないなら */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
241 regs[i]=1; /* そのレジスタを使うことを宣言し */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
242 return i; /* その場所を表す番号を返す */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
243 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
244 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
245 return -1; /* 空いている場所がないなら、それを表す -1 を返す */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
246 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
247
917947ffeb7c power pc version
kono
parents: 87
diff changeset
248 void
917947ffeb7c power pc version
kono
parents: 87
diff changeset
249 free_register(int i) { /* いらなくなったレジスタを開放 */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
250 regv[i]=regs[i]=0;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
251 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
252
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
253 int
126
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
254 get_input_register_var(int i,NMTBL *nptr,int is_code)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
255 {
126
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
256 if (is_code) {
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
257 if (i>=MAX_CODE_INPUT_REGISTER_VAR) return 0;
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
258 i = virtual(i+REG_ESI);
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
259 regs[i]=regv[i]=1;
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
260 return list3(REGISTER,i,(int)nptr);
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
261 } else {
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
262 return 0;
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
263 }
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
264 }
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
265
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
266 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
267 get_input_dregister_var(int i,NMTBL *nptr,int is_code,int d)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
268 {
126
1d1612fe705a *** empty log message ***
kono
parents: 123
diff changeset
269 return 0;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
270 }
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
271
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
272 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
273 get_dregister(int d)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
274 {
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
275 return -1;
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
276 }
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
277
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
278 int
917947ffeb7c power pc version
kono
parents: 87
diff changeset
279 register_full(void)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
280 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
281 int i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
282 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
283 if (! regs[i]) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
284 return 0;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
285 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
286 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
287 return 1;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
288 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
289
917947ffeb7c power pc version
kono
parents: 87
diff changeset
290 int
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
291 free_register_count(int d)
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
292 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
293 int i,count;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
294 count = 0;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
295 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
296 if (! regs[i] && ! regv[i]) count++;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
297 }
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
298 return d?0:count;
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
299 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
300
917947ffeb7c power pc version
kono
parents: 87
diff changeset
301 void
917947ffeb7c power pc version
kono
parents: 87
diff changeset
302 free_all_register(void)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
303 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
304 int i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
305 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
306 regs[i]=regv[i]=0;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
307 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
308 creg = get_register();
917947ffeb7c power pc version
kono
parents: 87
diff changeset
309 dreg = get_register();
917947ffeb7c power pc version
kono
parents: 87
diff changeset
310 return;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
311 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
312
917947ffeb7c power pc version
kono
parents: 87
diff changeset
313
917947ffeb7c power pc version
kono
parents: 87
diff changeset
314 void
917947ffeb7c power pc version
kono
parents: 87
diff changeset
315 register_usage(char *s)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
316 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
317 int i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
318 if (chk) return;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
319 printf("# %d: %s:",lineno,s);
917947ffeb7c power pc version
kono
parents: 87
diff changeset
320 printf(" creg=%s dreg=%s ",register_name(creg,0),register_name(dreg,0));
917947ffeb7c power pc version
kono
parents: 87
diff changeset
321 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
322 printf("%d",regs[i]);
917947ffeb7c power pc version
kono
parents: 87
diff changeset
323 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
324 printf(":");
917947ffeb7c power pc version
kono
parents: 87
diff changeset
325 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
326 printf("%d",regv[i]);
917947ffeb7c power pc version
kono
parents: 87
diff changeset
327 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
328 #if 0
917947ffeb7c power pc version
kono
parents: 87
diff changeset
329 printf(" regs_stack",register_name(creg,0),register_name(dreg,0));
917947ffeb7c power pc version
kono
parents: 87
diff changeset
330 for(i=reg_sp;i>=0;i--) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
331 if(reg_stack[i]>=0)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
332 printf(" %s",register_name(reg_stack[i],0));
917947ffeb7c power pc version
kono
parents: 87
diff changeset
333 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
334 #endif
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
335 printf(" f:%d",freg_sp);
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
336 printf("\n");
917947ffeb7c power pc version
kono
parents: 87
diff changeset
337 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
338
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
339 void
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
340 code_arg_register(NMTBL *fnptr)
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
341 {
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
342 int args = fnptr->dsp;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
343 NMTBL *n;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
344 int reg_var = 0;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
345 int freg_var = 0;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
346 int type;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
347 int reg;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
348 int is_code0 = is_code(fnptr);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
349
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
350 while (args) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
351 /* process in reverse order */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
352 n = (NMTBL*)caddr(args);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
353 type = n->ty;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
354 if (scalar(type)) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
355 if ((reg = get_input_register_var(reg_var,n,is_code0))) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
356 n->sc = REGISTER;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
357 n->dsp = cadr(reg);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
358 regv[n->dsp]= 1;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
359 regs[n->dsp]= INPUT_REG;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
360 reg_var++;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
361 cadddr(args)=size_of_int; /* why we need this? */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
362 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
363 } else if (type==FLOAT||type==DOUBLE) {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
364 if ((reg = get_input_dregister_var(freg_var,n,is_code0,1))) {
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
365 n->sc = DREGISTER;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
366 n->dsp = cadr(reg);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
367 fregv[n->dsp]= 1;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
368 fregs[n->dsp]= INPUT_REG;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
369 freg_var++;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
370 cadddr(args)=size(type); /* why we need this? */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
371 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
372 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
373 args = cadr(args);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
374 }
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
375 }
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
376
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
377 void
917947ffeb7c power pc version
kono
parents: 87
diff changeset
378 gexpr_init(void)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
379 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
380 while(reg_sp > 0) {
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
381 if (reg_stack[--reg_sp]>=0)
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
382 free_register(reg_stack[reg_sp]);
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
383 }
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
384 freg_sp = 0;
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
385 text_mode();
917947ffeb7c power pc version
kono
parents: 87
diff changeset
386 gexpr_code_init();
917947ffeb7c power pc version
kono
parents: 87
diff changeset
387 register_usage("gexpr_init");
917947ffeb7c power pc version
kono
parents: 87
diff changeset
388 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
389
917947ffeb7c power pc version
kono
parents: 87
diff changeset
390
917947ffeb7c power pc version
kono
parents: 87
diff changeset
391 void
917947ffeb7c power pc version
kono
parents: 87
diff changeset
392 emit_init(void)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
393 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
394 int i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
395 for(i=0;i<MAX_REGISTER;i++) { regs[i]=0; regv[i]=0;rname[i]=i;}
917947ffeb7c power pc version
kono
parents: 87
diff changeset
396 free_all_register();
917947ffeb7c power pc version
kono
parents: 87
diff changeset
397 reg_sp = 0;
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
398 freg_sp = 0;
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
399 text_mode();
917947ffeb7c power pc version
kono
parents: 87
diff changeset
400 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
401
917947ffeb7c power pc version
kono
parents: 87
diff changeset
402 int
917947ffeb7c power pc version
kono
parents: 87
diff changeset
403 virtual(int real)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
404 {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
405 int real_v,i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
406 real_v = -1;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
407 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
408 if (rname[i]==real) {
917947ffeb7c power pc version
kono
parents: 87
diff changeset
409 real_v=i;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
410 break;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
411 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
412 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
413 return real_v;
917947ffeb7c power pc version
kono
parents: 87
diff changeset
414 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
415
917947ffeb7c power pc version
kono
parents: 87
diff changeset
416 int
917947ffeb7c power pc version
kono
parents: 87
diff changeset
417 pop_register(void)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
418 { /* レジスタから値を取り出す */
917947ffeb7c power pc version
kono
parents: 87
diff changeset
419 return reg_stack[--reg_sp];
917947ffeb7c power pc version
kono
parents: 87
diff changeset
420 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
421
917947ffeb7c power pc version
kono
parents: 87
diff changeset
422 void
917947ffeb7c power pc version
kono
parents: 87
diff changeset
423 emit_pop_free(int xreg)
917947ffeb7c power pc version
kono
parents: 87
diff changeset
424 {
159
b80e9737c3ce regs[creg]==0 in ia32
kono
parents: 156
diff changeset
425 if (xreg==dreg||xreg==creg) {
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
426 regv[dreg]=0;
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
427 } else if (xreg>=0) {
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
428 free_register(xreg);
917947ffeb7c power pc version
kono
parents: 87
diff changeset
429 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
430 }
917947ffeb7c power pc version
kono
parents: 87
diff changeset
431
917947ffeb7c power pc version
kono
parents: 87
diff changeset
432
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
433 int
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
434 get_register_var(NMTBL *nptr)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
435 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
436 int i;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
437 for(i=REG_ESI;i<REG_ESP;i++) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
438 if (! regs[i]) { /* 使われていないなら */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
439 regs[i]=1; /* そのレジスタを使うことを宣言し */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
440 regv[i]=0;
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
441 return list3(REGISTER,i,(int)nptr); /* その場所を表す番号を返す */
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
442 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
443 }
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
444 return list2(LVAR,new_lvar(size_of_int));
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
445 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
446
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
447 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
448 get_dregister_var(NMTBL *nptr,int d)
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
449 {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
450 return list2(LVAR,new_lvar(d?size_of_double:size_of_float));
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
451 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
452
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
453 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
454 use_register(int virt, int real, int move)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
455 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
456 int real_v;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
457 char *move_op;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
458 if (rname[virt]==real)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
459 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
460 real_v = virtual(real);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
461 move_op = regs[real_v]?"\txchg %s,%s\n":"\tmovl %s,%s\n";
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
462 if (move || (regv[real_v])) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
463 printf(move_op,reg_name[rname[virt]],reg_name[real]);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
464 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
465 rname[real_v] = rname[virt];
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
466 rname[virt] = real;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
467 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
468
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
469 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
470 use_pointer(int virt, int move)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
471 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
472 int i;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
473 if (rname[virt]>=POINTER_REG)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
474 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
475 for(i=POINTER_REG;i<MAX_REGISTER;i++) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
476 if (!regs[virtual(i)]) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
477 use_register(virt,i,move);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
478 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
479 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
480 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
481 /* we prefer EBX */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
482 use_register(virt,REG_EBX,move);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
483 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
484
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
485 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
486 use_data_reg(int virt, int move)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
487 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
488 int i;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
489 if (rname[virt]<MAX_DATA_REG)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
490 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
491 for(i=0;i<MAX_DATA_REG;i++) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
492 if (!regs[virtual(i)]) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
493 use_register(virt,i,move);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
494 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
495 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
496 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
497 /* we prefer EBX */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
498 use_register(virt,REG_EBX,move);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
499 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
500
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
501
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
502 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
503 emit_push()
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
504 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
505 int new_reg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
506 new_reg = get_register();
159
b80e9737c3ce regs[creg]==0 in ia32
kono
parents: 156
diff changeset
507 if (new_reg==creg) error(-1);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
508 if(new_reg<0) { /* もうレジスタがない */
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
509 if (reg_sp>=MAX_MAX) error(-1);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
510 reg_stack[reg_sp++] = -1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
511 printf("\tpushl %s\n",register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
512 /* creg is used soon, don't regv[creg]=0 */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
513 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
514 reg_stack[reg_sp++] = creg; /* push するかわりにレジスタを使う */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
515 creg = new_reg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
516 regv[creg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
517 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
518 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
519
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
520 int
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
521 emit_pop(int type)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
522 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
523 int xreg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
524 if ((xreg=pop_register())==-1) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
525 if (type==POINTER_REG)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
526 use_pointer(dreg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
527 else if (type==DATA_REG)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
528 use_data_reg(dreg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
529 if (regv[dreg]) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
530 printf("# emit_pop dreg conflict\n");
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
531 error(-1);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
532 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
533 printf("\tpopl %s\n",register_name(dreg,0));
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
534 regv[dreg]=1;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
535 return dreg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
536 } else if (xreg<= -REG_LVAR_OFFSET) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
537 code_rlvar(xreg+REG_LVAR_OFFSET,dreg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
538 free_lvar(xreg+REG_LVAR_OFFSET);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
539 regv[dreg]=1;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
540 return dreg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
541 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
542 return xreg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
543 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
544
186
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
545 int
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
546 stack_top(int type)
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
547 {
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
548 int xreg;
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
549 if (type==INT) {
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
550 xreg = reg_stack[reg_sp];
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
551 if (xreg<= -REG_LVAR_OFFSET) {
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
552 return list2(LVAR,REG_LVAR_OFFSET+xreg);
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
553 } else {
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
554 return list2(REGISTER,xreg);
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
555 }
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
556 } else {
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
557 xreg = freg_stack[freg_sp];
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
558 if (xreg<= -REG_LVAR_OFFSET) {
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
559 return list2(LVAR,REG_LVAR_OFFSET+xreg);
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
560 } else {
186
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
561 return list2(DREGISTER,xreg);
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
562 }
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
563 }
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
564 return xreg;
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
565 }
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
566
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
567
6391432ca002 nkf binary fix
kono
parents: 183
diff changeset
568
92
e7f8515ba882 *** empty log message ***
kono
parents: 89
diff changeset
569 void
e7f8515ba882 *** empty log message ***
kono
parents: 89
diff changeset
570 code_label(int labelno)
e7f8515ba882 *** empty log message ***
kono
parents: 89
diff changeset
571 {
e7f8515ba882 *** empty log message ***
kono
parents: 89
diff changeset
572 printf("_%d:\n",labelno);
e7f8515ba882 *** empty log message ***
kono
parents: 89
diff changeset
573 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
574
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
575 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
576 code_gvar(int e1,int creg) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
577 printf("\tmovl $%s,%s\n",((NMTBL*)cadr(e1))->nm,register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
578 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
579 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
580
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
581
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
582 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
583 code_rgvar(int e1,int creg) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
584 printf("\tmovl %s,%s\n",((NMTBL*)cadr(e1))->nm,register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
585 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
586 }
166
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
587 static char *cload(int sign,int sz) { return sz==1?(sign?"movsbl":"movzbl"):sz==size_of_short?(sign?"movswl":"movzwl"):"movl"; }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
588 void
165
kono
parents: 163
diff changeset
589 code_crgvar(int e1,int creg,int sign,int sz){
kono
parents: 163
diff changeset
590 printf("\t%s %s,%s\n",cload(sign,sz),
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
591 ((NMTBL*)cadr(e1))->nm,register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
592 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
593 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
594
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
595
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
596 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
597 code_lvar(int e2,int creg) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
598 printf("\tlea %d(%%ebp),%s\n",lvar(e2),register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
599 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
600 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
601
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
602
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
603 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
604 code_register(int e2,int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
605 printf("\tmovl %s,%s\n",register_name(e2,0),register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
606 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
607 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
608
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
609
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
610 void
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
611 code_rlvar(int e2,int reg) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
612 printf("\tmovl %d(%%ebp),%s\n",lvar(e2),register_name(reg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
613 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
614 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
615
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
616
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
617 void
165
kono
parents: 163
diff changeset
618 code_crlvar(int e2,int reg,int sign,int sz) {
kono
parents: 163
diff changeset
619 printf("\t%s %d(%%ebp),%s\n",cload(sign,sz),lvar(e2),register_name(reg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
620 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
621 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
622
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
623
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
624 void
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
625 code_fname(NMTBL *n,int creg) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
626 printf("\tmovl $%s,%s\n",n->nm,register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
627 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
628 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
629
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
630
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
631 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
632 code_const(int e2,int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
633 printf("\tmovl $%d,%s\n",e2,register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
634 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
635 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
636
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
637
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
638 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
639 code_neg(int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
640 printf("\tnegl %s\n", register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
641 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
642
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
643
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
644 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
645 code_not(int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
646 printf("\tnotl %s\n", register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
647 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
648
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
649
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
650 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
651 code_lnot(int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
652 char *xrn;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
653 use_data_reg(creg,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
654 xrn = register_name(creg,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
655 printf("\tcmpl $0,%s\n", register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
656 printf("\tsete %s\n", xrn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
657 printf("\tmovzbl %s,%s\n", xrn,register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
658 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
659
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
660 void
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
661 code_preinc(int e1,int e2,int dir,int sign,int sz,int reg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
662 char *xrn;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
663 if (car(e2)==REGISTER) {
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
664 printf("\taddl $%d,%s\n",dir,register_name(cadr(e2),0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
665 printf("\tmovl %s,%s\n",register_name(cadr(e2),0),register_name(reg,0));
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
666 regv[reg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
667 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
668 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
669 g_expr(e2);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
670 xrn = register_name(creg,0);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
671 printf("\t%s $%d,(%s)\n",(sz==1)?"addb":(sz==size_of_short)?"addw":"addl",dir,xrn);
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
672 printf("\t%s (%s),%s\n",cload(sign,sz),xrn,register_name(creg,0));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
673 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
674
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
675
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
676 void
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
677 code_postinc(int e1,int e2,int dir,int sign,int sz,int reg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
678 char *xrn;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
679 if (car(e2)==REGISTER) {
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
680 printf("\tmovl %s,%s\n",register_name(cadr(e2),0),register_name(reg,0));
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
681 printf("\taddl $%d,%s\n",dir,register_name(cadr(e2),0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
682 regv[reg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
683 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
684 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
685 g_expr(e2);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
686 emit_push();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
687 xrn = register_name((e2=emit_pop(0)),0);
165
kono
parents: 163
diff changeset
688 printf("\t%s (%s),%s\n",cload(sign,sz),xrn,register_name(creg,0));
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
689 printf("\t%s $%d,(%s)\n",(sz==1)?"addb":(sz==size_of_short)?"addw":"addl",dir,xrn);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
690 emit_pop_free(e2);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
691 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
692
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
693
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
694
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
695 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
696 code_return(int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
697 printf("\tleal _%d,%s\n",retcont,register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
698 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
699 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
700
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
701
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
702 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
703 code_environment(int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
704 printf("\tmovl %%ebp,%s\n",register_name(creg,0));
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
705 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
706 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
707
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
708
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
709 void
116
b14ff9671c90 register offset fix
kono
parents: 111
diff changeset
710 code_bool(int e1) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
711 char *xrn;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
712 int e2,e3;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
713 b_expr(e1,1,e2=fwdlabel(),1); /* including > < ... */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
714 xrn = register_name(creg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
715 printf("\txorl %s,%s\n",xrn,xrn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
716 jmp(e3=fwdlabel());
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
717 fwddef(e2);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
718 printf("\tmovl $1,%s\n",xrn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
719 fwddef(e3);
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
720 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
721 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
722
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
723 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
724 code_gt(int cond) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
725 return (cond?"g":"le");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
726 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
727
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
728 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
729 code_ugt(int cond) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
730 return (cond?"a":"be");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
731 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
732
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
733 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
734 code_ge(int cond) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
735 return (cond?"ge":"l");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
736 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
737
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
738 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
739 code_uge(int cond) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
740 return (cond?"ae":"b");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
741 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
742
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
743 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
744 code_eq(int cond) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
745 return (cond?"e":"ne");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
746 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
747
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
748 void
167
0197ca125567 mips short
kono
parents: 166
diff changeset
749 code_cmp_crgvar(int e1,int sz) {
0197ca125567 mips short
kono
parents: 166
diff changeset
750 if (sz==1)
0197ca125567 mips short
kono
parents: 166
diff changeset
751 printf("\tcmpb $0,%s\n",((NMTBL*)cadr(e1))->nm);
0197ca125567 mips short
kono
parents: 166
diff changeset
752 else if (sz==size_of_short)
0197ca125567 mips short
kono
parents: 166
diff changeset
753 printf("\tcmpw $0,%s\n",((NMTBL*)cadr(e1))->nm);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
754 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
755
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
756
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
757 void
167
0197ca125567 mips short
kono
parents: 166
diff changeset
758 code_cmp_crlvar(int e1,int sz) {
0197ca125567 mips short
kono
parents: 166
diff changeset
759 if (sz==1)
0197ca125567 mips short
kono
parents: 166
diff changeset
760 printf("\tcmpb $0,%d(%%ebp)\n",lvar(e1));
0197ca125567 mips short
kono
parents: 166
diff changeset
761 else if (sz==size_of_short)
0197ca125567 mips short
kono
parents: 166
diff changeset
762 printf("\tcmpw $0,%d(%%ebp)\n",lvar(e1));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
763 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
764
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
765
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
766 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
767 code_cmp_rgvar(int e1) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
768 printf("\tcmpl $0,%s\n",((NMTBL*)cadr(e1))->nm);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
769 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
770
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
771
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
772 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
773 code_cmp_rlvar(int e1) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
774 printf("\tcmpl $0,%d(%%ebp)\n",lvar(e1));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
775 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
776
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
777
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
778 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
779 code_cmp_register(int e2) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
780 printf("\tcmpl $0,%s\n",register_name(e2,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
781 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
782
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
783
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
784 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
785 ascii(char *s)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
786 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
787 printf("\t.string \"");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
788 while(*s) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
789 if (*s=='\n')
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
790 printf("%cn",92);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
791 else if (*s<' ')
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
792 printf("%c%03o",92,*s);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
793 else if (*s==34)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
794 printf("%c%c",92,34);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
795 else
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
796 printf("%c",*s);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
797 s++;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
798 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
799 printf("%c\n",34);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
800 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
801
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
802 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
803 code_string(int e1,int creg)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
804 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
805 char *s;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
806 int i,lb;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
807
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
808 if (0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
809 s=(char *)cadr(e1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
810 lb=fwdlabel();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
811 printf("\tjmp _%d\n",lb);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
812 i=backdef();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
813 ascii(s);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
814 printf("\t.align 2\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
815 fwddef(lb);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
816 printf("\tlea _%d,%s\n",i,register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
817 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
818 s=(char *)cadr(e1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
819 printf(".section\t.rodata\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
820 lb=fwdlabel();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
821 printf("_%d:\n",lb);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
822 ascii(s);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
823 if (output_mode==TEXT_EMIT_MODE) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
824 printf(".text\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
825 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
826 text_mode();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
827 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
828 printf("\tlea _%d,%s\n",lb,register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
829 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
830 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
831
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
832 #define MAX_COPY_LEN 20
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
833
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
834 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
835 emit_copy(int from,int to,int length,int offset,int value,int det)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
836 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
837 int fix = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
838 /* length <0 means upward direction copy */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
839 switch (length) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
840 case 0: break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
841 case 1: case -1:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
842 printf("\tmovb %d(%s),%s\n",offset,
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
843 register_name(from,0), reg_name_l[rname[dreg]] );
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
844 printf("\tmovb %s,%d(%s)\n",reg_name_l[rname[dreg]] ,offset,
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
845 register_name(to,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
846 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
847 case 2: case -2:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
848 printf("\tmovw %d(%s),%s\n",offset,
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
849 register_name(from,0), reg_name_w[rname[dreg]] );
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
850 printf("\tmovw %s,%d(%s)\n",reg_name_w[rname[dreg]] ,offset,
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
851 register_name(to,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
852 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
853 case 4: case -4:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
854 printf("\tmovl %d(%s),%s\n",offset,
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
855 register_name(from,0), register_name(dreg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
856 printf("\tmovl %s,%d(%s)\n",register_name(dreg,0), offset,
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
857 register_name(to,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
858 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
859 default:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
860 if (-MAX_COPY_LEN<length && length <0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
861 for(;length<=4;length+=4,offset-=4)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
862 emit_copy(from,to,4,offset,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
863 for(;length<=2;length+=2,offset-=2)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
864 emit_copy(from,to,2,offset,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
865 if(length>0)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
866 emit_copy(from,to,length,offset,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
867 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
868 } else if (length <=MAX_COPY_LEN) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
869 for(;length>=4;length-=4,offset+=4)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
870 emit_copy(from,to,4,offset,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
871 for(;length>=2;length-=2,offset+=2)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
872 emit_copy(from,to,2,offset,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
873 if(length>0)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
874 emit_copy(from,to,length,offset,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
875 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
876 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
877 if (det) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
878 /*
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
879 call bcopy
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
880 g_expr(list3(FUNCTION,,);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
881 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
882 */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
883 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
884 use_register(from,REG_ESI,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
885 use_register(to, REG_EDI,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
886 use_register(dreg,REG_ECX,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
887 if (length<0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
888 printf("\tmovl $%d,%%ecx\n",-length/4);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
889 printf("\taddl $%d,%%esi\n",-length);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
890 printf("\taddl $%d,%%edi\n",-length);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
891 printf("\tstd\n\trep\n\tmovsl\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
892 if(length%4) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
893 emit_copy(from,to,length,offset+length/4,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
894 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
895 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
896 printf("\tmovl $%d,%%ecx\n",length/4);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
897 fix = (length/4)*4;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
898 printf("\tcld\n\trep\n\tmovsl\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
899 if(length%4) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
900 emit_copy(from,to,length,offset+length/4,0,det);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
901 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
902 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
903 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
904 if (value) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
905 /* creg must point top of the destination data */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
906 /* this code is necessary for the value of assignment or function call */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
907 /* otherwise we don't need this */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
908 if (fix) printf("\tsubl $%d,%s\n",fix,register_name(to,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
909 if(creg!=to) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
910 if (to==dreg)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
911 printf("\tmovl %s,%s\n",register_name(to,0),register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
912 else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
913 free_register(creg); creg=to;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
914 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
915 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
916 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
917 regv[from]=regv[to]=regv[dreg]=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
918 regv[creg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
919 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
920
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
921 int
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
922 struct_push(int e4,int t)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
923 {
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
924 int length,xreg,save,lreg,count;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
925 g_expr(e4);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
926 length=size(t);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
927 if(length%size_of_int) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
928 length += size_of_int - (length%size_of_int);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
929 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
930 for(count=0;length<MAX_COPY_LEN;count++,length-=size_of_int) {
f94ca1168520 float first try...
kono
parents: 78
diff changeset
931 if (length==0) return count;
f94ca1168520 float first try...
kono
parents: 78
diff changeset
932 else {
f94ca1168520 float first try...
kono
parents: 78
diff changeset
933 printf("\tpushl %d(%s)\n",
f94ca1168520 float first try...
kono
parents: 78
diff changeset
934 length-size_of_int,register_name(creg,0));
f94ca1168520 float first try...
kono
parents: 78
diff changeset
935 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
936 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
937 printf("\tsubl $%d,%%esp\n",length);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
938 if (register_full()) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
939 save = 1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
940 for(lreg=0;lreg==creg||lreg==dreg;lreg++);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
941 printf("\tpushl %s\n",register_name(lreg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
942 xreg = lreg; regv[xreg]=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
943 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
944 save=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
945 xreg = get_register();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
946 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
947 if (save)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
948 printf("\tlea %d(%%esp),%s\n",size_of_int,register_name(xreg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
949 else
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
950 printf("\tmovl %%esp,%s\n",register_name(xreg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
951 regv[xreg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
952 /* downward direction copy */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
953 emit_copy(creg,xreg,length,0,0,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
954 /* we have value in creg, it may be changed */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
955 if (save) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
956 if(creg==xreg) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
957 creg = get_register(); /* creg is freed in emit_copy */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
958 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
959 printf("\tpopl %s\n",register_name(xreg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
960 regv[xreg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
961 } else
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
962 free_register(xreg);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
963 return length/size_of_int;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
964 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
965
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
966 int
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
967 function(int e1)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
968 {
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
969 int e2,e3,e4,nargs,t,ret_type;
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
970 NMTBL *n=0;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
971 int save,saved;
136
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 133
diff changeset
972 ret_type = cadr(cadddr(e1));
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 133
diff changeset
973 if (ret_type==CHAR) ret_type=INT;
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 133
diff changeset
974
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
975 #ifdef SAVE_STACKS
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
976 code_save_stacks();
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
977 #endif
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
978 if (free_register_count(0)<1) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
979 for(save = 0;save==dreg||save==creg;save++);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
980 printf("\tpushl %s\n",register_name(save,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
981 saved = 1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
982 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
983 save = get_register();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
984 saved = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
985 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
986 regv[save]=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
987 e2 = cadr(e1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
988 nargs = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
989 for (e3 = caddr(e1); e3; e3 = cadr(e3)) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
990 t=caddr(e3);
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
991 e4 = car(e3);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
992 if(scalar(t)) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
993 g_expr(e4);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
994 printf("\tpushl %s\n",register_name(creg,0));
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
995 } else if (t==DOUBLE) {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
996 g_expr(e4);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
997 printf("\tleal\t-8(%%esp),%%esp\n\tfstpl\t(%%esp)\n");
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
998 nargs += size_of_double/size_of_int;
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
999 fregv[freg]=0;
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1000 continue;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1001 } else if (t==FLOAT) {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1002 g_expr(e4);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1003 printf("\tleal\t-4(%%esp),%%esp\n\tfstps\t(%%esp)\n");
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1004 nargs += size_of_float/size_of_int;
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1005 fregv[freg]=0;
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1006 continue;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1007 } else if (car(t)==STRUCT||car(t)==UNION) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1008 nargs += struct_push(e4,t);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1009 continue;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1010 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1011 error(TYERR);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1012 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1013 ++nargs;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1014 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1015 if (car(e2) == FNAME) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1016 n=(NMTBL *)cadr(e2);
78
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
1017 regv[creg]=0;
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
1018 use_register(creg,REG_EAX,0); /* will be destroyed */
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1019 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1020 g_expr(e2);
78
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
1021 regv[creg]=1;
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
1022 use_register(creg,REG_EAX,1); /* will be destroyed */
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1023 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1024
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1025 /* we don't have to save creg nor dreg */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1026 regs[creg]=0; regs[dreg]=0;
78
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
1027 regv[dreg]= regv[save]= 0;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1028 use_register(dreg,REG_EDX,0); /* will be destroyed */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1029 use_register(save,REG_ECX,0); /* will be destroyed */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1030 regs[creg]=1; regs[dreg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1031
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1032 if (car(e2) == FNAME) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1033 printf("\tcall\t%s\n",n->nm);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1034 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1035 printf("\tcall\t*%s\n",register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1036 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1037 if (nargs) printf("\taddl $%d,%%esp\n",size_of_int*nargs);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1038 if (saved) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1039 printf("\tpopl %s\n",register_name(save,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1040 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1041 free_register(save);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1042 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1043 regv[save]=0;
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1044 if (ret_type==DOUBLE||ret_type==FLOAT) {
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1045 fregv[freg]=1; regv[creg]=0;
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1046 } else if (ret_type==VOID) {
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1047 fregv[freg]=0; regv[creg]=0;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1048 } else {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1049 fregv[freg]=0; regv[creg]=1;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1050 }
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1051 return ret_type;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1052 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1053
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1054 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1055 code_frame_pointer(int e3) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1056 printf("\tmovl %s,%%ebp\n",register_name(e3,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1057 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1058
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1059
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1060 void
62
129f4802b027 separation done
kono
parents: 61
diff changeset
1061 code_fix_frame_pointer(int disp_offset) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1062 printf("\tlea %d(%%ebp),%%ebp\n",disp_offset);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1063 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1064
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1065
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1066 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1067 code_jmp(char *s) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1068 printf("\tjmp %s\n",s);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1069 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1070
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1071
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1072 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1073 code_indirect_jmp(int e2) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1074 printf("\tjmp *%s\n",register_name(e2,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1075 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1076
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1077 int
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1078 rindirect(int e1) /* *(p +5 ) */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1079 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1080 char *op;
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1081 int e2,e3,byte,t;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1082 e3 = cadr(e2 = cadr(e1));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1083 g_expr(e2);
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1084 switch (car(e1)) {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1085 case FRINDIRECT: case DRINDIRECT:
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1086 printf("\t%s (%s)\n",fload(car(e1)==DRINDIRECT),register_name(creg,0));
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1087 t=DOUBLE;
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1088 return t;
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1089 break;
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1090 case CRINDIRECT:
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1091 byte = 1; op="movsbl";t=CHAR;
166
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1092 break;
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1093 case CURINDIRECT:
166
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1094 byte = 1; op="movzbl";t=UCHAR;
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1095 break;
165
kono
parents: 163
diff changeset
1096 case SRINDIRECT:
kono
parents: 163
diff changeset
1097 byte = 1; op="movswl";t=SHORT;
166
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1098 break;
165
kono
parents: 163
diff changeset
1099 case SURINDIRECT:
166
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1100 byte = 1; op="movzwl";t=USHORT;
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1101 break;
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1102 case RINDIRECT: default:
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1103 byte = 0; op="movl";t=INT;
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1104 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1105 printf("\t%s (%s),%s\n",op,register_name(creg,0),register_name(creg,0));
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1106 return t;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1107 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1108
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1109 char *
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1110 move(int byte)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1111 {
165
kono
parents: 163
diff changeset
1112 return byte==1?"movb":byte==size_of_short?"movw":"movl";
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1113 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1114
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1115 void
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1116 code_assign_gvar(int e2,int creg,int byte) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1117 if (byte) use_data_reg(creg,1);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1118 printf("\t%s %s,%s\n",move(byte),register_name(creg,byte),((NMTBL*)cadr(e2))->nm);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1119 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1120
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1121 void
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1122 code_assign_lvar(int e2,int creg,int byte) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1123 if (byte) use_data_reg(creg,1);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1124 printf("\t%s %s,%d(%%ebp)\n",move(byte),register_name(creg,byte),lvar(e2));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1125 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1126
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1127 void
111
7aa449aff3e6 floating point
kono
parents: 109
diff changeset
1128 code_assign_register(int e2,int byte,int creg) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1129 printf("\tmovl %s,%s\n",register_name(creg,0),register_name(e2,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1130 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1131
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1132 void
118
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
1133 code_assign(int e2,int byte,int creg) {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1134 if (byte) use_data_reg(creg,1);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1135 printf("\t%s %s,(%s)\n",move(byte),register_name(creg,byte),register_name(e2,0));
144
56211702f298 creg/freg continue
kono
parents: 139
diff changeset
1136 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1137 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1138
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1139 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1140 code_register_assop(int e2,int op,int byte) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1141 int reg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1142 int xreg = creg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1143 creg = reg = e2;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1144 tosop(op,xreg);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1145 creg = xreg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1146 printf("\tmovl %s,%s\n",register_name(reg,0),register_name(creg,0));
159
b80e9737c3ce regs[creg]==0 in ia32
kono
parents: 156
diff changeset
1147 regs[creg]=regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1148 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1149
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1150
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1151 void
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1152 code_assop(int op,int byte,int sign) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1153 char *xrn;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1154 int xreg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1155 int edx = edx_setup();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1156 xrn = register_name(xreg = emit_pop(0),0); /* pop e3 value */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1157 regv[xreg]=regs[xreg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1158 printf("\tmovl %s,%s # assop \n",register_name(creg,0),register_name(edx,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1159 regv[edx]=1;
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1160 ld_indexx(byte,0,edx,sign);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1161 tosop(op,xreg);
165
kono
parents: 163
diff changeset
1162 printf("\t%s %s,(%s)\n",move(byte),register_name(creg,byte),register_name(edx,0));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1163 edx_cleanup();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1164 emit_pop_free(xreg);
144
56211702f298 creg/freg continue
kono
parents: 139
diff changeset
1165 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1166 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1167
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1168
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1169 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1170 tosop(int op,int oreg)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1171 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1172 int dx;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1173 char *orn,*crn;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1174
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1175 switch(op) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1176 case LSHIFT:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1177 case ULSHIFT:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1178 shift("sall",oreg);
144
56211702f298 creg/freg continue
kono
parents: 139
diff changeset
1179 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1180 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1181 case RSHIFT:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1182 shift("sarl",oreg);
144
56211702f298 creg/freg continue
kono
parents: 139
diff changeset
1183 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1184 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1185 case URSHIFT:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1186 shift("shrl",oreg);
144
56211702f298 creg/freg continue
kono
parents: 139
diff changeset
1187 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1188 return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1189 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1190 if(oreg==-1) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1191 printf("\tpopl %s\n",register_name(dreg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1192 oreg = dreg;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1193 regv[dreg]=1;
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1194 } else if (oreg<= -REG_LVAR_OFFSET) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1195 code_rlvar(oreg+REG_LVAR_OFFSET,dreg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
1196 free_lvar(oreg+REG_LVAR_OFFSET);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1197 oreg = dreg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1198 regv[dreg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1199 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1200 regv[oreg]=1; regs[oreg]=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1201 orn = register_name(oreg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1202 crn = register_name(creg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1203 switch(op) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1204 case ADD:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1205 printf("\taddl %s,%s\n",orn,crn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1206 break;
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
1207 case SUB: case CMP:
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1208 printf("\tsubl %s,%s\n",orn,crn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1209 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1210 case BAND:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1211 printf("\tandl %s,%s\n",orn,crn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1212 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1213 case EOR:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1214 printf("\txorl %s,%s\n",orn,crn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1215 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1216 case BOR:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1217 printf("\torl %s,%s\n",orn,crn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1218 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1219 case MUL:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1220 case UMUL:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1221 printf("\t%s %s,%s\n","imull",orn,crn);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1222 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1223 case DIV:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1224 case UDIV:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1225 use_register(creg,REG_EAX,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1226 edx_setup();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1227 orn = register_name(oreg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1228 if (op==DIV)
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1229 printf("\tcltd\n\tidivl %s\n",orn);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1230 else
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1231 printf("\txor %%edx,%%edx\n\tdivl %s\n",orn);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1232 edx_cleanup();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1233 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1234 case MOD:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1235 case UMOD:
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1236 use_register(creg,REG_EAX,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1237 edx_setup();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1238 orn = register_name(oreg,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1239 if (op==DIV)
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1240 printf("\tcltd\n\tidivl %s\n",orn);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1241 else
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1242 printf("\txor %%edx,%%edx\n\tdivl %s\n",orn);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1243 dx = virtual(REG_EDX);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1244 if (dx!=creg) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1245 rname[dx]=rname[creg];
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1246 rname[creg]=REG_EDX;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1247 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1248 edx_cleanup();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1249 break;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1250 }
159
b80e9737c3ce regs[creg]==0 in ia32
kono
parents: 156
diff changeset
1251 if (oreg!=dreg&&oreg!=creg&&oreg>=0)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1252 free_register(oreg);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1253 else if (oreg==dreg) regv[dreg]=0;
144
56211702f298 creg/freg continue
kono
parents: 139
diff changeset
1254 regv[creg]=1;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1255 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1256
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1257 int
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1258 code_const_op_p(int op,int v)
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1259 {
190
1b1c58483e67 minor fix
kono
parents: 189
diff changeset
1260 if (op==DIV||op==UDIV||op==MOD||op==UMOD) return 0;
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1261 else return 1;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1262 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1263
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1264 void
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1265 oprtc(int op,int orn)
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1266 {
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1267 char *crn = register_name(creg,0);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1268
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1269 switch(op) {
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1270 case LSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1271 case ULSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1272 printf("\tsall $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1273 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1274 case RSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1275 printf("\tsarl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1276 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1277 case URSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1278 printf("\tshrl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1279 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1280 case ADD:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1281 printf("\taddl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1282 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1283 case SUB: case CMP:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1284 printf("\tsubl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1285 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1286 case BAND:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1287 printf("\tandl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1288 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1289 case EOR:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1290 printf("\txorl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1291 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1292 case BOR:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1293 printf("\torl $%d,%s\n",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1294 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1295 case MUL:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1296 case UMUL:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1297 printf("\t%s $%d,%s\n","imull",orn,crn);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1298 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1299 default:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1300 error(-1);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1301 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1302 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1303
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
1304
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1305 static int edx_stack=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1306
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1307 int
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1308 edx_setup()
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1309 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1310 int edx_save;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1311 /* make real EDX register empty */
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1312 if (free_register_count(0)<1) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1313 for(edx_save = 0;edx_save==dreg||edx_save==creg;edx_save++);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1314 printf("\tpushl %s\n",register_name(edx_save,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1315 edx_stack = list3(edx_save,edx_stack,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1316 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1317 edx_save = get_register();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1318 edx_stack = list3(edx_save,edx_stack,1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1319 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1320 regv[edx_save]=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1321 use_register(edx_save,REG_EDX,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1322 return edx_save;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1323 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1324
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1325
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1326 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1327 edx_cleanup()
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1328 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1329 if (caddr(edx_stack)==0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1330 printf("\tpopl %s\n",register_name(car(edx_stack),0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1331 } else
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1332 free_register(car(edx_stack));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1333 edx_stack = cadr(edx_stack);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1334 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1335
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1336 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1337 shift(char *op, int reg)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1338 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1339 if (reg>=0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1340 use_register(reg,REG_ECX,1);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1341 } else if (reg<= -REG_LVAR_OFFSET) {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1342 use_register(dreg,REG_ECX,0);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1343 code_rlvar(reg+REG_LVAR_OFFSET,dreg);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1344 reg = dreg;
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1345 regv[dreg]=0;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1346 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1347 use_register(dreg,REG_ECX,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1348 printf("\tpopl %%ecx\n");
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1349 regv[dreg]=0;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1350 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1351 printf("\t%s %%cl,%s\n",op,register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1352 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1353
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1354 void
163
fc8514c9d685 *** empty log message ***
kono
parents: 159
diff changeset
1355 ld_indexx(int byte, int n, int xreg,int sign)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1356 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1357 char *op;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1358
166
9e55cc5551fb *** empty log message ***
kono
parents: 165
diff changeset
1359 op = byte ? (sign?"movsbl":"movzbl") : "movl";
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1360 if (n)
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1361 printf("\t%s %d(%s),%s\n",op,n,
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1362 register_name(xreg,0),register_name(creg,byte));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1363 else
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1364 printf("\t%s (%s),%s\n",op,
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1365 register_name(xreg,0),register_name(creg,byte));
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1366 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1367
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1368 int
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1369 code_csvalue()
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1370 {
123
5f180dc8d84e intel fix.
kono
parents: 119
diff changeset
1371 return rname[creg]; /* for switch value */
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1372 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1373
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1374 void
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 94
diff changeset
1375 code_cmpdimm(int e, int csreg)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1376 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1377 /* used in dosiwtch() */
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1378 if(chk) return;
123
5f180dc8d84e intel fix.
kono
parents: 119
diff changeset
1379 use_register(creg,csreg,0);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1380 printf("\tcmpl $%d,%s\n",e,register_name(creg,0));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1381 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1382
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1383 void
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1384 code_opening(char *filename)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1385 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1386 printf("\t.file \"%s\"\n",filename);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1387 printf("\t.version\t\"01.01\"\n");
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1388 /* printf("gcc2_compiled.:\n"); */
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1389 printf(".text\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1390 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1391
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1392 void
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1393 code_closing()
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1394 {
78
8418d4b7caa7 *** empty log message ***
kono
parents: 77
diff changeset
1395 global_table();
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1396 printf("\t.ident \"Micro-C compiled\"\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1397 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1398
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1399 void
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
1400 rexpr(int e1, int l1, char *s,int t)
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1401 {
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
1402 g_expr(list3(CMP,cadr(e1),caddr(e1)));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1403 printf("\tj%s\t_%d\n",s,l1);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1404 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1405
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1406
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1407 void
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1408 jcond(int l, char cond)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1409 {
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1410 if (chk) return;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1411 printf("\tj%s\t_%d\n",cond?"ne":"e",l);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1412 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1413
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1414 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1415 jmp(int l)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1416 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1417 control=0;
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1418 if (chk) return;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1419 printf("\tjmp\t_%d\n",l);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1420 /* align? */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1421 /*
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1422 this is not allowed because of ? operator
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1423 regv[creg]=regv[dreg]=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1424 use_register(creg,REG_EAX,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1425 use_register(dreg,REG_EBX,0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1426 */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1427 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1428
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1429 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1430 gen_comment(char *s)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1431 {
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1432 if (chk) return;
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1433 printf("## %s",s);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1434 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1435
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1436
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1437 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1438 code_enter(char *name)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1439 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1440 printf("\t.align 4\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1441 if (stmode!=STATIC)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1442 printf(".globl %s\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1443 printf("\t.type\t%s,@function\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1444 printf("%s:\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1445 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1446
77
2b8ba655e572 fix arg type
kono
parents: 66
diff changeset
1447
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1448 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1449 code_enter1(int args)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1450 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1451 code_disp_label=fwdlabel();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1452 printf("\tlea _%d(%%ebp),%%esp\n",code_disp_label);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1453
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1454 printf("## args %d disp %d code_arg_offset=%d code_disp_offset=%d\n",args,disp,code_arg_offset,code_disp_offset);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1455 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1456
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1457 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1458 code_leave(char *name)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1459 {
63
e13486b2c12e stack alignment
kono
parents: 62
diff changeset
1460 disp&= -size_of_int;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1461 printf("\t.set _%d,%d\n",code_disp_label,disp+code_disp_offset);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1462 printf("_%d:\n",labelno);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1463 printf("\t.size\t%s,_%d-%s\n",name,labelno,name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1464 local_table();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1465 labelno++;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1466 free_all_register();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1467 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1468
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1469 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1470 enter(char *name)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1471 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1472 printf("\t.align 2\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1473 if (stmode!=STATIC)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1474 printf(".globl %s\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1475 printf("%s:\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1476 printf("\t.type\t%s,@function\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1477 printf("\tpushl %%ebp\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1478 printf("\tmovl %%esp,%%ebp\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1479 printf("\tpushl %%ebx\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1480 printf("\tpushl %%esi\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1481 printf("\tpushl %%edi\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1482 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1483
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1484 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1485 enter1()
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1486 {
182
e1e9ec8c96a7 some fix
kono
parents: 173
diff changeset
1487 text_mode();
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1488 func_disp_label=fwdlabel();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1489 printf("\tlea _%d(%%ebp),%%esp\n",func_disp_label);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1490 /* if(disp) printf("\tsubl $%d,%%esp\n",-disp); */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1491 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1492
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1493 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1494 leave(int control, char *name)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1495 {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1496 int sz;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1497
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1498 disp &= -size_of_int;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1499 if (control)
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1500 code_set_return_register(1);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1501 if (retcont) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1502 if (control)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1503 jmp(retlabel);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1504 fwddef(retcont);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1505 if (cadr(fnptr->ty)==FLOAT||cadr(fnptr->ty)==DOUBLE) {
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1506 printf("\tfldl %d(%%ebp)\n",-size_of_double);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1507 } else if (cadr(fnptr->ty)>0&&(
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1508 car(cadr(fnptr->ty))==STRUCT ||
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1509 car(cadr(fnptr->ty))==UNION)) {
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1510 sz = size(cadr(fnptr->ty));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1511 printf("\tlea %d(%%ebp),%s\n",-sz,register_name(dreg,0));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1512 printf("\tmovl %d(%%ebp),%s\n",disp-size_of_int,
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1513 register_name(creg,0));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1514 emit_copy(dreg,creg,sz,0,1,1);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1515 } else if (cadr(fnptr->ty)!=VOID) {
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1516 use_register(creg,REG_EAX,0);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1517 printf("\tmovl %s,%s\n",reg_name[REG_ESI],register_name(creg,0));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1518 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1519 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1520 fwddef(retlabel);
63
e13486b2c12e stack alignment
kono
parents: 62
diff changeset
1521
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1522 printf("\tlea %d(%%ebp),%%esp\n",disp_offset);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1523 printf("\tpopl %%edi\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1524 printf("\tpopl %%esi\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1525 printf("\tpopl %%ebx\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1526 printf("\tleave\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1527 printf("\tret\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1528 printf("\t.set _%d,%d\n",func_disp_label,disp+disp_offset);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1529 printf("_%d:\n",labelno);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1530 printf("\t.size\t%s,_%d-%s\n",name,labelno,name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1531 local_table();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1532 labelno++;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1533 free_all_register();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1534 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1535
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1536 int
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1537 code_get_fixed_creg(int reg,int type) {
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1538 if (type==FLOAT||type==DOUBLE) {
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1539 return 0;
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1540 } else {
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1541 return rname[reg];
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1542 }
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1543 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1544
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1545 void
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1546 code_set_fixed_creg(int reg,int mode,int type) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1547 if (type==FLOAT||type==DOUBLE) {
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1548 } else {
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1549 use_register(creg,reg,mode);
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
1550 }
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1551 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1552
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1553 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1554 code_set_return_register(int mode) {
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1555 if (fnptr->ty==DOUBLE||fnptr->ty==FLOAT) {
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1556 } else {
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1557 use_register(creg,REG_EAX,mode);
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1558 }
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1559 }
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1560
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1561 void
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1562 gen_gdecl(char *n, int gpc)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1563 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1564 /*
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1565 if (stmode!=STATIC)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1566 printf(".globl %s\n",n);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1567 */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1568 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1569
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1570 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1571 align(int t)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1572 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1573 if (t!=CHAR) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1574 if (data_alignment & 1)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1575 printf("\t.align 2\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1576 data_alignment = 0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1577 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1578 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1579
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1580 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1581 emit_data(int e, int t, NMTBL *n)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1582 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1583 int l;
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1584 double d;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1585 float f;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1586 char *name;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1587 name = n->nm;
156
da529eab5618 static initialization
kono
parents: 147
diff changeset
1588 if(mode!=GDECL && mode!=STADECL) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1589 error(-1); return;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1590 }
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1591 if (chk) return;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1592 if (n->dsp != -1) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1593 n->dsp = -1; /* initiallized flag */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1594 printf(".globl\t%s\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1595 data_mode(name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1596 align(t);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1597 printf("%s:\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1598 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1599 data_mode(0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1600 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1601 if(car(e)==CONST) {
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1602 if (t==CHAR||t==UCHAR) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1603 printf("\t.byte %d\n",cadr(e));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1604 if (data_alignment>0)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1605 data_alignment++;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1606 gpc += 1;
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1607 } else if (t==SHORT||t==USHORT) {
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1608 printf("\t.short %d\n",cadr(e));
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1609 if (data_alignment>0) data_alignment++;
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1610 gpc += size_of_short;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1611 } else {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1612 printf("\t.long %d\n",cadr(e));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1613 gpc += size_of_int;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1614 }
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1615 } else if(t==DOUBLE) {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1616 d = dcadr(e);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1617 printf("\t.long\t0x%x,0x%x\n",code_d1(d),code_d2(d));
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1618 } else if(t==FLOAT) {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1619 f = dcadr(e);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1620 printf("\t.long\t0x%x\n",*(int *)&f);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1621 } else if(t!=CHAR) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1622 gpc += size_of_int;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1623 if(car(e)==ADDRESS&&car(cadr(e))==GVAR) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1624 printf("\t.long %s\n",((NMTBL *)cadr(cadr(e)))->nm);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1625 } else if(car(e)==GVAR) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1626 printf("\t.long %s\n",((NMTBL *)cadr(e))->nm);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1627 } else if(car(e)==FNAME) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1628 printf("\t.long %s\n",((NMTBL *)cadr(e))->nm);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1629 } else if(car(e)==STRING) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1630 if (car(n->ty)!=ARRAY || cadr(n->ty)!=CHAR) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1631 l = fwdlabel();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1632 printf("\t.long _%d\n",l);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1633 printf(".section\t.rodata\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1634 printf("_%d:\n",l);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1635 output_mode = RODATA_EMIT_MODE;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1636 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1637 ascii((char *)cadr(e));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1638 } else error(TYERR);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1639 } else error(TYERR);
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1640 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1641
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1642 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1643 emit_data_closing(NMTBL *n)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1644 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1645 int lb;
66
0b068058dd67 *** empty log message ***
kono
parents: 63
diff changeset
1646 if (chk) return;
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1647 if (mode==GDECL) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1648 data_mode(0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1649 lb=fwdlabel();
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1650 printf("_%d:\n",lb);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1651 printf("\t.size\t%s,_%d-%s\n",n->nm,lb,n->nm);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1652 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1653 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1654
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1655 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1656 global_table(void)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1657 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1658 NMTBL *n;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1659 int init;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1660 init=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1661 for(n=ntable;n < &ntable[GSYMS];n++) {
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
1662 if ((n->sc == GVAR||n->sc == STATIC) && n->dsp != -1) {
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1663 /* n->dsp = -1 means initialized global */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1664 if (init==0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1665 data_mode(0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1666 init=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1667 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1668 printf(".comm %s,%d\n",n->nm,size(n->ty));
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1669 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1670 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1671 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1672
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1673 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1674 local_table(void)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1675 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1676 NMTBL *n;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1677 int init;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1678 init=0;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1679 /* static local variables */
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1680 for(n=ntable+GSYMS;n < &ntable[GSYMS+LSYMS];n++) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1681 if (n->sc == GVAR) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1682 if (init==0) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1683 data_mode(0);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1684 init=1;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1685 }
156
da529eab5618 static initialization
kono
parents: 147
diff changeset
1686 if (n->dsp!= -1) /* -1 means initialized global */
da529eab5618 static initialization
kono
parents: 147
diff changeset
1687 printf(".lcomm %s,%d\n",n->nm,size(n->ty));
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1688 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1689 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1690 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1691
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1692 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1693 text_mode(void)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1694 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1695 if (output_mode!=TEXT_EMIT_MODE) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1696 printf(".text\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1697 printf("\t.align 2\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1698 output_mode = TEXT_EMIT_MODE;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1699 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1700 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1701
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1702 void
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1703 data_mode(char *name)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1704 {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1705 if (output_mode!=DATA_EMIT_MODE) {
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1706 printf(".data\n");
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1707 output_mode = DATA_EMIT_MODE;
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1708 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1709 if (name)
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1710 printf("\t.type\t%s,@object\n",name);
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1711 }
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
1712
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1713 /* floating point */
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1714
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1715
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1716 char *
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1717 fstore(int d)
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1718 {
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1719 return use?
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1720 (d?"fstl":"fsts"):
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1721 (d?"fstpl":"fstps")
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1722 ;
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1723 }
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1724
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1725 char *
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1726 fstore_u(int d)
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1727 {
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1728 return d?"fstpl":"fstps";
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1729 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1730
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1731 char *
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1732 fload(int d)
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1733 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1734 return d?"fldl":"flds";
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1735 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1736
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1737
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1738 void code_dassign_gvar(int e2,int freg,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1739 {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1740 printf("\t%s %s\n",fstore(d),((NMTBL*)cadr(e2))->nm);
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1741 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1742
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1743 void code_dassign_lvar(int e2,int freg,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1744 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1745 printf("\t%s %d(%%ebp)\n",fstore(d),lvar(e2));
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1746 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1747
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1748 void code_dassign_dregister(int e,int d,int freg)
111
7aa449aff3e6 floating point
kono
parents: 109
diff changeset
1749 {
7aa449aff3e6 floating point
kono
parents: 109
diff changeset
1750 error(-1);
7aa449aff3e6 floating point
kono
parents: 109
diff changeset
1751 }
7aa449aff3e6 floating point
kono
parents: 109
diff changeset
1752
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1753 void code_dassign(int e2,int freg,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1754 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1755 printf("\t%s (%s)\n",fstore(d),register_name(e2,0));
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1756 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1757
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1758 static double d0 = 1.0;
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1759
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1760 int
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1761 code_d1(double d)
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1762 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1763 int *i = (int *)&d0; int *j = (int *)&d;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1764 return (i[1] == 0x3ff00000)?j[0]:j[1];
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1765 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1766
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1767 int
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1768 code_d2(double d)
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1769 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1770 int *i = (int *)&d0; int *j = (int *)&d;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1771 return (i[1] == 0x3ff00000)?j[1]:j[0];
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1772 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1773
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1774 void code_dconst(int e2,int freg,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1775 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1776 int lb;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1777 double value = dcadr(e2);
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1778
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1779 if (value==0.0) {
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1780 printf("\tfldz\n"); return;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1781 }
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1782 if (value==1.0) {
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1783 printf("\tfld1\n"); return;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1784 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1785 printf(" \t.section\t.rodata\n\t.align 8\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1786 lb=fwdlabel();
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1787 printf("_%d:\n",lb);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1788 printf("\t.long\t0x%x,0x%x\n",code_d1(value),code_d2(value));
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1789 if (output_mode==TEXT_EMIT_MODE) {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1790 printf(".text\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1791 } else {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1792 text_mode();
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1793 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1794 printf("\tfldl _%d\n",lb);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1795 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1796
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1797 void code_dneg(int freg,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1798 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1799 printf("\tfchs\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1800 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1801
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1802 void code_d2i(int freg)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1803 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1804 printf("\tlea -%d(%%esp),%%esp\n",size_of_int*2);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1805 printf("\tfnstcw (%%esp)\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1806 printf("\tmovl (%%esp), %s\n",register_name(creg,0));
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1807 printf("\tmovb $12, 1(%%esp)\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1808 printf("\tfldcw (%%esp)\n");
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1809 printf("\tfistpl %d(%%esp)\n",size_of_int);
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1810 printf("\tmovl %s, (%%esp)\n",register_name(creg,0));
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1811 printf("\tfldcw (%%esp)\n");
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1812 printf("\tpopl %s\n",register_name(creg,0));
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1813 printf("\tpopl %s\n",register_name(creg,0));
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1814 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1815
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1816 void code_i2d(int creg)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1817 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1818 printf("\tpushl %s\n",register_name(creg,0));
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1819 printf("\tfildl (%%esp)\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1820 printf("\tlea %d(%%esp),%%esp\n",size_of_int);
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1821 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1822
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1823 void code_d2u(int freg)
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1824 {
86
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1825 printf("\tlea -%d(%%esp),%%esp\n",size_of_int*3);
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1826 printf("\tfnstcw (%%esp)\n");
3789aef7331d minor fix
kono
parents: 84
diff changeset
1827 printf("\tmovl (%%esp), %s\n",register_name(creg,0));
3789aef7331d minor fix
kono
parents: 84
diff changeset
1828 printf("\tmovb $12, 1(%%esp)\n");
3789aef7331d minor fix
kono
parents: 84
diff changeset
1829 printf("\tfldcw (%%esp)\n");
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1830 printf("\tmovl %s, (%%esp)\n",register_name(creg,0));
86
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1831 printf("\tfistpll %d(%%esp)\n",size_of_int);
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1832 printf("\tfldcw (%%esp)\n");
86
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1833 printf("\tmovl %d(%%esp),%s\n",size_of_int,register_name(creg,0));
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1834 printf("\tlea %d(%%esp),%%esp\n",size_of_int*3);
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1835 }
3789aef7331d minor fix
kono
parents: 84
diff changeset
1836
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1837 void code_u2d(int creg)
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1838 {
86
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1839 printf("\tpushl %s\n",register_name(creg,0));
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1840 printf("\tpushl %s\n",register_name(creg,0));
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1841 printf("\tmovl $0, %d(%%esp)\n",size_of_int);
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1842 printf("\tfildll (%%esp)\n");
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1843 printf("\tlea %d(%%esp),%%esp\n",size_of_int*2);
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1844 }
3789aef7331d minor fix
kono
parents: 84
diff changeset
1845
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1846 void code_d2f(int freg) { }
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1847 void code_f2d(int freg) { }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1848 void code_f2i(int freg) { code_d2i(freg); }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1849 void code_f2u(int freg) { code_d2u(freg); }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1850 void code_i2f(int creg) { code_i2d(creg); }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 144
diff changeset
1851 void code_u2f(int creg) { code_u2d(creg); }
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1852
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1853 void code_drgvar(int e2,int d,int freg)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1854 {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1855 printf("\t%s %s\n",fload(d),((NMTBL*)cadr(e2))->nm);
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1856 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1857
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1858
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1859 void code_drlvar(int e2,int d,int freg)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1860 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1861 printf("\t%s %d(%%ebp)\n",fload(d),lvar(e2));
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1862 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1863
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1864 void code_cmp_drgvar(int e2,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1865 {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1866 printf("\tfcomp %s\n",((NMTBL*)cadr(e2))->nm);
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1867 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1868
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1869 void code_cmp_drlvar(int e2,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1870 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1871 printf("\tfcomp %d(%%ebp)\n",lvar(e2));
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1872 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1873
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1874 void dtosop(int op,int e1)
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1875 {
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1876 switch(op) {
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1877 case FADD:
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1878 case DADD: printf("\tfaddp %%st,%%st(1)\n"); break;
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1879 case FSUB:
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1880 case DSUB: printf("\tfsubp %%st,%%st(1)\n"); break;
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1881 case FDIV:
85
3789aef7331d minor fix
kono
parents: 84
diff changeset
1882 case DDIV: printf("\tfdivp %%st,%%st(1)\n"); break;
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1883 case FMUL:
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1884 case DMUL: printf("\tfmulp %%st,%%st(1)\n"); break;
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1885 case FCMP:
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
1886 case DCMP:
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1887 printf("\tfucompp\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1888 printf("\tfnstsw\t%%ax\n");
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1889 break;
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1890 }
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1891 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1892
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1893 void
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1894 code_dassop(int op,int d) {
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1895 /* we have lvalue in creg, applied floating value is in %st(0) */
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 99
diff changeset
1896 emit_dpop(d); /* do nothing for 387 */
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1897 printf("\t%s (%s)\n",fload(d),register_name(creg,0));
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1898 dtosop(op,0);
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1899 printf("\t%s (%s)\n",fstore(d),register_name(creg,0));
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1900 }
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1901
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1902 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1903 code_dpreinc(int e1,int e2,int d,int freg) {
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1904 g_expr(e2);
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1905 printf("\t%s (%s)\n",fload(d),register_name(creg,0));
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1906 printf("\tfld1\n");
87
1738f313f98b floating point (at most) done.
kono
parents: 86
diff changeset
1907 if (caddr(e1)>0)
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1908 printf("\tfaddp %%st,%%st(1)\n");
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1909 else
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1910 printf("\tfsubrp %%st,%%st(1)\n");
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1911 printf("\t%s (%s)\n",fstore(d),register_name(creg,0));
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1912 }
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1913
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1914 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
1915 code_dpostinc(int e1,int e2,int d,int freg) {
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1916 g_expr(e2);
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1917 printf("\t%s (%s)\n",fload(d),register_name(creg,0));
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1918 if (use)
86
4d1275f8a5b5 *** empty log message ***
kono
parents: 85
diff changeset
1919 printf("\t%s (%s)\n",fload(d),register_name(creg,0));
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1920 printf("\tfld1\n");
87
1738f313f98b floating point (at most) done.
kono
parents: 86
diff changeset
1921 if (caddr(e1)>0)
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1922 printf("\tfaddp %%st,%%st(1)\n");
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1923 else
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1924 printf("\tfsubrp %%st,%%st(1)\n");
87
1738f313f98b floating point (at most) done.
kono
parents: 86
diff changeset
1925 printf("\t%s (%s)\n",(use?fstore_u(d):fstore(d)),register_name(creg,0));
83
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1926 }
f3f75911d62c *** empty log message ***
kono
parents: 82
diff changeset
1927
84
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1928 void
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1929 drexpr(int e1, int e2,int l1, int op)
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1930 {
89
917947ffeb7c power pc version
kono
parents: 87
diff changeset
1931 g_expr(list3(DCMP,e1,e2));
84
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1932 switch(op) {
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1933 case DOP+GE:
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1934 case FOP+GE:
84
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1935 printf("\ttestb\t$5,%%ah\n");
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1936 printf("\tjne\t_%d\n",l1);
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1937 break;
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1938 case DOP+GT:
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1939 case FOP+GT:
84
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1940 printf("\ttestb\t$69,%%ah\n");
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1941 printf("\tjne\t_%d\n",l1);
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1942 break;
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1943 case DOP+EQ:
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1944 case FOP+EQ:
84
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1945 printf("\tandb\t$69,%%ah\n");
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1946 printf("\txorb\t$64,%%ah\n");
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1947 printf("\tjne\t_%d\n",l1);
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1948 break;
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1949 case DOP+NEQ:
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1950 case FOP+NEQ:
84
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1951 printf("\tandb\t$69,%%ah\n");
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1952 printf("\txorb\t$64,%%ah\n");
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1953 printf("\tje\t_%d\n",l1);
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1954 break;
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1955 }
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1956 }
1a723130a2c7 condtional
kono
parents: 83
diff changeset
1957
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1958 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1959 code_dregister(int e2,int freg,int d)
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1960 {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1961 error(-1);
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1962 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1963
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1964 void
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1965 code_cmp_dregister(int e2,int d)
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1966 {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1967 error(-1);
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1968 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1969
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1970 int pop_fregister()
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1971 {
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1972 if (freg_sp<0) { error(-1); return -1;}
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1973 printf("# fpop: %d\n",freg_sp-1);
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1974 return freg_stack[--freg_sp];
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1975 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1976
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1977 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1978 emit_dpop(int d)
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1979 {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1980 int xreg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1981 if ((xreg=pop_fregister())==-1) {
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1982 } else if (xreg<= -REG_LVAR_OFFSET) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1983 code_drlvar(REG_LVAR_OFFSET+xreg,1,freg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
1984 free_lvar(xreg+REG_LVAR_OFFSET);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1985 /* pushed order is reversed. We don't need this for comutable
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1986 operator, but it is ok to do this. */
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1987 printf("\tfxch\t%%st(1)\n");
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1988 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1989 return xreg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1990 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1991
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
1992
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1993 void emit_dpop_free(int e1,int d)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1994 {
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1995 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
1996
133
7d436c08e949 separate float / double flow
kono
parents: 128
diff changeset
1997 void emit_dpush(int type)
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
1998 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1999 if (freg_sp>=MAX_FPU_STACK) code_save_fstacks();
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2000 if (freg_sp>MAX_MAX) error(-1);
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2001 freg_stack[freg_sp++]=-1;
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2002 printf("# fpush:%d\n",freg_sp);
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2003 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2004
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2005 void
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2006 code_save_stacks()
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2007 {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2008 /* temporal registers or stacks in fpu are saved in local variable */
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2009 int xreg,sp,screg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2010 sp=reg_sp;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2011 while(sp-->0) {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2012 if ((xreg=reg_stack[sp])>=0) {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2013 screg=creg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2014 if(creg!=xreg) {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2015 if (xreg!=dreg) free_register(xreg);
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2016 creg = xreg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2017 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2018 code_assign_lvar(
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2019 (reg_stack[sp]=new_lvar(size_of_int)),creg,0);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2020 reg_stack[sp]= reg_stack[sp]-REG_LVAR_OFFSET;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2021 regv[xreg]=0;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2022 creg=screg;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2023 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2024 }
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2025 code_save_fstacks();
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2026 }
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2027
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2028 void
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2029 code_save_fstacks()
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 105
diff changeset
2030 {
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
2031 int xreg,sp,uses;
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
2032 uses = use; use = 0;
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2033 sp=freg_sp;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2034 while(sp-->0) {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2035 if ((xreg=freg_stack[sp])==-1) {
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2036 code_dassign_lvar(
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2037 (freg_stack[sp]=new_lvar(size_of_double)),freg,1);
94
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2038 freg_stack[sp]= freg_stack[sp]-REG_LVAR_OFFSET;
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2039 }
1ad7045741a7 float dbinop fix
kono
parents: 93
diff changeset
2040 }
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
2041 use = uses;
82
25654dc29ecc First Floating Point coding done.
kono
parents: 81
diff changeset
2042 }
81
f94ca1168520 float first try...
kono
parents: 78
diff changeset
2043
61
8ffb8ca3fe34 separation of architecture dependent part.
kono
parents:
diff changeset
2044 /* end */