annotate mc-code-powerpc.c @ 255:8cd8d72286ae

PowerPC long long complex function call fix. MIPS entry frame calc.
author kono
date Fri, 14 May 2004 20:57:52 +0900 (2004-05-14)
parents 1452eb0eab20
children d80e6387c539
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1 /* Micro-C Code Generatation Part for Power PC (Mac OS X) */
917947ffeb7c power pc version
kono
parents:
diff changeset
2 /* $Id$ */
917947ffeb7c power pc version
kono
parents:
diff changeset
3
917947ffeb7c power pc version
kono
parents:
diff changeset
4 #define EXTERN extern
917947ffeb7c power pc version
kono
parents:
diff changeset
5 #include "mc.h"
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
6 #include "mc-code.h"
89
917947ffeb7c power pc version
kono
parents:
diff changeset
7 #include "mc-codegen.h"
917947ffeb7c power pc version
kono
parents:
diff changeset
8
173
3b33c7daae95 *** empty log message ***
kono
parents: 172
diff changeset
9 char *l_include_path[] = {
3b33c7daae95 *** empty log message ***
kono
parents: 172
diff changeset
10 "/usr/include/",
3b33c7daae95 *** empty log message ***
kono
parents: 172
diff changeset
11 0
3b33c7daae95 *** empty log message ***
kono
parents: 172
diff changeset
12 };
3b33c7daae95 *** empty log message ***
kono
parents: 172
diff changeset
13
89
917947ffeb7c power pc version
kono
parents:
diff changeset
14 #define TEXT_EMIT_MODE 0
917947ffeb7c power pc version
kono
parents:
diff changeset
15 #define DATA_EMIT_MODE 1
917947ffeb7c power pc version
kono
parents:
diff changeset
16 #define RODATA_EMIT_MODE 2
917947ffeb7c power pc version
kono
parents:
diff changeset
17
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
18 static void data_mode(char *name);
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
19 static void init_ptr_cache();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
20 static void ld_indexx(int byte, int n, int xreg,int reg,int sign);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
21 static void local_table(void);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
22 static void shift(char *op, int creg,int reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
23 static int struct_push(int e4,int t,int arg);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
24
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
25 static int creg;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
26
89
917947ffeb7c power pc version
kono
parents:
diff changeset
27 static int output_mode = TEXT_EMIT_MODE;
917947ffeb7c power pc version
kono
parents:
diff changeset
28 static int data_alignment = 0;
917947ffeb7c power pc version
kono
parents:
diff changeset
29
917947ffeb7c power pc version
kono
parents:
diff changeset
30 static int code_disp_label;
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
31 static int code_setup;
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
32 static int r1_offset_label;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
33 static int lvar_offset_label;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
34
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
35 static int reg_save;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
36 static int freg_save;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
37
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
38 static int freg,ireg,lreg;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
39
238
d64e9a6a66bd ia32 long long code written.
kono
parents: 237
diff changeset
40 int code_lassop_p = 1;
d64e9a6a66bd ia32 long long code written.
kono
parents: 237
diff changeset
41
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
42 #define SIZE_OF_INT 4
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
43 #define SIZE_OF_SHORT 2
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
44 #define SIZE_OF_FLOAT 4
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
45 #define SIZE_OF_DOUBLE 8
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
46 #define SIZE_OF_LONGLONG 8
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
47 #define ENDIAN 1
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
48
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
49 int size_of_int = SIZE_OF_INT;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
50 int size_of_short = SIZE_OF_SHORT;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
51 int size_of_float = SIZE_OF_FLOAT;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
52 int size_of_double = SIZE_OF_DOUBLE;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
53 int size_of_longlong = SIZE_OF_LONGLONG;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
54 int endian = ENDIAN;
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
55
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
56 static int reg_sp; /* REGister Stack-Pointer */
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
57 static int reg_stack[MAX_MAX]; /* �ºݤΥ쥸�������ΰ� */
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
58
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
59 /* floating point registers */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
60
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
61 static int freg_sp; /* floating point REGister Stack-Pointer */
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
62 static int freg_stack[MAX_MAX]; /* �ºݤΥ쥸�������ΰ� */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
63
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
64 static int lreg_sp; /* longlong REGister Stack-Pointer */
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
65 static int lreg_stack[MAX_MAX]; /* �ºݤΥ쥸�������ΰ� */
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
66
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
67 #define REG_fp 1
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
68 #define REG_sp 30
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
69 #define REG_VAR_BASE 29
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
70 #define REG_VAR_MIN 18
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
71 #define MIN_TMP_REG 3
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
72 #define MAX_TMP_REG 11
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
73
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
74 #define PTRC_REG 3
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
75
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
76 #define FREG_VAR_BASE 31
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
77 #define FREG_VAR_MIN 20
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
78 #define MIN_TMP_FREG 1
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
79 #define MAX_TMP_FREG 14
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
80
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
81 int MAX_REGISTER=30; /* PowerPC�Υ쥸������10�ĤޤǻȤ�*/
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
82 int MAX_FREGISTER=31;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
83 #define REAL_MAX_REGISTER 32 /* PowerPC�Υ쥸������32�Ȥ�������*/
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
84 #define REAL_MAX_FREGISTER 32 /* PowerPC�Υ쥸������32�Ȥ�������*/
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
85 #define REAL_MAX_LREGISTER 16
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
86
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
87 #define FREG_OFFSET REAL_MAX_REGISTER
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
88 #define LREG_OFFSET (REAL_MAX_REGISTER+REAL_MAX_FREGISTER)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
89
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
90 #define RET_REGISTER 3
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
91 #define RET_FREGISTER (1+FREG_OFFSET)
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
92 #define RET_LREGISTER_H 3 /* high word */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
93 #define RET_LREGISTER_L 4 /* low word */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
94 #define RET_LREGISTER LREG_OFFSET
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
95
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
96 int MAX_INPUT_REGISTER_VAR = 11-MIN_TMP_REG;
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
97 int MAX_CODE_INPUT_REGISTER_VAR = 11-MIN_TMP_REG;
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
98 int MAX_INPUT_DREGISTER_VAR = 14-MIN_TMP_FREG;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
99 int MAX_INPUT_FREGISTER_VAR = 14-MIN_TMP_FREG;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
100 int MAX_CODE_INPUT_DREGISTER_VAR = 14-MIN_TMP_FREG;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
101 int MAX_CODE_INPUT_FREGISTER_VAR = 14-MIN_TMP_FREG;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
102
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
103 static int powerpc_regs[REAL_MAX_REGISTER+REAL_MAX_FREGISTER+
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
104 REAL_MAX_LREGISTER];
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
105 static int regv_h0[REAL_MAX_LREGISTER];
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
106 static int regv_l0[REAL_MAX_LREGISTER];
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
107 #define regv_h(i) regv_h0[(i)-LREG_OFFSET]
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
108 #define regv_l(i) regv_l0[(i)-LREG_OFFSET]
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
109
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
110 static int *regs = powerpc_regs;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
111
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
112 #define CREG_REGISTER (MAX_TMP_REG)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
113 #define FREG_FREGISTER (MAX_TMP_FREG+FREG_OFFSET)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
114 #define LREG_LREGISTER (MAX_TMP_REG+LREG_OFFSET)
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
115
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
116
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
117 static int max_reg_var, max_freg_var;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
118
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
119 static char *reg_name[] = {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
120 "r0","r1","r2","r3","r4","r5","r6","r7","r8","r9",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
121 "r10","r11","r12","r13","r14","r15","r16","r17","r18","r19",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
122 "r20","r21","r22","r23","r24","r25","r26","r27","r28","r29",
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
123 "r30","r31",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
124 "f0","f1","f2","f3","f4","f5","f6","f7","f8","f9",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
125 "f10","f11","f12","f13","f14","f15","f16","f17","f18","f19",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
126 "f20","f21","f22","f23","f24","f25","f26","f27","f28","f29",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
127 "f30","f31"
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
128 };
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
129
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
130 #define register_name(i) reg_name[i]
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
131 #define fregister_name(i) reg_name[i]
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
132 #define lregister_name_low(i) reg_name[regv_l(i)]
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
133 #define lregister_name_high(i) reg_name[regv_h(i)]
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
134
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
135 char *r(i) { return register_name(i); }
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
136 char *f(i) { return fregister_name(i); }
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
137 char *ll(i) { return lregister_name_low(i); }
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
138 char *lh(i) { return lregister_name_high(i); }
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
139
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
140 #define is_int_reg(i) (0<=i&&i<REAL_MAX_REGISTER)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
141 #define is_float_reg(i) (REAL_MAX_REGISTER<=i&&i<REAL_MAX_FREGISTER+REAL_MAX_REGISTER)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
142 #define is_longlong_reg(i) (LREG_OFFSET<=i&&i<LREG_OFFSET+REAL_MAX_LREGISTER)
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
143
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
144 #define use_int(reg) if (reg==USE_CREG) reg=use_int0()
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
145 static
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
146 int use_int0() {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
147 int i = creg;
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
148 if (!i||!ireg||!is_int_reg(i)) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
149 if (lreg) { free_register(lreg); lreg = 0; }
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
150 if (!ireg) ireg = get_register();
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
151 // else if (ireg!=i) free_register(i);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
152 i = ireg;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
153 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
154 if (!regs[i]) regs[i]=USING_REG;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
155 creg = i;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
156 return i;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
157 }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
158
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
159 #if LONGLONG_CODE
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
160 #define use_longlong(reg) if (reg==USE_CREG) reg=use_longlong0()
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
161
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
162 static
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
163 int use_longlong0() {
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
164 int i = creg;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
165 if (!is_longlong_reg(i)) {
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
166 if (ireg) { free_register(ireg); ireg=0; }
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
167 if (!lreg||!regs[lreg]) lreg = get_lregister();
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
168 // else if (lreg!=i) free_register(i);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
169 i = lreg;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
170 }
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
171 if (!regv_l(i)) regv_l(i) = get_register();
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
172 if (!regv_h(i)) regv_h(i) = get_register();
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
173 if (!regs[i]) regs[i]=USING_REG;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
174 if (!regs[regv_l(i)]) regs[regv_l(i)]=USING_REG;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
175 if (!regs[regv_h(i)]) regs[regv_h(i)]=USING_REG;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
176 creg = i;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
177 return i;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
178 }
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
179 #endif
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
180
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
181
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
182 #if FLOAT_CODE
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
183 #define use_float(d,reg) if (reg==USE_CREG) reg=d?use_double0():use_float0()
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
184 static
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
185 int use_float0() {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
186 int i = creg;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
187 if (!is_float_reg(i)) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
188 if (lreg) { free_register(lreg); lreg = 0; }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
189 if (!freg) freg = get_dregister(0);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
190 else if (freg!=i) free_register(i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
191 i = freg;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
192 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
193 if (!regs[i]) regs[i]=USING_REG;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
194 creg = i;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
195 return i;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
196 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
197 static
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
198 int use_double0() {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
199 int i = creg;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
200 if (!is_float_reg(i)) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
201 if (lreg) { free_register(lreg); lreg = 0; }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
202 if (!freg) freg = get_dregister(1);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
203 else if (freg!=i) free_register(i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
204 i = freg;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
205 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
206 if (!regs[i]) regs[i]=USING_REG;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
207 creg = i;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
208 return i;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
209 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
210 #endif
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
211
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
212
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
213 #if FLOAT_CODE
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
214 static
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
215 NMTBL float_zero = {"_float_zero",STATIC,FLOAT,0};
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
216 static
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
217 NMTBL float_one = {"_float_one",STATIC,FLOAT,0};
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
218
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
219
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
220 static char * fload(int d);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
221 static int code_d1(double d);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
222 static int code_d2(double d);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
223 #endif
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
224 #if LONGLONG_CODE
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
225 static int code_l1(long long ll);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
226 static int code_l2(long long ll);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
227 #endif
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
228
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
229 static void code_save_stacks();
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
230 static void code_save_input_registers();
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
231 static void clear_ptr_cache_reg(int r);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
232 static void set_ireg(int,int);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
233 static void set_freg(int,int);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
234 static void set_lreg(int,int);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
235
153
33b39002ac58 MIPS continue
kono
parents: 148
diff changeset
236 static int max_func_args;
33b39002ac58 MIPS continue
kono
parents: 148
diff changeset
237 static int my_func_args;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
238 #define ARG_LVAR_OFFSET 0x10000000
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
239
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
240 /*
89
917947ffeb7c power pc version
kono
parents:
diff changeset
241
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
242 r0 return value etc.
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
243 r3-r10 input register
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
244 r22-r29 saved register variable (input register for code segement)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
245 r30 stack pointer
917947ffeb7c power pc version
kono
parents:
diff changeset
246 r31 0
917947ffeb7c power pc version
kono
parents:
diff changeset
247 r1 frame pointer
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
248
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
249 f0 return value etc.
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
250 f1-r8 input register
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
251 f24-f31 saved register variable
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
252
202
601301152d9c *** empty log message ***
kono
parents: 196
diff changeset
253 function call stack frame
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
254 <------r1_offset------------------------------>
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
255 <------------lvar_offset------->
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
256 r+ +------------+---+---------------+----------+--------------+----+ -
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
257 callee arg xx register save local caller arg xx
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
258 reg_save disp max_func_args*SIZE_OF_INT
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
259 lvar>0 lvar<0 lvar>0x1000 0000
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
260
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
261 code segment stack frame
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
262
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
263 * goto��ƤӽФ����ؿ���r1 ! r1(goto����r1)
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
264 # * r30 <---r1_offset---------> r1
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
265 r+ +----------+--+----------+----------------+-----------+----------+----+
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
266 cousin arg xx reg save !callee arg !code local caller arg xx
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
267 r20-r29 lvar>0 lvar<0 lvar>0x1000 000
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
268 f20-f31 <-my_func_args--><--disp-----><-max_func_arg->
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
269 *SIZE_OF_INT *SIZE_OF_INT
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
270
89
917947ffeb7c power pc version
kono
parents:
diff changeset
271 */
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
272 int arg_offset = 24; int arg_offset1 = 24; int disp_offset = -12;
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
273 // #define func_disp_offset 60
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
274 #define func_disp_offset 68
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
275 #define r1_offset func_disp_offset+12
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
276 int code_disp_offset = 0; int jump_offset = 0;
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
277 #define CODE_LVAR l+code_disp_offset
129
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
278 #define CODE_CALLER_ARG (l-ARG_LVAR_OFFSET)+arg_offset1
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
279 #define FUNC_LVAR l+disp_offset
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
280 #define CALLER_ARG (l-ARG_LVAR_OFFSET)+arg_offset1
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
281 #define CALLEE_ARG l+arg_offset
89
917947ffeb7c power pc version
kono
parents:
diff changeset
282
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
283 void
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
284 code_offset_set()
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
285 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
286 #if 0
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
287 int l;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
288 #endif
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
289 int lvar_offsetv = -disp+max_func_args*SIZE_OF_INT+func_disp_offset;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
290 int r1_offsetv = -disp+max_func_args*SIZE_OF_INT-reg_save+r1_offset;
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
291 printf(".set L_%d,%d\n",lvar_offset_label,lvar_offsetv);
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
292 printf(".set L_%d,%d\n",r1_offset_label,r1_offsetv);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
293 #if 0
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
294 printf("# function %s\n",fnptr->nm);
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
295 l = ARG_LVAR_OFFSET;
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
296 printf("# offset call0\t%d\n",CALLER_ARG);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
297 l = ARG_LVAR_OFFSET+max_func_args*SIZE_OF_INT;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
298 printf("# offset calln\t%d %d\n",CALLER_ARG,max_func_args*SIZE_OF_INT);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
299 l = disp;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
300 printf("# offset lvarn\t%d %d\n",FUNC_LVAR+lvar_offsetv,disp);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
301 l = 0;
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
302 printf("# offset lvar0\t%d\n",FUNC_LVAR+lvar_offsetv);
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
303 l = -reg_save;
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
304 printf("# offset regs\t%d\n",FUNC_LVAR+lvar_offsetv);
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
305 printf("# offset r1off\t%d\n",r1_offsetv);
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
306 l = 0;
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
307 printf("# offset carg0\t%d\n",CALLEE_ARG+r1_offsetv);
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
308 l = my_func_args;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
309 printf("# offset cargn\t%d %d\n",CALLEE_ARG+r1_offsetv,my_func_args);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
310 #endif
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
311 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
312
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
313
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
314 static void
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
315 lvar8(int l)
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
316 {
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
317 if (fnptr->sc==CODE) {
129
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
318 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
319 printf("lo16(%d)(r1)\n",CODE_CALLER_ARG);
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
320 } else
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
321 printf("lo16(%d)(r30)\n",CODE_LVAR);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
322 } else if (l<0) { /* local variable */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
323 printf("lo16(%d+L_%d)(r30)\n",FUNC_LVAR,lvar_offset_label);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
324 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
325 printf("lo16(%d)(r30)\n",CALLER_ARG);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
326 } else { /* callee's arguments */
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
327 printf("lo16(%d+L_%d)(r30)\n",CALLEE_ARG,r1_offset_label);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
328 }
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
329 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
330
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
331 /* if size of local variables / input variables is more then 64k,
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
332 lo16 does not work. We have to use ha16 also. But we can't know
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
333 the exact size in one path compile. We may safely use lvar16ha
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
334 if disp or max_func_args > 32k. Of course this is reduantant for
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
335 smaller offset. But who cares who use very large local variables?
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
336 */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
337
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
338 #define LARGE_LVAR (disp<-32765||max_func_args>32765)
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
339
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
340 static void
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
341 lvar16ha(int l)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
342 {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
343 if (fnptr->sc==CODE) {
129
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
344 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
345 printf("la r0,ha16(%d)(r1)\n",CODE_CALLER_ARG);
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
346 } else
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
347 printf("la r0,ha16(%d)(r30)\n",CODE_LVAR);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
348 } else if (l<0) { /* local variable */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
349 printf("la r0,ha16(%d+L_%d)(r30)\n",FUNC_LVAR,lvar_offset_label);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
350 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
351 if (CALLER_ARG>32765)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
352 printf("la r0,ha16(%d)(r30)\n",CALLER_ARG);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
353 } else { /* callee's arguments */
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
354 printf("la r0,ha16(%d+L_%d)(r30)\n",CALLEE_ARG,r1_offset_label);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
355 }
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
356 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
357
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
358 static void
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
359 lvar16lo(int l)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
360 {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
361 if (fnptr->sc==CODE) {
129
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
362 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
363 printf("lo16(%d)(r0)\n",CODE_CALLER_ARG);
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
364 } else
948977254fa6 fix long argument call in code segement
kono
parents: 128
diff changeset
365 printf("lo16(%d)(r0)\n",CODE_LVAR);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
366 } else if (l<0) { /* local variable */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
367 printf("lo16(%d+L_%d)(r0)\n",FUNC_LVAR,lvar_offset_label);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
368 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
369 if (CALLER_ARG>32765)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
370 printf("lo16(%d)(r0)\n",CALLER_ARG);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
371 else
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
372 printf("lo16(%d)(r30)\n",CALLER_ARG);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
373 } else { /* callee's arguments */
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
374 printf("lo16(%d+L_%d)(r0)\n",CALLEE_ARG,r1_offset_label);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
375 }
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
376 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
377
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
378 #define lvar_intro(i) if (LARGE_LVAR) lvar16ha(i)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
379
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
380 #define lvar(i) if (LARGE_LVAR) lvar16lo(i); else lvar8(i)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
381
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
382 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
383 code_lvar(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
384 use_int(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
385 lvar_intro(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
386 printf("\tla %s,",register_name(reg));
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
387 lvar(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
388 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
389
89
917947ffeb7c power pc version
kono
parents:
diff changeset
390 void
917947ffeb7c power pc version
kono
parents:
diff changeset
391 code_init(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
392 {
173
3b33c7daae95 *** empty log message ***
kono
parents: 172
diff changeset
393 macro_define("__ppc__ 1\n");
177
352feeae4b0a macro else/ccout
kono
parents: 173
diff changeset
394 macro_define("__BIG_ENDIAN__ 1\n");
182
e1e9ec8c96a7 some fix
kono
parents: 178
diff changeset
395 // macro_define("_BSD_CT_RUNE_T_ int\n");
185
427008a06333 comment
kono
parents: 182
diff changeset
396 macro_define("__STDC__ 1\n");
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
397 init_ptr_cache();
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
398 regv_l(RET_LREGISTER) = RET_LREGISTER_L;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
399 regv_h(RET_LREGISTER) = RET_LREGISTER_H;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
400 }
917947ffeb7c power pc version
kono
parents:
diff changeset
401
917947ffeb7c power pc version
kono
parents:
diff changeset
402 void
917947ffeb7c power pc version
kono
parents:
diff changeset
403 gexpr_code_init(void){
172
096559f07a70 some check
kono
parents: 168
diff changeset
404 #if 0
096559f07a70 some check
kono
parents: 168
diff changeset
405 int new_reg,old_reg,dm;
096559f07a70 some check
kono
parents: 168
diff changeset
406 /* register shuffling */
096559f07a70 some check
kono
parents: 168
diff changeset
407 if (is_int_reg(creg)) {
096559f07a70 some check
kono
parents: 168
diff changeset
408 dm = get_register();
096559f07a70 some check
kono
parents: 168
diff changeset
409 new_reg = get_register();
096559f07a70 some check
kono
parents: 168
diff changeset
410 old_reg = creg;
096559f07a70 some check
kono
parents: 168
diff changeset
411 ireg = creg = new_reg;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
412 free_register(old_reg);
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
413 free_register(dm);
172
096559f07a70 some check
kono
parents: 168
diff changeset
414 } else if (is_float_reg(creg)) {
096559f07a70 some check
kono
parents: 168
diff changeset
415 dm = get_dregister(1);
096559f07a70 some check
kono
parents: 168
diff changeset
416 new_reg = get_dregister(1);
096559f07a70 some check
kono
parents: 168
diff changeset
417 old_reg = creg;
096559f07a70 some check
kono
parents: 168
diff changeset
418 freg = creg = new_reg;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
419 free_register(old_reg);
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
420 free_register(dm);
172
096559f07a70 some check
kono
parents: 168
diff changeset
421 }
096559f07a70 some check
kono
parents: 168
diff changeset
422 #endif
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
423 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
424
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
425 void
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
426 code_gexpr(int e){
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
427 // if (is_int_reg(creg) && creg!=ireg) error(-1);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
428 }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
429
89
917947ffeb7c power pc version
kono
parents:
diff changeset
430
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
431 void
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
432 code_arg_register(NMTBL *fnptr)
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
433 {
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
434 int args = fnptr->dsp;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
435 NMTBL *n;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
436 int reg_var = 0;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
437 int freg_var = 0;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
438 int type;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
439 int reg;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
440 int i;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
441 int is_code0 = is_code(fnptr);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
442
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
443 while (args) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
444 /* process in reverse order */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
445 n = (NMTBL*)caddr(args);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
446 type = n->ty;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
447 if (scalar(type)) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
448 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
449 n->sc = REGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
450 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
451 regs[n->dsp]= INPUT_REG;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
452 reg_var++;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
453 cadddr(args)=SIZE_OF_INT;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
454 }
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
455 } else if (type==FLOAT) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
456 if ((reg = get_input_dregister_var(freg_var,n,is_code0,0))) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
457 n->sc = DREGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
458 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
459 regs[n->dsp]= INPUT_REG;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
460 freg_var++;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
461 cadddr(args)=size(type);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
462 }
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
463 } else if (type==DOUBLE) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
464 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
465 n->sc = DREGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
466 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
467 regs[n->dsp]= INPUT_REG;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
468 freg_var++;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
469 cadddr(args)=size(type);
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
470 }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
471 } else if (type==LONGLONG||type==ULONGLONG) {
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
472 if ((reg = get_input_lregister_var(reg_var,n,is_code0))) {
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
473 n->sc = LREGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
474 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
475 regs[i=n->dsp]= INPUT_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
476 regs[regv_l(i)]= INPUT_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
477 regs[regv_h(i)]= INPUT_REG;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
478 reg_var+=2;
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
479 cadddr(args)=size(type);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
480 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
481 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
482 args = cadr(args);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
483 }
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
484 if (is_function(fnptr))
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
485 code_save_input_registers();
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
486 }
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
487
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
488
89
917947ffeb7c power pc version
kono
parents:
diff changeset
489 int
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
490 get_register(void)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
491 { /* �Ȥ��Ƥ��ʤ��쥸������Ĵ�٤� */
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
492 int i,j,reg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
493 for(i=MAX_TMP_REG;i>MIN_TMP_REG;i--) {
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
494 if (regs[i]) continue; /* �Ȥ��Ƥ��� */
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
495 regs[i]=USING_REG; /* ���Υ쥸������Ȥ����Ȥ������ */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
496 return i; /* ���ξ���ɽ���ֹ���֤� */
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
497 }
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
498 /* PTR_CACHE ��Ĥ֤� */
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
499 for(i=MAX_TMP_REG;i>MIN_TMP_REG;i--) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
500 if (regs[i]==PTRC_REG) {
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
501 clear_ptr_cache_reg(i);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
502 } else
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
503 continue;
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
504 regs[i]=USING_REG; /* ���Υ쥸������Ȥ����Ȥ������ */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
505 return i; /* ���ξ���ɽ���ֹ���֤� */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
506 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
507 /* search register stack */
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
508 for(i=0;i<reg_sp;i++) {
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
509 if ((reg=reg_stack[i])>=0) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
510 code_assign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
511 (j=new_lvar(SIZE_OF_INT)),reg,0);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
512 reg_stack[i]= j-REG_LVAR_OFFSET;
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
513 return reg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
514 }
917947ffeb7c power pc version
kono
parents:
diff changeset
515 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
516 #if LONGLONG_CODE
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
517 /* search register stack */
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
518 for(i=0;i<lreg_sp;i++) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
519 if ((reg=lreg_stack[i])>=0) {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
520 code_lassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
521 (j=new_lvar(SIZE_OF_LONGLONG)),reg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
522 lreg_stack[i]= j-REG_LVAR_OFFSET;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
523 free_register(reg);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
524 return get_register();
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
525 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
526 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
527 #endif
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
528 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
529 reg =REG_VAR_BASE-i;
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
530 if (! regs[reg]) { /* �Ȥ��Ƥ��ʤ��ʤ� */
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
531 regs[reg]=USING_REG; /* ���Υ쥸������Ȥ����Ȥ������ */
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
532 if (i>max_reg_var) max_reg_var=i;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
533 return reg; /* ���ξ���ɽ���ֹ���֤� */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
534 }
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
535 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
536 /* �����Ƥ����꤬�ʤ��ʤ顢���顼 (���ä���ï���ȤäƤ��?) */
136
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
537 error(HPERR); return creg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
538 }
917947ffeb7c power pc version
kono
parents:
diff changeset
539
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
540 #if 0
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
541 int
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
542 get_register(void)
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
543 {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
544 int i = get_register0();
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
545 printf("# get_register %d\n",i);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
546 return i;
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
547 }
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
548 #endif
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
549
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
550 int
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
551 pop_register(void)
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
552 { /* �쥸���������ͤ���Ф� */
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
553 return reg_stack[--reg_sp];
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
554 }
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
555
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
556 #if FLOAT_CODE
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
557 int
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
558 get_dregister(int d)
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
559 { /* �Ȥ��Ƥ��ʤ��쥸������Ĵ�٤� */
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
560 int i,reg;
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
561 for(i=MAX_TMP_FREG+FREG_OFFSET;i>MIN_TMP_FREG+FREG_OFFSET;i--) {
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
562 if (regs[i]) continue; /* �Ȥ��Ƥ��� */
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
563 regs[i]=USING_REG; /* ���Υ쥸������Ȥ����Ȥ������ */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
564 return i; /* ���ξ���ɽ���ֹ���֤� */
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
565 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
566 /* search register stack */
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
567 for(i=0;i<freg_sp;i++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
568 if ((reg=freg_stack[i])>=0) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
569 code_dassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
570 (freg_stack[i]=new_lvar(SIZE_OF_DOUBLE)),reg,1);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
571 freg_stack[i]= freg_stack[i]-REG_LVAR_OFFSET;
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
572 return reg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
573 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
574 }
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
575 for(i=0;i<FREG_VAR_BASE-REG_VAR_MIN;i++) {
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
576 reg =FREG_VAR_BASE-i+FREG_OFFSET;
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
577 if (! regs[reg]) { /* �Ȥ��Ƥ��ʤ��ʤ� */
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
578 regs[reg]=USING_REG; /* ���Υ쥸������Ȥ����Ȥ������ */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
579 if (i>max_freg_var) max_freg_var=i;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
580 return reg; /* ���ξ���ɽ���ֹ���֤� */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
581 }
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
582 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
583 /* �����Ƥ����꤬�ʤ��ʤ顢���顼 (���ä���ï���ȤäƤ��?) */
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
584 error(REG_ERR); return freg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
585 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
586
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
587 #if 0
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
588 int
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
589 get_dregister(int d)
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
590 {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
591 int i = get_dregister0(d);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
592 printf("# get_dregister %d\n",i);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
593 return i;
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
594 }
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
595 #endif
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
596
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
597 int
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
598 pop_fregister(void)
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
599 { /* �쥸���������ͤ���Ф� */
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
600 return freg_stack[--freg_sp];
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
601 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
602 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
603
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
604 int
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
605 get_lregister0()
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
606 {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
607 int i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
608 for(i=LREG_OFFSET+1;i<REAL_MAX_LREGISTER+LREG_OFFSET;i++) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
609 if (regs[i]==0) {
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
610 // printf("# get_lregister %d\n",i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
611 return i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
612 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
613 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
614 return -1;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
615 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
616
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
617 int
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
618 get_lregister()
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
619 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
620 int h,l,i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
621 i = get_lregister0();
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
622 if (i==-1) return -1;
220
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
623 h = get_register();
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
624 if (h==-1) return -1;
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
625 regv_h(i) = h;
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
626 l = get_register();
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
627 if (l==-1) { free_register(h); return -1; }
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
628 regv_l(i) = l;
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
629 regs[i]=USING_REG;
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
630 return i;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
631 }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
632
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
633 int
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
634 get_lregister_var(NMTBL *n)
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
635 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
636 int i,j,ll;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
637 int max_reg_var_save=max_reg_var;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
638 ll = get_lregister0();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
639 if (ll==-1) goto not_found;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
640 if (regs[ll]==0) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
641 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
642 if (! regs[REG_VAR_BASE-i]) { /* �Ȥ��Ƥ��ʤ��ʤ� */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
643 /* ���Υ쥸������Ȥ����Ȥ������ */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
644 regs[REG_VAR_BASE-i]=USING_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
645 if (i>max_reg_var) max_reg_var=i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
646 for(j=0;j<REG_VAR_BASE-REG_VAR_MIN;j++) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
647 if (! regs[REG_VAR_BASE-j]) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
648 /* �Ȥ��Ƥ��ʤ��ʤ� */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
649 /* ���Υ쥸������Ȥ����Ȥ������ */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
650 regs[REG_VAR_BASE-j]=USING_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
651 if (j>max_reg_var) max_reg_var=j;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
652 /* ���ξ���ɽ���ֹ���֤� */
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
653 regs[ll]=USING_REG;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
654 regv_l(ll) = REG_VAR_BASE-j;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
655 regv_h(ll) = REG_VAR_BASE-i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
656 return list3(LREGISTER,ll,(int)n);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
657 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
658 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
659 /* �ҤȤĤ����ʤ��ä� */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
660 regs[REG_VAR_BASE-i]=0;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
661 max_reg_var=max_reg_var_save;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
662 goto not_found;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
663 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
664 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
665 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
666 not_found:
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
667 return list2(LVAR,new_lvar(SIZE_OF_LONGLONG));
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
668 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
669
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
670 void
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
671 emit_pop_free(int xreg)
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
672 {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
673 if (xreg>=0)
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
674 free_register(xreg);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
675 }
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
676
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
677 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
678
89
917947ffeb7c power pc version
kono
parents:
diff changeset
679 free_register(int i) { /* ����ʤ��ʤä��쥸�������� */
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
680 // printf("# free_register %d\n",i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
681 regs[i]=0;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
682 if (is_longlong_reg(i)) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
683 regs[regv_l(i)]=0;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
684 regs[regv_h(i)]=0;
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
685 //regv_l(i)=0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
686 //regv_h(i)=0;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
687 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
688 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
689
89
917947ffeb7c power pc version
kono
parents:
diff changeset
690 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
691 get_input_dregister_var(int i,NMTBL *n,int is_code,int d)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
692 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
693 if (is_code) {
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
694 if(!(i<FREG_VAR_BASE-FREG_VAR_MIN)) return 0;
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
695 i = FREG_VAR_BASE-i+FREG_OFFSET;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
696 } else {
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
697 if (i<0||i>=MAX_INPUT_DREGISTER_VAR) return 0;
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
698 i = i+MIN_TMP_FREG+FREG_OFFSET;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
699 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
700 return list3(DREGISTER,i,(int)n);
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
701 }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
702
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
703 int
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
704 get_input_lregister_var(int i,NMTBL *n,int is_code)
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
705 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
706 int ll;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
707 ll = get_lregister0();
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
708 if (i!=-1) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
709 if (is_code) {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
710 if(!(i<REG_VAR_BASE-REG_VAR_MIN)) return 0;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
711 i = REG_VAR_BASE-i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
712 } else {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
713 if (i<0||i>=MAX_INPUT_REGISTER_VAR) return 0;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
714 i = i+MIN_TMP_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
715 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
716 regv_h(ll)=i;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
717 regv_l(ll)=i+1;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
718 } else { error(-1); ll=LREG_OFFSET+2; }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
719 return list3(LREGISTER,ll,(int)n);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
720 }
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
721
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
722 int
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
723 get_input_register_var(int i,NMTBL *n,int is_code)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
724 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
725 if (is_code) {
131
09379ec2a74b *** empty log message ***
kono
parents: 130
diff changeset
726 if(!(i<REG_VAR_BASE-REG_VAR_MIN)) return 0;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
727 i = REG_VAR_BASE-i;
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
728 } else {
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
729 if (i<0||i>=MAX_INPUT_REGISTER_VAR) return 0;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
730 i = i+MIN_TMP_REG;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
731 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
732 return list3(REGISTER,i,(int)n);
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
733 }
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
734
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
735 /* double register case? */
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
736
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
737 int
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
738 get_input_register_var_1(int i,NMTBL *n,int is_code)
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
739 {
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
740 if (is_code) {
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
741 if(!(i<REG_VAR_BASE-REG_VAR_MIN)) return 0;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
742 i = REG_VAR_BASE-i;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
743 } else {
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
744 if (i<0||i>=MAX_INPUT_REGISTER_VAR+1) return 0;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
745 i = i+MIN_TMP_REG;
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
746 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
747 return list3(REGISTER,i,(int)n);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
748 }
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
749
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
750 int
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
751 free_register_count(int d)
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
752 {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
753 int i,count,fcount;
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
754 fcount = count = 0;
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
755 for(i=0;i<MAX_REGISTER;i++) {
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
756 if (! regs[i]) count++;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
757 }
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
758 for(i=0;i<MAX_FREGISTER;i++) {
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
759 if (! regs[i+FREG_OFFSET]) fcount++;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
760 }
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
761 printf("# free reg %d freg %d\n",count,fcount);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
762 return d?fcount:count;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
763 }
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
764
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
765 #if 0
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
766 static int
89
917947ffeb7c power pc version
kono
parents:
diff changeset
767 register_full(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
768 {
917947ffeb7c power pc version
kono
parents:
diff changeset
769 int i;
917947ffeb7c power pc version
kono
parents:
diff changeset
770 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents:
diff changeset
771 if (! regs[i]) {
917947ffeb7c power pc version
kono
parents:
diff changeset
772 return 0;
917947ffeb7c power pc version
kono
parents:
diff changeset
773 }
917947ffeb7c power pc version
kono
parents:
diff changeset
774 }
917947ffeb7c power pc version
kono
parents:
diff changeset
775 return 1;
917947ffeb7c power pc version
kono
parents:
diff changeset
776 }
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
777 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
778
917947ffeb7c power pc version
kono
parents:
diff changeset
779 void
917947ffeb7c power pc version
kono
parents:
diff changeset
780 free_all_register(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
781 {
917947ffeb7c power pc version
kono
parents:
diff changeset
782 int i;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
783 // printf("# free_all register\n");
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
784 #if LONGLONG_CODE
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
785 for(i=0;i<REAL_MAX_LREGISTER;i++) {
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
786 regs[i+LREG_OFFSET]=0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
787 regv_l(i+LREG_OFFSET) = 0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
788 regv_h(i+LREG_OFFSET) = 0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
789 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
790 lreg = 0;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
791 // set_lreg(LREG_LREGISTER,0);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
792 #endif
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
793 for(i=0;i<MAX_REGISTER;i++) { regs[i]=0; }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
794 for(i=0;i<MAX_FREGISTER;i++) { regs[i+FREG_OFFSET]=0; }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
795 #if FLOAT_CODE
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
796 freg = get_dregister(1);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
797 set_freg(FREG_FREGISTER,0);
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
798 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
799 ireg = creg = get_register();
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
800 set_ireg(CREG_REGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
801 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
802 }
917947ffeb7c power pc version
kono
parents:
diff changeset
803
917947ffeb7c power pc version
kono
parents:
diff changeset
804 void
917947ffeb7c power pc version
kono
parents:
diff changeset
805 register_usage(char *s)
917947ffeb7c power pc version
kono
parents:
diff changeset
806 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
807 #if 1
89
917947ffeb7c power pc version
kono
parents:
diff changeset
808 int i;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
809 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
810 if (chk) return;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
811 if (!lsrc) return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
812 printf("# %d: %s:",lineno,s);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
813 if (ireg) printf(" creg=%s",register_name(ireg));
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
814 if (freg) printf(" freg=%s",fregister_name(freg));
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
815 if (lreg) printf(" lreg=%s,%s",lregister_name_high(lreg),
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
816 lregister_name_low(lreg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
817 #if 1
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
818 printf("\n# regs:");
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
819 for(i=0;i<MAX_REGISTER;i++) { printf("%d",regs[i]); }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
820 printf(" stack ");
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
821 for(i=reg_sp;i>0;i--) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
822 if(reg_stack[i-1]>=0)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
823 printf(" %s",register_name(reg_stack[i]));
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
824 }
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
825 printf("\n# freg:");
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
826 for(i=0;i<MAX_FREGISTER;i++) { printf("%d",regs[i+FREG_OFFSET]); }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
827 printf(" stack ");
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
828 for(i=freg_sp;i>0;i--) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
829 if(freg_stack[i-1]>=0)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
830 printf(" %s",fregister_name(freg_stack[i]));
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
831 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
832 printf("\n# lreg:");
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
833 for(i=0;i<REAL_MAX_LREGISTER;i++) { printf("%d",regs[i+LREG_OFFSET]); }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
834 printf(" stack ");
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
835 for(i=lreg_sp;i>0;i--) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
836 if(lreg_stack[i-1]>=0)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
837 printf(" %s",lregister_name_high(lreg_stack[i]));
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
838 printf(",%s",lregister_name_low(lreg_stack[i]));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
839 }
917947ffeb7c power pc version
kono
parents:
diff changeset
840 #endif
917947ffeb7c power pc version
kono
parents:
diff changeset
841 printf("\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
842 }
917947ffeb7c power pc version
kono
parents:
diff changeset
843
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
844 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
845
89
917947ffeb7c power pc version
kono
parents:
diff changeset
846 gexpr_init(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
847 {
917947ffeb7c power pc version
kono
parents:
diff changeset
848 while(reg_sp > 0) {
917947ffeb7c power pc version
kono
parents:
diff changeset
849 free_register(reg_stack[--reg_sp]);
917947ffeb7c power pc version
kono
parents:
diff changeset
850 }
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
851 while(freg_sp > 0) {
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
852 free_register(freg_stack[--freg_sp]);
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
853 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
854 while(lreg_sp > 0) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
855 free_register(lreg_stack[--lreg_sp]);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
856 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
857 use_int0();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
858 text_mode();
917947ffeb7c power pc version
kono
parents:
diff changeset
859 gexpr_code_init();
917947ffeb7c power pc version
kono
parents:
diff changeset
860 register_usage("gexpr_init");
917947ffeb7c power pc version
kono
parents:
diff changeset
861 }
917947ffeb7c power pc version
kono
parents:
diff changeset
862
917947ffeb7c power pc version
kono
parents:
diff changeset
863
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
864 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
865
89
917947ffeb7c power pc version
kono
parents:
diff changeset
866 emit_init(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
867 {
917947ffeb7c power pc version
kono
parents:
diff changeset
868 free_all_register();
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
869 max_reg_var=-1; max_freg_var=-1;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
870 reg_sp = 0;
123
5f180dc8d84e intel fix.
kono
parents: 122
diff changeset
871 freg_sp = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
872 text_mode();
917947ffeb7c power pc version
kono
parents:
diff changeset
873 }
917947ffeb7c power pc version
kono
parents:
diff changeset
874
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
875
89
917947ffeb7c power pc version
kono
parents:
diff changeset
876 int
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
877 get_register_var(NMTBL *n)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
878 {
917947ffeb7c power pc version
kono
parents:
diff changeset
879 int i;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
880 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
881 if (! regs[REG_VAR_BASE-i]) { /* �Ȥ��Ƥ��ʤ��ʤ� */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
882 /* ���Υ쥸������Ȥ����Ȥ������ */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
883 regs[REG_VAR_BASE-i]=USING_REG;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
884 if (i>max_reg_var) max_reg_var=i;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
885 /* ���ξ���ɽ���ֹ���֤� */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
886 return list3(REGISTER,REG_VAR_BASE-i,(int)n);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
887 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
888 }
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
889 return list2(LVAR,new_lvar(SIZE_OF_INT));
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
890 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
891
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
892 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
893 get_dregister_var(NMTBL *n,int d)
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
894 {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
895 int i;
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
896 for(i=0;i<FREG_VAR_BASE-FREG_VAR_MIN;i++) {
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
897 if (! regs[FREG_VAR_BASE-i+FREG_OFFSET]) { /* �Ȥ��Ƥ��ʤ��ʤ� */
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
898 regs[FREG_VAR_BASE-i+FREG_OFFSET]=USING_REG; /*���Υ쥸������Ȥ����Ȥ������*/
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
899 if (i>max_freg_var) max_freg_var=i;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
900 /* ���ξ���ɽ���ֹ���֤� */
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
901 return list3(DREGISTER,
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
902 FREG_VAR_BASE-i+FREG_OFFSET,(int)n);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
903 }
917947ffeb7c power pc version
kono
parents:
diff changeset
904 }
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
905 return list2(LVAR,new_lvar(SIZE_OF_DOUBLE));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
906 }
917947ffeb7c power pc version
kono
parents:
diff changeset
907
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
908 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
909
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
910 emit_push()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
911 {
917947ffeb7c power pc version
kono
parents:
diff changeset
912 int new_reg;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
913 if (!is_int_reg(creg)) error(-1);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
914 if (reg_sp>MAX_MAX) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
915 new_reg = get_register(); /* ���Ф˼��� */
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
916 reg_stack[reg_sp++] = creg; /* push ���뤫���˥쥸������Ȥ� */
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
917 ireg = creg = new_reg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
918 }
917947ffeb7c power pc version
kono
parents:
diff changeset
919
917947ffeb7c power pc version
kono
parents:
diff changeset
920 int
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
921 emit_pop(int type)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
922 {
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
923 int xreg,reg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
924 xreg=pop_register();
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
925 if (xreg<= -REG_LVAR_OFFSET) {
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
926 reg = get_register();
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
927 code_rlvar(REG_LVAR_OFFSET+xreg,reg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
928 free_lvar(REG_LVAR_OFFSET+xreg);
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
929 xreg = reg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
930 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
931 return xreg;
917947ffeb7c power pc version
kono
parents:
diff changeset
932 }
917947ffeb7c power pc version
kono
parents:
diff changeset
933
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
934 static int code_base;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
935
917947ffeb7c power pc version
kono
parents:
diff changeset
936 #define MAX_PTR_CACHE 10
917947ffeb7c power pc version
kono
parents:
diff changeset
937
917947ffeb7c power pc version
kono
parents:
diff changeset
938 int ptr_cache=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
939
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
940 void
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
941 init_ptr_cache()
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
942 {
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
943 int i;
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
944 for(i=0;i<MAX_PTR_CACHE;i++) {
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
945 ptr_cache=glist3(0,ptr_cache,0);
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
946 }
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
947 }
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
948
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
949 void
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
950 clear_ptr_cache_reg(int r)
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
951 {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
952 int ptcptr=ptr_cache;
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
953 while(ptcptr) {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
954 if(car(ptcptr)&&caddr(ptcptr)==r) {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
955 car(ptcptr)=0;
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
956 caddr(ptcptr)=0;
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
957 free_register(r);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
958 return;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
959 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
960 ptcptr=cadr(ptcptr);
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
961 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
962 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
963
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
964 void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
965 clear_ptr_cache()
917947ffeb7c power pc version
kono
parents:
diff changeset
966 {
917947ffeb7c power pc version
kono
parents:
diff changeset
967 int ptcptr=ptr_cache;
917947ffeb7c power pc version
kono
parents:
diff changeset
968 while(ptcptr) {
917947ffeb7c power pc version
kono
parents:
diff changeset
969 if(car(ptcptr))
917947ffeb7c power pc version
kono
parents:
diff changeset
970 free_register(caddr(ptcptr));
917947ffeb7c power pc version
kono
parents:
diff changeset
971 car(ptcptr)=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
972 caddr(ptcptr)=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
973 ptcptr=cadr(ptcptr);
917947ffeb7c power pc version
kono
parents:
diff changeset
974 }
917947ffeb7c power pc version
kono
parents:
diff changeset
975 }
917947ffeb7c power pc version
kono
parents:
diff changeset
976
917947ffeb7c power pc version
kono
parents:
diff changeset
977
917947ffeb7c power pc version
kono
parents:
diff changeset
978 int
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
979 get_ptr_cache(NMTBL *nptr)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
980 {
917947ffeb7c power pc version
kono
parents:
diff changeset
981 int r;
917947ffeb7c power pc version
kono
parents:
diff changeset
982 int ptcptr=ptr_cache;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
983 int g = (int)nptr;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
984 int p,p1;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
985 char *rrn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
986
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
987 p1 = ptcptr; p = cadr(p1); /* unnecesary, if ptcptr is initialized */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
988 while(ptcptr) {
917947ffeb7c power pc version
kono
parents:
diff changeset
989 if(car(ptcptr)==g) return caddr(ptcptr);
917947ffeb7c power pc version
kono
parents:
diff changeset
990 p1=p; p=ptcptr;
917947ffeb7c power pc version
kono
parents:
diff changeset
991 ptcptr=cadr(ptcptr);
917947ffeb7c power pc version
kono
parents:
diff changeset
992 }
917947ffeb7c power pc version
kono
parents:
diff changeset
993 cadr(p1)=0; /* remove the last one */
917947ffeb7c power pc version
kono
parents:
diff changeset
994 cadr(p) = ptr_cache; /* connect current queue to the last one */
917947ffeb7c power pc version
kono
parents:
diff changeset
995 ptr_cache = p; /* now the last one is the top */
917947ffeb7c power pc version
kono
parents:
diff changeset
996 if (!caddr(p)) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
997 if((r=get_register())) {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
998 caddr(p)=r; regs[r]=PTRC_REG;
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
999 } else {
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1000 error(-1);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1001 r=creg; /* this can't happen */
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1002 }
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1003 car(p)=g;
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1004 } else {
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1005 r = caddr(p);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1006 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1007 rrn = register_name(r);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1008 if (nptr->sc==STATIC) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1009 printf("\taddis %s,r31,ha16(_%s-L_%d)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1010 rrn,nptr->nm,code_base);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1011 printf("\tla %s,lo16(_%s-L_%d)(%s)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1012 rrn,nptr->nm,code_base,rrn);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1013 } else {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1014 printf("\taddis %s,r31,ha16(L_%s$non_lazy_ptr-L_%d)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1015 rrn,nptr->nm,code_base);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1016 printf("\tlwz %s,lo16(L_%s$non_lazy_ptr-L_%d)(%s)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1017 rrn,nptr->nm,code_base,rrn);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1018 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1019 return r;
917947ffeb7c power pc version
kono
parents:
diff changeset
1020 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1021
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1022 static char *cload(int sz) { return sz==1?"lbz":sz==SIZE_OF_SHORT?"lhz":"lwz"; }
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1023 static char *cstore(int sz) { return sz==1?"stb":sz==SIZE_OF_SHORT?"sth":"stw"; }
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1024
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1025 static void
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1026 cext(int sign,int sz,int reg)
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1027 {
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1028 char *crn = register_name(reg);
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1029 if (sign) {
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1030 if (sz==1)
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1031 printf("\textsb %s,%s\n",crn,crn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1032 else if (sz==SIZE_OF_SHORT)
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1033 printf("\textsh %s,%s\n",crn,crn);
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1034 } else {
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1035 if (sz==1)
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1036 printf("\trlwinm %s,%s,0,0xff\n",crn,crn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1037 else if (sz==SIZE_OF_SHORT)
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1038 printf("\trlwinm %s,%s,0,0xffff\n",crn,crn);
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1039 }
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1040 }
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1041
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1042
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1043 void
92
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1044 code_label(int labelno)
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1045 {
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1046 clear_ptr_cache();
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1047 printf("L_%d:\n",labelno);
92
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1048 }
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1049
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1050 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1051 code_gvar(int e1,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1052 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1053 use_int(reg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1054 r = get_ptr_cache((NMTBL*)cadr(e1));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1055 if(r!=reg)
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1056 printf("\tmr %s,%s\n",register_name(reg),register_name(r));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1057 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1058 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1059
917947ffeb7c power pc version
kono
parents:
diff changeset
1060 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1061 code_rgvar(int e1,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1062 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1063 printf("\tlwz %s,0(%s)\n",register_name(reg),
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1064 register_name(get_ptr_cache((NMTBL*)cadr(e1))));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1065 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1066
917947ffeb7c power pc version
kono
parents:
diff changeset
1067 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1068 code_crgvar(int e1,int reg,int sign,int sz){
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1069 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1070 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1071 crn = register_name(reg);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1072 printf("\t%s %s,0(%s)\n",cload(sz),crn,
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1073 register_name(get_ptr_cache((NMTBL*)cadr(e1))));
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1074 cext(sign,sz,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1075 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1076
165
kono
parents: 164
diff changeset
1077
kono
parents: 164
diff changeset
1078
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1079 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1080 code_register(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1081 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1082 if (reg!=e2)
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1083 printf("\tmr %s,%s\n",register_name(reg),register_name(e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1084 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1085
917947ffeb7c power pc version
kono
parents:
diff changeset
1086
917947ffeb7c power pc version
kono
parents:
diff changeset
1087 void
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1088 code_rlvar(int e2,int reg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1089 use_int(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1090 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1091 printf("\tlwz %s,",register_name(reg));
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1092 lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1093 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1094
917947ffeb7c power pc version
kono
parents:
diff changeset
1095 void
165
kono
parents: 164
diff changeset
1096 code_crlvar(int e2,int reg,int sign,int sz) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1097 use_int(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1098 lvar_intro(e2);
165
kono
parents: 164
diff changeset
1099 printf("\t%s %s,",cload(sz),register_name(reg));
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1100 lvar(e2);
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1101 cext(sign,sz,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1102 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1103
917947ffeb7c power pc version
kono
parents:
diff changeset
1104 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1105 code_fname(NMTBL *n,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1106 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1107 use_int(reg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1108 r = get_ptr_cache(n);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1109 if(r!=reg)
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1110 printf("\tmr %s,%s\n",register_name(reg),register_name(r));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1111 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1112 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1113
917947ffeb7c power pc version
kono
parents:
diff changeset
1114
917947ffeb7c power pc version
kono
parents:
diff changeset
1115 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1116 code_const(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1117 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1118 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1119 crn = register_name(reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1120 if (-32768<e2&&e2<32768)
917947ffeb7c power pc version
kono
parents:
diff changeset
1121 printf("\tli %s,%d\n",crn,e2);
917947ffeb7c power pc version
kono
parents:
diff changeset
1122 else {
917947ffeb7c power pc version
kono
parents:
diff changeset
1123 printf("\tlis %s,ha16(%d)\n",crn,e2);
917947ffeb7c power pc version
kono
parents:
diff changeset
1124 printf("\taddi %s,%s,lo16(%d)\n",crn,crn,e2);
917947ffeb7c power pc version
kono
parents:
diff changeset
1125 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1126 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1127
917947ffeb7c power pc version
kono
parents:
diff changeset
1128
917947ffeb7c power pc version
kono
parents:
diff changeset
1129 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1130 code_neg(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1131 use_int(creg);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1132 printf("\tneg %s,%s\n", register_name(creg), register_name(creg));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1133 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1134
917947ffeb7c power pc version
kono
parents:
diff changeset
1135
917947ffeb7c power pc version
kono
parents:
diff changeset
1136 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1137 code_not(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1138 use_int(creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1139 printf("\tnor %s,%s,%s\n",
917947ffeb7c power pc version
kono
parents:
diff changeset
1140 register_name(creg), register_name(creg),register_name(creg));
917947ffeb7c power pc version
kono
parents:
diff changeset
1141 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1142
917947ffeb7c power pc version
kono
parents:
diff changeset
1143
917947ffeb7c power pc version
kono
parents:
diff changeset
1144 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1145 code_lnot(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1146 use_int(creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1147 printf("\tsubfic r0,%s,0\n", register_name(creg));
917947ffeb7c power pc version
kono
parents:
diff changeset
1148 printf("\tadde %s,r0,%s\n", register_name(creg),register_name(creg));
917947ffeb7c power pc version
kono
parents:
diff changeset
1149 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1150
917947ffeb7c power pc version
kono
parents:
diff changeset
1151 void
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1152 code_preinc(int e1,int e2,int dir,int sign,int sz,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1153 char *xrn,*drn;
917947ffeb7c power pc version
kono
parents:
diff changeset
1154 if (car(e2)==REGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1155 use_int(reg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1156 printf("\taddi %s,%s,%d\n",
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1157 register_name(cadr(e2)),register_name(cadr(e2)), dir);
118
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
1158 if (cadr(reg)!=e2)
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
1159 printf("\tmr %s,%s\n",register_name(cadr(reg)),register_name(e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1160 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1161 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1162 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1163 if (!is_int_reg(creg)) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1164 xrn = register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1165 if (reg==USE_CREG) {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1166 reg=get_register(); if (!reg) error(-1);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1167 drn = register_name(reg);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1168 set_ireg(reg,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1169 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1170 drn = register_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1171 }
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1172 printf("\t%s %s,0(%s)\n",cload(sz),drn,xrn);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1173 if (use) cext(sign,sz,reg);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1174 printf("\taddi %s,%s,%d\n",drn,drn,dir);
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1175 printf("\t%s %s,0(%s)\n",cstore(sz),drn,xrn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1176 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1177
917947ffeb7c power pc version
kono
parents:
diff changeset
1178
917947ffeb7c power pc version
kono
parents:
diff changeset
1179 void
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1180 code_postinc(int e1,int e2,int dir,int sign,int sz,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1181 char *xrn,*crn,*nrn;
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1182 int nreg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1183 if (car(e2)==REGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1184 use_int(reg);
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1185 printf("\tmr %s,%s\n",register_name(reg),register_name(cadr(e2)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1186 printf("\taddi %s,%s,%d\n",
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1187 register_name(cadr(e2)),register_name(cadr(e2)),dir);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1188 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1189 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1190 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1191 if (!is_int_reg(creg)) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1192 crn = register_name(creg);
917947ffeb7c power pc version
kono
parents:
diff changeset
1193 nreg=get_register(); if (!nreg) error(-1);
917947ffeb7c power pc version
kono
parents:
diff changeset
1194 nrn = register_name(nreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1195 if (reg==USE_CREG) {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1196 reg=get_register(); if (!reg) error(-1);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1197 xrn = register_name(reg);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1198 set_ireg(reg,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1199 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1200 xrn = register_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1201 }
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1202 printf("\t%s %s,0(%s)\n",cload(sz),xrn,crn);
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1203 if (use) cext(sign,sz,reg);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1204 printf("\taddi %s,%s,%d\n",nrn,xrn,dir);
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1205 printf("\t%s %s,0(%s)\n",cstore(sz),nrn,crn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1206 free_register(nreg);
917947ffeb7c power pc version
kono
parents:
diff changeset
1207 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1208
917947ffeb7c power pc version
kono
parents:
diff changeset
1209
917947ffeb7c power pc version
kono
parents:
diff changeset
1210 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1211 code_return(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1212 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1213 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1214 crn = register_name(creg);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1215 printf("\taddis %s,r31,ha16(L_%d-L_%d)\n",crn,retcont,code_base);
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1216 printf("\tla %s,lo16(L_%d-L_%d)(%s)\n",crn,retcont,code_base,crn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1217 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1218
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1219 #define R1SAVE 1
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1220
917947ffeb7c power pc version
kono
parents:
diff changeset
1221 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1222 code_environment(int creg) {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1223 /* save frame pointer */
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1224 use_int(creg);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1225 #if R1SAVE
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1226 printf("\tlwz %s,0(r1)\n",register_name(creg));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1227 #else
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1228 int l = 0;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1229 printf("\tla %s,",register_name(creg));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1230 printf("lo16(%d+L_%d)(r30)\n",FUNC_LVAR,lvar_offset_label);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1231 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1232 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1233
917947ffeb7c power pc version
kono
parents:
diff changeset
1234 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1235 code_bool(int e1,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1236 char *xrn;
917947ffeb7c power pc version
kono
parents:
diff changeset
1237 int e2,e3;
917947ffeb7c power pc version
kono
parents:
diff changeset
1238 b_expr(e1,1,e2=fwdlabel(),1); /* including > < ... */
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1239 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1240 xrn = register_name(reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1241 printf("\tli %s,0\n",xrn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1242 jmp(e3=fwdlabel());
917947ffeb7c power pc version
kono
parents:
diff changeset
1243 fwddef(e2);
917947ffeb7c power pc version
kono
parents:
diff changeset
1244 printf("\tli %s,1\n",xrn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1245 fwddef(e3);
917947ffeb7c power pc version
kono
parents:
diff changeset
1246 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1247
917947ffeb7c power pc version
kono
parents:
diff changeset
1248 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
1249 code_gt(int cond) {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
1250 return (cond?"gt":"le");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1251 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1252
917947ffeb7c power pc version
kono
parents:
diff changeset
1253 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
1254 code_ugt(int cond) {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
1255 return (cond?"gt":"le");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1256 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1257
917947ffeb7c power pc version
kono
parents:
diff changeset
1258 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
1259 code_ge(int cond) {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
1260 return (cond?"ge":"lt");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1261 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1262
917947ffeb7c power pc version
kono
parents:
diff changeset
1263 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
1264 code_uge(int cond) {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
1265 return (cond?"ge":"lt");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1266 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1267
917947ffeb7c power pc version
kono
parents:
diff changeset
1268 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
1269 code_eq(int cond) {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
1270 return (cond?"eq":"ne");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1271 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1272
917947ffeb7c power pc version
kono
parents:
diff changeset
1273 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1274 code_cmp_crgvar(int e1,int reg,int sz) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1275 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1276 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1277 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1278 crn = register_name(reg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1279 r = get_ptr_cache((NMTBL*)cadr(e1));
167
0197ca125567 mips short
kono
parents: 165
diff changeset
1280 printf("\t%s %s,0(%s)\n",cload(sz),crn,register_name(r));
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1281 cext(0,sz,r);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1282 printf("\tcmpwi cr0,%s,0\n",crn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1283 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1284
917947ffeb7c power pc version
kono
parents:
diff changeset
1285
917947ffeb7c power pc version
kono
parents:
diff changeset
1286 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1287 code_cmp_crlvar(int e2,int reg, int sz) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1288 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1289 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1290 crn = register_name(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1291 lvar_intro(e2);
167
0197ca125567 mips short
kono
parents: 165
diff changeset
1292 printf("\t%s %s,",cload(sz),crn);
160
1f440a2790fb *** empty log message ***
kono
parents: 156
diff changeset
1293 lvar(e2);
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1294 cext(0,sz,reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1295 code_cmp_register(reg);
160
1f440a2790fb *** empty log message ***
kono
parents: 156
diff changeset
1296 }
1f440a2790fb *** empty log message ***
kono
parents: 156
diff changeset
1297
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1298
917947ffeb7c power pc version
kono
parents:
diff changeset
1299 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1300 code_cmp_rgvar(int e1,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1301 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1302 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1303 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1304 crn = register_name(reg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1305 r = get_ptr_cache((NMTBL*)cadr(e1));
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1306 printf("\tlwz %s,0(%s)\n",crn,register_name(r));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1307 code_cmp_register(reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1308 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1309
917947ffeb7c power pc version
kono
parents:
diff changeset
1310
917947ffeb7c power pc version
kono
parents:
diff changeset
1311 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1312 code_cmp_rlvar(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1313 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1314 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1315 crn = register_name(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1316 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1317 printf("\tlwz %s,",crn);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1318 lvar(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1319 code_cmp_register(reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1320 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1321
917947ffeb7c power pc version
kono
parents:
diff changeset
1322
917947ffeb7c power pc version
kono
parents:
diff changeset
1323 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1324 code_cmp_register(int e2) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1325 use_int(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1326 printf("\tcmpwi cr0,%s,0\n",register_name(e2));
917947ffeb7c power pc version
kono
parents:
diff changeset
1327 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1328
917947ffeb7c power pc version
kono
parents:
diff changeset
1329
917947ffeb7c power pc version
kono
parents:
diff changeset
1330 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1331 ascii(char *s)
917947ffeb7c power pc version
kono
parents:
diff changeset
1332 {
917947ffeb7c power pc version
kono
parents:
diff changeset
1333 printf("\t.ascii \"");
917947ffeb7c power pc version
kono
parents:
diff changeset
1334 while(*s) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1335 if (*s=='\n')
917947ffeb7c power pc version
kono
parents:
diff changeset
1336 printf("%cn",92);
917947ffeb7c power pc version
kono
parents:
diff changeset
1337 else if (*s<' ')
917947ffeb7c power pc version
kono
parents:
diff changeset
1338 printf("%c%03o",92,*s);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1339 else if (*s=='\\')
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1340 printf("\\\\");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1341 else if (*s==34)
917947ffeb7c power pc version
kono
parents:
diff changeset
1342 printf("%c%c",92,34);
917947ffeb7c power pc version
kono
parents:
diff changeset
1343 else
917947ffeb7c power pc version
kono
parents:
diff changeset
1344 printf("%c",*s);
917947ffeb7c power pc version
kono
parents:
diff changeset
1345 s++;
917947ffeb7c power pc version
kono
parents:
diff changeset
1346 }
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1347 printf("\\0%c\n\t.align 2\n",34);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1348 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1349
917947ffeb7c power pc version
kono
parents:
diff changeset
1350 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1351 code_string(int e1,int creg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1352 {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1353 char *s,*crn;
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1354 int lb;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1355
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1356 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1357 crn = register_name(creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1358
917947ffeb7c power pc version
kono
parents:
diff changeset
1359 s=(char *)cadr(e1);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1360 printf(".data\t\n.cstring\n\t.align 2\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1361 lb=fwdlabel();
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1362 printf("L_%d:\n",lb);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1363 ascii(s);
917947ffeb7c power pc version
kono
parents:
diff changeset
1364 if (output_mode==TEXT_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1365 printf(".text\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
1366 } else {
917947ffeb7c power pc version
kono
parents:
diff changeset
1367 text_mode();
917947ffeb7c power pc version
kono
parents:
diff changeset
1368 }
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1369 printf("\taddis %s,r31,ha16(L_%d-L_%d)\n",crn,lb,code_base);
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1370 printf("\tla %s,lo16(L_%d-L_%d)(%s)\n",crn,lb,code_base,crn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1371 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1372
917947ffeb7c power pc version
kono
parents:
diff changeset
1373 #define MAX_COPY_LEN 20
917947ffeb7c power pc version
kono
parents:
diff changeset
1374
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1375 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1376
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1377 emit_copy(int from,int to,int length,int offset,int value,int det)
917947ffeb7c power pc version
kono
parents:
diff changeset
1378 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1379 char *frn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1380 char *trn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1381 char *drn;
917947ffeb7c power pc version
kono
parents:
diff changeset
1382 int fix = 0;
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1383 char *memmove = "memmove";
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1384 int dreg = get_register(); if (!dreg) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1385
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1386 drn = register_name(dreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1387 use_int(from);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1388 use_int(to);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1389 frn = register_name(from);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1390 trn = register_name(to);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1391
917947ffeb7c power pc version
kono
parents:
diff changeset
1392 /* length <0 means upward direction copy */
917947ffeb7c power pc version
kono
parents:
diff changeset
1393 switch (length) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1394 case 0: break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1395 case 1: case -1:
917947ffeb7c power pc version
kono
parents:
diff changeset
1396 printf("\tlbz %s,%d(%s)\n",drn,offset,frn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1397 printf("\tstb %s,%d(%s)\n",drn,offset,trn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1398 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1399 case 2: case -2:
917947ffeb7c power pc version
kono
parents:
diff changeset
1400 printf("\tlhz %s,%d(%s)\n",drn,offset,frn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1401 printf("\tsth %s,%d(%s)\n",drn,offset,trn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1402 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1403 case 4: case -4:
917947ffeb7c power pc version
kono
parents:
diff changeset
1404 printf("\tlwz %s,%d(%s)\n",drn,offset,frn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1405 printf("\tstw %s,%d(%s)\n",drn,offset,trn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1406 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1407 default:
917947ffeb7c power pc version
kono
parents:
diff changeset
1408 if (-MAX_COPY_LEN<length && length <0) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1409 for(;length<=4;length+=4,offset-=4)
917947ffeb7c power pc version
kono
parents:
diff changeset
1410 emit_copy(from,to,4,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
1411 for(;length<=2;length+=2,offset-=2)
917947ffeb7c power pc version
kono
parents:
diff changeset
1412 emit_copy(from,to,2,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
1413 if(length>0)
917947ffeb7c power pc version
kono
parents:
diff changeset
1414 emit_copy(from,to,length,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
1415 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1416 } else if (length <=MAX_COPY_LEN) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1417 for(;length>=4;length-=4,offset+=4)
917947ffeb7c power pc version
kono
parents:
diff changeset
1418 emit_copy(from,to,4,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
1419 for(;length>=2;length-=2,offset+=2)
917947ffeb7c power pc version
kono
parents:
diff changeset
1420 emit_copy(from,to,2,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
1421 if(length>0)
917947ffeb7c power pc version
kono
parents:
diff changeset
1422 emit_copy(from,to,length,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
1423 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1424 }
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1425 clear_ptr_cache();
e537da31dce3 struct push
kono
parents: 123
diff changeset
1426 code_save_stacks();
e537da31dce3 struct push
kono
parents: 123
diff changeset
1427 printf("\tli r5,%d\n",length);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1428 printf("\tmr r4,%s\n",frn);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1429 printf("\tmr r3,%s\n",trn);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1430 /* overrap must be allowed */
e537da31dce3 struct push
kono
parents: 123
diff changeset
1431 printf("\tbl L_%s$stub\n",memmove);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1432 extern_define(memmove,0,FUNCTION,1);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1433 fix=0;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1434 set_ireg(RET_REGISTER,0);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1435 if (creg!=to) {
e537da31dce3 struct push
kono
parents: 123
diff changeset
1436 free_register(to); to = creg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1437 }
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1438 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1439 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1440 if (value) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1441 /* creg must point top of the destination data */
917947ffeb7c power pc version
kono
parents:
diff changeset
1442 /* this code is necessary for the value of assignment or function call */
917947ffeb7c power pc version
kono
parents:
diff changeset
1443 /* otherwise we don't need this */
917947ffeb7c power pc version
kono
parents:
diff changeset
1444 if (fix) printf("\taddi %s,%s,%d\n",trn,trn,fix);
917947ffeb7c power pc version
kono
parents:
diff changeset
1445 if(creg!=to) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1446 free_register(creg); creg=to; ireg=to;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1447 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1448 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1449 free_register(dreg);
917947ffeb7c power pc version
kono
parents:
diff changeset
1450 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1451
917947ffeb7c power pc version
kono
parents:
diff changeset
1452 int
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1453 struct_push(int e4,int t,int arg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1454 {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1455 int length,count;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1456 int dreg,sreg; char *drn,*crn,*srn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1457 g_expr(e4);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1458 if (!is_int_reg(creg)) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1459 length=size(t);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1460 if(length%SIZE_OF_INT) {
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1461 length += SIZE_OF_INT - (length%SIZE_OF_INT);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1462 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1463 dreg = get_register(); if (!dreg) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1464 drn = register_name(dreg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1465 crn = register_name(creg);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1466 if (length<MAX_COPY_LEN) {
e537da31dce3 struct push
kono
parents: 123
diff changeset
1467 sreg = get_register(); if (!sreg) error(-1);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1468 srn = register_name(sreg);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1469 code_lvar(cadr(arg),sreg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1470 for(count=0;length<MAX_COPY_LEN;count++,length-=SIZE_OF_INT) {
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1471 if (length==0) {
e537da31dce3 struct push
kono
parents: 123
diff changeset
1472 free_register(sreg);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1473 free_register(dreg);
e537da31dce3 struct push
kono
parents: 123
diff changeset
1474 return count;
e537da31dce3 struct push
kono
parents: 123
diff changeset
1475 } else {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1476 printf("\tlwz %s,%d(%s)\n",drn,length-SIZE_OF_INT,crn);
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1477 printf("\tstwu %s,%d(%s)\n",drn,-SIZE_OF_INT,srn);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1478 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1479 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1480 }
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1481 code_lvar(cadr(arg),dreg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1482 /* downward direction copy */
917947ffeb7c power pc version
kono
parents:
diff changeset
1483 emit_copy(creg,dreg,length,0,0,1);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1484 if (dreg) free_register(dreg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1485 return length/SIZE_OF_INT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1486 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1487
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1488 void
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1489 set_ireg(int reg,int mode)
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1490 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1491 if (!is_int_reg(reg)) error(-1);
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1492 if (reg!=creg) {
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1493 clear_ptr_cache_reg(reg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1494 if (ireg && reg!=ireg ) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1495 free_register(ireg);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1496 if (mode) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1497 printf("\tmr %s,%s\n",register_name(reg),register_name(ireg));
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1498 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1499 }
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1500 free_register(creg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1501 regs[reg]=USING_REG;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1502 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1503 creg = ireg = reg;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1504 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1505
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1506 void
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1507 set_freg(int reg,int mode)
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1508 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1509 if (!is_float_reg(reg)) error(-1);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
1510 if (reg!=creg) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1511 if (freg && reg!=freg) {
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1512 free_register(freg);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1513 if (mode) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1514 printf("\tfmr %s,%s\n",fregister_name(reg),fregister_name(freg));
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1515 }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
1516 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1517 // if (creg!=ireg) free_register(creg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1518 regs[reg]=USING_REG;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1519 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1520 creg = freg = reg;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1521 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1522
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1523 void
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1524 set_lreg(int reg,int mode)
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1525 {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1526 if (reg==RET_LREGISTER) {
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1527 regv_l(reg) = RET_LREGISTER_L;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1528 regv_h(reg) = RET_LREGISTER_H;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1529 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1530 if (!is_longlong_reg(reg)) error(-1);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1531 if (reg!=creg) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1532 if (lreg && reg!=lreg) {
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1533 if (mode) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1534 printf("\tmr %s,%s\n",
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1535 lregister_name_low(reg),lregister_name_low(lreg));
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1536 printf("\tmr %s,%s\n",
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1537 lregister_name_high(reg),lregister_name_high(lreg));
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1538 }
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1539 free_register(lreg);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1540 }
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1541 free_register(creg);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1542 regs[reg]=USING_REG;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1543 clear_ptr_cache_reg(regv_l(reg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1544 regs[regv_l(reg)]=USING_REG;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1545 clear_ptr_cache_reg(regv_h(reg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1546 regs[regv_h(reg)]=USING_REG;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1547 }
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
1548 creg = lreg = reg;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1549 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1550
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1551 void
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1552 set_lreg_operand(int reg,int mode)
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
1553 {
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1554 // save_stack,clear_ptr_cache is assmued
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1555 if (!is_longlong_reg(reg)) { error(-1); return; }
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1556 if (mode) {
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1557 if (regv_l(reg)!=3)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1558 printf("\tmr r3,%s\n", lregister_name_high(reg));
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1559 if (regv_l(reg)!=4)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1560 printf("\tmr r4,%s\n", lregister_name_low(reg));
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1561 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1562 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1563
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1564 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1565 set_lreg_operand1(int reg,int mode)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1566 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1567 // save_stack,clear_ptr_cache is assmued
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1568 if (!is_longlong_reg(reg)) { error(-1); return; }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1569 if (mode) {
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1570 if (regv_l(reg)!=5)
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1571 printf("\tmr r5,%s\n", lregister_name_high(reg));
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1572 if (regv_l(reg)!=6)
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1573 printf("\tmr r6,%s\n", lregister_name_low(reg));
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
1574 }
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
1575 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
1576
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
1577 void
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1578 use_reg(int arg)
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1579 {
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
1580 // printf("# use reg %d\n",arg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1581 if (arg<0||arg> REAL_MAX_REGISTER+REAL_MAX_FREGISTER+ REAL_MAX_LREGISTER)
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1582 error(-1);
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
1583 clear_ptr_cache_reg(arg);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1584 regs[arg]=USING_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1585 if (is_longlong_reg(arg)) {
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1586 clear_ptr_cache_reg(regv_l(arg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1587 regs[regv_l(arg)]=USING_REG;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1588 clear_ptr_cache_reg(regv_h(arg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1589 regs[regv_h(arg)]=USING_REG;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1590 }
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1591 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1592
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1593 void
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1594 code_save_input_registers()
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1595 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1596 int args;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1597 NMTBL *n;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1598 int reg;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1599 int tag;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1600 int lvar;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1601 int t;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1602 /* fnptr->dsp=list4(type,fnptr->dsp,(int)n,0); */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1603 int reg_offset = 0;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1604 int offset = 0;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1605
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1606 for(args = fnptr->dsp;args;args = cadr(args)) {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1607 n = (NMTBL *)caddr(args);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1608 tag = n->sc;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1609 reg = n->dsp;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1610 if (!n||n==&null_nptr) error(REG_ERR);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1611 if (tag==REGISTER) {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1612 /* regs[reg]==INPUT_REG case should be considered */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1613 n->dsp = offset;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1614 offset+=SIZE_OF_INT;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1615 t = INT;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1616 reg += reg_offset; /* for duplicated floating point argument */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1617 } else if (tag==DREGISTER) {
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
1618 /* regs[reg]==INPUT_REG case should be considered */
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1619 n->dsp = offset;
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
1620 t = n->ty;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1621 if(t==FLOAT) { offset+=SIZE_OF_FLOAT; reg_offset+=1; }
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1622 else if(t==DOUBLE) { offset+=SIZE_OF_DOUBLE; reg_offset+=2; }
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
1623 else error(-1);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1624 } else if (tag==LREGISTER) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1625 /* regs[reg]==INPUT_REG case should be considered */
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1626 n->dsp = offset;
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1627 t = n->ty;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1628 offset+=SIZE_OF_LONGLONG; reg_offset+=2;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
1629 } else {
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
1630 offset += size(n->ty);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1631 continue;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
1632 }
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1633 n->sc = LVAR;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1634 lvar = list2(LVAR,n->dsp);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1635 g_expr_u(assign_expr0(list2(LVAR,n->dsp),list3(tag,reg,(int)n),n->ty,t));
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1636 if (tag==REGISTER||tag==DREGISTER||tag==FREGISTER||tag==LREGISTER) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1637 free_register(reg);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1638 }
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1639 }
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
1640 my_func_args = offset;
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1641 }
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1642
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1643 static int
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1644 not_simple_p(int e3)
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
1645 {
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1646 return e3==FUNCTION||e3==CONV||e3==RSTRUCT||e3==STASS||
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1647 e3==LLSHIFT||e3==LULSHIFT||e3==LRSHIFT||e3==LURSHIFT||
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1648 e3==LDIV||e3==LUDIV||e3==LMOD||e3==LUMOD;
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
1649 }
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
1650
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
1651 int
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1652 simple_args(int e3)
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1653 {
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
1654 return !contains_in_list_p(e3,not_simple_p);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1655 }
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1656
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1657 int
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1658 caller_arg_offset_v(int arg)
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1659 {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1660 return ARG_LVAR_OFFSET+arg*SIZE_OF_INT;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1661 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1662
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1663 void
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1664 use_input_reg(int reg,int mode)
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1665 {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1666 if (is_int_reg(reg)) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1667 if (ireg&&reg == ireg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1668 if (creg==ireg) creg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1669 ireg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1670 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1671 if (lreg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1672 if (regv_l(lreg)==reg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1673 regs[lreg]=0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1674 if (regv_h(lreg)>reg&&regs[regv_h(lreg)]==USING_REG) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1675 free_register(regv_h(lreg));
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1676 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1677 if (creg==lreg) creg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1678 lreg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1679 } else if (regv_h(lreg)==reg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1680 regs[lreg]=0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1681 if (regv_h(lreg)>reg&&regs[regv_l(lreg)]==USING_REG) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1682 free_register(regv_l(lreg));
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1683 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1684 if (creg==lreg) creg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1685 lreg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1686 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1687 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1688 } else if (is_longlong_reg(reg)) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1689 use_input_reg(regv_h(reg),0);
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1690 use_input_reg(regv_l(reg),0);
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1691 } else if (is_float_reg(reg)) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1692 if (freg&&reg == freg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1693 if (creg==freg) creg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1694 freg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1695 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1696 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1697 if (mode) use_reg(reg);
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1698 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1699
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1700 int
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1701 function(int e1)
917947ffeb7c power pc version
kono
parents:
diff changeset
1702 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1703 int e2,e3,e4,e5,nargs,t,r0,r1;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1704 int arg,reg_arg,freg_arg,arg_assign;
136
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1705 int dots;
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1706 int reg_arg_list=0,ret_type,special_lvar;
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
1707 NMTBL *fn = 0;
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1708 int jmp = 0;
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1709 char *jrn;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1710
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1711 special_lvar = -1;
136
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1712 ret_type = cadr(cadddr(e1));
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1713 if (ret_type==CHAR) ret_type=INT;
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1714
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1715 /* check argments type is DOTS? */
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1716 t = caddr(cadddr(e1));
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1717 if (t==0 || t==DOTS) dots = 1;
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1718 else {
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1719 dots = 0;
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1720 for(t = caddr(cadddr(e1));t;t = cadr(t)) {
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1721 if (car(t)==DOTS) dots = 1;
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1722 }
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1723 }
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1724
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1725 e2 = cadr(e1);
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1726 if (car(e2) == FNAME) {
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1727 fn=(NMTBL *)cadr(e2);
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1728 } else {
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1729 jmp = get_register_var(0);
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1730 if (car(jmp)!=REGISTER) error(-1);
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1731 reg_arg_list = list2(jmp,reg_arg_list);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1732 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1733 if (!is_int_reg(creg)) error(-1);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1734 code_register(creg,cadr(jmp));
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1735 /* g_expr(assign_expr0(jmp,e2,INT,INT)); functions are lvalue */
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1736 }
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1737
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1738 /* now all input register vars are free */
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1739 code_save_stacks();
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1740 // set_lreg(LREG_LREGISTER,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1741 set_freg(FREG_FREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1742 set_ireg(CREG_REGISTER,0);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1743
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1744 nargs = reg_arg = freg_arg = arg_assign = 0;
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1745 for (e3 = reverse0(caddr(e1)); e3; e3 = cadr(e3)) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1746 t=caddr(e3);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1747 e4 = car(e3);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1748 if(scalar(t)) {
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
1749 if (reg_arg>=MAX_INPUT_REGISTER_VAR) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1750 arg = list2(LVAR,caller_arg_offset_v(nargs));
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1751 } else if (!simple_args(e3) && cadr(e3)) {
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1752 arg = get_register_var(0);
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1753 arg_assign = list2(
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1754 assign_expr0(get_input_register_var(reg_arg,0,0),
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1755 arg,t,t),
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1756 arg_assign);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1757 } else {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1758 arg = get_input_register_var(reg_arg,0,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1759 }
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1760 reg_arg_list = list2(arg,reg_arg_list);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1761 /* protect from input register free */
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1762 if (car(arg)==REGISTER)
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1763 use_input_reg(cadr(arg),1);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1764 g_expr_u(assign_expr0(arg,e4,t,t));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1765 nargs ++ ; reg_arg++;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1766 continue;
202
601301152d9c *** empty log message ***
kono
parents: 196
diff changeset
1767 } else if (t==LONGLONG||t==ULONGLONG) {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1768 if (reg_arg>=MAX_INPUT_REGISTER_VAR) {
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1769 arg = list2(LVAR,caller_arg_offset_v(nargs));
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1770 } else if (reg_arg+1>=MAX_INPUT_REGISTER_VAR) {
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1771 // half register, half memory case
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1772 // put whole long long anyway
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1773 arg = list2(LVAR,caller_arg_offset_v(nargs));
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1774 arg_assign = list2(
232
8a23c20ac92d *** empty log message ***
kono
parents: 231
diff changeset
1775 assign_expr0(r0=get_input_register_var(reg_arg,0,0),
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1776 arg,INT,INT),
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1777 arg_assign);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1778 use_input_reg(cadr(r0),1);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1779 } else if (!simple_args(e3) && cadr(e3)) {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
1780 arg = get_lregister_var(0);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1781 if (car(arg)==LREGISTER) {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1782 // r0=get_input_lregiste... is not preserved
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1783 // we cannot mark r0 used, it consumes unused register
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1784 // but get_input_register is preserved.
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1785 arg_assign = list2(
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1786 assign_expr0(get_input_register_var(reg_arg,0,0),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1787 list2(REGISTER,regv_h(cadr(arg))),INT,INT),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1788 list2(
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1789 assign_expr0(get_input_register_var(reg_arg+1,0,0),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1790 list2(REGISTER,regv_l(cadr(arg))),INT,INT),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1791 arg_assign));
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1792 } else {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1793 arg_assign = list2(
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1794 assign_expr0(get_input_register_var(reg_arg,0,0),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1795 list2(LVAR,cadr(arg)+SIZE_OF_INT),INT,INT),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1796 list2(
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1797 assign_expr0(get_input_register_var(reg_arg+1,0,0),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1798 list2(LVAR,cadr(arg)),INT,INT),
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1799 arg_assign));
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1800 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1801 } else {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1802 arg = get_input_lregister_var(reg_arg,0,0);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1803 use_input_reg(cadr(arg),1);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1804 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1805 reg_arg_list = list2(arg,reg_arg_list);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1806 g_expr_u(assign_expr0(arg,e4,t,t));
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1807 nargs ++ ; reg_arg++;
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1808 nargs ++ ; reg_arg++;
202
601301152d9c *** empty log message ***
kono
parents: 196
diff changeset
1809 continue;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1810 } else if (t==DOUBLE||t==FLOAT) {
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1811 if (reg_arg<MAX_INPUT_REGISTER_VAR) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1812 /* sigh...
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1813 printf requies floating value in integer registers
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1814 */
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1815 if (dots) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1816 if (car(e4)==DRLVAR) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1817 special_lvar = cadr(e4);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1818 e5 = list2(LVAR,special_lvar);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1819 } else {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1820 special_lvar = new_lvar(SIZE_OF_DOUBLE);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1821 g_expr(assign_expr0(
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1822 (e5=list2(LVAR,special_lvar)),e4,DOUBLE,t));
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1823 reg_arg_list = list2(e5,reg_arg_list);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1824 e4 = list2(DREGISTER,freg);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1825 /* freg should not change until XXX */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1826 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1827 r0=get_input_register_var(reg_arg,0,0);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1828 r1 = reg_arg+1+MIN_TMP_REG;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1829 if (regs[r1]==PTRC_REG)
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1830 clear_ptr_cache_reg(list2(REGISTER,r1));
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1831 /* else if (regs[r1]) error(-1); */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1832 r1=get_input_register_var_1(reg_arg+1,0,0);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1833 use_input_reg(cadr(r0),1); /* protect from input register free */
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1834 use_input_reg(cadr(r1),1); /* protect from input register free */
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1835 reg_arg_list = list2(r0,reg_arg_list);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1836 reg_arg_list = list2(r1,reg_arg_list);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1837 arg_assign = list2( assign_expr0(r0,e5,INT,INT), arg_assign);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1838 arg_assign = list2( assign_expr0(r1,
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1839 list2(LVAR,special_lvar+SIZE_OF_INT),
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1840 INT,INT), arg_assign);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1841 }
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1842 reg_arg += 2;
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
1843 }
136
069960078249 remove redundant funcall argument for prototyped code in PowerPC case.
kono
parents: 135
diff changeset
1844 if (dots && freg_arg>=4 && freg_arg<MAX_INPUT_DREGISTER_VAR) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1845 /* oh my god!
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1846 it requies integer register and floating register and
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1847 stack value. You are crazy.
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1848 */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1849 arg_assign = list2(
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1850 assign_expr0(list2(LVAR,caller_arg_offset_v(nargs)),
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1851 get_input_dregister_var(freg_arg,0,0,1),t,t),
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1852 arg_assign);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1853 }
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
1854 if (freg_arg>=MAX_INPUT_DREGISTER_VAR) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1855 arg = list2(LVAR,caller_arg_offset_v(nargs));
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1856 } else if (!simple_args(e3) && cadr(e3)) {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1857 arg = get_dregister_var(0,1);
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1858 arg_assign = list2(
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1859 assign_expr0(get_input_dregister_var(freg_arg,0,0,1),
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1860 arg,t,t),
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1861 arg_assign);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1862 } else {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1863 arg = get_input_dregister_var(freg_arg,0,0,1);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1864 }
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1865 reg_arg_list = list2(arg,reg_arg_list);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
1866 if (car(arg)==DREGISTER)
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
1867 use_input_reg(cadr(arg),1); /* protect from input register free */
118
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
1868 g_expr_u(assign_expr0(arg,e4,t,t)); /* XXX */
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1869 freg_arg++;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1870 nargs += size(t)/SIZE_OF_INT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1871 continue;
203
28baf6cd9ad1 *** empty log message ***
kono
parents: 202
diff changeset
1872 } else if (t>=0&&(car(t)==STRUCT||car(t)==UNION)) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1873 arg = list2(LVAR,caller_arg_offset_v(nargs));
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1874 nargs += struct_push(e4,t,arg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1875 continue;
917947ffeb7c power pc version
kono
parents:
diff changeset
1876 } else {
917947ffeb7c power pc version
kono
parents:
diff changeset
1877 error(TYERR);
917947ffeb7c power pc version
kono
parents:
diff changeset
1878 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1879 ++nargs;
917947ffeb7c power pc version
kono
parents:
diff changeset
1880 }
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
1881 if (max_func_args<nargs) max_func_args=nargs;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1882 for(;arg_assign;arg_assign=cadr(arg_assign)) {
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1883 g_expr_u(car(arg_assign));
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1884 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1885 clear_ptr_cache();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1886 if (car(e2) == FNAME) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1887 printf("\tbl\tL_%s$stub\n",fn->nm);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1888 } else {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1889 jrn = register_name(cadr(jmp));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1890 printf("\tmtctr %s\n",jrn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1891 printf("\tbctrl\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
1892 }
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1893 for(;reg_arg_list;reg_arg_list=cadr(reg_arg_list)) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
1894 arg = car(reg_arg_list);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1895 if (car(arg)==REGISTER||car(arg)==DREGISTER||car(arg)==FREGISTER
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1896 ||car(arg)==LREGISTER)
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
1897 free_register(cadr(arg));
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1898 else if (car(arg)==LVAR&&cadr(arg)<0) free_lvar(cadr(arg));
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1899 }
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1900 if (ret_type==DOUBLE||ret_type==FLOAT) {
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
1901 set_freg(RET_FREGISTER,0);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1902 } else if (ret_type==ULONGLONG||ret_type==LONGLONG) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1903 set_lreg(RET_LREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1904 use_reg(RET_LREGISTER);
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1905 } else if (ret_type==VOID) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1906 } else {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1907 set_ireg(RET_REGISTER,0);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1908 }
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1909 return ret_type;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1910 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1911
917947ffeb7c power pc version
kono
parents:
diff changeset
1912 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1913 code_frame_pointer(int e3) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1914 use_int(e3);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1915 #if R1SAVE
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1916 printf("\tmr r1,%s\n",register_name(e3));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1917 #else
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1918 printf("\tmr r30,%s\n",register_name(e3));
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1919 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1920 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1921
917947ffeb7c power pc version
kono
parents:
diff changeset
1922
917947ffeb7c power pc version
kono
parents:
diff changeset
1923 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1924 code_fix_frame_pointer(int disp_offset) {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1925 int l = 0;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1926 printf("\tla r30,");
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1927 printf("lo16(%d+L_%d)(r30)\n",FUNC_LVAR,lvar_offset_label);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1928 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1929
917947ffeb7c power pc version
kono
parents:
diff changeset
1930 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1931 code_jmp(char *s) {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1932 max_reg_var = REG_VAR_BASE-REG_VAR_MIN;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1933 max_freg_var = FREG_VAR_BASE-FREG_VAR_MIN;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1934 printf("\tb L_%s$stub\n",s);
917947ffeb7c power pc version
kono
parents:
diff changeset
1935 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1936
917947ffeb7c power pc version
kono
parents:
diff changeset
1937
917947ffeb7c power pc version
kono
parents:
diff changeset
1938 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1939 code_indirect_jmp(int e2) {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1940 max_reg_var = REG_VAR_BASE-REG_VAR_MIN;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1941 max_freg_var = FREG_VAR_BASE-FREG_VAR_MIN;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1942 use_int(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1943 printf("\tmtctr %s\n",register_name(e2));
917947ffeb7c power pc version
kono
parents:
diff changeset
1944 printf("\tbctr\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
1945 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1946
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1947 int
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1948 code_rindirect(int e1, int reg,int offset, int us)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1949 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1950 char *crn,*rrn;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1951 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1952 if (!is_int_reg(creg)) error(-1);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
1953 crn=register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1954 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1955 rrn=register_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1956 printf("\tlwz %s,%d(%s)\n",rrn,offset,crn);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1957 return us?UNSIGNED:INT;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1958 }
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1959
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1960 int
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1961 code_crindirect(int e1, int reg,int offset, int sign)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1962 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1963 char *crn,*rrn;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1964 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1965 if (!is_int_reg(creg)) error(-1);
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1966 crn=register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1967 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1968 rrn=register_name(reg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1969 printf("\tlbz %s,%d(%s)\n",rrn,offset,crn);
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1970 if (sign) {
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1971 cext(sign,1,reg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1972 return CHAR;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1973 }
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1974 return UCHAR;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1975 }
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1976
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1977 int
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1978 code_srindirect(int e1, int reg,int offset, int sign)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1979 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1980 char *crn,*rrn;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1981 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1982 if (!is_int_reg(creg)) error(-1);
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1983 crn=register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1984 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1985 rrn = register_name(reg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1986 printf("\tlhz %s,%d(%s)\n",rrn,offset,crn);
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1987 if (sign) {
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1988 cext(sign,SIZE_OF_SHORT,reg);
165
kono
parents: 164
diff changeset
1989 return SHORT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1990 }
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1991 return USHORT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1992 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1993
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1994 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1995 int
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1996 code_drindirect(int e1, int reg,int offset, int d)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1997 {
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1998 char *crn;
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
1999 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2000 if (!is_int_reg(creg)) error(-1);
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2001 crn=register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2002 use_float(d,reg);
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2003 printf("\t%s %s,%d(%s)\n",fload(d),
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2004 fregister_name(reg),offset,crn);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2005 return d?DOUBLE:FLOAT;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2006 }
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2007 #endif
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2008
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2009 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2010 int
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2011 code_lrindirect(int e1, int reg, int offset, int us)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2012 {
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2013 char *crn;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2014 int creg0;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2015
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2016 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2017 if (!is_int_reg(creg)) error(-1);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2018 crn=register_name(creg0=creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2019 use_longlong(reg);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2020 if (creg0!=regv_h(reg)) {
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2021 printf("\tlwz %s,%d(%s)\n",lregister_name_high(reg),offset,crn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2022 printf("\tlwz %s,%d(%s)\n",lregister_name_low(reg),offset+SIZE_OF_INT,crn);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2023 } else {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2024 printf("\tlwz %s,%d(%s)\n",lregister_name_low(reg),offset+SIZE_OF_INT,crn);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2025 printf("\tlwz %s,%d(%s)\n",lregister_name_high(reg),offset,crn);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2026 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2027 return us?ULONGLONG:LONGLONG;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2028 }
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2029 #endif
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2030
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2031
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2032 void
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2033 code_assign_gvar(int e2,int creg,int byte) {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2034 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2035 use_int(creg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2036 r = get_ptr_cache((NMTBL*)cadr(e2));
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2037 code_assign(r,byte,creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2038 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2039
917947ffeb7c power pc version
kono
parents:
diff changeset
2040 void
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2041 code_assign_lvar(int e2,int creg,int byte) {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2042 char *crn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2043 use_int(creg);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2044 crn=register_name(creg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2045 lvar_intro(e2);
165
kono
parents: 164
diff changeset
2046 if (byte==1) {
kono
parents: 164
diff changeset
2047 printf("\tstb %s,",crn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2048 } else if (byte==SIZE_OF_SHORT) {
165
kono
parents: 164
diff changeset
2049 printf("\tsth %s,",crn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2050 } else {
165
kono
parents: 164
diff changeset
2051 printf("\tstw %s,",crn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2052 }
165
kono
parents: 164
diff changeset
2053 lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2054 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2055
917947ffeb7c power pc version
kono
parents:
diff changeset
2056 void
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2057 code_assign_register(int e2,int byte,int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2058 use_int(creg);
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2059 if (e2!=creg)
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2060 printf("\tmr %s,%s\n",register_name(e2),register_name(creg));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2061 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2062
917947ffeb7c power pc version
kono
parents:
diff changeset
2063 void
118
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
2064 code_assign(int e2,int byte,int creg) {
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2065 char *drn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2066 char *crn;
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2067 use_int(e2);
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2068 drn=register_name(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2069 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2070 crn=register_name(creg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2071
165
kono
parents: 164
diff changeset
2072 if (byte==1) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2073 printf("\tstb %s,0(%s)\n",crn,drn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2074 } else if (byte==SIZE_OF_SHORT) {
165
kono
parents: 164
diff changeset
2075 printf("\tsth %s,0(%s)\n",crn,drn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2076 } else {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2077 printf("\tstw %s,0(%s)\n",crn,drn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2078 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2079 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2080
917947ffeb7c power pc version
kono
parents:
diff changeset
2081
917947ffeb7c power pc version
kono
parents:
diff changeset
2082 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2083 code_register_assop(int e2,int reg, int op,int byte) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2084 // reg <= reg(e2) op=reg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2085 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2086 tosop(op,e2,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2087 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2088
917947ffeb7c power pc version
kono
parents:
diff changeset
2089 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2090 code_assop(int op,int creg, int byte,int sign) {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2091 char *xrn,*crn,*drn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2092 int xreg;
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2093 int edx = get_register(); if(!edx) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2094 // (*creg) op = pop()
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2095
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2096 use_int(creg);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
2097 xrn = register_name(xreg = emit_pop(0)); /* pop e3 value */
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
2098 printf("# assop\n\tmr %s,%s\n",register_name(edx),register_name(creg));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2099 ld_indexx(byte,0,edx,creg,sign);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2100 tosop(op,creg,xreg);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2101 crn = register_name(creg);
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2102 drn = register_name(edx);
165
kono
parents: 164
diff changeset
2103 if (byte==1) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2104 printf("\tstb %s,0(%s)\n",crn,drn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2105 } else if (byte==SIZE_OF_SHORT) {
165
kono
parents: 164
diff changeset
2106 printf("\tsth %s,0(%s)\n",crn,drn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2107 } else {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2108 printf("\tstw %s,0(%s)\n",crn,drn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2109 }
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2110 free_register(edx);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2111 emit_pop_free(xreg);
917947ffeb7c power pc version
kono
parents:
diff changeset
2112 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2113
917947ffeb7c power pc version
kono
parents:
diff changeset
2114
917947ffeb7c power pc version
kono
parents:
diff changeset
2115 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2116 tosop(int op,int creg,int oreg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2117 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2118 int dx = -1;
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2119 int ox = -1;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2120 char *orn,*crn,*drn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2121 // creg = creg op oreg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2122
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2123 use_int(creg);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2124 if(oreg==-1) {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2125 error(-1);
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2126 } else if (oreg<= -REG_LVAR_OFFSET) {
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2127 ox = get_register(); if (ox<0) error(-1);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2128 code_rlvar(oreg+REG_LVAR_OFFSET,ox);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2129 oreg = ox;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2130 }
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2131
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2132 switch(op) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2133 case LSHIFT:
917947ffeb7c power pc version
kono
parents:
diff changeset
2134 case ULSHIFT:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2135 shift("slw",creg,oreg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2136 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2137 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2138 case RSHIFT:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2139 shift("sraw",creg,oreg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2140 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2141 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2142 case URSHIFT:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2143 shift("srw",creg,oreg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2144 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2145 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2146 }
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
2147 orn = register_name(oreg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2148 crn = register_name(creg);
917947ffeb7c power pc version
kono
parents:
diff changeset
2149 switch(op) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2150 case ADD:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2151 printf("\tadd %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2152 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2153 case SUB:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2154 printf("\tsub %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2155 break;
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
2156 case CMP:
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
2157 printf("\tcmpw cr0,%s,%s\n",crn,orn);
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
2158 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2159 case BAND:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2160 printf("\tand %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2161 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2162 case EOR:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2163 printf("\txor %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2164 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2165 case BOR:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2166 printf("\tor %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2167 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2168 case MUL:
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2169 printf("\tmullw %s,%s,%s\n",crn,crn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2170 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2171 case UMUL:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2172 printf("\tmullw %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2173 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2174 case DIV:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2175 printf("\tdivw %s,%s,%s\n",crn,crn,orn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2176 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2177 case UDIV:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2178 printf("\tdivwu %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2179 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2180 case MOD:
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2181 dx=get_register();
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2182 drn = register_name(dx);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2183 printf("\tdivw %s,%s,%s\n",drn,crn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2184 printf("\tmullw %s,%s,%s\n",drn,drn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2185 printf("\tsubf %s,%s,%s\n",crn,drn,crn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2186 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2187 case UMOD:
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2188 dx=get_register();
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2189 drn = register_name(dx);
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
2190 printf("\tdivwu %s,%s,%s\n",drn,crn,orn);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2191 printf("\tmullw %s,%s,%s\n",drn,drn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2192 printf("\tsubf %s,%s,%s\n",crn,drn,crn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2193 break;
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
2194 default:
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
2195 error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2196 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2197 if(dx!=-1) free_register(dx);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
2198 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2199 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2200
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2201 int
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2202 code_const_op_p(int op,int v)
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2203 {
240
b59364f5b030 *** empty log message ***
kono
parents: 239
diff changeset
2204 if (car(v)!=CONST) return 0;
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2205 if (op==BAND||op==DIV||op==UDIV||op==MOD||op==UMOD) return 0;
240
b59364f5b030 *** empty log message ***
kono
parents: 239
diff changeset
2206 v = cadr(v);
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
2207 return (-32766<v&&v<32767);
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2208 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2209
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2210 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2211 oprtc(int op,int creg, int v)
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2212 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2213 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2214 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2215 crn = register_name(creg);
240
b59364f5b030 *** empty log message ***
kono
parents: 239
diff changeset
2216 v = cadr(v);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2217
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2218 switch(op) {
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2219 case LSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2220 case ULSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2221 printf("\tslwi %s,%s,%d\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2222 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2223 case RSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2224 printf("\tsrawi %s,%s,%d\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2225 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2226 case URSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2227 printf("\tsrwi %s,%s,%d\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2228 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2229 case ADD:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2230 printf("\taddi %s,%s,lo16(%d)\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2231 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2232 case SUB:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2233 printf("\taddi %s,%s,lo16(-%d)\n",crn,crn,v);
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2234 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2235 case CMP:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2236 printf("\tcmpwi cr0,%s,lo16(%d)\n",crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2237 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2238 case EOR:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2239 printf("\txori %s,%s,lo16(%d)\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2240 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2241 case BOR:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2242 printf("\tori %s,%s,lo16(%d)\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2243 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2244 case MUL:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2245 printf("\tmulli %s,%s,lo16(%d)\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2246 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2247 case UMUL:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2248 printf("\tmulli %s,%s,lo16(%d)\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2249 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2250 default:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2251 error(-1);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2252 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
2253 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2254
917947ffeb7c power pc version
kono
parents:
diff changeset
2255 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2256 shift(char *op, int creg, int reg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2257 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2258 char *crn;
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
2259 char *rrn = register_name(reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2260 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2261 crn = register_name(creg);
186
6391432ca002 nkf binary fix
kono
parents: 185
diff changeset
2262 printf("\t%s %s,%s,%s\n",op,crn,crn,rrn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2263 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2264
917947ffeb7c power pc version
kono
parents:
diff changeset
2265 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2266 ld_indexx(int byte, int n, int xreg,int creg, int sign)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2267 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2268 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2269 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2270 crn = register_name(creg);
246
0dcc0ec81ed2 MIPS on going (90%)
kono
parents: 245
diff changeset
2271 printf("\t%s %s,%d(%s)\n",cload(byte),register_name(creg),n,
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2272 register_name(xreg));
246
0dcc0ec81ed2 MIPS on going (90%)
kono
parents: 245
diff changeset
2273 cext(sign,byte,creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2274 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2275
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2276 int
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2277 code_csvalue()
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2278 {
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2279 return creg;
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2280 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2281
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2282 void
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2283 code_cmpdimm(int e, int csreg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2284 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2285 /* used in dosiwtch() */
917947ffeb7c power pc version
kono
parents:
diff changeset
2286 if(chk) return;
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2287 printf("\tcmpwi cr0,%s,%d\n",register_name(csreg),e);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2288 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2289
917947ffeb7c power pc version
kono
parents:
diff changeset
2290 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2291 code_opening(char *filename)
917947ffeb7c power pc version
kono
parents:
diff changeset
2292 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2293 printf("\t.file \"%s\"\n",filename);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2294 /* printf("\t.version\t\"01.01\"\n"); */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2295 /* printf("gcc2_compiled.:\n"); */
917947ffeb7c power pc version
kono
parents:
diff changeset
2296 printf(".text\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2297 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2298
917947ffeb7c power pc version
kono
parents:
diff changeset
2299 void
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2300 rexpr(int e1, int l1, char *s,int t)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2301 {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2302 g_expr(list3(CMP,cadr(e1),caddr(e1)));
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2303 printf("\tb%s cr0,L_%d\n",s,l1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2304 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2305
917947ffeb7c power pc version
kono
parents:
diff changeset
2306
917947ffeb7c power pc version
kono
parents:
diff changeset
2307 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2308 jcond(int l, char cond)
917947ffeb7c power pc version
kono
parents:
diff changeset
2309 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2310 if (chk) return;
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2311 printf("\tb%s cr0,L_%d\n",cond?"ne":"eq",l);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2312 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2313
917947ffeb7c power pc version
kono
parents:
diff changeset
2314 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2315 jmp(int l)
917947ffeb7c power pc version
kono
parents:
diff changeset
2316 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2317 control=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
2318 if (chk) return;
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2319 printf("\tb\tL_%d\n",l);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2320 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2321
917947ffeb7c power pc version
kono
parents:
diff changeset
2322 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2323 gen_comment(char *s)
917947ffeb7c power pc version
kono
parents:
diff changeset
2324 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2325 if (chk) return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2326 printf("## %s",s);
917947ffeb7c power pc version
kono
parents:
diff changeset
2327 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2328
917947ffeb7c power pc version
kono
parents:
diff changeset
2329 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2330 code_enter(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
2331 {
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2332 if (output_mode!=TEXT_EMIT_MODE)
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2333 text_mode();
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2334 else
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2335 printf("\t.align 2\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2336 if (stmode!=STATIC)
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2337 printf(".globl _%s\n",name);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2338 #ifdef DOT_SIZE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2339 printf("\t.type\t%s,@function\n",name);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2340 #endif
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
2341 printf("_%s:\n",name);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2342 code_disp_label=fwdlabel();
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2343 printf("\tla r1,lo16(L_%d)(r30)\n",code_disp_label);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2344 printf("\tbcl 20,31,L_%d\n",code_base = fwdlabel());
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2345 fwddef(code_base);
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2346 printf("\tmflr r31\n");
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2347 max_func_args = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2348 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2349
917947ffeb7c power pc version
kono
parents:
diff changeset
2350
917947ffeb7c power pc version
kono
parents:
diff changeset
2351 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2352 code_enter1(int args)
917947ffeb7c power pc version
kono
parents:
diff changeset
2353 {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2354 // set_lreg(LREG_LREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2355 set_ireg(CREG_REGISTER,0);
106
3618c0efe9d3 fix save_input_register
kono
parents: 105
diff changeset
2356 set_freg(FREG_FREGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2357 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2358
917947ffeb7c power pc version
kono
parents:
diff changeset
2359 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2360 code_leave(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
2361 {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2362 int r1_offsetv;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2363 disp&= -SIZE_OF_INT;
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2364 r1_offsetv = -disp+max_func_args*SIZE_OF_INT+code_disp_offset;
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2365
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2366 printf(".set L_%d,%d\n",code_disp_label,-r1_offsetv);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2367 local_table();
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2368 // free_all_register();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2369 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2370
917947ffeb7c power pc version
kono
parents:
diff changeset
2371 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2372 enter(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
2373 {
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2374 if (output_mode!=TEXT_EMIT_MODE)
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2375 text_mode();
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2376 else
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2377 printf("\t.align 2\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2378 if (stmode!=STATIC)
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
2379 printf(".globl _%s\n",name);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2380 /*
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2381 printf("\t.type\t%s,@function\n",name);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2382 */
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
2383 printf("_%s:\n",name);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2384 code_setup=fwdlabel();
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2385 printf("\tmflr r0\n");
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2386 printf("\tbl L_%d\n",code_setup);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2387 code_base=fwdlabel();
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2388 fwddef(code_base);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2389 r1_offset_label = fwdlabel();
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2390 lvar_offset_label = fwdlabel();
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2391 printf("\tstwu r1,lo16(-L_%d)(r1)\n",r1_offset_label);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2392 printf("\tmr r30,r1\n");
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2393 printf("\tmflr r31\n");
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2394 max_func_args = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2395 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2396
917947ffeb7c power pc version
kono
parents:
diff changeset
2397 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2398 enter1()
917947ffeb7c power pc version
kono
parents:
diff changeset
2399 {
182
e1e9ec8c96a7 some fix
kono
parents: 178
diff changeset
2400 text_mode();
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2401 // set_lreg(LREG_LREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2402 set_ireg(CREG_REGISTER,0);
106
3618c0efe9d3 fix save_input_register
kono
parents: 105
diff changeset
2403 set_freg(FREG_FREGISTER,0);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2404 }
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2405
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2406 int
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2407 reg_save_offset()
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2408 {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2409 return -(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2410 (REAL_MAX_REGISTER-(REG_VAR_BASE-max_reg_var))*SIZE_OF_INT+
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2411 (REAL_MAX_FREGISTER-(FREG_VAR_BASE-max_freg_var))*SIZE_OF_DOUBLE
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2412 );
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2413 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2414
917947ffeb7c power pc version
kono
parents:
diff changeset
2415 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2416 leave(int control, char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
2417 {
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
2418 int retcont1=0,sz;
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2419
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2420 if (max_freg_var>=0 && max_freg_var<=3) max_freg_var=3;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2421 reg_save = reg_save_offset();
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2422
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2423 if (control) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2424 code_set_return_register(1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2425 }
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2426 if (retcont) {
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2427 if (control) jmp(retlabel);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2428 retcont1 = fwdlabel();
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2429 fwddef(retcont);
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2430 if (cadr(fnptr->ty)==FLOAT||cadr(fnptr->ty)==DOUBLE) {
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2431 printf("\tfmr f1,f31\n");
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2432 } else if (cadr(fnptr->ty)>0&&(
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2433 car(cadr(fnptr->ty))==STRUCT ||
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2434 car(cadr(fnptr->ty))==UNION)) {
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2435 sz = size(cadr(fnptr->ty));
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2436 printf("\tli r7,%d\n",sz);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2437 printf("\tsubl r6,r7,r30\n");
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2438 printf("\tlwz r3,lo16(%d)(r30)\n",(my_func_args-1)*SIZE_OF_INT);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2439 emit_copy(6,3,sz,0,1,1);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2440 } else if (cadr(fnptr->ty)!=VOID) {
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2441 printf("\tmr r3,r29\n");
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2442 }
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2443 #if !R1SAVE
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2444 printf("\tla r1,lo16(%d)(r30)\n",
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2445 -reg_save+my_func_args*SIZE_OF_INT);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2446 #endif
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2447 printf("\tb L_%d\n",retcont1);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2448 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2449 fwddef(retlabel);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2450 printf("\tlwz r1,0(r1)\n");
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2451 if (retcont) {
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2452 fwddef(retcont1);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2453 }
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2454 if (max_freg_var>=0) {
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2455 printf("\tlmw r%d,%d(r1)\n",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2456 REG_VAR_BASE-max_reg_var,reg_save);
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2457 freg_save = 72-(REAL_MAX_FREGISTER-(FREG_VAR_BASE-max_freg_var))*4;
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2458 printf("\tb restFP+%d ; restore f%d-f31\n",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2459 freg_save,
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2460 FREG_VAR_BASE-max_freg_var);
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2461 } else {
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2462 printf("\tlwz r0,8(r1)\n");
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2463 printf("\tmtlr r0\n");
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2464 printf("\tlmw r%d,%d(r1)\n",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2465 REG_VAR_BASE-max_reg_var,reg_save);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2466 printf("\tblr\n");
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2467 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2468
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2469 disp &= -SIZE_OF_INT;
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2470 fwddef(code_setup);
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2471 printf("\tstmw r%d,%d(r1)\n",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2472 REG_VAR_BASE-max_reg_var,reg_save);
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2473 printf("\tstw r0,8(r1)\n");
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2474 if (max_freg_var>=0)
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2475 printf("\tb saveFP+%d ; save f%d-f31\n",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2476 freg_save,
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2477 FREG_VAR_BASE-max_freg_var);
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2478 else {
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2479 printf("\tblr\n");
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
2480 }
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
2481
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2482 code_offset_set();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2483 local_table();
917947ffeb7c power pc version
kono
parents:
diff changeset
2484 labelno++;
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2485 // free_all_register();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2486 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2487
917947ffeb7c power pc version
kono
parents:
diff changeset
2488
917947ffeb7c power pc version
kono
parents:
diff changeset
2489 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
2490 code_set_return_register(int mode) {
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2491 if (cadr(fnptr->ty)==DOUBLE||cadr(fnptr->ty)==FLOAT) {
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
2492 set_freg(RET_FREGISTER,mode);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2493 } else if (cadr(fnptr->ty)==LONGLONG||cadr(fnptr->ty)==ULONGLONG) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2494 set_lreg(RET_LREGISTER,mode);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2495 } else if (cadr(fnptr->ty)==VOID) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2496 } else {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2497 set_ireg(RET_REGISTER,mode);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2498 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2499 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2500
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2501 int
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2502 code_get_fixed_creg(int reg,int type) {
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2503 return creg;
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2504 }
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2505
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2506 void
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2507 code_set_fixed_creg(int reg,int mode,int type) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2508 if (type==FLOAT||type==DOUBLE) {
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
2509 set_freg(reg,mode);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2510 } else if (type==LONGLONG||type==ULONGLONG) {
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2511 set_lreg(reg,mode);
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
2512 // use_reg(reg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2513 } else {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2514 set_ireg(reg,mode);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2515 }
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
2516 }
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
2517
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
2518 void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2519 gen_gdecl(char *n, int gpc)
917947ffeb7c power pc version
kono
parents:
diff changeset
2520 {
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2521 /*
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2522 if (stmode!=STATIC)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2523 printf(".globl _%s\n",n);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2524 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2525 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2526
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2527 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2528
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2529 align(int t)
917947ffeb7c power pc version
kono
parents:
diff changeset
2530 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2531 if (t!=CHAR) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2532 if (data_alignment & 1)
917947ffeb7c power pc version
kono
parents:
diff changeset
2533 printf("\t.align 2\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2534 data_alignment = 0;
917947ffeb7c power pc version
kono
parents:
diff changeset
2535 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2536 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2537
917947ffeb7c power pc version
kono
parents:
diff changeset
2538 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2539 emit_data(int e, int t, NMTBL *n)
917947ffeb7c power pc version
kono
parents:
diff changeset
2540 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2541 int l;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2542 #if FLOAT_CODE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2543 double d;
917947ffeb7c power pc version
kono
parents:
diff changeset
2544 float f;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2545 #endif
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2546 #if LONGLONG_CODE
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2547 long long ll;
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2548 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2549 char *name;
917947ffeb7c power pc version
kono
parents:
diff changeset
2550 name = n->nm;
156
da529eab5618 static initialization
kono
parents: 153
diff changeset
2551 if(mode!=GDECL && mode!=STADECL) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2552 error(-1); return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2553 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2554 if (chk) return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2555 if (n->dsp != -1) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2556 n->dsp = -1; /* initiallized flag */
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2557 printf(".globl\t_%s\n",name);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2558 data_mode(name);
917947ffeb7c power pc version
kono
parents:
diff changeset
2559 align(t);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2560 printf("_%s:\n",name);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2561 } else {
917947ffeb7c power pc version
kono
parents:
diff changeset
2562 data_mode(0);
917947ffeb7c power pc version
kono
parents:
diff changeset
2563 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2564 if(car(e)==CONST) {
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
2565 if (t==CHAR||t==UCHAR) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2566 printf("\t.byte %d\n",cadr(e));
917947ffeb7c power pc version
kono
parents:
diff changeset
2567 if (data_alignment>0)
917947ffeb7c power pc version
kono
parents:
diff changeset
2568 data_alignment++;
917947ffeb7c power pc version
kono
parents:
diff changeset
2569 gpc += 1;
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
2570 } else if (t==SHORT||t==USHORT) {
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
2571 printf("\t.short %d\n",cadr(e));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2572 if (data_alignment>0) data_alignment++;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2573 gpc += SIZE_OF_SHORT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2574 } else {
917947ffeb7c power pc version
kono
parents:
diff changeset
2575 printf("\t.long %d\n",cadr(e));
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2576 gpc += SIZE_OF_INT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2577 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2578 #if LONGLONG_CODE
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2579 } else if(t==LONGLONG||t==ULONGLONG) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2580 ll = lcadr(e);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2581 printf("\t.long\t0x%x,0x%x\n",code_l2(ll),code_l1(ll));
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2582 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2583 #if FLOAT_CODE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2584 } else if(t==DOUBLE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2585 d = dcadr(e);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2586 printf("\t.long\t0x%x,0x%x\n",code_d2(d),code_d1(d));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2587 } else if(t==FLOAT) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2588 f = dcadr(e);
917947ffeb7c power pc version
kono
parents:
diff changeset
2589 printf("\t.long\t0x%x\n",*(int *)&f);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2590 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2591 } else if(t!=CHAR) {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2592 gpc += SIZE_OF_INT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2593 if(car(e)==ADDRESS&&car(cadr(e))==GVAR) {
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2594 printf("\t.long _%s\n",((NMTBL *)cadr(cadr(e)))->nm);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2595 } else if(car(e)==FNAME) {
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2596 printf("\t.long _%s\n",((NMTBL *)cadr(e))->nm);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2597 } else if(car(e)==GVAR) {
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2598 printf("\t.long _%s\n",((NMTBL *)cadr(e))->nm);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2599 } else if(car(e)==STRING) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2600 if (car(n->ty)!=ARRAY || cadr(n->ty)!=CHAR) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2601 l = fwdlabel();
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2602 printf("\t.long L_%d\n",l);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2603 printf(".cstring\n\t.align 2\n");
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2604 printf("L_%d:\n",l);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2605 output_mode = RODATA_EMIT_MODE;
917947ffeb7c power pc version
kono
parents:
diff changeset
2606 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2607 ascii((char *)cadr(e));
917947ffeb7c power pc version
kono
parents:
diff changeset
2608 } else error(TYERR);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
2609 } else error(TYERR);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2610 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2611
917947ffeb7c power pc version
kono
parents:
diff changeset
2612 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2613 emit_data_closing(NMTBL *n)
917947ffeb7c power pc version
kono
parents:
diff changeset
2614 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2615 #ifdef DOT_SIZE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2616 int lb;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2617 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2618 if (chk) return;
917947ffeb7c power pc version
kono
parents:
diff changeset
2619 if (mode==GDECL) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2620 data_mode(0);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2621 #ifdef DOT_SIZE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2622 lb=fwdlabel();
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2623 printf("L_%d:\n",lb);
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2624 printf("\t.size\t%s,L_%d-%s\n",n->nm,lb,n->nm);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
2625 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2626 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2627 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2628
917947ffeb7c power pc version
kono
parents:
diff changeset
2629 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2630 global_table(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
2631 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2632 NMTBL *n;
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
2633 int init; char *extrn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2634 init=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
2635 for(n=ntable;n < &ntable[GSYMS];n++) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2636 if ((n->sc == GVAR) && n->dsp != -1) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2637 /* n->dsp = -1 means initialized global */
917947ffeb7c power pc version
kono
parents:
diff changeset
2638 if (init==0) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2639 data_mode(0);
917947ffeb7c power pc version
kono
parents:
diff changeset
2640 init=1;
917947ffeb7c power pc version
kono
parents:
diff changeset
2641 }
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2642 printf(".comm _%s,%d\n",n->nm,size(n->ty));
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2643 } else if ((n->sc==STATIC) && n->dsp != -1) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2644 /* n->dsp = -1 means initialized global */
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2645 if (init==0) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2646 data_mode(0);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2647 init=1;
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2648 }
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2649 printf(".lcomm _%s,%d\n",n->nm,size(n->ty));
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2650 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2651 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2652 for(n=ntable;n < &ntable[GSYMS];n++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2653 if (is_code(n)||is_function(n)) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2654 extrn = n->nm;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2655 if (n->sc==EXTRN1) {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2656 data_mode(0);
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2657 printf(".picsymbol_stub\n");
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2658 printf("L_%s$stub:\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2659 printf("\t.indirect_symbol _%s\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2660 printf("\tmflr r0\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2661 printf("\tbcl 20,31,L0$_%s\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2662 printf("L0$_%s:\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2663 printf("\tmflr r11\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2664 printf("\taddis r11,r11,ha16(L_%s$lazy_ptr-L0$_%s)\n",extrn,extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2665 printf("\tmtlr r0\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2666 printf("\tlwz r12,lo16(L_%s$lazy_ptr-L0$_%s)(r11)\n",extrn,extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2667 printf("\tmtctr r12\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2668 printf("\taddi r11,r11,lo16(L_%s$lazy_ptr-L0$_%s)\n",extrn,extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2669 printf("\tbctr\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2670 printf(".data\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2671 printf(".lazy_symbol_pointer\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2672 printf("L_%s$lazy_ptr:\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2673 printf("\t.indirect_symbol _%s\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2674 printf("\t.long dyld_stub_binding_helper\n");
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2675 } else if (n->sc==FUNCTION||n->sc==CODE) {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2676 text_mode();
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2677 printf("\t.set L_%s$stub,_%s\n",extrn,extrn);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2678 data_mode(0);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2679 printf("L_%s$non_lazy_ptr:\n\t.long\t_%s\n",extrn,extrn);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2680 }
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2681 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2682 }
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2683 init=0;
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2684 for(n=ntable;n < &ntable[GSYMS];n++) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2685 if (n->sc == GVAR) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2686 if (init==0) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2687 printf(".data\n");
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2688 init=1;
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2689 }
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2690 printf("L_%s$non_lazy_ptr:\n\t.long\t_%s\n",n->nm,n->nm);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2691 }
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2692 }
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2693 init = 0;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2694 for(n=ntable;n < &ntable[GSYMS];n++) {
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2695 if (is_code(n)||is_function(n)) continue;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2696 if (n->sc==EXTRN1) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2697 if(init==0) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2698 printf(".data\n");
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2699 printf(".non_lazy_symbol_pointer\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2700 init=1;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2701 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2702 printf("L_%s$non_lazy_ptr:\n",n->nm);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2703 printf("\t.indirect_symbol _%s\n",n->nm);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2704 printf("\t.long\t0\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2705 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2706 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2707 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2708
917947ffeb7c power pc version
kono
parents:
diff changeset
2709 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2710 local_table(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
2711 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2712 NMTBL *n;
917947ffeb7c power pc version
kono
parents:
diff changeset
2713 int init;
917947ffeb7c power pc version
kono
parents:
diff changeset
2714 init=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
2715 /* static local variables */
917947ffeb7c power pc version
kono
parents:
diff changeset
2716 for(n=ntable+GSYMS;n < &ntable[GSYMS+LSYMS];n++) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2717 if (n->sc == GVAR) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2718 if (init==0) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2719 data_mode(0);
917947ffeb7c power pc version
kono
parents:
diff changeset
2720 init=1;
917947ffeb7c power pc version
kono
parents:
diff changeset
2721 }
156
da529eab5618 static initialization
kono
parents: 153
diff changeset
2722 if (n->dsp != -1) /* initialized static */
da529eab5618 static initialization
kono
parents: 153
diff changeset
2723 printf(".lcomm _%s,%d\n",n->nm,size(n->ty));
da529eab5618 static initialization
kono
parents: 153
diff changeset
2724 printf("L_%s$non_lazy_ptr:\n\t.long\t_%s\n",n->nm,n->nm);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2725 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2726 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2727 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2728
917947ffeb7c power pc version
kono
parents:
diff changeset
2729 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2730 text_mode(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
2731 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2732 if (output_mode!=TEXT_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2733 printf(".text\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2734 printf("\t.align 2\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2735 output_mode = TEXT_EMIT_MODE;
917947ffeb7c power pc version
kono
parents:
diff changeset
2736 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2737 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2738
917947ffeb7c power pc version
kono
parents:
diff changeset
2739 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2740 data_mode(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
2741 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2742 if (output_mode!=DATA_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2743 printf(".data\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2744 output_mode = DATA_EMIT_MODE;
917947ffeb7c power pc version
kono
parents:
diff changeset
2745 }
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2746 /*
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2747 if (name)
917947ffeb7c power pc version
kono
parents:
diff changeset
2748 printf("\t.type\t%s,@object\n",name);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2749 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2750 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2751
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2752 #if FLOAT_CODE
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2753
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2754 /* floating point */
917947ffeb7c power pc version
kono
parents:
diff changeset
2755
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2756 static int float_one_lib_used=0;
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2757 static char *float_one_lib[] = {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2758 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2759 /* ".literal8", */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2760 " .align 3",
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2761 "__float_one:",
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2762 " .long 1065353216",
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2763 ".text",
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2764 /* ".set L__float_one$non_lazy_ptr,__float_one", */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2765 0
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2766 };
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2767 static int float_zero_lib_used=0;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2768 static char *float_zero_lib[] = {
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2769 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2770 /* ".literal8", */
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2771 " .align 3",
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2772 "__float_zero:",
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2773 " .long 0",
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2774 ".text",
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2775 /* ".set L__float_zero$non_lazy_ptr,__float_zero", */
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2776 0
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2777 };
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2778
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2779 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
2780 fstore(int d)
917947ffeb7c power pc version
kono
parents:
diff changeset
2781 {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2782 return (d?"stfd":"stfs");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2783 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2784
917947ffeb7c power pc version
kono
parents:
diff changeset
2785 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
2786 fload(int d)
917947ffeb7c power pc version
kono
parents:
diff changeset
2787 {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2788 return d?"lfd":"lfs";
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2789 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2790
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2791 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2792 code_cmp_dregister(int e2,int d)
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2793 {
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2794 char *frn,*rrn,*grn;
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2795 int greg,r;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2796 grn = register_name(greg = get_dregister(d));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2797 use_float(d,e2);
132
07eb1249f07a *** empty log message ***
kono
parents: 131
diff changeset
2798 frn = register_name(e2);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2799 float_zero_lib_used=1;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2800 r = get_ptr_cache(&float_zero);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2801 rrn = register_name(r);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2802 printf("\tlfs %s,0(%s)\n",grn,rrn);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2803 printf("\tfcmpu cr0,%s,%s\n",grn,frn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2804 free_register(greg);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2805 return;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2806 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2807
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2808 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2809 code_dregister(int e2,int freg,int d)
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2810 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2811 use_float(d,freg);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2812 if (freg!=e2) {
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2813 if (is_int_reg(e2)) error(-1);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2814 printf("\tfmr %s,%s\n",fregister_name(freg),fregister_name(e2));
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2815 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2816 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2817
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2818 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2819 code_dassign_gvar(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2820 {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2821 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2822 use_float(d,freg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2823 r = get_ptr_cache((NMTBL*)cadr(e2));
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2824 printf("\t%s %s,0(%s)\n",fstore(d),fregister_name(freg),register_name(r));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2825 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2826
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2827 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2828 code_dassign_lvar(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2829 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2830 use_float(d,freg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2831 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2832 printf("\t%s %s,",fstore(d),fregister_name(freg));
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2833 lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2834 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2835
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2836 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2837 code_dassign(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2838 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2839 use_float(d,freg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2840 printf("\t%s %s,0(%s)\n",fstore(d),fregister_name(freg),register_name(e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2841 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2842
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2843 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2844 code_dassign_dregister(int e2,int d,int freg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2845 use_float(d,freg);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2846 if (e2!=freg) {
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2847 printf("\tfmr %s,%s\n",fregister_name(e2),fregister_name(freg));
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2848 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2849 }
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2850
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2851 static double d0 = 1.0;
917947ffeb7c power pc version
kono
parents:
diff changeset
2852
917947ffeb7c power pc version
kono
parents:
diff changeset
2853 int
917947ffeb7c power pc version
kono
parents:
diff changeset
2854 code_d1(double d)
917947ffeb7c power pc version
kono
parents:
diff changeset
2855 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2856 int *i = (int *)&d0; int *j = (int *)&d;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2857 return (i[1] == 0x3ff00000)?j[0]:j[1];
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2858 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2859
917947ffeb7c power pc version
kono
parents:
diff changeset
2860 int
917947ffeb7c power pc version
kono
parents:
diff changeset
2861 code_d2(double d)
917947ffeb7c power pc version
kono
parents:
diff changeset
2862 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2863 int *i = (int *)&d0; int *j = (int *)&d;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2864 return (i[1] == 0x3ff00000)?j[1]:j[0];
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2865 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2866
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2867 int
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2868 code_f(double d)
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2869 {
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2870 float f = d;
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2871 int *j = (int *)&f;
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2872 return *j;
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2873 }
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2874
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2875 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2876
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2877 code_dconst(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2878 {
917947ffeb7c power pc version
kono
parents:
diff changeset
2879 int lb;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2880 double value = dcadr(e2);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2881 int r;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2882 char *rrn,*frn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2883
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2884 use_float(d,freg);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2885 frn = fregister_name(freg);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2886 if (value==0.0) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2887 float_zero_lib_used=1;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2888 r = get_ptr_cache(&float_zero);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
2889 rrn = register_name(r);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2890 printf("\tlfs %s,0(%s)\n",frn,rrn);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2891 return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2892 }
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2893 if (value==1.0) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2894 float_one_lib_used=1;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
2895 r = get_ptr_cache(&float_one);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
2896 rrn = register_name(r);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2897 printf("\tlfs %s,0(%s)\n",frn,rrn);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2898 return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2899 }
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
2900 rrn = register_name((r=get_register()));
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
2901 use_reg(r); // to clear ptr cache
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2902 printf(" \t.data\n\t.align 3\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2903 lb=fwdlabel();
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2904 printf("L_%d:\n",lb);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2905 if (d) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2906 printf("\t.long\t0x%x,0x%x\n",code_d2(value),code_d1(value));
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2907 } else {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2908 printf("\t.long\t0x%x\n",code_f(value));
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2909 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2910 if (output_mode==TEXT_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2911 printf(".text\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2912 } else {
917947ffeb7c power pc version
kono
parents:
diff changeset
2913 text_mode();
917947ffeb7c power pc version
kono
parents:
diff changeset
2914 }
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2915 printf("\taddis %s,r31,ha16(L_%d-L_%d)\n",rrn,lb,code_base);
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
2916 printf("\tla %s,lo16(L_%d-L_%d)(%s)\n",rrn,lb,code_base,rrn);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2917 if (d) {
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2918 printf("\tlfd %s,0(%s)\n",frn,rrn);
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2919 } else {
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2920 printf("\tlfs %s,0(%s)\n",frn,rrn);
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2921 }
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2922 free_register(r);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2923 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2924
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
2925
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2926 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2927 code_dneg(int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2928 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2929 char *frn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2930 use_float(d,freg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2931 frn = fregister_name(freg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2932 printf("\tfneg %s,%s\n",frn,frn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2933 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2934
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2935 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2936 code_d2i()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2937 {
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2938 char *frn;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2939 char *crn;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2940 int e2 = new_lvar(SIZE_OF_DOUBLE);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2941
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2942 use_double0();
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2943 frn = fregister_name(freg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2944 use_int0();
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2945 crn = register_name(creg);
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2946
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2947 free_lvar(e2);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
2948 printf("\tfctiwz %s,%s\n",frn,frn);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2949 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2950 printf("\tstfd %s,",frn); lvar(e2);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2951 lvar_intro(e2+SIZE_OF_DOUBLE-SIZE_OF_INT);
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2952 printf("\tlwz %s,",crn); lvar(e2+SIZE_OF_DOUBLE-SIZE_OF_INT);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2953 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2954
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2955 static int i2d_lib_used=0;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2956 static char *i2d_lib[] = {
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2957 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2958 /* ".literal8", */
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2959 " .align 3",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2960 "__i2dLC0:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2961 " .long 1127219200",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2962 " .long -2147483648",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2963 ".text",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2964 " .align 2",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2965 "i2d_:",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2966 " mflr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2967 " bcl 20,31,__i2dL1$pb",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2968 "__i2dL1$pb:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2969 " mflr r10",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2970 " mtlr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2971 " xoris r3,r3,0x8000",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2972 " stw r3,-28(r30)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2973 " lis r0,0x4330",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2974 " stw r0,-32(r30)",
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2975 " lfd f0,-32(r30)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2976 " addis r9,r10,ha16(__i2dLC0-__i2dL1$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2977 " lfd f1,lo16(__i2dLC0-__i2dL1$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2978 " fsub f1,f0,f1",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2979 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2980 0
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2981 };
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2982
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
2983 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2984 code_i2d()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2985 {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2986 i2d_lib_used = 1;
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
2987 clear_ptr_cache();
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
2988 code_save_stacks();
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2989 set_ireg(RET_REGISTER,1);
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2990 printf("\tbl i2d_\n");
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2991 set_freg(RET_FREGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2992 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2993
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2994 static int d2u_lib_used=0;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2995 static char *d2u_lib[] = {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2996 /* ".literal8", */
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2997 " .align 3",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2998 "__d2uLC0:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
2999 " .long 1105199104",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3000 " .long 0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3001 ".text",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3002 " .align 2",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3003 "d2u_:",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3004 " mflr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3005 " bcl 20,31,__d2uL1$pb",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3006 "__d2uL1$pb:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3007 " mflr r10",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3008 " mtlr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3009 " addis r9,r10,ha16(__d2uLC0-__d2uL1$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3010 " lfd f0,lo16(__d2uLC0-__d2uL1$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3011 " fcmpu cr0,f1,f0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3012 " cror 2,1,2",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3013 " beq- cr0,__d2uL2",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3014 " fctiwz f0,f1",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3015 " stfd f0,-32(r30)",
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3016 " lwz r3,-28(r30)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3017 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3018 "__d2uL2:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3019 " addis r9,r10,ha16(__d2uLC0-__d2uL1$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3020 " lfd f0,lo16(__d2uLC0-__d2uL1$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3021 " fsub f0,f1,f0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3022 " fctiwz f0,f0",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3023 " stfd f0,-24(r30)",
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3024 " lwz r3,-20(r30)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3025 " xoris r3,r3,0x8000",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3026 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3027 0
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3028 };
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3029
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3030 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3031 code_d2u()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3032 {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
3033 code_save_stacks();
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
3034 clear_ptr_cache();
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3035 d2u_lib_used=1;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
3036 set_freg(RET_FREGISTER,1);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3037 printf("\tbl d2u_\n");
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3038 set_ireg(RET_REGISTER,0);
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3039 }
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
3040
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3041 static int u2d_lib_used=0;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3042 static char *u2d_lib[] = {
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3043 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3044 /* ".literal8", */
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3045 " .align 3",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3046 "__u2dLC1:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3047 " .long 1127219200",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3048 " .long 0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3049 ".text",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3050 " .align 2",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3051 "u2d_:",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3052 " mflr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3053 " bcl 20,31,__u2dL2$pb",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3054 "__u2dL2$pb:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3055 " mflr r10",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3056 " mtlr r0",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3057 " stw r3,-28(r30)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3058 " lis r0,0x4330",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3059 " stw r0,-32(r30)",
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3060 " lfd f0,-32(r30)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3061 " addis r9,r10,ha16(__u2dLC1-__u2dL2$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3062 " lfd f1,lo16(__u2dLC1-__u2dL2$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3063 " fsub f1,f0,f1",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3064 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3065 0
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3066 };
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3067
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3068 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3069 code_u2d()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3070 {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
3071 code_save_stacks();
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
3072 clear_ptr_cache();
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3073 u2d_lib_used = 1;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3074 set_ireg(RET_REGISTER,1);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3075 printf("\tbl u2d_\n");
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3076 set_freg(RET_FREGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3077 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3078
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3079 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3080 code_d2f() { }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3081 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3082 code_f2d() { }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3083 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3084 code_f2i() { code_d2i(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3085 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3086 code_f2u() { code_d2u(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3087 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3088 code_i2f() { code_i2d(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3089 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3090 code_u2f() { code_u2d(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3091
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3092 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3093 code_drgvar(int e2,int d,int freg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3094 {
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3095 int r;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3096 r = get_ptr_cache((NMTBL*)cadr(e2));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3097 use_float(d,freg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3098 printf("\t%s %s,0(%s)\n",fload(d),fregister_name(freg),register_name(r));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3099 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3100
917947ffeb7c power pc version
kono
parents:
diff changeset
3101
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3102 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3103 code_drlvar(int e2,int d,int freg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3104 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3105 use_float(d,freg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3106 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3107 printf("\t%s %s,",fload(d),fregister_name(freg)); lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3108 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3109
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3110 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3111 code_cmp_drgvar(int e2,int reg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3112 {
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3113 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3114 char *frn;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3115 int g=get_dregister(d);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3116 char *grn=fregister_name(g);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3117
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3118 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3119 frn=fregister_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3120
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3121 r = get_ptr_cache((NMTBL*)cadr(e2));
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3122 printf("\t%s %s,0(%s)\n",fload(1),grn,register_name(r));
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3123 printf("\tfcmpu cr0,%s,%s\n",frn,grn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3124 free_register(g);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3125 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3126
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3127 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3128 code_cmp_drlvar(int e2,int reg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3129 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3130 char *frn;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3131 int g=get_dregister(d);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3132 char *grn=fregister_name(g);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3133
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3134 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3135 frn=fregister_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3136
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3137 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3138 printf("\t%s %s,",fload(1),grn); lvar(e2);
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3139 printf("\tfcmpu cr0,%s,%s\n",frn,grn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3140 free_register(g);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3141 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3142
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3143 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3144 dtosop(int op,int reg,int e1)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3145 {
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
3146 char *opn="";
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3147 char *frn;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3148 char *grn=fregister_name(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3149
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3150 use_float(1,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3151 frn=fregister_name(reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3152 switch(op) {
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3153 case FADD:
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3154 case DADD: opn="fadd"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3155 case FSUB:
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
3156 case DSUB: opn="fsub"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3157 case FDIV:
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
3158 case DDIV: opn="fdiv"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3159 case FMUL:
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
3160 case DMUL: opn="fmul"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3161 case FCMP:
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3162 case DCMP:
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3163 printf("\tfcmpu cr7,%s,%s\n",frn,grn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3164 free_register(e1);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
3165 return;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3166 case FCMPGE:
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3167 case DCMPGE:
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3168 printf("\tfcmpu cr7,%s,%s\n",frn,grn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3169 free_register(e1);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
3170 return;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3171 default:
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3172 error(-1); return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3173 }
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3174 printf("\t%s %s,%s,%s\n",opn,frn,frn,grn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3175 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3176
917947ffeb7c power pc version
kono
parents:
diff changeset
3177 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3178 code_dassop(int op,int reg,int d) {
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3179 /* we have lvalue in creg, applied floating value is in freg */
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3180 // (*creg) op = pop()
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3181 int xreg=emit_dpop(d);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3182 char *crn;
209
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3183 char *frn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3184
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3185 crn=register_name(ireg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3186 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3187 frn =fregister_name(reg);
209
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3188
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3189 printf("\t%s %s,0(%s)\n",fload(d),frn,crn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3190 dtosop(op,reg,xreg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3191 printf("\t%s %s,0(%s)\n",fstore(d),frn,crn);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3192 emit_dpop_free(xreg,d);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3193 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3194
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3195 void
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3196 code_register_dassop(int reg,int op,int d) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3197 // reg op= dpop()
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3198 int xreg=emit_dpop(d);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3199 dtosop(op,reg,xreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3200 emit_dpop_free(xreg,d);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3201 }
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3202
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3203 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3204 code_dpreinc(int e1,int e2,int d,int reg) {
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3205 char *frn;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3206 char *crn;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3207 int g;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3208 char *grn,*drn;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3209 int r;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3210
144
56211702f298 creg/freg continue
kono
parents: 141
diff changeset
3211 if (car(e2)==DREGISTER||car(e2)==FREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3212 crn=register_name(cadr(e2));
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3213 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3214 g_expr(e2);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3215 if (!is_int_reg(creg)) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3216 crn=register_name(ireg);
144
56211702f298 creg/freg continue
kono
parents: 141
diff changeset
3217 }
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3218
209
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3219 float_one_lib_used=1;
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3220 r = get_ptr_cache(&float_one);
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3221 drn=register_name(r);
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3222
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3223 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3224
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3225 frn=fregister_name(reg);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3226 grn=fregister_name(g=get_dregister(d));
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3227 printf("\tlfs %s,0(%s)\n",grn,drn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3228
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3229 if (car(e2)==DREGISTER||car(e2)==FREGISTER) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3230 printf("\tfmr %s,%s\n",crn,frn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3231 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",crn,frn,grn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3232 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3233 printf("\t%s %s,0(%s)\n",fload(d),frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3234 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",frn,frn,grn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3235 printf("\t%s %s,0(%s)\n",fstore(d),frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3236 }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3237 free_register(g);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3238 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3239
917947ffeb7c power pc version
kono
parents:
diff changeset
3240 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3241 code_dpostinc(int e1,int e2,int d,int reg) {
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3242 char *frn;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3243 char *crn;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3244 int g;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3245 char *grn,*drn;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3246 int r;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
3247
144
56211702f298 creg/freg continue
kono
parents: 141
diff changeset
3248 if (car(e2)==DREGISTER||car(e2)==FREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3249 crn=register_name(cadr(e2));
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3250 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3251 g_expr(e2);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3252 if (!is_int_reg(creg)) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3253 crn=register_name(creg);
144
56211702f298 creg/freg continue
kono
parents: 141
diff changeset
3254 }
209
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3255
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3256 float_one_lib_used=1;
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3257 r = get_ptr_cache(&float_one);
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3258 drn=register_name(r);
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
3259
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3260 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3261
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3262 frn=fregister_name(reg);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3263 grn=fregister_name(g=get_dregister(d));
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3264 printf("\tlfs %s,0(%s)\n",grn,drn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3265
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3266 if (car(e2)==DREGISTER||car(e2)==FREGISTER) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3267 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",frn,crn,grn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3268 printf("\tfmr %s,%s\n",frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3269 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3270 printf("\t%s %s,0(%s)\n",fload(d),frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3271 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",grn,frn,grn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3272 printf("\t%s %s,0(%s)\n",fstore(d),grn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3273 }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3274 free_register(g);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3275 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3276
917947ffeb7c power pc version
kono
parents:
diff changeset
3277 void
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3278 drexpr(int e1, int e2,int l1, int op,int cond)
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3279 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3280 if (!cond) {
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3281 switch(op) {
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3282 case FOP+GT:
232
8a23c20ac92d *** empty log message ***
kono
parents: 231
diff changeset
3283 drexpr(e2,e1,l1,FOP+GE,1); return;
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3284 case FOP+GE:
232
8a23c20ac92d *** empty log message ***
kono
parents: 231
diff changeset
3285 drexpr(e2,e1,l1,FOP+GT,1); return;
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3286 case FOP+EQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3287 op=FOP+NEQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3288 case FOP+NEQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3289 op=FOP+EQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3290 case DOP+GT:
232
8a23c20ac92d *** empty log message ***
kono
parents: 231
diff changeset
3291 drexpr(e2,e1,l1,DOP+GE,1); return;
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3292 case DOP+GE:
232
8a23c20ac92d *** empty log message ***
kono
parents: 231
diff changeset
3293 drexpr(e2,e1,l1,DOP+GT,1); return;
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3294 case DOP+EQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3295 op=DOP+NEQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3296 case DOP+NEQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3297 op=DOP+EQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3298 }
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3299 }
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3300 // g_expr(list3( ((op==DOP+GE||op==FOP+GE)?DCMPGE:DCMP), e2,e1));
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3301 g_expr(list3(DCMP, e1,e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3302 switch(op) {
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3303 case DOP+GT:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3304 case FOP+GT:
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3305 printf("\tbgt\tcr7,L_%d\n",l1);
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3306 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3307 case DOP+GE:
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3308 case FOP+GE:
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3309 // printf("\tcrnor 30,29,30\n");
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3310 // printf("\tbeq\tcr7,L_%d\n",l1);
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3311 printf("\tbge\tcr7,L_%d\n",l1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3312 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3313 case DOP+EQ:
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3314 case FOP+EQ:
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3315 printf("\tbeq\tcr7,L_%d\n",l1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3316 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3317 case DOP+NEQ:
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
3318 case FOP+NEQ:
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
3319 printf("\tbne\tcr7,L_%d\n",l1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3320 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3321 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3322 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3323
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3324 int emit_dpop(int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3325 {
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3326 int xreg,reg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3327 xreg=pop_fregister();
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3328 if (xreg<= -REG_LVAR_OFFSET) {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
3329 reg = get_dregister(d);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3330 code_drlvar(REG_LVAR_OFFSET+xreg,1,reg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
3331 free_lvar(REG_LVAR_OFFSET+xreg);
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
3332 xreg=reg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
3333 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
3334 return xreg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3335 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3336
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3337 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3338 emit_dpop_free(int e1,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3339 {
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3340 free_register(e1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3341 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3342
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3343 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3344 emit_dpush(int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3345 {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3346 int new_reg;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3347 if (!is_float_reg(creg)) error(-1);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
3348 if (freg_sp>MAX_MAX) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3349 new_reg = get_dregister(1); /* ���Ф˼��� */
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3350 freg_stack[freg_sp++] = freg; /* push ���뤫���˥쥸������Ȥ� */
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3351 creg = freg = new_reg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3352 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3353
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3354 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3355
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3356 #if LONGLONG_CODE
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3357
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3358
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3359 /* 64bit int part */
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3360 static void
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3361 lmove(int to,int from)
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3362 {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3363 int tmp;
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3364 if (regv_h(to)==regv_l(from)&&(regv_l(to)==regv_h(from))) {
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3365 tmp = get_register();
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3366 printf("\tmr %s,%s\n",register_name(tmp),lregister_name_low(from));
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3367 printf("\tmr %s,%s\n",lregister_name_high(to),lregister_name_high(from));
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3368 printf("\tmr %s,%s\n",lregister_name_low(to),register_name(tmp));
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3369 free_register(tmp);
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
3370 } else if (regv_h(to)==regv_l(from)) {
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3371 printf("\tmr %s,%s\n",lregister_name_low(to),lregister_name_low(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3372 printf("\tmr %s,%s\n",lregister_name_high(to),lregister_name_high(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3373 } else {
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3374 printf("\tmr %s,%s\n",lregister_name_high(to),lregister_name_high(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3375 printf("\tmr %s,%s\n",lregister_name_low(to),lregister_name_low(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3376 }
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3377 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3378
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3379 static void
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3380 pcond(char *s,int l1)
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3381 {
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3382 printf("\tb%s cr0,L_%d\n",s,l1);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3383 }
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3384
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3385 void
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3386 lrexpr(int e1, int e2,int l1, int op,int cond)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3387 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3388 int reg;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3389 int e3;
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3390 g_expr(e1);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3391 emit_lpush();
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3392 g_expr(e2);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3393 e3 = emit_lpop();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3394 if (!is_longlong_reg(creg)) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3395 reg = lreg;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3396
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3397 tosop(CMP,regv_h(reg),regv_h(e3));
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3398 switch(op) {
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3399 case LOP+GT:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3400 pcond(code_gt(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3401 case LOP+GE:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3402 pcond(code_ge(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3403 case LOP+EQ:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3404 pcond(code_eq(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3405 case LOP+NEQ:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3406 pcond(code_eq(!cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3407 case LOP+LT:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3408 pcond(code_ge(!cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3409 case LOP+LE:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3410 pcond(code_gt(!cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3411 case LOP+UGT:
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3412 pcond(code_ugt(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3413 case LOP+UGE:
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3414 pcond(code_uge(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3415 default:
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3416 error(-1);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3417 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3418 tosop(CMP,regv_l(reg),regv_l(e3));
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3419 switch(op) {
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3420 case LOP+GT:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3421 pcond(code_gt(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3422 case LOP+GE:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3423 pcond(code_ge(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3424 case LOP+EQ:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3425 pcond(code_eq(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3426 case LOP+NEQ:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3427 pcond(code_eq(!cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3428 case LOP+LT:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3429 pcond(code_ge(!cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3430 case LOP+LE:
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
3431 pcond(code_gt(!cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3432 case LOP+UGT:
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3433 pcond(code_ugt(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3434 case LOP+UGE:
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3435 pcond(code_uge(cond),l1); break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3436 default:
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3437 error(-1);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3438 }
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3439 emit_lpop_free(e3);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3440 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3441
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3442 int
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3443 emit_lpop()
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3444 {
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3445 int xreg,reg;
237
1933266f1efa long long ia32 (imcomplete)
kono
parents: 234
diff changeset
3446 xreg=lreg_stack[--lreg_sp];
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3447 if (xreg<= -REG_LVAR_OFFSET) {
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3448 reg = get_lregister();
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3449 code_lrlvar(REG_LVAR_OFFSET+xreg,reg);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3450 free_lvar(REG_LVAR_OFFSET+xreg);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3451 xreg = reg;
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3452 }
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3453 return xreg;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3454 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3455
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3456 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3457 code_lregister(int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3458 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3459 use_longlong(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3460 if (reg!=e2) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3461 lmove(reg,e2);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3462 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3463 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3464
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3465 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3466 code_cmp_lregister(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3467 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3468 use_longlong(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3469 printf("\tor %s,%s,%s\n",
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3470 lregister_name_low(reg),
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3471 lregister_name_low(reg),
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3472 lregister_name_high(reg));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3473 printf("\tcmpwi cr0,%s,0\n",lregister_name_low(reg));
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3474 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3475
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3476 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3477 code_cmp_lrgvar(int e1,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3478 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3479 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3480 code_lrgvar(e1,creg);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3481 code_cmp_lregister(creg);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3482 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3483
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3484 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3485 code_cmp_lrlvar(int e1,int creg)
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3486 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3487 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3488 code_lrlvar(e1,creg);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3489 code_cmp_lregister(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3490 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3491
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3492 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3493 code_lassign(int e2,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3494 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3495 char *drn = register_name(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3496 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3497 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3498
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3499 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3500 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3501 crn_l = lregister_name_low(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3502
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3503 if (e2==regv_h(creg)) {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3504 printf("\tstw %s,%d(%s)\n",crn_l,SIZE_OF_INT,drn);
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3505 printf("\tstw %s,0(%s)\n",crn_h,drn);
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3506 } else {
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3507 printf("\tstw %s,0(%s)\n",crn_h,drn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3508 printf("\tstw %s,%d(%s)\n",crn_l,SIZE_OF_INT,drn);
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
3509 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3510 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3511
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3512 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3513 code_lassign_gvar(int e2,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3514 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3515 int r;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3516 r = get_ptr_cache((NMTBL*)cadr(e2));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3517 code_lassign(r,creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3518 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3519
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3520 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3521 code_lassign_lvar(int e2,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3522 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3523 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3524 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3525
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3526 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3527 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3528 crn_l = lregister_name_low(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3529 lvar_intro(e2);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3530 printf("\tstw %s,",crn_h);lvar(e2);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3531 printf("\tstw %s,",crn_l);lvar(e2+SIZE_OF_INT);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3532 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3533
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3534 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3535 code_lassign_lregister(int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3536 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3537 use_longlong(reg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3538 if (e2!=reg) {
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3539 lmove(e2,reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3540 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3541 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3542
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3543 static long long ll0 = 1LL;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3544
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3545 static int
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3546 code_l1(long long d)
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3547 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3548 int *i = (int *)&ll0; int *j = (int *)&d;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3549 return (i[1] == 1)?j[1]:j[0];
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3550 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3551
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3552 static int
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3553 code_l2(long long d)
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3554 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3555 int *i = (int *)&ll0; int *j = (int *)&d;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3556 return (i[1] == 1)?j[0]:j[1];
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3557 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3558
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3559 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3560 code_lconst(int e1,int creg)
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3561 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3562 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3563 code_const(code_l1(lcadr(e1)),regv_l(creg));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3564 code_const(code_l2(lcadr(e1)),regv_h(creg));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3565 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3566
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3567 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3568 code_lneg(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3569 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3570 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3571 printf("\tsubfic %s,%s,0\n",
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3572 lregister_name_low(creg),lregister_name_low(creg));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3573 printf("\tsubfze %s,%s\n",
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3574 lregister_name_high(creg),lregister_name_high(creg));
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3575 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3576
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3577 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3578 code_lrgvar(int e1,int creg)
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3579 {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3580 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3581 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3582 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3583 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3584 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3585 crn_l = lregister_name_low(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3586 r = get_ptr_cache((NMTBL*)cadr(e1));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3587 printf("\tlwz %s,0(%s)\n",crn_h,register_name(r));
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3588 printf("\tlwz %s,%d(%s)\n",crn_l,SIZE_OF_INT,register_name(r));
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3589 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3590
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3591 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3592 code_lrlvar(int e1,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3593 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3594 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3595 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3596 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3597 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3598 crn_l = lregister_name_low(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3599 lvar_intro(e1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3600 printf("\tlwz %s,",crn_h); lvar(e1);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3601 printf("\tlwz %s,",crn_l); lvar(e1+SIZE_OF_INT);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3602 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3603
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3604 #if 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3605 static int lumod_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3606 static char *lumod_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3607 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3608
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3609 static int lmod_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3610 static char *lmod_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3611 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3612
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3613 static int ludiv_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3614 static char *ludiv_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3615 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3616
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3617 static int ldiv_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3618 static char *ldiv_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3619 };
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3620 #endif
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3621
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3622 static int lsrd_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3623 static char *lsrd_lib[] = {
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3624 ".text",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3625 " .align 2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3626 "lsrd__:",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3627 " mr. r5,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3628 " beqlr",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3629 " subfic r2,r5,32",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3630 " stw r3,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3631 " stw r4,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3632 " cmpwi cr7,r2,0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3633 " bgt+ cr7,L__lsrd1",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3634 " neg r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3635 " lwz r2,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3636 " li r9,0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3637 " srw r2,r2,r0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3638 " stw r9,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3639 " b L__lsrd2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3640 "L__lsrd1: lwz r0,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3641 " slw r9,r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3642 " lwz r2,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3643 " srw r0,r0,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3644 " srw r2,r2,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3645 " stw r0,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3646 " or r2,r2,r9",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3647 "L__lsrd2: stw r2,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3648 " lwz r3,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3649 " lwz r4,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3650 " blr",
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3651 0
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3652 };
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3653
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3654 static int asld_lib_used=0;
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3655 static char *asld_lib[] = {
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3656 ".text",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3657 " .align 2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3658 "asld__:",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3659 " mr. r5,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3660 " beqlr",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3661 " subfic r2,r5,32",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3662 " stw r3,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3663 " stw r4,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3664 " cmpwi cr7,r2,0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3665 " bgt+ cr7,L__asld1",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3666 " neg r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3667 " lwz r2,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3668 " li r9,0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3669 " slw r2,r2,r0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3670 " stw r9,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3671 " b L__asld2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3672 "L__asld1: lwz r0,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3673 " srw r9,r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3674 " lwz r2,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3675 " slw r0,r0,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3676 " slw r2,r2,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3677 " stw r0,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3678 " or r2,r2,r9",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3679 "L__asld2: stw r2,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3680 " lwz r3,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3681 " lwz r4,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3682 " blr",
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3683 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3684 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3685
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3686 static int asrd_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3687 static char *asrd_lib[] = {
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3688 ".text",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3689 " .align 2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3690 "asrd__:",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3691 " mr. r5,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3692 " beqlr",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3693 " subfic r2,r5,32",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3694 " stw r3,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3695 " stw r4,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3696 " cmpwi cr7,r2,0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3697 " bgt+ cr7,L__asrd1",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3698 " lwz r0,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3699 " neg r2,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3700 " sraw r2,r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3701 " srawi r0,r0,31",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3702 " b L__asrd2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3703 "L__asrd1: lwz r0,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3704 " slw r9,r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3705 " lwz r2,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3706 " sraw r0,r0,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3707 " srw r2,r2,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3708 " or r2,r2,r9",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3709 "L__asrd2: stw r0,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3710 " stw r2,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3711 " lwz r3,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3712 " lwz r4,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3713 " blr",
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3714 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3715 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3716
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3717 static void
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3718 extern_conv(char *conv)
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3719 {
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3720 code_save_stacks();
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3721 clear_ptr_cache();
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3722 extern_define(conv,0,FUNCTION,1);
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3723 printf("\tbl L_%s$stub\n",conv);
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3724 }
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3725
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3726 #if FLOAT_CODE
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
3727 #if 0
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3728 static int d2ll_lib_used=0;
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3729 static char *d2ll_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3730 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3731
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3732 static int d2ull_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3733 static char *d2ull_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3734 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3735
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3736 static int f2ll_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3737 static char *f2ll_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3738 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3739
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3740 static int f2ull_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3741 static char *f2ull_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3742 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3743
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3744 static int ll2d_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3745 static char *ll2d_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3746 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3747
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3748 static int ll2f_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3749 static char *ll2f_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3750 };
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
3751 #endif
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3752
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3753 #endif
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3754
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3755 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3756 code_asld_lib(int reg,int oreg)
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3757 {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3758 code_save_stacks();
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3759 clear_ptr_cache();
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3760 asld_lib_used = 1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3761 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3762 set_lreg(RET_LREGISTER,0);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3763 if (regv_l(oreg)!=5) {
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3764 printf("\tmr r5,%s\n", lregister_name_low(oreg));
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3765 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3766 printf("\tbl asld__\n");
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3767 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3768
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3769 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3770 code_asrd_lib(int reg,int oreg) // ___ashrdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3771 {
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3772 code_save_stacks();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3773 clear_ptr_cache();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3774 asrd_lib_used = 1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3775 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3776 set_lreg(RET_LREGISTER,0);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3777 if (regv_l(oreg)!=5) {
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3778 printf("\tmr r5,%s\n", lregister_name_low(oreg));
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3779 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3780 printf("\tbl asrd__\n");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3781 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3782
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3783 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3784 code_lsrd_lib(int reg,int oreg) // ___lshrdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3785 {
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3786 code_save_stacks();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3787 clear_ptr_cache();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3788 lsrd_lib_used = 1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3789 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3790 set_lreg(RET_LREGISTER,0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3791 if (regv_l(oreg)!=5) {
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3792 printf("\tmr r5,%s\n", lregister_name_low(oreg));
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3793 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3794 printf("\tbl lsrd__\n");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3795 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3796
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3797 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3798 code_ldiv_lib(int reg,int oreg) // ___divdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3799 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3800 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3801 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3802 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3803 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3804 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3805 extern_conv("__divdi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3806 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3807
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3808 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3809 code_ludiv_lib(int reg,int oreg) // ___udivdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3810 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3811 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3812 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3813 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3814 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3815 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3816 extern_conv("__udivdi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3817 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3818
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3819 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3820 code_lmod_lib(int reg,int oreg) // ___moddi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3821 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3822 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3823 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3824 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3825 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3826 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3827 extern_conv("__moddi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3828 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3829
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3830 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3831 code_lumod_lib(int reg,int oreg) // ___umoddi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3832 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3833 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3834 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3835 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3836 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3837 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
3838 extern_conv("__umoddi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3839 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3840
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3841 #define check_lreg(reg) if (reg!=lreg) { lmove(reg,lreg); }
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3842
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3843 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3844 ltosop(int op,int reg,int oreg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3845 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3846 int dx = -1;
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3847 int ox = -1;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3848 char *orn_h,*crn_h,*drn_h;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3849 char *orn_l,*crn_l,*drn_l;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3850 // creg = creg op oreg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3851
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3852 use_longlong(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3853 if(oreg==-1) {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3854 error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3855 } else if (oreg<= -REG_LVAR_OFFSET) {
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3856 ox = get_lregister(); if (ox<0) error(-1);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3857 use_reg(ox);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3858 code_rlvar(oreg+REG_LVAR_OFFSET,ox);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3859 oreg = ox;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3860 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3861
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3862 switch(op) {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3863 case LLSHIFT:
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3864 case LULSHIFT:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3865 code_asld_lib(reg,oreg); // ___ashldi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3866 check_lreg(reg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3867 if(ox!=-1) free_register(ox);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3868 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3869 case LRSHIFT:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3870 code_asrd_lib(reg,oreg); // ___ashrdi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3871 check_lreg(reg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3872 if(ox!=-1) free_register(ox);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3873 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3874 case LURSHIFT:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3875 code_lsrd_lib(reg,oreg); // ___lshrdi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3876 check_lreg(reg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3877 if(ox!=-1) free_register(ox);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3878 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3879 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3880 orn_h = lregister_name_high(oreg);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3881 orn_l = lregister_name_low(oreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3882 crn_h = lregister_name_high(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3883 crn_l = lregister_name_low(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3884 switch(op) {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3885 case LADD:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3886 printf("\taddc %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3887 printf("\tadde %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3888 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3889 case LSUB:
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3890 printf("\tsubfc %s,%s,%s\n",crn_l,orn_l,crn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3891 printf("\tsubfe %s,%s,%s\n",crn_h,orn_h,crn_h);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3892 break;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3893 case LCMP:
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3894 error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3895 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3896 case LBAND:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3897 printf("\tand %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3898 printf("\tand %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3899 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3900 case LEOR:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3901 printf("\txor %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3902 printf("\txor %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3903 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3904 case LBOR:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3905 printf("\tor %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3906 printf("\tor %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3907 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3908 case LMUL:
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3909 case LUMUL:
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3910 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3911 clear_ptr_cache();
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3912 dx=get_lregister();
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
3913 use_reg(dx);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3914 drn_l = lregister_name_low(dx);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3915 drn_h = lregister_name_high(dx);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3916 /*
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3917 drn_l = l32( crn_l * orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3918 drn_h = h32( crn_l * orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3919 orn_l = l32( crn_h * orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3920 drn_h = drn_h + orn_l;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3921 crn_l = l32( crn_l * orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3922 crn_h = drn_h + crn_l;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3923 crn_l = drn_l;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3924 */
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3925 printf("\tmulhwu %s,%s,%s\n",drn_h,crn_l,orn_l);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3926 printf("\tmullw %s,%s,%s\n", drn_l,crn_l,orn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3927 printf("\tmullw %s,%s,%s\n", orn_l,crn_h,orn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3928 printf("\tadd %s,%s,%s\n", drn_h,drn_h,orn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3929 printf("\tmullw %s,%s,%s\n", crn_l,orn_h,crn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3930 printf("\tadd %s,%s,%s\n", crn_h,drn_h,crn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
3931 printf("\tmr %s,%s\n", crn_l,drn_l);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3932 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3933 case LDIV:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3934 code_ldiv_lib(reg,oreg); // ___divdi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3935 check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3936 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3937 case LUDIV:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3938 code_ludiv_lib(reg,oreg); // ___udivdi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3939 check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3940 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3941 case LMOD:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3942 code_lmod_lib(reg,oreg); // ___moddi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3943 check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3944 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3945 case LUMOD:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
3946 code_lumod_lib(reg,oreg); // ___umoddi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3947 check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3948 break;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3949 default:
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3950 error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3951 }
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3952 if(ox!=-1) free_register(dx);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3953 if(dx!=-1) free_register(dx);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3954 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3955
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3956 int
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3957 code_lconst_op_p(int op,int e)
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3958 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3959 int v;
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3960 if (car(e)==LCONST) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
3961 if (!(-32766<lcadr(e)&&lcadr(e)<32767)) return 0;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3962 v = lcaddr(e);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3963 } else if (car(e)==CONST) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
3964 if (!(-32766<cadr(e)&&cadr(e)<32767)) return 0;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3965 v = caddr(e);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
3966 } else return 0;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3967
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3968 switch(op) {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3969 case LLSHIFT:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3970 case LULSHIFT:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3971 case LRSHIFT:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
3972 case LURSHIFT:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3973 return (0<v&&v<31);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3974 case LADD:
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3975 case LSUB:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3976 return 1;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
3977 case LBOR:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3978 return (v>0);
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3979 default:
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3980 return 0;
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3981 }
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3982 }
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3983
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
3984 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3985 loprtc(int op,int creg,int e)
213
kono
parents: 212
diff changeset
3986 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3987 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3988 char *crn_l;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3989 char *grn;
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3990 int v;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3991 int greg;
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
3992
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3993 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3994 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3995 crn_l = lregister_name_low(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3996
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
3997 if (car(e)==LCONST) v = lcadr(e);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
3998 else if (car(e)==CONST) v = cadr(e);
213
kono
parents: 212
diff changeset
3999
kono
parents: 212
diff changeset
4000 switch(op) {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4001 case LLSHIFT:
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4002 case LULSHIFT:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4003 greg = get_register();
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4004 use_reg(greg);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4005 grn = register_name(greg);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4006 printf("\tsrwi %s,%s,%d\n",grn,crn_l,32-v);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4007 printf("\tslwi %s,%s,%d\n",crn_h,crn_h,v);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4008 printf("\tor %s,%s,%s\n",crn_h,grn,crn_h);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4009 printf("\tslwi %s,%s,%d\n",crn_l,crn_l,v);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4010 free_register(greg);
213
kono
parents: 212
diff changeset
4011 return;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4012 case LRSHIFT:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4013 greg = get_register();
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4014 use_reg(greg);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4015 grn = register_name(greg);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4016 printf("\tsrwi %s,%s,%d\n",grn,crn_l,v);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4017 printf("\tinsrwi %s,%s,%d,0\n",grn,crn_h,v);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4018 printf("\tsrawi %s,%s,%d\n",crn_h,crn_h,v);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4019 printf("\tmr %s,%s\n",crn_l,grn);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4020 free_register(greg);
213
kono
parents: 212
diff changeset
4021 return;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4022 case LURSHIFT:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4023 greg = get_register();
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4024 use_reg(greg);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4025 grn = register_name(greg);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4026 printf("\tslwi %s,%s,%d\n",grn,crn_h,32-v);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4027 printf("\tsrwi %s,%s,%d\n",crn_l,crn_l,v);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4028 printf("\tor %s,%s,%s\n",crn_l,grn,crn_l);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4029 printf("\tsrwi %s,%s,%d\n",crn_h,crn_h,v);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4030 free_register(greg);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4031 return;
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4032 case LSUB:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4033 v = -v;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4034 case LADD:
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4035 printf("\taddic %s,%s,%d\n",crn_l,crn_l,v);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4036 if (v<0)
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4037 printf("\taddme %s,%s\n",crn_h,crn_h);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4038 else
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4039 printf("\taddze %s,%s\n",crn_h,crn_h);
213
kono
parents: 212
diff changeset
4040 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4041 case LBOR:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4042 printf("\tori %s,%s,lo16(%d)\n",crn_l,crn_l,v);
213
kono
parents: 212
diff changeset
4043 break;
kono
parents: 212
diff changeset
4044 default:
kono
parents: 212
diff changeset
4045 error(-1);
kono
parents: 212
diff changeset
4046 }
kono
parents: 212
diff changeset
4047 }
kono
parents: 212
diff changeset
4048
kono
parents: 212
diff changeset
4049
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4050 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4051 emit_lpop_free(int xreg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4052 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4053 if (xreg>=0)
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4054 free_register(xreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4055 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4056
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4057 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4058 emit_lpush()
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4059 {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4060 int new_reg;
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4061 if (!is_longlong_reg(creg)) error(-1);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4062 if (lreg_sp>MAX_MAX) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4063 new_reg = get_lregister(); /* ���Ф˼���(?) */
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4064 lreg_stack[lreg_sp++] = creg; /* push ���뤫���˥쥸������Ȥ� */
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4065 lreg = creg = new_reg;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4066 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4067
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4068 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4069 code_i2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4070 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4071 char *crn,*crn_h,*crn_l;
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4072 int reg0;
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4073 crn = register_name(reg0 = ireg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4074 use_longlong(reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4075 crn_h = lregister_name_high(lreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4076 crn_l = lregister_name_low(lreg);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4077 if (reg0!=regv_l(lreg))
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4078 printf("\tmr %s,%s\n",crn_l,crn);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4079 printf("\tsrawi %s,%s,31\n",crn_h,crn_l);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4080 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4081
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4082 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4083 code_i2ull(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4084 {
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4085 code_i2ll(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4086 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4087
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4088 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4089 code_u2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4090 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4091 char *crn,*crn_h,*crn_l;
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4092 int reg0;
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4093 crn = register_name(reg0 = ireg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4094 use_longlong(reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4095 crn_h = lregister_name_high(lreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4096 crn_l = lregister_name_low(lreg);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4097 if (reg0!=regv_l(lreg))
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4098 printf("\tmr %s,%s\n",crn_l,crn);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4099 printf("\tli %s,0\n",crn_h);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4100 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4101
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4102 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4103 code_u2ull(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4104 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4105 code_u2ll(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4106 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4107
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4108 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4109 code_ll2i(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4110 {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4111 char *crn_l;
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4112 int reg0;
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4113 crn_l = lregister_name_low(reg0=lreg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4114 use_int(reg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4115 if (ireg!=regv_l(reg0))
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4116 printf("\tmr %s,%s\n",register_name(ireg),crn_l);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4117 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4118
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4119 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4120 code_ll2u(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4121 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4122 code_ll2i(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4123 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4124
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4125 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4126 code_ull2i(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4127 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4128 code_ll2i(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4129 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4130
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4131 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4132 code_ull2u(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4133 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4134 code_ll2i(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4135 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4136
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4137 #if FLOAT_CODE
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4138
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4139 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4140 code_d2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4141 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4142 // fixdfdi$stub
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4143 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4144 extern_conv("__fixdfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4145 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4146 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4147 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4148 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4149
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4150 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4151 code_d2ull(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4152 {
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4153 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4154 extern_conv("__fixunsdfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4155 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4156 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4157 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4158 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4159
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4160 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4161 code_f2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4162 {
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4163 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4164 extern_conv("__fixdfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4165 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4166 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4167 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4168 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4169
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4170 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4171 code_f2ull(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4172 {
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4173 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4174 extern_conv("__fixsfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4175 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4176 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4177 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4178 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4179
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4180 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4181 code_ll2d(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4182 {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4183 set_lreg(RET_LREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4184 extern_conv("__floatdidf");
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4185 set_freg(RET_FREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4186 if (reg!=USE_CREG&&reg!=RET_FREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4187 use_float(1,reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4188 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4189
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
4190
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4191 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4192 code_ll2f(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4193 {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4194 set_lreg(RET_LREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4195 extern_conv("__floatdisf");
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4196 set_freg(RET_FREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4197 if (reg!=USE_CREG&&reg!=RET_FREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
4198 use_float(0,reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4199 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4200
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4201 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4202 code_ull2d(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4203 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4204 code_ll2d(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4205 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4206
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4207 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4208 code_ull2f(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4209 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
4210 code_ll2f(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4211 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4212
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4213 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4214
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4215 static char *
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4216 addze(int dir)
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4217 {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4218 return dir>0?"ze":"me";
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4219 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4220
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4221 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4222 code_lpreinc(int e1,int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4223 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4224 char *xrn,*drn_h,*drn_l;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4225 int dreg,xreg;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4226 int dir=caddr(e1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4227 if (car(e2)==LREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4228 use_longlong(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4229 printf("\taddic %s,%s,%d\n",
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4230 lregister_name_low(cadr(e2)),lregister_name_low(cadr(e2)), dir);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4231 printf("\tadd%s %s,%s\n", addze(dir),
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4232 lregister_name_high(cadr(e2)),lregister_name_high(cadr(e2)));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4233 if (cadr(reg)!=cadr(e2)) {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4234 lmove(cadr(reg),cadr(e2));
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4235 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4236 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4237 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4238 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4239 if(!is_int_reg(creg)) error(-1);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4240 emit_push();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4241 if (reg==USE_CREG) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4242 dreg=get_lregister(); if (!dreg) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4243 drn_h = lregister_name_high(dreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4244 drn_l = lregister_name_low(dreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4245 set_lreg(dreg,0); // free old lreg==creg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4246 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4247 drn_h = lregister_name_high(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4248 drn_l = lregister_name_low(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4249 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4250 xreg = emit_pop(0);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4251 xrn = register_name(xreg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4252 printf("\tlwz %s,%d(%s)\n",drn_l,SIZE_OF_INT,xrn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4253 printf("\tlwz %s,0(%s)\n",drn_h,xrn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4254 printf("\taddic %s,%s,%d\n",drn_l,drn_l,dir);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4255 printf("\tadd%s %s,%s\n",addze(dir),drn_h,drn_h);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4256 printf("\tstw %s,%d(%s)\n",drn_l,SIZE_OF_INT,xrn);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4257 printf("\tstw %s,0(%s)\n",drn_h,xrn);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4258 emit_pop_free(xreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4259 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4260
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4261 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4262 code_lpostinc(int e1,int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4263 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4264 char *xrn,*drn_h,*drn_l;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4265 char *nrn_h,*nrn_l;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4266 int dreg,nreg,xreg;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4267 int dir=caddr(e1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4268 if (car(e2)==LREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4269 use_longlong(reg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4270 lmove(cadr(reg),cadr(e2));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4271 printf("\taddic %s,%s,%d\n",
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4272 lregister_name_low(cadr(e2)),lregister_name_low(cadr(e2)), dir);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4273 printf("\tadd%s %s,%s\n", addze(dir),
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4274 lregister_name_high(cadr(e2)),lregister_name_high(cadr(e2)));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4275 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4276 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4277 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4278 if(!is_int_reg(creg)) error(-1);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4279 emit_push();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4280 nreg=get_lregister(); if (!nreg) error(-1);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4281 nrn_h = lregister_name_high(nreg);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4282 nrn_l = lregister_name_low(nreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4283 if (reg==USE_CREG) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4284 dreg=get_lregister(); if (!dreg) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4285 drn_h = lregister_name_high(dreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4286 drn_l = lregister_name_low(dreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4287 set_lreg(dreg,0); // free old lreg==creg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4288 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4289 drn_h = lregister_name_high(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4290 drn_l = lregister_name_low(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4291 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4292 xreg = emit_pop(0);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4293 xrn = register_name(xreg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4294 printf("\tlwz %s,%d(%s)\n",drn_l,SIZE_OF_INT,xrn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4295 printf("\tlwz %s,0(%s)\n",drn_h,xrn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4296 printf("\taddic %s,%s,%d\n",nrn_l,drn_l,dir);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4297 printf("\tadd%s %s,%s\n",addze(dir),nrn_h,drn_h);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4298 printf("\tstw %s,%d(%s)\n",nrn_l,SIZE_OF_INT,xrn);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4299 printf("\tstw %s,0(%s)\n",nrn_h,xrn);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
4300 emit_pop_free(xreg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4301 free_register(nreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4302 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4303
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4304 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4305 code_lassop(int op,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4306 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4307 int xreg;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4308 int edx,edx0=-1;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4309
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4310 // (*creg) op = pop()
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4311 xreg = emit_lpop(0); /* pop e3 value */
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4312 if (!is_int_reg(creg)) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4313 edx = ireg;
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4314 emit_push();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4315 use_longlong(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4316 if (regv_l(lreg)==edx || regv_h(lreg)==edx) {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4317 edx0 = get_register(); if(!edx0) error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4318 printf("# lassop\n\tmr %s,%s\n",register_name(edx0),register_name(edx));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4319 edx = edx0;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4320 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4321 printf("\tlwz %s,0(%s)\n",lregister_name_high(reg),
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4322 register_name(edx));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4323 printf("\tlwz %s,%d(%s)\n",lregister_name_low(reg),
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4324 SIZE_OF_INT,register_name(edx));
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4325 free_register(edx);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4326 ltosop(op,reg,xreg);
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4327 edx = emit_pop(0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4328 printf("\tstw %s,0(%s)\n",lregister_name_high(reg),
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4329 register_name(edx));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4330 printf("\tstw %s,%d(%s)\n",lregister_name_low(reg),
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4331 SIZE_OF_INT,register_name(edx));
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4332 free_register(edx);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4333 emit_lpop_free(xreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4334 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4335
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4336 void
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4337 code_register_lassop(int reg,int op) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4338 // reg op = pop()
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4339 int xreg=emit_lpop();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4340 ltosop(op,reg,xreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4341 emit_lpop_free(xreg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4342 }
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4343
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4344
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4345 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4346
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4347 void
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4348 code_save_stacks()
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4349 {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
4350 int i,reg;
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4351 for(i=0;i<reg_sp;i++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
4352 if ((reg=reg_stack[i])>=0) {
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4353 code_assign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4354 (reg_stack[i]=new_lvar(SIZE_OF_INT)),reg,0);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4355 reg_stack[i]= reg_stack[i]-REG_LVAR_OFFSET;
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4356 }
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4357 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4358 #if FLOAT_CODE
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4359 for(i=0;i<freg_sp;i++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
4360 if ((reg=freg_stack[i])>=0) {
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4361 code_dassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4362 (freg_stack[i]=new_lvar(SIZE_OF_DOUBLE)),reg,1);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4363 freg_stack[i]= freg_stack[i]-REG_LVAR_OFFSET;
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4364 }
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4365 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4366 #endif
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4367 #if LONGLONG_CODE
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4368 for(i=0;i<lreg_sp;i++) {
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4369 if ((reg=lreg_stack[i])>=0) {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
4370 code_lassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4371 (lreg_stack[i]=new_lvar(SIZE_OF_LONGLONG)),reg);
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4372 lreg_stack[i]= lreg_stack[i]-REG_LVAR_OFFSET;
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4373 }
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4374 }
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
4375 #endif
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4376 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4377
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4378 void
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4379 emit_lib(char *p[])
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4380 {
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
4381 while(*p) {
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
4382 printf("%s\n",*p++);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4383 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4384 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4385
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4386 void
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4387 code_closing()
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4388 {
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4389 #if FLOAT_CODE
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4390 if (d2u_lib_used) emit_lib(d2u_lib);
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4391 if (u2d_lib_used) emit_lib(u2d_lib);
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4392 if (float_one_lib_used) emit_lib(float_one_lib);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
4393 if (float_zero_lib_used) emit_lib(float_zero_lib);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4394 if (i2d_lib_used) emit_lib(i2d_lib);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4395 #endif
213
kono
parents: 212
diff changeset
4396 #if LONGLONG_CODE
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4397 if (asld_lib_used) emit_lib(asld_lib);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4398 if (lsrd_lib_used) emit_lib(lsrd_lib);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4399 if (asrd_lib_used) emit_lib(asrd_lib);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4400 #if 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4401 if (lumod_lib_used) emit_lib(lumod_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4402 if (lmod_lib_used) emit_lib(lmod_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4403 if (ludiv_lib_used) emit_lib(ludiv_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4404 if (ldiv_lib_used) emit_lib(ldiv_lib);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4405 #endif
213
kono
parents: 212
diff changeset
4406 #if FLOAT_CODE
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4407 #if 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4408 if (dl2ll_lib_used) emit_lib(dl2ll_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4409 if (d2ull_lib_used) emit_lib(d2ull_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4410 if (f2ll_lib_used) emit_lib(f2ll_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4411 if (f2ull_lib_used) emit_lib(f2ull_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4412 if (ll2d_lib_used) emit_lib(ll2d_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
4413 if (ll2f_lib_used) emit_lib(ll2f_lib);
213
kono
parents: 212
diff changeset
4414 #endif
kono
parents: 212
diff changeset
4415 #endif
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
4416 #endif
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4417 global_table();
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4418 /* printf("\t.ident \"Micro-C compiled\"\n"); */
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4419 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4420
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4421 /* end */
917947ffeb7c power pc version
kono
parents:
diff changeset
4422