annotate mc-code-powerpc.c @ 794:032dc03be02e

i64 arg_register in inline mode
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 23 Nov 2010 09:42:08 +0900 (2010-11-23)
parents 3bc6c34bfa2e
children a5f9e5a4db1b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
1 /* Micro-C Code Generation Part for Power PC (Mac OS X) */
607
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
2
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
3 /*
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
4 ************************************************************************
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
5 ** Copyright (C) 2006 Shinji Kono
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
6 ** 連絡先: 琉球大学情報工学科 河野 真治
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
7 ** (E-Mail Address: kono@ie.u-ryukyu.ac.jp)
607
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
8 **
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
9 ** このソースのいかなる複写,改変,修正も許諾します。ただし、
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
10 ** その際には、誰が貢献したを示すこの部分を残すこと。
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
11 ** 再配布や雑誌の付録などの問い合わせも必要ありません。
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
12 ** 営利利用も上記に反しない範囲で許可します。
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
13 ** バイナリの配布の際にはversion messageを保存することを条件とします。
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
14 ** このプログラムについては特に何の保証もしない、悪しからず。
607
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
15 **
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
16 ** Everyone is permitted to do anything on this program
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
17 ** including copying, modifying, improving,
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
18 ** as long as you don't try to pretend that you wrote it.
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
19 ** i.e., the above copyright notice has to appear in all copies.
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
20 ** Binary distribution requires original version messages.
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
21 ** You don't have to ask before copying, redistribution or publishing.
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
22 ** THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE.
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
23 ***********************************************************************
e055df7c1082 *** empty log message ***
kono
parents: 605
diff changeset
24 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
25
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
26 #include <stdio.h>
89
917947ffeb7c power pc version
kono
parents:
diff changeset
27 #include "mc.h"
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
28 #include "mc-parse.h"
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
29 #include "mc-code.h"
89
917947ffeb7c power pc version
kono
parents:
diff changeset
30 #include "mc-codegen.h"
917947ffeb7c power pc version
kono
parents:
diff changeset
31
615
2dee957ef988 test case on undeclared name
kono
parents: 612
diff changeset
32 #include "mc-include.c"
324
575481408653 minor fix
kono
parents: 320
diff changeset
33
664
ec1bac997e50 fix 387 floating point stack overflow
kono
parents: 663
diff changeset
34 // #undef __APPLE__
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
35
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
36 static
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
37 char *init_src0 =
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
38 #ifdef __APPLE__
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
39 "\
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
40 #define __ppc__ 1\n\
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
41 #define __BIG_ENDIAN__ 1\n\
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
42 #define __STDC__ 1\n\
469
cf1c2c42b7c8 fix iassop
kono
parents: 468
diff changeset
43 #define __GNUC__ 1\n\
526
9ff5cd7afe2f *** empty log message ***
kono
parents: 518
diff changeset
44 #define __inline inline\n\
9ff5cd7afe2f *** empty log message ***
kono
parents: 518
diff changeset
45 #define __inline__ inline\n\
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
46 #define __builtin_va_list int\n\
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
47 #define __builtin_va_start(ap,arg) ap=(((int)(&arg))+sizeof(arg))\n\
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
48 #define __builtin_va_arg(ap,type) (*((type *)ap)++)\n\
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
49 #define alloca __builtin_alloca\n\
616
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
50 #define __FLT_MIN__ 1.17549435e-38F\n\
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
51 #define __DBL_MIN__ 2.2250738585072014e-308\n\
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
52 #define __LDBL_MIN__ 2.00416836000897277799610805135016e-292L\n\
636
72c4a8137fff String concatenation fix
kono
parents: 616
diff changeset
53 "
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
54 #else
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
55 "\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
56 #define __inline inline\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
57 #define __extension__\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
58 #define __const const\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
59 #define __inline__ inline\n\
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
60 #define __builtin_va_list int\n\
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
61 #define __builtin_va_start(ap,arg) ap=(((int)(&arg))+sizeof(arg))\n\
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
62 #define __builtin_va_arg(ap,type) (*((type *)ap)++)\n\
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
63 // #define __builtin_va_arg(ap,type) (*((type *)__builtin_va_next((type),&ap)))\n\
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
64 #define alloca __builtin_alloca\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
65 #define __DBL_MIN_EXP__ (-1021)\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
66 #define __FLT_MIN__ 1.17549435e-38F\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
67 #define __CHAR_BIT__ 8\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
68 #define __WCHAR_MAX__ 2147483647\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
69 #define __DBL_DENORM_MIN__ 4.9406564584124654e-324\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
70 #define __FLT_EVAL_METHOD__ 0\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
71 #define __DBL_MIN_10_EXP__ (-307)\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
72 #define __FINITE_MATH_ONLY__ 0\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
73 #define __GNUC_PATCHLEVEL__ 0\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
74 #define __SHRT_MAX__ 32767\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
75 #define __LDBL_MAX__ 1.79769313486231580793728971405301e+308L\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
76 #define __UINTMAX_TYPE__ long long unsigned int\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
77 #define __linux 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
78 #define __CHAR_UNSIGNED__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
79 #define __LDBL_MAX_EXP__ 1024\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
80 #define __linux__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
81 #define __SCHAR_MAX__ 127\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
82 #define __USER_LABEL_PREFIX__ \n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
83 #define __STDC_HOSTED__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
84 #define __LDBL_HAS_INFINITY__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
85 #define __DBL_DIG__ 15\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
86 #define __FLT_EPSILON__ 1.19209290e-7F\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
87 #define _CALL_SYSV 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
88 #define __LDBL_MIN__ 2.00416836000897277799610805135016e-292L\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
89 #define __unix__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
90 #define __DECIMAL_DIG__ 33\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
91 #define __gnu_linux__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
92 #define __LDBL_HAS_QUIET_NAN__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
93 #define __GNUC__ 4\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
94 #define __DBL_MAX__ 1.7976931348623157e+308\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
95 #define __DBL_HAS_INFINITY__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
96 #define __DBL_MAX_EXP__ 1024\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
97 #define __LONG_LONG_MAX__ 9223372036854775807LL\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
98 #define __PPC__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
99 #define __GXX_ABI_VERSION 1002\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
100 #define __FLT_MIN_EXP__ (-125)\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
101 #define __DBL_MIN__ 2.2250738585072014e-308\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
102 #define __DBL_HAS_QUIET_NAN__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
103 #define __REGISTER_PREFIX__ \n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
104 #define __NO_INLINE__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
105 #define _ARCH_PPC 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
106 #define __FLT_MANT_DIG__ 24\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
107 #define __VERSION__ \"mc-powerpc\"\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
108 #define __BIG_ENDIAN__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
109 #define __powerpc__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
110 #define unix 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
111 #define __SIZE_TYPE__ unsigned int\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
112 #define __ELF__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
113 #define __FLT_RADIX__ 2\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
114 #define __LDBL_EPSILON__ 4.94065645841246544176568792868221e-324L\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
115 #define __GNUC_RH_RELEASE__ 3\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
116 #define __LDBL_DIG__ 31\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
117 #define __FLT_HAS_QUIET_NAN__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
118 #define __FLT_MAX_10_EXP__ 38\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
119 #define __LONG_MAX__ 2147483647L\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
120 #define __FLT_HAS_INFINITY__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
121 #define __unix 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
122 #define _BIG_ENDIAN 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
123 #define linux 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
124 #define __PPC 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
125 #define __LDBL_MANT_DIG__ 106\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
126 #define __WCHAR_TYPE__ long int\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
127 #define __FLT_DIG__ 6\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
128 #define __powerpc 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
129 #define __INT_MAX__ 2147483647\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
130 #define __LONG_DOUBLE_128__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
131 #define __FLT_MAX_EXP__ 128\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
132 #define __DBL_MANT_DIG__ 53\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
133 #define __WINT_TYPE__ unsigned int\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
134 #define __LDBL_MIN_EXP__ (-968)\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
135 #define __LDBL_MAX_10_EXP__ 308\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
136 #define __DBL_EPSILON__ 2.2204460492503131e-16\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
137 #define PPC 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
138 #define powerpc 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
139 #define __INTMAX_MAX__ 9223372036854775807LL\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
140 #define __FLT_DENORM_MIN__ 1.40129846e-45F\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
141 #define __FLT_MAX__ 3.40282347e+38F\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
142 #define __FLT_MIN_10_EXP__ (-37)\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
143 #define __INTMAX_TYPE__ long long int\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
144 #define __GNUC_MINOR__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
145 #define __DBL_MAX_10_EXP__ 308\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
146 #define __LDBL_DENORM_MIN__ 4.94065645841246544176568792868221e-324L\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
147 #define __STDC__ 1\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
148 #define __PTRDIFF_TYPE__ int\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
149 #define __LDBL_MIN_10_EXP__ (-291)\n\
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
150 "
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
151 #endif
636
72c4a8137fff String concatenation fix
kono
parents: 616
diff changeset
152 #ifdef __APPLE__
72c4a8137fff String concatenation fix
kono
parents: 616
diff changeset
153 "#define __APPLE__ 1\n"
72c4a8137fff String concatenation fix
kono
parents: 616
diff changeset
154 #endif
72c4a8137fff String concatenation fix
kono
parents: 616
diff changeset
155 ;
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
156
89
917947ffeb7c power pc version
kono
parents:
diff changeset
157 #define TEXT_EMIT_MODE 0
917947ffeb7c power pc version
kono
parents:
diff changeset
158 #define DATA_EMIT_MODE 1
917947ffeb7c power pc version
kono
parents:
diff changeset
159 #define RODATA_EMIT_MODE 2
917947ffeb7c power pc version
kono
parents:
diff changeset
160
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
161 static void ld_indexx(int byte, int n, int xreg,int reg,int sign);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
162 static void local_table(void);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
163 static void shift(char *op, int creg,int reg);
444
8bec605d1701 small sized struct
kono
parents: 440
diff changeset
164 static int push_struct(int e4,int t,int arg);
518
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
165 static void ascii(char *s);
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
166
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
167 #ifdef __APPLE__
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
168 static char lpfx[] = "L_";
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
169 static char npfx[] = "_";
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
170 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
171 static char lpfx[] = ".LC";
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
172 static char npfx[] = "";
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
173 #endif
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
174
555
ac181d7f9c82 IA32 eval order
kono
parents: 554
diff changeset
175 int eval_order = NORMAL;
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
176
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
177 static int creg;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
178
89
917947ffeb7c power pc version
kono
parents:
diff changeset
179 static int output_mode = TEXT_EMIT_MODE;
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
180 int data_alignment = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
181
917947ffeb7c power pc version
kono
parents:
diff changeset
182 static int code_disp_label;
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
183 static int code_setup;
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
184 static int r1_offset_label;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
185 static int lvar_offset_label;
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
186 static int max_func_arg_label;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
187 #ifndef __APPLE__
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
188 static int arg_offset_label;
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
189 #endif
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
190 static int arg_offset_v = 0;
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
191
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
192 static int reg_save;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
193 static int freg_save;
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
194
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
195 static int freg,ireg,lreg;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
196
238
d64e9a6a66bd ia32 long long code written.
kono
parents: 237
diff changeset
197 int code_lassop_p = 1;
d64e9a6a66bd ia32 long long code written.
kono
parents: 237
diff changeset
198
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
199 #define SIZE_OF_INT 4
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
200 #define SIZE_OF_SHORT 2
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
201 #define SIZE_OF_FLOAT 4
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
202 #define SIZE_OF_DOUBLE 8
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
203 #define SIZE_OF_LONGLONG 8
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
204 #define ENDIAN 1
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
205 #define ENDIAN_L 1
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
206 #define ENDIAN_D 1
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
207
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
208 static int reg_sp; /* REGister Stack-Pointer */
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
209 static int reg_stack[MAX_MAX]; /* 実際のレジスタの領域 */
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
210
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
211 /* floating point registers */
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
212
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
213 static int freg_sp; /* floating point REGister Stack-Pointer */
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
214 static int freg_stack[MAX_MAX]; /* 実際のレジスタの領域 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
215
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
216 static int lreg_sp; /* longlong REGister Stack-Pointer */
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
217 static int lreg_stack[MAX_MAX]; /* 実際のレジスタの領域 */
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
218
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
219 #ifdef __APPLE__
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
220 #define REG_sp 1
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
221 #define REG_fp 30
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
222 #define REG_VAR_BASE 29
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
223 #define REG_VAR_MIN 18
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
224 #define MIN_TMP_REG 3
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
225 #define MAX_TMP_REG 11
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
226
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
227 #define FREG_VAR_BASE 31
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
228 #define FREG_VAR_MIN 20
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
229 #define MIN_TMP_FREG 1
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
230 #define MAX_TMP_FREG 14
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
231 #else
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
232 #define REG_sp 1
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
233 #define REG_fp 31
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
234 #define REG_VAR_BASE 29
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
235 #define REG_VAR_MIN 18
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
236 #define MIN_TMP_REG 3
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
237 #define MAX_TMP_REG 11
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
238
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
239 #define FREG_VAR_BASE 31
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
240 #define FREG_VAR_MIN 20
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
241 #define MIN_TMP_FREG 1
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
242 #define MAX_TMP_FREG 9
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
243 #endif
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
244
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
245 int MAX_REGISTER=30; /* PowerPCのレジスタを10個まで使う*/
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
246 int MAX_FREGISTER=31;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
247 #define REAL_MAX_REGISTER 32 /* PowerPCのレジスタが32ということ*/
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
248 #define REAL_MAX_FREGISTER 32 /* PowerPCのレジスタが32ということ*/
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
249 #define REAL_MAX_LREGISTER 16
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
250
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
251 #define FREG_OFFSET REAL_MAX_REGISTER
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
252 #define LREG_OFFSET (REAL_MAX_REGISTER+REAL_MAX_FREGISTER)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
253
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
254 #define RET_REGISTER 3
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
255 #define RET_FREGISTER (1+FREG_OFFSET)
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
256 #define RET_LREGISTER_H 3 /* high word */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
257 #define RET_LREGISTER_L 4 /* low word */
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
258 #define RET_LREGISTER LREG_OFFSET
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
259
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
260 int MAX_INPUT_REGISTER_VAR = 11-MIN_TMP_REG;
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
261 int MAX_CODE_INPUT_REGISTER_VAR = 11-MIN_TMP_REG;
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
262 int MAX_INPUT_DREGISTER_VAR = MAX_TMP_FREG-MIN_TMP_FREG;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
263 int MAX_INPUT_FREGISTER_VAR = MAX_TMP_FREG-MIN_TMP_FREG;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
264 int MAX_CODE_INPUT_DREGISTER_VAR = MAX_TMP_FREG-MIN_TMP_FREG;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
265 int MAX_CODE_INPUT_FREGISTER_VAR = MAX_TMP_FREG-MIN_TMP_FREG;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
266
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
267 static int powerpc_regs[REAL_MAX_REGISTER+REAL_MAX_FREGISTER+
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
268 REAL_MAX_LREGISTER];
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
269 static int regv_h0[REAL_MAX_LREGISTER];
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
270 static int regv_l0[REAL_MAX_LREGISTER];
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
271 #define regv_h(i) regv_h0[(i)-LREG_OFFSET]
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
272 #define regv_l(i) regv_l0[(i)-LREG_OFFSET]
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
273
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
274 static int *regs = powerpc_regs;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
275
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
276 #define CREG_REGISTER (MAX_TMP_REG)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
277 #define FREG_FREGISTER (MAX_TMP_FREG+FREG_OFFSET)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
278 #define LREG_LREGISTER (MAX_TMP_REG+LREG_OFFSET)
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
279
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
280
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
281 static int max_reg_var, max_freg_var;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
282
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
283 #ifdef __APPLE__
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
284 static char *reg_name[] = {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
285 "r0","r1","r2","r3","r4","r5","r6","r7","r8","r9",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
286 "r10","r11","r12","r13","r14","r15","r16","r17","r18","r19",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
287 "r20","r21","r22","r23","r24","r25","r26","r27","r28","r29",
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
288 "r30","r31",
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
289 "f0","f1","f2","f3","f4","f5","f6","f7","f8","f9",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
290 "f10","f11","f12","f13","f14","f15","f16","f17","f18","f19",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
291 "f20","f21","f22","f23","f24","f25","f26","f27","f28","f29",
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
292 "f30","f31"
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
293 };
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
294 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
295 // PS3 (PowerPC Fedora Core)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
296 static char *reg_name[] = {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
297 "0","1","2","3","4","5","6","7","8","9",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
298 "10","11","12","13","14","15","16","17","18","19",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
299 "20","21","22","23","24","25","26","27","28","29",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
300 "30","31",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
301 "0","1","2","3","4","5","6","7","8","9",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
302 "10","11","12","13","14","15","16","17","18","19",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
303 "20","21","22","23","24","25","26","27","28","29",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
304 "30","31"
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
305 };
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
306 #endif
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
307
716
21f770a3b298 *** empty log message ***
kono
parents: 715
diff changeset
308 #define round4(i) align(i,4)
21f770a3b298 *** empty log message ***
kono
parents: 715
diff changeset
309 #define round16(i) align(i,16)
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
310
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
311 #define register_name(i) reg_name[i]
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
312 #define fregister_name(i) reg_name[i]
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
313 #define lregister_name_low(i) reg_name[regv_l(i)]
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
314 #define lregister_name_high(i) reg_name[regv_h(i)]
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
315
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
316 #define DEBUG_REG 1
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
317 #if DEBUG_REG
467
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
318 char *rn(int i) { return register_name(i); }
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
319 char *fn(int i) { return fregister_name(i); }
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
320 char *lln(int i) { return lregister_name_low(i); }
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
321 char *lhn(int i) { return lregister_name_high(i); }
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
322 int ll(int i) { return regv_l(i); }
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
323 int lh(int i) { return regv_h(i); }
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
324 #endif
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
325
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
326 #define is_int_reg(i) (0<=i&&i<REAL_MAX_REGISTER)
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
327 #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
328 #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
329
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
330 #define use_int(reg) if (reg==USE_CREG) reg=use_int0()
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
331 static
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
332 int use_int0() {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
333 int i = creg;
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
334 if (!i||!ireg||!is_int_reg(i)) {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
335 if (lreg) { if (regs[lreg]!=REG_VAR) free_register(lreg); lreg = 0; }
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
336 if (!ireg) ireg = get_register();
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
337 // else if (ireg!=i) free_register(i);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
338 i = ireg;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
339 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
340 if (!regs[i]) regs[i]=USING_REG;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
341 creg = i;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
342 return i;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
343 }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
344
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
345 #if LONGLONG_CODE
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
346 #define use_longlong(reg) if (reg==USE_CREG) reg=use_longlong0()
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
347
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
348 static
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
349 int use_longlong0() {
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
350 int i = creg;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
351 if (!is_longlong_reg(i)) {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
352 if (ireg) { if (regs[ireg]!=REG_VAR) free_register(ireg); ireg=0; }
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
353 if (!lreg||!regs[lreg]) lreg = get_lregister();
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
354 // else if (lreg!=i) free_register(i);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
355 i = lreg;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
356 }
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
357 if (!regv_l(i)) regv_l(i) = get_register();
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
358 if (!regv_h(i)) regv_h(i) = get_register();
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
359 if (!regs[i]) regs[i]=USING_REG;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
360 if (!regs[regv_l(i)]) regs[regv_l(i)]=USING_REG;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
361 if (!regs[regv_h(i)]) regs[regv_h(i)]=USING_REG;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
362 creg = i;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
363 return i;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
364 }
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
365 #endif
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
366
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
367
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
368 #if FLOAT_CODE
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
369 #define use_float(d,reg) if (reg==USE_CREG) reg=d?use_double0():use_float0()
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
370 static
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
371 int use_float0() {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
372 int i = creg;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
373 if (!is_float_reg(i)) {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
374 if (lreg) { if (regs[lreg]!=REG_VAR) free_register(lreg); lreg = 0; }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
375 if (!freg) freg = get_dregister(0);
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
376 else if (freg!=i) if (regs[i]!=REG_VAR) free_register(i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
377 i = freg;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
378 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
379 if (!regs[i]) regs[i]=USING_REG;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
380 creg = i;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
381 return i;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
382 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
383 static
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
384 int use_double0() {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
385 int i = creg;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
386 if (!is_float_reg(i)) {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
387 if (lreg) { if (regs[lreg]!=REG_VAR) free_register(lreg); lreg = 0; }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
388 if (!freg) freg = get_dregister(1);
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
389 else if (freg!=i) if (regs[i]!=REG_VAR) free_register(i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
390 i = freg;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
391 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
392 if (!regs[i]) regs[i]=USING_REG;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
393 creg = i;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
394 return i;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
395 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
396 #endif
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
397
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
398
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
399 #if FLOAT_CODE
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
400 #ifdef __APPLE__
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
401 static
348
e77b3a7002ad name table reconfigure compiled. debug start.
kono
parents: 345
diff changeset
402 NMTBL float_zero = {"_float_zero",0,STATIC,FLOAT,0};
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
403 static
348
e77b3a7002ad name table reconfigure compiled. debug start.
kono
parents: 345
diff changeset
404 NMTBL float_one = {"_float_one",0,STATIC,FLOAT,0};
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
405 #else
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
406 static
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
407 NMTBL float_zero = {"__float_zero",0,STATIC,FLOAT,0};
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
408 static
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
409 NMTBL float_one = {"__float_one",0,STATIC,FLOAT,0};
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
410 #endif
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
411
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
412
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
413 static char * fload(int d);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
414 static int code_d1(double d);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
415 static int code_d2(double d);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
416 #endif
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
417 #if LONGLONG_CODE
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
418 static int code_l1(long long ll);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
419 static int code_l2(long long ll);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
420 #endif
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
421
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
422 static void code_save_input_registers(int dots);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
423 static void set_ireg(int,int);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
424 static void set_freg(int,int);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
425 static void set_lreg(int,int);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
426 static void jcond(int l, char cond);
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
427 static void register_usage(char *s);
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
428
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
429
153
33b39002ac58 MIPS continue
kono
parents: 148
diff changeset
430 static int max_func_args;
33b39002ac58 MIPS continue
kono
parents: 148
diff changeset
431 static int my_func_args;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
432 #define ARG_LVAR_OFFSET 0x10000000
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
433
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
434 /*
89
917947ffeb7c power pc version
kono
parents:
diff changeset
435
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
436 r0 return value etc.
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
437 r3-r10 input register
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
438 r22-r29 saved register variable (input register for code segment)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
439 r30 stack pointer
917947ffeb7c power pc version
kono
parents:
diff changeset
440 r31 0
917947ffeb7c power pc version
kono
parents:
diff changeset
441 r1 frame pointer
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
442
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
443 f0 return value etc.
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
444 f1-r8 input register
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
445 f24-f31 saved register variable
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
446
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
447 function call stack frame (Mac OS X)
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
448 <-------r1_offset------------------------------>
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
449 r30
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
450 <------------lvar_offset0------>
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
451 <--lvar_offset--> r1
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
452 r+ +------------+---+---------------+----------+--------------+----+ -
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
453 callee arg xx register save local caller arg xx
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
454 reg_save disp max_func_args*SIZE_OF_INT
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
455 lvar>0 lvar<0 lvar>0x1000 0000
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
456
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
457 function call stack frame (PS3)
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
458 <---------------r1_offset------------------------------>
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
459 r30-->
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
460 <--arg_offset-->
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
461 xxx<----------lvar_offset--> <----r1
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
462 r+ +------+---+------+---------------+----------+--------------+----+ -
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
463 callee arg reg arg register save local caller arg xx
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
464 reg_save disp max_func_args*SIZE_OF_INT
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
465 lvar>0 lvar<0 lvar>0x1000 0000
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
466
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
467
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
468 code segment stack frame
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
469
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
470 * gotoを呼び出した関数のr1 ! r1(goto前のr1)
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
471 # * r30 <---r1_offset---------> r1
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
472 r+ +----------+--+----------+----------------+-----------+----------+----+
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
473 cousin arg xx reg save !callee arg !code local caller arg xx
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
474 r20-r29 lvar>0 lvar<0 lvar>0x1000 000
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
475 f20-f31 <-my_func_args--><--disp-----><-max_func_arg->
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
476 *SIZE_OF_INT *SIZE_OF_INT
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
477
89
917947ffeb7c power pc version
kono
parents:
diff changeset
478 */
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
479
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
480
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
481 #ifdef __APPLE__
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
482
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
483 #define arg_offset 24
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
484 #define arg_offset1 24
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
485
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
486 #define func_disp_offset 68
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
487 #define func_disp_offset1 16
649
f1d71563a46a array size fix
kono
parents: 647
diff changeset
488 #define code_disp_offset0 (0)
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
489
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
490 #else
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
491
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
492 #define arg_offset (8)
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
493 #define arg_offset0 (8)
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
494 #define arg_offset1 (8)
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
495
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
496 #define func_disp_offset (8)
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
497 #define code_disp_offset0 (0)
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
498
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
499 #endif
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
500
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
501 int disp_offset = 0;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
502
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
503 #define CODE_LVAR(l) ((l)+code_disp_offset0)
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
504 #define CODE_CALLER_ARG(l) ((l)+arg_offset1)
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
505 #define FUNC_LVAR(l) ((l)+disp_offset)
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
506 #ifdef __APPLE__
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
507 #define CALLEE_ARG(l) ((l)+arg_offset)
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
508 #else
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
509 #define CALLEE_ARG(l) ((l)+arg_offset+((l>=arg_offset_v)?arg_offset0:0))
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
510 #endif
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
511 #define CALLER_ARG(l) ((l)+arg_offset1)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
512
647
fe23fe842b82 *** empty log message ***
kono
parents: 638
diff changeset
513
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
514 void
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
515 code_offset_set()
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
516 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
517 #if 0
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
518 int l;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
519 #endif
647
fe23fe842b82 *** empty log message ***
kono
parents: 638
diff changeset
520 int lvar_offsetv =
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
521 round16(-disp+max_func_args*SIZE_OF_INT)+func_disp_offset;
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
522 int r1_offsetv = round16(lvar_offsetv-reg_save);
647
fe23fe842b82 *** empty log message ***
kono
parents: 638
diff changeset
523
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
524 printf(".set %s%d,%d\n",lpfx,lvar_offset_label,r1_offsetv-lvar_offsetv);
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
525 if (r1_offsetv-lvar_offsetv > 65000) error(-1);
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
526 // too large function arguments?
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
527 printf(".set %s%d,%d\n",lpfx,r1_offset_label,r1_offsetv);
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
528 if (max_func_arg_label) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
529 printf(".set %s%d,%d\n",lpfx,max_func_arg_label,
647
fe23fe842b82 *** empty log message ***
kono
parents: 638
diff changeset
530 round16(max_func_args*SIZE_OF_INT)+24);
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
531 max_func_arg_label = 0;
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
532 }
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
533
417
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
534 #if 0
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
535 printf("## reg_save %d\n",reg_save);
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
536 printf("## function %s\n",fnptr->nm);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
537 l = ARG_LVAR_OFFSET;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
538 printf("## offset call0\t%d\n",CALLER_ARG);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
539 l = ARG_LVAR_OFFSET+max_func_args*SIZE_OF_INT;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
540 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
541 l = disp;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
542 printf("## offset lvarn\t%d %d\n",FUNC_LVAR+lvar_offsetv,disp);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
543 l = 0;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
544 printf("## offset lvar0\t%d\n",FUNC_LVAR+lvar_offsetv);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
545 l = -reg_save;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
546 printf("## offset regs\t%d\n",FUNC_LVAR+lvar_offsetv);
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
547 printf("## offset r1off\t%d\n",r1_offsetv);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
548 l = 0;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
549 printf("## offset carg0\t%d\n",CALLEE_ARG+r1_offsetv);
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
550 l = my_func_args;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
551 printf("## offset cargn\t%d %d\n",CALLEE_ARG+r1_offsetv,my_func_args);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
552 #endif
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
553 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
554
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
555 static int large_offset_reg;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
556
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
557 #ifdef __APPLE__
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
558
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
559 static void
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
560 lvar(int l)
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
561 {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
562 char *rn;
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
563 if (!large_offset_reg) {
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 542
diff changeset
564 if (is_code(fnptr)) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
565 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
566 printf("lo16(%d)(r1)\n",CODE_CALLER_ARG(l-ARG_LVAR_OFFSET));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
567 } else
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
568 printf("lo16(%d)(r30)\n",CODE_LVAR(l));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
569 } else if (l<0) { /* local variable */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
570 printf("lo16(%d)(r30)\n",FUNC_LVAR(l));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
571 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
572 printf("lo16(%d)(r1)\n",CALLER_ARG(l-ARG_LVAR_OFFSET));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
573 } else { /* callee's arguments */
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
574 printf("lo16(%d+%s%d)(r30)\n",CALLEE_ARG(l),lpfx,lvar_offset_label);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
575 }
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
576 } else {
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
577 rn = register_name(large_offset_reg);
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 542
diff changeset
578 if (is_code(fnptr)) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
579 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
580 printf("lo16(%d)(%s)\n",CODE_CALLER_ARG(l-ARG_LVAR_OFFSET),rn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
581 } else
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
582 printf("lo16(%d)(%s)\n",CODE_LVAR(l),rn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
583 } else if (l<0) { /* local variable */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
584 printf("lo16(%d)(%s)\n",FUNC_LVAR(l),rn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
585 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
586 printf("lo16(%d)(%s)\n",CALLER_ARG(l-ARG_LVAR_OFFSET),rn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
587 } else { /* callee's arguments */
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
588 printf("lo16(%d+%s%d)(%s)\n",CALLEE_ARG(l),lpfx,lvar_offset_label,rn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
589 }
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
590 free_register(large_offset_reg);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
591 }
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
592 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
593
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
594 /* if size of local variables / input variables is more then 64k,
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
595 lo16 does not work. We have to use ha16 also. But we can't know
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
596 the exact size in one path compile. We may safely use lvar16ha
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
597 if disp or max_func_args > 32k. Of course this is redundant for
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
598 smaller offset. But who cares who use very large local variables?
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
599 */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
600
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
601 #define LARGE_OFFSET(l) (l<-32000||l>32000)
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
602
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
603 static void
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
604 lvar_intro(int l)
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
605 {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
606 char *rn;
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
607 large_offset_reg=0;
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 542
diff changeset
608 if (is_code(fnptr)) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
609 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
610 if (LARGE_OFFSET(CODE_CALLER_ARG(l-ARG_LVAR_OFFSET))) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
611 rn=register_name(large_offset_reg=get_register());
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
612 printf("\taddis %s,r1,ha16(%d)\n",rn,
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
613 CODE_CALLER_ARG(l-ARG_LVAR_OFFSET));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
614 }
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
615 } else {
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
616 if (LARGE_OFFSET(CODE_LVAR(l))) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
617 rn=register_name(large_offset_reg=get_register());
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
618 printf("\taddis %s,r30,ha16(%d)\n",rn,CODE_LVAR(l));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
619 }
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
620 }
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
621 } else if (l<0) { /* local variable */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
622 if (LARGE_OFFSET(FUNC_LVAR(l))) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
623 rn=register_name(large_offset_reg=get_register());
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
624 printf("\taddis %s,r30,ha16(%d)\n",rn,FUNC_LVAR(l));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
625 }
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
626 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
627 if (LARGE_OFFSET(CALLER_ARG(l-ARG_LVAR_OFFSET))) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
628 rn=register_name(large_offset_reg=get_register());
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
629 printf("\taddis %s,r1,ha16(%d)\n",rn,CALLER_ARG(l-ARG_LVAR_OFFSET));
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
630 }
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
631 } else { /* callee's arguments */
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
632 if (LARGE_OFFSET(CALLEE_ARG(l))) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
633 rn=register_name(large_offset_reg=get_register());
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
634 printf("\taddis %s,r30,ha16(%d+%s%d)\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
635 rn,CALLEE_ARG(l),lpfx,lvar_offset_label);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
636 }
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
637 }
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
638 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
639
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
640 #else /* PS3 */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
641
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
642 static void
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
643 lvar(int l)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
644 {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
645 char *rn;
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
646 if (!large_offset_reg) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
647 if (is_code(fnptr)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
648 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
649 printf("%d@l(1)\n",CODE_CALLER_ARG(l-ARG_LVAR_OFFSET));
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
650 } else
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
651 printf("%d@l(%d)\n",CODE_LVAR(l),REG_fp);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
652 } else if (l<0) { /* local variable */
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
653 printf("%d@l(%d)\n",FUNC_LVAR(l),REG_fp);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
654 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
655 printf("%d@l(1)\n",CALLER_ARG(l-ARG_LVAR_OFFSET));
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
656 } else { /* callee's arguments */
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
657 printf("%d+%s%d@l(%d)\n",CALLEE_ARG(l),lpfx,lvar_offset_label,REG_fp) ;
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
658 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
659 } else {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
660 rn = register_name(large_offset_reg);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
661 if (is_code(fnptr)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
662 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
663 printf("%d@l(%s)\n",CODE_CALLER_ARG(l-ARG_LVAR_OFFSET),rn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
664 } else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
665 printf("%d@l(%s)\n",CODE_LVAR(l),rn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
666 } else if (l<0) { /* local variable */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
667 printf("%d@l(%s)\n",FUNC_LVAR(l),rn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
668 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
669 printf("%d@l(%s)\n",CALLER_ARG(l-ARG_LVAR_OFFSET),rn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
670 } else { /* callee's arguments */
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
671 printf("%d+%s%d@l(%s)\n",CALLEE_ARG(l),lpfx,lvar_offset_label,rn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
672 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
673 free_register(large_offset_reg);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
674 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
675 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
676
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
677 /* if size of local variables / input variables is more then 64k,
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
678 lo16 does not work. We have to use ha16 also. But we can't know
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
679 the exact size in one path compile. We may safely use lvar16ha
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
680 if disp or max_func_args > 32k. Of course this is redundant for
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
681 smaller offset. But who cares who use very large local variables?
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
682 */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
683
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
684 #define LARGE_OFFSET(l) (l<-32000||l>32000)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
685
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
686 static void
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
687 lvar_intro(int l)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
688 {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
689 char *rn;
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
690 large_offset_reg=0;
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
691 if (is_code(fnptr)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
692 if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
693 if (LARGE_OFFSET(CODE_CALLER_ARG(l-ARG_LVAR_OFFSET))) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
694 rn=register_name(large_offset_reg=get_register());
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
695 printf("\taddis %s,1,%d@ha\n",rn,
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
696 CODE_CALLER_ARG(l-ARG_LVAR_OFFSET));
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
697 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
698 } else {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
699 if (LARGE_OFFSET(CODE_LVAR(l))) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
700 rn=register_name(large_offset_reg=get_register());
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
701 printf("\taddis %s,%d,%d@ha\n",rn,REG_fp,CODE_LVAR(l));
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
702 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
703 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
704 } else if (l<0) { /* local variable */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
705 if (LARGE_OFFSET(FUNC_LVAR(l))) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
706 rn=register_name(large_offset_reg=get_register());
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
707 printf("\taddis %s,%d,%d@ha\n",rn,REG_fp,FUNC_LVAR(l));
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
708 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
709 } else if (l>=ARG_LVAR_OFFSET) { /* caller's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
710 if (LARGE_OFFSET(CALLER_ARG(l-ARG_LVAR_OFFSET))) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
711 rn=register_name(large_offset_reg=get_register());
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
712 printf("\taddis %s,1,%d@ha\n",rn,CALLER_ARG(l-ARG_LVAR_OFFSET));
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
713 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
714 } else { /* callee's arguments */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
715 if (LARGE_OFFSET(CALLEE_ARG(l))) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
716 rn=register_name(large_offset_reg=get_register());
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
717 printf("\taddis %s,%d,%d+%s%d@ha\n",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
718 rn,REG_fp,CALLEE_ARG(l),lpfx,lvar_offset_label);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
719 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
720 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
721 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
722 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
723
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
724 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
725 code_lvar(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
726 use_int(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
727 lvar_intro(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
728 printf("\tla %s,",register_name(reg));
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
729 lvar(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
730 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
731
89
917947ffeb7c power pc version
kono
parents:
diff changeset
732 void
917947ffeb7c power pc version
kono
parents:
diff changeset
733 code_init(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
734 {
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
735 /* called only once */
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
736
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
737 init_src = init_src0;
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
738 size_of_int = SIZE_OF_INT;
715
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
739 size_of_pointer = SIZE_OF_INT;
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
740 size_of_short = SIZE_OF_SHORT;
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
741 size_of_float = SIZE_OF_FLOAT;
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
742 size_of_double = SIZE_OF_DOUBLE;
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
743 size_of_longlong = SIZE_OF_LONGLONG;
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
744 endian = ENDIAN;
717
c1542a2482b1 *** empty log message ***
kono
parents: 716
diff changeset
745 struct_align = size_of_int;
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
746
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
747 regv_l(RET_LREGISTER) = RET_LREGISTER_L;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
748 regv_h(RET_LREGISTER) = RET_LREGISTER_H;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
749 }
917947ffeb7c power pc version
kono
parents:
diff changeset
750
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
751 extern void
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
752 emit_reinit()
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
753 {
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
754 /* called for each file */
328
7ecb023d29b8 macro/codegen reorganization done.
kono
parents: 327
diff changeset
755 /* heap is initialized here, setup ptr cache free list */
605
1078c7e3bfb0 minor fixes
kono
parents: 603
diff changeset
756 output_mode = -1;
328
7ecb023d29b8 macro/codegen reorganization done.
kono
parents: 327
diff changeset
757 init_ptr_cache();
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
758 }
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
759
89
917947ffeb7c power pc version
kono
parents:
diff changeset
760 void
917947ffeb7c power pc version
kono
parents:
diff changeset
761 gexpr_code_init(void){
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
762 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
763
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
764 void
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
765 code_gexpr(int e){
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
766 if ((is_int_reg(creg))&&regs[creg]==REG_VAR)
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
767 creg = ireg = 0;
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
768 else if (is_float_reg(creg)&&regs[creg]==REG_VAR)
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
769 creg = lreg = 0;
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
770 else if (is_longlong_reg(creg)&&regs[creg]==REG_VAR)
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
771 creg = lreg = 0;
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
772 // if (is_int_reg(creg) && creg!=ireg) error(-1);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
773 }
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
774
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
775 /*
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
776 set variable storage type and offset
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
777 save register contents to our stack
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
778 for & operator
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
779 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
780
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
781 void
794
032dc03be02e i64 arg_register in inline mode
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 784
diff changeset
782 code_arg_register(NMTBL *fnptr, int in)
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
783 {
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
784 int args = fnptr->dsp;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
785 NMTBL *n;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
786 int reg_var = 0;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
787 int freg_var = 0;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
788 int type;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
789 int reg;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
790 int i;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
791 int is_code0 = is_code(fnptr);
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
792 int dots;
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
793 arg_offset_v = 0;
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
794
794
032dc03be02e i64 arg_register in inline mode
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 784
diff changeset
795 if (in) return;
032dc03be02e i64 arg_register in inline mode
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 784
diff changeset
796
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
797 function_type(fnptr->ty,&dots);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
798 while (args) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
799 /* process in reverse order */
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
800 n = ncadddr(args);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
801 type = n->ty;
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
802 if (scalar(type)) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
803 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
804 n->sc = REGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
805 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
806 regs[n->dsp]= INPUT_REG;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
807 reg_var++;
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
808 arg_offset_v += (caddr(args)=SIZE_OF_INT);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
809 }
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
810 } else if (type==FLOAT) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
811 if ((reg = get_input_dregister_var(freg_var,n,is_code0,0))) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
812 n->sc = DREGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
813 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
814 regs[n->dsp]= INPUT_REG;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
815 freg_var++;
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
816 arg_offset_v += (caddr(args)=size(type));
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
817 }
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
818 } else if (type==DOUBLE) {
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
819 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
820 n->sc = DREGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
821 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
822 regs[n->dsp]= INPUT_REG;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
823 freg_var++;
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
824 arg_offset_v += (caddr(args)=size(type));
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
825 }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
826 } else if (type==LONGLONG||type==ULONGLONG) {
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
827 if ((reg = get_input_lregister_var(reg_var,n,is_code0))) {
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
828 n->sc = LREGISTER;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
829 n->dsp = cadr(reg);
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
830 regs[i=n->dsp]= INPUT_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
831 regs[regv_l(i)]= INPUT_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
832 regs[regv_h(i)]= INPUT_REG;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
833 reg_var+=2;
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
834 arg_offset_v += (caddr(args)=size(type));
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
835 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
836 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
837 args = cadr(args);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
838 }
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
839 if (is_function(fnptr)) {
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
840 #ifndef __APPLE__
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
841 if (dots) {
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
842 arg_offset_v =
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
843 MAX_INPUT_REGISTER_VAR*SIZE_OF_INT +
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
844 MAX_INPUT_DREGISTER_VAR*SIZE_OF_DOUBLE;
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
845 }
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
846 printf(".set %s%d, %d\n",lpfx, arg_offset_label,
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
847 arg_offset_v+ arg_offset);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
848 #endif
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
849 code_save_input_registers(dots);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
850 }
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
851 }
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
852
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
853
89
917947ffeb7c power pc version
kono
parents:
diff changeset
854 int
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
855 get_register(void)
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
856 { /* 使われていないレジスタを調べる */
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
857 int i,j,reg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
858 for(i=MAX_TMP_REG;i>MIN_TMP_REG;i--) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
859 if (regs[i]) continue; /* 使われている */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
860 regs[i]=USING_REG; /* そのレジスタを使うことを宣言し */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
861 return i; /* その場所を表す番号を返す */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
862 }
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
863 /* PTR_CACHE をつぶす */
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
864 if ((i=last_ptr_cache())) {
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
865 clear_ptr_cache_reg(i);
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
866 regs[i]=USING_REG; /* そのレジスタを使うことを宣言し */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
867 return i; /* その場所を表す番号を返す */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
868 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
869 /* search register stack */
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
870 for(i=0;i<reg_sp;i++) {
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
871 if ((reg=reg_stack[i])>=0) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
872 code_assign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
873 (j=new_lvar(SIZE_OF_INT)),reg,0);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
874 reg_stack[i]= j-REG_LVAR_OFFSET;
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
875 return reg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
876 }
917947ffeb7c power pc version
kono
parents:
diff changeset
877 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
878 #if LONGLONG_CODE
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
879 /* search register stack */
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
880 for(i=0;i<lreg_sp;i++) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
881 if ((reg=lreg_stack[i])>=0) {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
882 code_lassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
883 (j=new_lvar(SIZE_OF_LONGLONG)),reg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
884 lreg_stack[i]= j-REG_LVAR_OFFSET;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
885 free_register(reg);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
886 return get_register();
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
887 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
888 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
889 #endif
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
890 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
891 reg =REG_VAR_BASE-i;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
892 if (! regs[reg]) { /* 使われていないなら */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
893 regs[reg]=USING_REG; /* そのレジスタを使うことを宣言し */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
894 if (i>max_reg_var) max_reg_var=i;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
895 return reg; /* その場所を表す番号を返す */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
896 }
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
897 }
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
898 /* 空いている場所がないなら、エラー (いったい誰が使ってるの?) */
528
d6fff671793a minor fix inline
kono
parents: 527
diff changeset
899 error(RGERR); return creg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
900 }
917947ffeb7c power pc version
kono
parents:
diff changeset
901
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
902 #if 0
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
903 int
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
904 get_register(void)
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
905 {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
906 int i = get_register0();
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
907 printf("## get_register %d\n",i);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
908 return i;
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
909 }
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
910 #endif
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
911
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
912 int
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
913 pop_register(void)
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
914 { /* レジスタから値を取り出す */
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
915 return reg_stack[--reg_sp];
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
916 }
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
917
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
918 #if FLOAT_CODE
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
919 int
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
920 get_dregister(int d)
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
921 { /* 使われていないレジスタを調べる */
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
922 int i,reg;
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
923 for(i=MAX_TMP_FREG+FREG_OFFSET;i>MIN_TMP_FREG+FREG_OFFSET;i--) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
924 if (regs[i]) continue; /* 使われている */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
925 regs[i]=USING_REG; /* そのレジスタを使うことを宣言し */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
926 return i; /* その場所を表す番号を返す */
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
927 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
928 /* search register stack */
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
929 for(i=0;i<freg_sp;i++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
930 if ((reg=freg_stack[i])>=0) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
931 code_dassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
932 (freg_stack[i]=new_lvar(SIZE_OF_DOUBLE)),reg,1);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
933 freg_stack[i]= freg_stack[i]-REG_LVAR_OFFSET;
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
934 return reg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
935 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
936 }
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
937 for(i=0;i<FREG_VAR_BASE-REG_VAR_MIN;i++) {
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
938 reg =FREG_VAR_BASE-i+FREG_OFFSET;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
939 if (! regs[reg]) { /* 使われていないなら */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
940 regs[reg]=USING_REG; /* そのレジスタを使うことを宣言し */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
941 if (i>max_freg_var) max_freg_var=i;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
942 return reg; /* その場所を表す番号を返す */
130
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
943 }
fea1b499d47b fix register var save
kono
parents: 129
diff changeset
944 }
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
945 /* 空いている場所がないなら、エラー (いったい誰が使ってるの?) */
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
946 error(REG_ERR); return freg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
947 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
948
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
949 #if 0
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
950 int
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
951 get_dregister(int d)
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
952 {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
953 int i = get_dregister0(d);
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
954 printf("## get_dregister %d\n",i);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
955 return i;
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
956 }
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
957 #endif
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
958
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
959 int
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
960 pop_fregister(void)
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
961 { /* レジスタから値を取り出す */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
962 return freg_stack[--freg_sp];
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
963 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
964 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
965
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
966
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
967 int
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
968 get_lregister0()
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
969 {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
970 int i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
971 for(i=LREG_OFFSET+1;i<REAL_MAX_LREGISTER+LREG_OFFSET;i++) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
972 if (regs[i]==0) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
973 return i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
974 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
975 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
976 return -1;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
977 }
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
978
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
979 static int
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
980 get_lregister1(int n,int m)
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
981 {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
982 int i;
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
983 #if 1
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
984 for(i=LREG_OFFSET;i<REAL_MAX_LREGISTER+LREG_OFFSET;i++) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
985 if (regv_l(i)==n && regv_h(i)==m) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
986 return i;
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
987 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
988 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
989 #endif
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
990 return get_lregister0();
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
991 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
992
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
993
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
994 static void
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
995 cleanup_lregister0()
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
996 {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
997 int i;
536
a349f9c2aef5 MIPS set_ireg/lreg interferance
kono
parents: 534
diff changeset
998 // we should not have this, but powerpc's function
a349f9c2aef5 MIPS set_ireg/lreg interferance
kono
parents: 534
diff changeset
999 // lost some input register variables.
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1000 #if 1
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1001 for(i=LREG_OFFSET+1;i<REAL_MAX_LREGISTER+LREG_OFFSET;i++) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1002 if (regs[i]) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1003 if(!regv_l(i) && !regv_h(i)) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1004 regs[i]=0;
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1005 // printf("## cleanup lreg 0 %d\n",i);
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1006 } else if(!regs[regv_l(i)] && !regs[regv_h(i)]) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1007 free_register(i);
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1008 // printf("## cleanup lreg 1 %d\n",i);
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1009 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1010 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1011 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1012 #endif
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1013 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1014
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1015 int
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1016 get_lregister()
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1017 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1018 int h,l,i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1019 i = get_lregister0();
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1020 if (i==-1) return -1;
220
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
1021 h = get_register();
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
1022 if (h==-1) return -1;
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
1023 regv_h(i) = h;
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
1024 l = get_register();
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1025 if (l==-1) {
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1026 if (regs[h]!=REG_VAR) free_register(h);
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1027 if (regs[i]!=REG_VAR) free_register(i);
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1028 return -1;
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1029 }
220
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
1030 regv_l(i) = l;
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1031 if (!regs[i]) regs[i]=USING_REG;
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1032 // printf("## get_lregister %d %s %s\n",i, lregister_name_high(i), lregister_name_low(i));
220
97246ddfe8ab *** empty log message ***
kono
parents: 219
diff changeset
1033 return i;
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1034 }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1035
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1036 int
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1037 get_lregister_var(NMTBL *n)
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1038 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1039 int i,j,ll;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1040 int max_reg_var_save=max_reg_var;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1041 ll = get_lregister0();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
1042 if (ll==-1) goto not_found;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1043 if (regs[ll]==0) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1044 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1045 if (! regs[REG_VAR_BASE-i]) { /* 使われていないなら */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1046 /* そのレジスタを使うことを宣言し */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1047 regs[REG_VAR_BASE-i]=USING_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1048 if (i>max_reg_var) max_reg_var=i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1049 for(j=0;j<REG_VAR_BASE-REG_VAR_MIN;j++) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1050 if (! regs[REG_VAR_BASE-j]) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1051 /* 使われていないなら */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1052 /* そのレジスタを使うことを宣言し */
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1053 regs[REG_VAR_BASE-j]=REG_VAR;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1054 if (j>max_reg_var) max_reg_var=j;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1055 /* その場所を表す番号を返す */
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1056 regs[ll]=REG_VAR;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1057 regv_l(ll) = REG_VAR_BASE-j;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1058 regv_h(ll) = REG_VAR_BASE-i;
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1059 return list3n(LREGISTER,ll,n);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1060 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1061 }
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1062 /* ひとつしかなかった */
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1063 regs[REG_VAR_BASE-i]=0;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1064 max_reg_var=max_reg_var_save;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1065 goto not_found;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1066 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1067 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1068 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1069 not_found:
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1070 return list3n(LVAR,new_lvar(SIZE_OF_LONGLONG),0);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1071 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1072
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1073 void
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1074 emit_pop_free(int xreg)
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1075 {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1076 if (xreg>=0 && xreg!=creg && regs[xreg]!=REG_VAR)
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1077 free_register(xreg);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1078 }
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1079
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1080 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1081
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1082 free_register(int i) { /* いらなくなったレジスタを開放 */
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1083 // printf("## free_register %d\n",i);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1084 if (is_longlong_reg(i)) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1085 regs[regv_l(i)]=0;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1086 regs[regv_h(i)]=0;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1087 }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1088 regs[i]=0;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1089 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1090
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1091 extern void
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1092 use_ptr_cache(int r)
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1093 {
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1094 regs[r]=PTRC_REG;
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1095 }
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1096
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1097 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1098 get_input_dregister_var(int i,NMTBL *n,int is_code,int d)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1099 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1100 if (is_code) {
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
1101 if(!(i<FREG_VAR_BASE-FREG_VAR_MIN)) return 0;
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
1102 i = FREG_VAR_BASE-i+FREG_OFFSET;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1103 } else {
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1104 if (i<0||i>=MAX_INPUT_DREGISTER_VAR) return 0;
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
1105 i = i+MIN_TMP_FREG+FREG_OFFSET;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1106 }
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1107 return list3n(DREGISTER,i,n);
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1108 }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1109
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1110 int
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1111 get_input_lregister_var(int i,NMTBL *n,int is_code)
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1112 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1113 int ll;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1114 if (i!=-1) {
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1115 if (is_code) {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1116 if(!(i<REG_VAR_BASE-REG_VAR_MIN)) return 0;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1117 i = REG_VAR_BASE-i;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1118 } else {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
1119 if (i<0||i>=MAX_INPUT_REGISTER_VAR) return 0;
674
68d70527b0c0 *** empty log message ***
kono
parents: 673
diff changeset
1120 #ifndef __APPLE__
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
1121 if (i%2==1) i++;
674
68d70527b0c0 *** empty log message ***
kono
parents: 673
diff changeset
1122 #endif
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1123 i = i+MIN_TMP_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1124 }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1125 ll = get_lregister1(i,i+1);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
1126 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
1127 regv_l(ll)=i;
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
1128 regv_h(ll)=i+1;
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
1129 #else
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1130 regv_h(ll)=i;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1131 regv_l(ll)=i+1;
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
1132 #endif
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1133 } else { error(-1); ll=LREG_OFFSET+2; }
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1134 return list3n(LREGISTER,ll,n);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1135 }
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1136
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1137 int
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1138 get_input_register_var(int i,NMTBL *n,int is_code)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1139 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1140 if (is_code) {
131
09379ec2a74b *** empty log message ***
kono
parents: 130
diff changeset
1141 if(!(i<REG_VAR_BASE-REG_VAR_MIN)) return 0;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1142 i = REG_VAR_BASE-i;
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1143 } else {
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1144 if (i<0||i>=MAX_INPUT_REGISTER_VAR) return 0;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1145 i = i+MIN_TMP_REG;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1146 }
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1147 return list3n(REGISTER,i,n);
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1148 }
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1149
145
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
1150 /* double register case? */
fb61020a9b48 fix macro
kono
parents: 144
diff changeset
1151
135
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1152 int
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1153 get_input_register_var_1(int i,NMTBL *n,int is_code)
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1154 {
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1155 if (is_code) {
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1156 if(!(i<REG_VAR_BASE-REG_VAR_MIN)) return 0;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1157 i = REG_VAR_BASE-i;
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1158 } else {
4cfd24d1b929 fix power-pc basic test
kono
parents: 134
diff changeset
1159 if (i<0||i>=MAX_INPUT_REGISTER_VAR+1) return 0;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1160 i = i+MIN_TMP_REG;
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1161 }
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1162 return list3n(REGISTER,i,n);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1163 }
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1164
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1165 int
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1166 free_register_count(int d)
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1167 {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1168 int i,count,fcount;
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1169 fcount = count = 0;
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1170 for(i=0;i<MAX_REGISTER;i++) {
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1171 if (! regs[i]) count++;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1172 }
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1173 for(i=0;i<MAX_FREGISTER;i++) {
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1174 if (! regs[i+FREG_OFFSET]) fcount++;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1175 }
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
1176 printf("## free reg %d freg %d\n",count,fcount);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1177 return d?fcount:count;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1178 }
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
1179
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1180 #if 0
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1181 static int
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1182 register_full(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
1183 {
917947ffeb7c power pc version
kono
parents:
diff changeset
1184 int i;
917947ffeb7c power pc version
kono
parents:
diff changeset
1185 for(i=0;i<MAX_REGISTER;i++) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1186 if (! regs[i]) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1187 return 0;
917947ffeb7c power pc version
kono
parents:
diff changeset
1188 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1189 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1190 return 1;
917947ffeb7c power pc version
kono
parents:
diff changeset
1191 }
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1192 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1193
917947ffeb7c power pc version
kono
parents:
diff changeset
1194 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1195 free_all_register(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
1196 {
917947ffeb7c power pc version
kono
parents:
diff changeset
1197 int i;
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
1198 // printf("## free_all register\n");
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1199 #if LONGLONG_CODE
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1200 for(i=0;i<REAL_MAX_LREGISTER;i++) {
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1201 regs[i+LREG_OFFSET]=0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1202 regv_l(i+LREG_OFFSET) = 0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1203 regv_h(i+LREG_OFFSET) = 0;
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
1204 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1205 lreg = 0;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
1206 // set_lreg(LREG_LREGISTER,0);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1207 #endif
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1208 for(i=0;i<MAX_REGISTER;i++) { regs[i]=0; }
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
1209 for(i=0;i<MAX_FREGISTER;i++) { regs[i+FREG_OFFSET]=0; }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1210 #if FLOAT_CODE
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1211 freg = get_dregister(1);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1212 set_freg(FREG_FREGISTER,0);
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1213 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
1214 ireg = creg = get_register();
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1215 set_ireg(CREG_REGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1216 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1217 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1218
345
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1219 extern int
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1220 code_register_overlap(int s,int t)
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1221 {
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1222 switch(car(s)) {
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1223 case REGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1224 switch(car(t)) {
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1225 case DREGISTER: case FREGISTER: break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1226 case REGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1227 if(cadr(s)==cadr(t)) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1228 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1229 case LREGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1230 if(cadr(s)==regv_l(cadr(t))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1231 if(cadr(s)==regv_h(cadr(t))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1232 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1233 }
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1234 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1235 case DREGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1236 case FREGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1237 switch(car(t)) {
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1238 case REGISTER: case LREGISTER: break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1239 case DREGISTER: case FREGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1240 if(cadr(s)==cadr(t)) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1241 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1242 }
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1243 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1244 case LREGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1245 switch(car(t)) {
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1246 case DREGISTER: case FREGISTER: break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1247 case REGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1248 if(cadr(t)==regv_l(cadr(s))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1249 if(cadr(t)==regv_h(cadr(s))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1250 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1251 case LREGISTER:
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1252 if(regv_l(cadr(t))==regv_l(cadr(s))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1253 if(regv_l(cadr(t))==regv_h(cadr(s))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1254 if(regv_h(cadr(t))==regv_l(cadr(s))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1255 if(regv_h(cadr(t))==regv_h(cadr(s))) return 1;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1256 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1257 }
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1258 break;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1259 }
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1260 return 0;
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1261 }
2b3946ee4fc9 *** empty log message ***
kono
parents: 341
diff changeset
1262
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
1263 // int lreg_count;
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1264
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1265 void
917947ffeb7c power pc version
kono
parents:
diff changeset
1266 register_usage(char *s)
917947ffeb7c power pc version
kono
parents:
diff changeset
1267 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
1268 #if 1
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1269 int i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1270 #endif
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1271 #define USAGE_MAX 4
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1272 if (!lsrc) return;
467
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
1273 printf("## %d: %s:",lineno,s);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1274 if (ireg) printf(" creg=%s",register_name(ireg));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1275 if (freg) printf(" freg=%s",fregister_name(freg));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1276 if (lreg) printf(" lreg=%s,%s",lregister_name_high(lreg),
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1277 lregister_name_low(lreg));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1278 #if 1
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1279 for(j=0,i=0;i<MAX_REGISTER;i++) if (regs[i]) j++;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1280 if (j>USAGE_MAX) {
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1281 printf("\n## regs(%d):",j);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1282 for(i=0;i<MAX_REGISTER;i++) { printf("%d",regs[i]); }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1283 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1284 if (reg_sp>0) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1285 printf(" stack ");
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1286 for(i=reg_sp;i>0;i--) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1287 if(reg_stack[i-1]>=0) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1288 printf(" %s",register_name(reg_stack[i-1]));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1289 } else
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1290 printf(",%d",reg_stack[i-1]);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1291 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1292 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1293 for(j=0,i=0;i<MAX_FREGISTER;i++) if (regs[i+FREG_OFFSET]) j++;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1294 if (j>USAGE_MAX) {
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1295 printf("\n## freg(%d):",j);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1296 for(i=0;i<MAX_FREGISTER;i++) { printf("%d",regs[i+FREG_OFFSET]); }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1297 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1298 if (freg_sp>0) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1299 printf(" fstack ");
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1300 for(i=freg_sp;i>0;i--) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1301 if(freg_stack[i-1]>=0) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1302 printf(" %s",fregister_name(freg_stack[i-1]));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1303 } else
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1304 printf(",%d",freg_stack[i-1]);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1305 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1306 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1307
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1308 for(j=0,i=0;i<REAL_MAX_LREGISTER;i++) if (regs[i+LREG_OFFSET]) j++;
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
1309 // lreg_count = j;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1310 if (j>USAGE_MAX) {
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1311 printf("\n## lreg(%d):",j);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1312 for(i=0;i<REAL_MAX_LREGISTER;i++) { printf("%d",regs[i+LREG_OFFSET]); }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1313 #if 0
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1314 for(i=0;i<REAL_MAX_LREGISTER;i++) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1315 if (regs[i+LREG_OFFSET] && regv_l(i+LREG_OFFSET))
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1316 printf(" %s-%s", lregister_name_high(i+LREG_OFFSET),lregister_name_low(i+LREG_OFFSET));
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1317 else if (regv_l(i+LREG_OFFSET))
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1318 printf(" *%s-%s", lregister_name_high(i+LREG_OFFSET),lregister_name_low(i+LREG_OFFSET));
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1319 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
1320 #endif
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1321 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1322 if (lreg_sp>0) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1323 printf(" lstack ");
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1324 for(i=lreg_sp;i>0;i--) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1325 if(lreg_stack[i-1]>=0) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1326 printf(" %s",lregister_name_high(lreg_stack[i-1]));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1327 printf(",%s",lregister_name_low(lreg_stack[i-1]));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1328 } else
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1329 printf(",%d",lreg_stack[i-1]);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1330 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1331 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1332 #endif
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1333 printf("\n");
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1334 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1335
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1336 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1337
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1338 gexpr_init(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
1339 {
917947ffeb7c power pc version
kono
parents:
diff changeset
1340 while(reg_sp > 0) {
292
6d4231b6f9fe switch statement prepare
kono
parents: 291
diff changeset
1341 error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1342 free_register(reg_stack[--reg_sp]);
917947ffeb7c power pc version
kono
parents:
diff changeset
1343 }
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
1344 while(freg_sp > 0) {
292
6d4231b6f9fe switch statement prepare
kono
parents: 291
diff changeset
1345 error(-1);
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
1346 free_register(freg_stack[--freg_sp]);
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
1347 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1348 while(lreg_sp > 0) {
292
6d4231b6f9fe switch statement prepare
kono
parents: 291
diff changeset
1349 error(-1);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1350 free_register(lreg_stack[--lreg_sp]);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
1351 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1352 use_int0();
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
1353 text_mode(0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1354 gexpr_code_init();
917947ffeb7c power pc version
kono
parents:
diff changeset
1355 register_usage("gexpr_init");
917947ffeb7c power pc version
kono
parents:
diff changeset
1356 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1357
917947ffeb7c power pc version
kono
parents:
diff changeset
1358
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1359 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1360
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1361 emit_init(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
1362 {
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
1363 /* called before each declaration */
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
1364
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1365 free_all_register();
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
1366 max_reg_var=-1; max_freg_var=-1;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1367 reg_sp = 0;
123
5f180dc8d84e intel fix.
kono
parents: 122
diff changeset
1368 freg_sp = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1369 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1370
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1371
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1372 int
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
1373 get_register_var(NMTBL *n)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1374 {
917947ffeb7c power pc version
kono
parents:
diff changeset
1375 int i;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
1376 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1377 if (! regs[REG_VAR_BASE-i]) { /* 使われていないなら */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1378 /* そのレジスタを使うことを宣言し */
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1379 regs[REG_VAR_BASE-i]=REG_VAR;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1380 if (i>max_reg_var) max_reg_var=i;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1381 /* その場所を表す番号を返す */
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1382 return list3n(REGISTER,REG_VAR_BASE-i,n);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
1383 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1384 }
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1385 return list3n(LVAR,new_lvar(SIZE_OF_INT),0);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1386 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1387
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1388 int
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
1389 get_dregister_var(NMTBL *n,int d)
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1390 {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
1391 int i;
148
e0eba2993c37 MIPS version (incomplete)
kono
parents: 147
diff changeset
1392 for(i=0;i<FREG_VAR_BASE-FREG_VAR_MIN;i++) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1393 if (! regs[FREG_VAR_BASE-i+FREG_OFFSET]) { /* 使われていないなら */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1394 regs[FREG_VAR_BASE-i+FREG_OFFSET]=REG_VAR; /*そのレジスタを使うことを宣言し*/
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1395 if (i>max_freg_var) max_freg_var=i;
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1396 /* その場所を表す番号を返す */
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
1397 return list3n(DREGISTER,
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
1398 FREG_VAR_BASE-i+FREG_OFFSET,n);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1399 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1400 }
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1401 return list3n(LVAR,new_lvar(SIZE_OF_DOUBLE),0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1402 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1403
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
1404 int
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1405 emit_push()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1406 {
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
1407 int new_reg,old=creg;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1408 if (!is_int_reg(creg)) error(-1);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
1409 if (reg_sp>MAX_MAX) error(-1);
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1410 new_reg = get_register(); /* 絶対に取れる */
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1411 if (new_reg==creg) error(-1); // freed creg
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
1412 reg_stack[reg_sp++] = creg; /* push するかわりにレジスタを使う */
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
1413 ireg = creg = new_reg;
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
1414 if (!regs[creg]) regs[creg]=USING_REG;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
1415 return old;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1416 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1417
917947ffeb7c power pc version
kono
parents:
diff changeset
1418 int
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1419 emit_pop(int type)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1420 {
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
1421 int xreg,reg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1422 xreg=pop_register();
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1423 if (xreg<= -REG_LVAR_OFFSET) {
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
1424 reg = get_register();
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1425 code_rlvar(REG_LVAR_OFFSET+xreg,reg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
1426 free_lvar(REG_LVAR_OFFSET+xreg);
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
1427 xreg = reg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
1428 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1429 return xreg;
917947ffeb7c power pc version
kono
parents:
diff changeset
1430 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1431
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1432 #ifdef __APPLE__
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
1433 static int code_base;
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1434 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1435
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1436 extern void
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1437 code_ptr_cache_def(int r,NMTBL *nptr)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1438 {
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
1439 char *rrn = register_name(r);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1440 #ifdef __APPLE__
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 542
diff changeset
1441 if (nptr->sc==STATIC && !(is_code(nptr)||is_function(nptr))) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1442 printf("\taddis %s,r31,ha16(_%s-L_%d)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1443 rrn,nptr->nm,code_base);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1444 printf("\tla %s,lo16(_%s-L_%d)(%s)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1445 rrn,nptr->nm,code_base,rrn);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1446 } else {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1447 printf("\taddis %s,r31,ha16(L_%s$non_lazy_ptr-L_%d)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1448 rrn,nptr->nm,code_base);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1449 printf("\tlwz %s,lo16(L_%s$non_lazy_ptr-L_%d)(%s)\n",
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1450 rrn,nptr->nm,code_base,rrn);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1451 }
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1452 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1453 printf("\tlis %s,%s@ha\n",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1454 rrn,nptr->nm);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1455 printf("\tla %s,%s@l(%s)\n",
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1456 rrn,nptr->nm,rrn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1457 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1458 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1459
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1460 static char *cload(int sz) { return sz==1?"lbz":sz==SIZE_OF_SHORT?"lhz":"lwz"; }
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1461 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
1462
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1463 static void
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1464 cext(int sign,int sz,int reg)
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1465 {
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1466 char *crn = register_name(reg);
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1467 if (sign) {
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1468 if (sz==1)
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1469 printf("\textsb %s,%s\n",crn,crn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1470 else if (sz==SIZE_OF_SHORT)
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1471 printf("\textsh %s,%s\n",crn,crn);
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1472 } else {
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1473 if (sz==1)
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1474 printf("\trlwinm %s,%s,0,0xff\n",crn,crn);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
1475 else if (sz==SIZE_OF_SHORT)
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1476 printf("\trlwinm %s,%s,0,0xffff\n",crn,crn);
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1477 }
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1478 }
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1479
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1480
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1481 void
92
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1482 code_label(int labelno)
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1483 {
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1484 clear_ptr_cache();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1485 printf("%s%d:\n",lpfx,labelno);
92
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1486 }
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1487
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1488 static void
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1489 code_add(int reg,int offset,int r)
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1490 {
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1491 char *crn = register_name(reg);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1492 char *rrn = register_name(r);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1493 if (offset==0) {
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1494 if(r!=reg)
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1495 printf("\tmr %s,%s\n",crn,rrn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
1496 } else if (LARGE_OFFSET(offset)) {
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1497 #ifdef __APPLE__
556
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1498 printf("\tla %s,lo16(%d)(%s)\n",crn,offset,rrn);
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1499 printf("\taddis %s,%s,ha16(%d)\n",crn,crn,offset);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1500 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1501 printf("\tla %s,%d@l(%s)\n",crn,offset,rrn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1502 printf("\taddis %s,%s,%d@ha\n",crn,crn,offset);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1503 #endif
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1504 } else
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1505 printf("\taddi %s,%s,%d\n",crn,rrn,offset);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1506 }
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1507
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1508 static void
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1509 code_ld(char *ld,int reg,int offset,int r)
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1510 {
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1511 char *crn = register_name(reg);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1512 char *rrn = register_name(r);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
1513 if (LARGE_OFFSET(offset)) {
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1514 #ifdef __APPLE__
556
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1515 printf("\taddis %s,%s,ha16(%d)\n",crn,rrn,offset);
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1516 printf("\t%s %s,lo16(%d)(%s)\n",ld,crn,offset,crn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1517 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1518 printf("\taddis %s,%s,%d@ha\n",crn,rrn,offset);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1519 printf("\t%s %s,%d@l(%s)\n",ld,crn,offset,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1520 #endif
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1521 } else
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1522 printf("\t%s %s,%d(%s)\n",ld,crn,offset,rrn);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1523 }
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1524
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1525 static void
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1526 code_ldf(char *ld,char *crn,int offset,int r)
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1527 {
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1528 char *rrn = register_name(r);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1529 int reg;
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1530 char *lrn;
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1531 if (offset<-32768||32767<offset) {
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1532 lrn = register_name(reg = get_register());
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1533 #ifdef __APPLE__
556
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1534 printf("\taddis %s,%s,ha16(%d)\n",lrn,rrn,offset);
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1535 printf("\t%s %s,lo16(%d)(%s)\n",ld,crn,offset,lrn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1536 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1537 printf("\taddis %s,%s,%d@ha\n",lrn,rrn,offset);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1538 printf("\t%s %s,%d@l(%s)\n",ld,crn,offset,lrn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1539 #endif
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1540 free_register(reg);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1541 } else
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1542 printf("\t%s %s,%d(%s)\n",ld,crn,offset,rrn);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1543 }
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
1544
92
e7f8515ba882 *** empty log message ***
kono
parents: 91
diff changeset
1545 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1546 code_gvar(int e1,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1547 use_int(reg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1548 code_add(reg,cadr(e1),get_ptr_cache(ncaddr(e1)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1549 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1550 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1551
917947ffeb7c power pc version
kono
parents:
diff changeset
1552 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1553 code_rgvar(int e1,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1554 use_int(reg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1555 code_ld("lwz",reg,cadr(e1),get_ptr_cache(ncaddr(e1)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1556 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1557
917947ffeb7c power pc version
kono
parents:
diff changeset
1558 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1559 code_crgvar(int e1,int reg,int sign,int sz){
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1560 use_int(reg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1561 code_ld(cload(sz),reg,cadr(e1),get_ptr_cache(ncaddr(e1)));
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1562 cext(sign,sz,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1563 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1564
165
kono
parents: 164
diff changeset
1565
kono
parents: 164
diff changeset
1566
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1567 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1568 code_register(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1569 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1570 if (reg!=e2)
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1571 printf("\tmr %s,%s\n",register_name(reg),register_name(e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1572 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1573
353
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1574 extern void
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1575 code_i2c(int reg)
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1576 {
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1577 use_int(reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1578 cext(1,1,reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1579 }
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1580
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1581 extern void
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1582 code_i2s(int reg)
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1583 {
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1584 use_int(reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1585 cext(1,SIZE_OF_SHORT,reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1586 }
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1587
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1588 extern void
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1589 code_u2uc(int reg)
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1590 {
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1591 use_int(reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1592 cext(0,1,reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1593 }
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1594
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1595 extern void
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1596 code_u2us(int reg)
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1597 {
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1598 use_int(reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1599 cext(0,SIZE_OF_SHORT,reg);
41ed77cb9c67 name table reogranization, extendable cheap done.
kono
parents: 350
diff changeset
1600 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1601
917947ffeb7c power pc version
kono
parents:
diff changeset
1602 void
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1603 code_rlvar(int e2,int reg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1604 use_int(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1605 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1606 printf("\tlwz %s,",register_name(reg));
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1607 lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1608 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1609
917947ffeb7c power pc version
kono
parents:
diff changeset
1610 void
165
kono
parents: 164
diff changeset
1611 code_crlvar(int e2,int reg,int sign,int sz) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1612 use_int(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1613 lvar_intro(e2);
165
kono
parents: 164
diff changeset
1614 printf("\t%s %s,",cload(sz),register_name(reg));
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1615 lvar(e2);
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1616 cext(sign,sz,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1617 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1618
917947ffeb7c power pc version
kono
parents:
diff changeset
1619 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1620 code_fname(NMTBL *n,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1621 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1622 use_int(reg);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
1623 r = get_ptr_cache(n);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1624 if(r!=reg)
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1625 printf("\tmr %s,%s\n",register_name(reg),register_name(r));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1626 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1627 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1628
363
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1629 void
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1630 code_label_value(int label,int reg) {
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1631 char *crn;
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1632 use_int(reg);
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1633 crn = register_name(reg);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1634 #ifdef __APPLE__
363
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1635 printf("\taddis %s,r31,ha16(L_%d-L_%d)\n",crn,label,code_base);
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1636 printf("\tla %s,lo16(L_%d-L_%d)(%s)\n",crn,label,code_base,crn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1637 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1638 printf("\tlis %s,.LC%d@ha\n",crn,label);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1639 printf("\tla %s,.LC%d@l(%s)\n",crn,label,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1640 #endif
363
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1641 return;
f3f2b7906d50 label extension
kono
parents: 355
diff changeset
1642 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1643
917947ffeb7c power pc version
kono
parents:
diff changeset
1644 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1645 code_const(int e2,int reg) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1646 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1647 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1648 crn = register_name(reg);
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
1649 // printf("## 0x%08x\n",e2);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1650 #ifdef __APPLE__
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1651 if (-32768<e2&&e2<32768)
917947ffeb7c power pc version
kono
parents:
diff changeset
1652 printf("\tli %s,%d\n",crn,e2);
599
df04bc5fd5fe *** empty log message ***
kono
parents: 594
diff changeset
1653 else if ((e2&0xffff)==0)
df04bc5fd5fe *** empty log message ***
kono
parents: 594
diff changeset
1654 printf("\tlis %s,ha16(%d)\n",crn,e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1655 else {
917947ffeb7c power pc version
kono
parents:
diff changeset
1656 printf("\tlis %s,ha16(%d)\n",crn,e2);
917947ffeb7c power pc version
kono
parents:
diff changeset
1657 printf("\taddi %s,%s,lo16(%d)\n",crn,crn,e2);
917947ffeb7c power pc version
kono
parents:
diff changeset
1658 }
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1659 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1660 if (-32768<e2&&e2<32768)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1661 printf("\tli %s,%d\n",crn,e2);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1662 else if ((e2&0xffff)==0)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1663 printf("\tlis %s,%d@ha\n",crn,e2);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1664 else {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1665 printf("\tlis %s,%d@ha\n",crn,e2);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1666 printf("\taddi %s,%s,%d@l\n",crn,crn,e2);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1667 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1668 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1669 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1670
917947ffeb7c power pc version
kono
parents:
diff changeset
1671 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1672 code_neg(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1673 use_int(creg);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
1674 printf("\tneg %s,%s\n", register_name(creg), register_name(creg));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1675 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1676
917947ffeb7c power pc version
kono
parents:
diff changeset
1677
917947ffeb7c power pc version
kono
parents:
diff changeset
1678 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1679 code_not(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1680 use_int(creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1681 printf("\tnor %s,%s,%s\n",
917947ffeb7c power pc version
kono
parents:
diff changeset
1682 register_name(creg), register_name(creg),register_name(creg));
917947ffeb7c power pc version
kono
parents:
diff changeset
1683 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1684
917947ffeb7c power pc version
kono
parents:
diff changeset
1685
917947ffeb7c power pc version
kono
parents:
diff changeset
1686 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1687 code_lnot(int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1688 use_int(creg);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1689 #ifdef __APPLE__
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1690 printf("\tsubfic r0,%s,0\n", register_name(creg));
917947ffeb7c power pc version
kono
parents:
diff changeset
1691 printf("\tadde %s,r0,%s\n", register_name(creg),register_name(creg));
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1692 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1693 printf("\tsubfic 0,%s,0\n", register_name(creg));
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1694 printf("\tadde %s,0,%s\n", register_name(creg),register_name(creg));
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1695 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1696 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1697
917947ffeb7c power pc version
kono
parents:
diff changeset
1698 void
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1699 code_preinc(int e1,int e2,int dir,int sign,int sz,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1700 char *xrn,*drn;
917947ffeb7c power pc version
kono
parents:
diff changeset
1701 if (car(e2)==REGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1702 use_int(reg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1703 printf("\taddi %s,%s,%d\n",
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1704 register_name(cadr(e2)),register_name(cadr(e2)), dir);
587
c991b82e6849 *** empty log message ***
kono
parents: 583
diff changeset
1705 if (use && cadr(e2)!=reg)
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
1706 printf("\tmr %s,%s\n",register_name(reg),register_name(cadr(e2)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1707 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1708 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1709 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1710 if (!is_int_reg(creg)) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1711 xrn = register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1712 if (reg==USE_CREG) {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1713 reg=get_register(); if (!reg) error(-1);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1714 drn = register_name(reg);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1715 set_ireg(reg,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1716 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1717 drn = register_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1718 }
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1719 printf("\t%s %s,0(%s)\n",cload(sz),drn,xrn);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1720 if (use) cext(sign,sz,reg);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1721 printf("\taddi %s,%s,%d\n",drn,drn,dir);
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1722 printf("\t%s %s,0(%s)\n",cstore(sz),drn,xrn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1723 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1724
917947ffeb7c power pc version
kono
parents:
diff changeset
1725
917947ffeb7c power pc version
kono
parents:
diff changeset
1726 void
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1727 code_postinc(int e1,int e2,int dir,int sign,int sz,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1728 char *xrn,*crn,*nrn;
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1729 int nreg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1730 if (car(e2)==REGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1731 use_int(reg);
587
c991b82e6849 *** empty log message ***
kono
parents: 583
diff changeset
1732 if (use)
c991b82e6849 *** empty log message ***
kono
parents: 583
diff changeset
1733 printf("\tmr %s,%s\n",register_name(reg),register_name(cadr(e2)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1734 printf("\taddi %s,%s,%d\n",
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1735 register_name(cadr(e2)),register_name(cadr(e2)),dir);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1736 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
1737 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1738 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1739 if (!is_int_reg(creg)) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1740 crn = register_name(creg);
917947ffeb7c power pc version
kono
parents:
diff changeset
1741 nreg=get_register(); if (!nreg) error(-1);
917947ffeb7c power pc version
kono
parents:
diff changeset
1742 nrn = register_name(nreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1743 if (reg==USE_CREG) {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1744 reg=get_register(); if (!reg) error(-1);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1745 xrn = register_name(reg);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
1746 set_ireg(reg,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1747 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1748 xrn = register_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1749 }
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1750 printf("\t%s %s,0(%s)\n",cload(sz),xrn,crn);
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1751 if (use) cext(sign,sz,reg);
168
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1752 printf("\taddi %s,%s,%d\n",nrn,xrn,dir);
b1297c82e926 cpostinc removal
kono
parents: 167
diff changeset
1753 printf("\t%s %s,0(%s)\n",cstore(sz),nrn,crn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1754 free_register(nreg);
917947ffeb7c power pc version
kono
parents:
diff changeset
1755 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1756
917947ffeb7c power pc version
kono
parents:
diff changeset
1757
917947ffeb7c power pc version
kono
parents:
diff changeset
1758 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1759 code_return(int creg) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1760
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1761 use_int(creg);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1762 code_label_value(retcont,creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1763 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1764
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
1765 #define R1SAVE 0
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1766
917947ffeb7c power pc version
kono
parents:
diff changeset
1767 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1768 code_environment(int creg) {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
1769 /* save frame pointer */
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1770 use_int(creg);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1771 #if R1SAVE
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1772 printf("\tlwz %s,0(%s)\n",register_name(creg),register_name(1));
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1773 #else
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
1774 printf("\tmr %s,%s\n",register_name(creg),register_name(REG_fp));
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
1775 // int l = 0;
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
1776 // printf("\tla %s,",register_name(creg));
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
1777 // printf("lo16(%d+L_%d)(r30)\n",FUNC_LVAR,lvar_offset_label);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
1778 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1779 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1780
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1781 static int rexpr_bool(int e1,int reg);
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1782
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1783 #if FLOAT_CODE
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1784 static int drexpr_bool(int e1,int reg);
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1785 #endif
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1786
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1787 #if LONGLONG_CODE
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1788 static int lrexpr_bool(int e1,int reg)
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1789 {
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1790 return 0;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1791 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1792 #endif
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1793
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1794
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1795
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1796 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1797 code_bool(int e1,int reg) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1798 char *xrn;
917947ffeb7c power pc version
kono
parents:
diff changeset
1799 int e2,e3;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1800
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1801 if (rexpr_bool(e1,reg)) return;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1802 #if FLOAT_CODE
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1803 else if (drexpr_bool(e1,reg)) return;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1804 #endif
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1805 #if LONGLONG_CODE
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1806 else if (lrexpr_bool(e1,reg)) return;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1807 #endif
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
1808
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1809 b_expr(e1,1,e2=fwdlabel(),1); /* including > < ... */
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1810 if (use) {
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1811 use_int(reg);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1812 xrn = register_name(reg);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1813 printf("\tli %s,0\n",xrn);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1814 jmp(e3=fwdlabel());
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1815 fwddef(e2);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1816 printf("\tli %s,1\n",xrn);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1817 fwddef(e3);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1818 } else {
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1819 fwddef(e2);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
1820 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1821 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1822
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1823 #define code_gt(cond) (cond?"gt":"le")
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1824
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1825 #define code_ugt(cond) (cond?"gt":"le")
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1826
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1827 #define code_ge(cond) (cond?"ge":"lt")
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1828
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1829 #define code_uge(cond) (cond?"ge":"lt")
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1830
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
1831 #define code_eq(cond) (cond?"eq":"ne")
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1832
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
1833 static int cmpflag = 7;
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
1834
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
1835 static void
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
1836 inc_cmpflag()
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
1837 {
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
1838 // gcc use cmpflag 4 and 7, and gcc4 believes flag 4 is preserved.
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
1839 do {
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
1840 cmpflag = (cmpflag+1)%8;
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
1841 } while (cmpflag!=4 && cmpflag!=7);
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
1842 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
1843
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1844 #ifdef __APPLE__
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1845 static
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1846 char *crname_[] = { "cr0", "cr1", "cr2", "cr3", "cr4", "cr5", "cr6", "cr7" };
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1847 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1848 static
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1849 char *crname_[] = { "0", "1", "2", "3", "4", "5", "6", "7" };
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1850 #endif
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1851 #define crname(d) (crname_[d])
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1852
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1853 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1854 code_cmp_crgvar(int e1,int reg,int sz,int label,int cond) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1855 use_int(reg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1856 code_ld(cload(sz),reg,cadr(e1),get_ptr_cache(ncaddr(e1)));
432
f8ebd7e1c644 *** empty log message ***
kono
parents: 431
diff changeset
1857 cext(0,sz,reg);
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
1858 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1859 printf("\tcmpwi %s,%s,0\n",crname(cmpflag),register_name(reg));
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1860 jcond(label,cond);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1861 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1862
917947ffeb7c power pc version
kono
parents:
diff changeset
1863
917947ffeb7c power pc version
kono
parents:
diff changeset
1864 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1865 code_cmp_crlvar(int e2,int reg, int sz,int label,int cond) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1866 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1867 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1868 crn = register_name(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1869 lvar_intro(e2);
167
0197ca125567 mips short
kono
parents: 165
diff changeset
1870 printf("\t%s %s,",cload(sz),crn);
160
1f440a2790fb *** empty log message ***
kono
parents: 156
diff changeset
1871 lvar(e2);
230
d60c6c31f63a *** empty log message ***
kono
parents: 229
diff changeset
1872 cext(0,sz,reg);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1873 code_cmp_register(reg,label,cond);
160
1f440a2790fb *** empty log message ***
kono
parents: 156
diff changeset
1874 }
1f440a2790fb *** empty log message ***
kono
parents: 156
diff changeset
1875
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1876
917947ffeb7c power pc version
kono
parents:
diff changeset
1877 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1878 code_cmp_rgvar(int e1,int reg,int label,int cond) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1879 use_int(reg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1880 code_ld("lwz",reg,cadr(e1),get_ptr_cache(ncaddr(e1)));
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1881 code_cmp_register(reg,label,cond);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1882 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1883
917947ffeb7c power pc version
kono
parents:
diff changeset
1884
917947ffeb7c power pc version
kono
parents:
diff changeset
1885 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1886 code_cmp_rlvar(int e2,int reg,int label,int cond) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1887 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1888 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1889 crn = register_name(reg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1890 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1891 printf("\tlwz %s,",crn);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
1892 lvar(e2);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1893 code_cmp_register(reg,label,cond);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1894 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1895
917947ffeb7c power pc version
kono
parents:
diff changeset
1896
917947ffeb7c power pc version
kono
parents:
diff changeset
1897 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1898 code_cmp_register(int e2,int label,int cond) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1899 use_int(e2);
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
1900 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
1901 printf("\tcmpwi %s,%s,0\n",crname(cmpflag),register_name(e2));
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
1902 jcond(label,cond);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1903 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1904
917947ffeb7c power pc version
kono
parents:
diff changeset
1905
917947ffeb7c power pc version
kono
parents:
diff changeset
1906 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
1907 code_string(int e1,int creg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1908 {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1909 int lb;
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
1910 NMTBL *n = ncaddr(e1);
560
d6ff45d719a5 string sharing
kono
parents: 556
diff changeset
1911 if ((lb=attr_value(n,LABEL))) {
d6ff45d719a5 string sharing
kono
parents: 556
diff changeset
1912 // already defined
d6ff45d719a5 string sharing
kono
parents: 556
diff changeset
1913 return code_label_value(lb,creg) ;
d6ff45d719a5 string sharing
kono
parents: 556
diff changeset
1914 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1915
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1916 use_int(creg);
319
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
1917 lb = emit_string_label();
560
d6ff45d719a5 string sharing
kono
parents: 556
diff changeset
1918 ascii(n->nm);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1919 if (output_mode==TEXT_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1920 printf(".text\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
1921 } else {
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
1922 text_mode(0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1923 }
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
1924 code_label_value(lb,creg);
560
d6ff45d719a5 string sharing
kono
parents: 556
diff changeset
1925 set_attr(n,LABEL,lb);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1926 }
917947ffeb7c power pc version
kono
parents:
diff changeset
1927
778
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1928
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1929 void
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1930 emit_strings(NMTBL *n)
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1931 {
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1932 int l = emit_string_label();
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1933 int i;
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1934 for(i = n->dsp; i; i = cadr(i)) {
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1935 ascii(scaddr(i));
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1936 }
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1937 emit_label(l);
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1938 }
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1939
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1940 void
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1941 code_strings(int e2,int reg)
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1942 {
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1943 int l = emit_string_label();
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1944 int i;
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1945 for(i = e2; i; i = cadr(i)) {
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1946 ascii(scaddr(i));
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1947 }
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1948 if (output_mode==TEXT_EMIT_MODE) {
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1949 printf(".text\n");
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1950 } else {
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1951 text_mode(0);
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1952 }
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1953 code_label_value(l,reg);
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1954 }
a177c65f3e37 large string (STRINGS)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 739
diff changeset
1955
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1956 #define MAX_COPY_LEN 20
417
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
1957 // #define MAX_COPY_LEN 10
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1958
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
1959 void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1960 emit_copy(int from,int to,int length,int offset,int value,int det)
917947ffeb7c power pc version
kono
parents:
diff changeset
1961 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1962 char *frn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1963 char *trn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1964 char *drn;
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
1965 char *memmove = "memmove";
556
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
1966 int l;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
1967 int dreg = get_register(); if (!dreg) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1968
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1969 drn = register_name(dreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1970 use_int(from);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1971 use_int(to);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1972 frn = register_name(from);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
1973 trn = register_name(to);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
1974
917947ffeb7c power pc version
kono
parents:
diff changeset
1975 /* length <0 means upward direction copy */
917947ffeb7c power pc version
kono
parents:
diff changeset
1976 switch (length) {
917947ffeb7c power pc version
kono
parents:
diff changeset
1977 case 0: break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1978 case 1: case -1:
917947ffeb7c power pc version
kono
parents:
diff changeset
1979 printf("\tlbz %s,%d(%s)\n",drn,offset,frn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1980 printf("\tstb %s,%d(%s)\n",drn,offset,trn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1981 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1982 case 2: case -2:
917947ffeb7c power pc version
kono
parents:
diff changeset
1983 printf("\tlhz %s,%d(%s)\n",drn,offset,frn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1984 printf("\tsth %s,%d(%s)\n",drn,offset,trn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1985 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1986 case 4: case -4:
917947ffeb7c power pc version
kono
parents:
diff changeset
1987 printf("\tlwz %s,%d(%s)\n",drn,offset,frn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1988 printf("\tstw %s,%d(%s)\n",drn,offset,trn);
917947ffeb7c power pc version
kono
parents:
diff changeset
1989 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
1990 default:
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1991 if (length <0) {
416
a6ed0575d731 ARM goto code, Parallel assignment
kono
parents: 415
diff changeset
1992 if (length >= -MAX_COPY_LEN) {
583
421be86892b3 ia32 reorganization
kono
parents: 578
diff changeset
1993 free_register(dreg); dreg = 0;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1994 for(;length<=-4;length+=4,offset-=4)
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1995 emit_copy(from,to,-4,offset-4,0,det);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1996 for(;length<=-2;length+=2,offset-=2)
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1997 emit_copy(from,to,-2,offset-2,0,det);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1998 if(length<0)
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
1999 emit_copy(from,to,length,offset-1,0,det);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2000 break;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2001 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2002 } else if (length <=MAX_COPY_LEN) {
583
421be86892b3 ia32 reorganization
kono
parents: 578
diff changeset
2003 free_register(dreg); dreg = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2004 for(;length>=4;length-=4,offset+=4)
917947ffeb7c power pc version
kono
parents:
diff changeset
2005 emit_copy(from,to,4,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
2006 for(;length>=2;length-=2,offset+=2)
917947ffeb7c power pc version
kono
parents:
diff changeset
2007 emit_copy(from,to,2,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
2008 if(length>0)
917947ffeb7c power pc version
kono
parents:
diff changeset
2009 emit_copy(from,to,length,offset,0,det);
917947ffeb7c power pc version
kono
parents:
diff changeset
2010 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
2011 }
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
2012 clear_ptr_cache();
e537da31dce3 struct push
kono
parents: 123
diff changeset
2013 code_save_stacks();
556
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
2014
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
2015 l = list3(3,0,to);
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
2016 l = list3(4,l,from);
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
2017 parallel_rassign(l);
ef225b589888 s-dandy fix
kono
parents: 555
diff changeset
2018
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2019 #ifdef __APPLE__
416
a6ed0575d731 ARM goto code, Parallel assignment
kono
parents: 415
diff changeset
2020 printf("\tli r5,%d\n",length>0?length:-length);
417
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
2021 /* offset should be ignored */
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
2022 /* overrap must be allowed */
e537da31dce3 struct push
kono
parents: 123
diff changeset
2023 printf("\tbl L_%s$stub\n",memmove);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2024 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2025 printf("\tli 5,%d\n",length>0?length:-length);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2026 /* offset should be ignored */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2027 /* overrap must be allowed */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2028 printf("\tbl %s\n",memmove);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2029 #endif
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
2030 extern_define(memmove,0,FUNCTION,1);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2031 set_ireg(RET_REGISTER,0);
554
dc677ac7a744 emit_pop_free kills creg after emit_copy.
kono
parents: 553
diff changeset
2032 //if (creg!=to) {
dc677ac7a744 emit_pop_free kills creg after emit_copy.
kono
parents: 553
diff changeset
2033 // free_register(to); to = creg;
dc677ac7a744 emit_pop_free kills creg after emit_copy.
kono
parents: 553
diff changeset
2034 //}
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
2035 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2036 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2037 if (value) {
917947ffeb7c power pc version
kono
parents:
diff changeset
2038 /* creg must point top of the destination data */
917947ffeb7c power pc version
kono
parents:
diff changeset
2039 /* this code is necessary for the value of assignment or function call */
917947ffeb7c power pc version
kono
parents:
diff changeset
2040 /* otherwise we don't need this */
917947ffeb7c power pc version
kono
parents:
diff changeset
2041 if(creg!=to) {
554
dc677ac7a744 emit_pop_free kills creg after emit_copy.
kono
parents: 553
diff changeset
2042 free_register(to);
dc677ac7a744 emit_pop_free kills creg after emit_copy.
kono
parents: 553
diff changeset
2043 // set_ireg(to,1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2044 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2045 }
583
421be86892b3 ia32 reorganization
kono
parents: 578
diff changeset
2046 if (dreg) free_register(dreg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2047 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2048
917947ffeb7c power pc version
kono
parents:
diff changeset
2049 int
444
8bec605d1701 small sized struct
kono
parents: 440
diff changeset
2050 push_struct(int e4,int t,int arg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2051 {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2052 int length,count;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2053 int dreg,sreg; char *drn,*crn,*srn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2054 g_expr(e4);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2055 if (!is_int_reg(creg)) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2056 length=size(t);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2057 if(length%SIZE_OF_INT) {
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2058 length += SIZE_OF_INT - (length%SIZE_OF_INT);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2059 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2060 dreg = get_register(); if (!dreg) error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2061 drn = register_name(dreg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2062 crn = register_name(creg);
125
e537da31dce3 struct push
kono
parents: 123
diff changeset
2063 if (length<MAX_COPY_LEN) {
e537da31dce3 struct push
kono
parents: 123
diff changeset
2064 sreg = get_register(); if (!sreg) error(-1);
e537da31dce3 struct push
kono
parents: 123
diff changeset
2065 srn = register_name(sreg);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2066 code_lvar(cadr(arg),dreg);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2067 for(count=0;count<length;count+=SIZE_OF_INT) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2068 printf("\tlwz %s,%d(%s)\n",srn,count,crn);
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2069 printf("\tstw %s,%d(%s)\n",srn,count,drn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2070 }
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2071 free_register(sreg);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2072 free_register(dreg);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2073 return length/SIZE_OF_INT;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2074 } else {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2075 code_lvar(cadr(arg),dreg);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2076 /* downward direction copy */
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2077 emit_copy(creg,dreg,length,0,0,1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2078 }
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2079 free_register(dreg);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2080 return length/SIZE_OF_INT;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2081 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2082
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2083 static void
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2084 set_ireg(int reg,int mode)
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2085 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2086 if (!is_int_reg(reg)) error(-1);
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2087 if (reg!=creg) {
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2088 clear_ptr_cache_reg(reg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2089 if (ireg && reg!=ireg ) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2090 free_register(ireg);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2091 if (mode) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2092 printf("\tmr %s,%s\n",register_name(reg),register_name(ireg));
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2093 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2094 }
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2095 free_register(creg);
536
a349f9c2aef5 MIPS set_ireg/lreg interferance
kono
parents: 534
diff changeset
2096 if (creg==lreg) lreg = 0;
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2097 regs[reg]=USING_REG;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2098 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2099 creg = ireg = reg;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2100 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2101
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2102 static void
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2103 set_freg(int reg,int mode)
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2104 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2105 if (!is_float_reg(reg)) error(-1);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2106 if (reg!=creg) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2107 if (freg && reg!=freg) {
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2108 free_register(freg);
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2109 if (mode) {
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2110 printf("\tfmr %s,%s\n",fregister_name(reg),fregister_name(freg));
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2111 }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
2112 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2113 // if (creg!=ireg) free_register(creg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2114 regs[reg]=USING_REG;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2115 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2116 creg = freg = reg;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2117 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2118
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2119 static void
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2120 set_lreg(int reg,int mode)
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
2121 {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2122 if (reg==RET_LREGISTER) {
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2123 regv_l(reg) = RET_LREGISTER_L;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2124 regv_h(reg) = RET_LREGISTER_H;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2125 }
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2126 if (!is_longlong_reg(reg)) error(-1);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2127 if (reg!=creg) {
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2128 if (lreg) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2129 if (reg!=lreg) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2130 if (mode) {
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2131 printf("\tmr %s,%s\n",
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2132 lregister_name_low(reg),lregister_name_low(lreg));
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2133 printf("\tmr %s,%s\n",
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2134 lregister_name_high(reg),lregister_name_high(lreg));
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2135 }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2136 free_register(lreg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2137 }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2138 if (lreg==creg) creg=0;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2139 }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2140 if (creg) free_register(creg);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2141 regs[reg]=USING_REG;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2142 clear_ptr_cache_reg(regv_l(reg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2143 regs[regv_l(reg)]=USING_REG;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2144 clear_ptr_cache_reg(regv_h(reg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2145 regs[regv_h(reg)]=USING_REG;
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2146 creg = lreg = reg;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2147 }
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2148 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2149
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2150 static void
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
2151 set_lreg_operand(int reg,int mode)
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
2152 {
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
2153 // save_stack,clear_ptr_cache is assumed
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
2154 if (!is_longlong_reg(reg)) { error(-1); return; }
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
2155 if (mode) {
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2156 if (regv_l(reg)!=3)
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2157 printf("\tmr %s,%s\n", register_name(3),lregister_name_high(reg));
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2158 if (regv_l(reg)!=4)
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2159 printf("\tmr %s,%s\n", register_name(4),lregister_name_low(reg));
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2160 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2161 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2162
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2163 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2164 set_lreg_operand1(int reg,int mode)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2165 {
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
2166 // save_stack,clear_ptr_cache is assumed
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2167 if (!is_longlong_reg(reg)) { error(-1); return; }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
2168 if (mode) {
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
2169 if (regv_l(reg)!=5)
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2170 printf("\tmr %s,%s\n", register_name(5),lregister_name_high(reg));
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
2171 if (regv_l(reg)!=6)
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2172 printf("\tmr %s,%s\n", register_name(6),lregister_name_low(reg));
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
2173 }
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
2174 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
2175
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2176 static void
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2177 use_reg(int arg)
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2178 {
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
2179 // printf("## use reg %d\n",arg);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2180 if (arg<0||arg> REAL_MAX_REGISTER+REAL_MAX_FREGISTER+ REAL_MAX_LREGISTER)
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2181 error(-1);
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
2182 clear_ptr_cache_reg(arg);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2183 regs[arg]=USING_REG;
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2184 if (is_longlong_reg(arg)) {
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
2185 clear_ptr_cache_reg(regv_l(arg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2186 regs[regv_l(arg)]=USING_REG;
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
2187 clear_ptr_cache_reg(regv_h(arg));
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2188 regs[regv_h(arg)]=USING_REG;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2189 }
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2190 }
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2191
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2192 /*
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2193 store input argument into stack
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2194 we need this always because of one path compiler
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2195 */
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2196 static void
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2197 code_save_input_registers(int dots)
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
2198 {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2199 int args;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2200 NMTBL *n;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2201 int reg;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2202 int tag;
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2203 // int lvar;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2204 int t;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2205 /* fnptr->dsp=list4(type,fnptr->dsp,(int)n,0); */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2206 int reg_offset = 0;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2207 int offset = 0;
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2208 int reg_var = 0;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2209
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2210 for(args = fnptr->dsp;args;args = cadr(args)) {
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
2211 n = ncadddr(args);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2212 tag = n->sc;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2213 reg = n->dsp;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2214 if (!n||n==&null_nptr) error(REG_ERR);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2215 if (tag==REGISTER) {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2216 n->dsp = offset;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2217 offset+=SIZE_OF_INT;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2218 t = INT;
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2219 reg += reg_offset; /* for duplicated floating point argument */
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2220 reg_var++;
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2221 } else if (tag==DREGISTER) {
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2222 n->dsp = offset;
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
2223 t = n->ty;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2224 #ifdef __APPLE__
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2225 if(t==FLOAT) { offset+=SIZE_OF_FLOAT; reg_offset+=1; }
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2226 else if(t==DOUBLE) { offset+=SIZE_OF_DOUBLE; reg_offset+=2; }
120
099518ea9cc1 input args offset (continue..)
kono
parents: 119
diff changeset
2227 else error(-1);
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2228 reg_var += 2;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2229 #else
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2230 if(t==FLOAT) { offset+=SIZE_OF_FLOAT; }
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2231 else if(t==DOUBLE) { offset+=SIZE_OF_DOUBLE; }
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2232 else error(-1);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2233 #endif
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2234 } else if (tag==LREGISTER) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2235 n->dsp = offset;
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2236 t = n->ty;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2237 offset+=SIZE_OF_LONGLONG;
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2238 reg_offset+=2;
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2239 reg_var += 2;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
2240 } else {
534
0f24e1dba811 *** empty log message ***
kono
parents: 531
diff changeset
2241 // n->dsp = offset; this is no allowed becase of arg reorder
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
2242 offset += size(n->ty);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2243 continue;
122
b884271bcab2 input registers (long arguments )
kono
parents: 121
diff changeset
2244 }
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2245 n->sc = LVAR;
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2246 g_expr_u(assign_expr0(
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
2247 list3n(LVAR,n->dsp,0),list3n(tag,reg,n),n->ty,t));
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2248 if (tag==REGISTER||tag==DREGISTER||tag==FREGISTER||tag==LREGISTER) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2249 free_register(reg);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2250 }
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2251 }
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2252 if (dots) {
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2253 while ((reg = get_input_register_var(reg_var,0,0))) {
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2254 g_expr_u(assign_expr0(
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2255 list3n(LVAR,offset,0),reg,INT,INT));
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2256 offset+=SIZE_OF_INT;
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2257 reg_var++;
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2258 }
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2259 #ifndef __APPLE__
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2260 int skip = fwdlabel();
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2261 int freg_var = 0;
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2262 printf("\tbne 1,%s%d\n",lpfx,skip);
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2263 while ((reg = get_input_dregister_var(freg_var,0,0,1))) {
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2264 g_expr_u(assign_expr0(
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2265 list3n(LVAR,offset,0),reg,DOUBLE,DOUBLE));
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2266 offset+=SIZE_OF_DOUBLE;
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2267 freg_var++;
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2268 }
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2269 fwddef(skip);
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2270 #endif
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2271 }
121
00df510bc116 *** empty log message ***
kono
parents: 120
diff changeset
2272 my_func_args = offset;
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
2273 }
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
2274
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 445
diff changeset
2275 int
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
2276 not_simple_p(int e3)
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
2277 {
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
2278 switch (e3) {
456
b8f95294eb77 inline continue... if test passed.
kono
parents: 453
diff changeset
2279 case FUNCTION: case CONV: case LCALL: case STASS:
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
2280 case LLSHIFT: case LULSHIFT: case LRSHIFT: case LURSHIFT:
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
2281 case LDIV: case LUDIV: case LMOD: case LUMOD: case LASSOP: case ALLOCA:
456
b8f95294eb77 inline continue... if test passed.
kono
parents: 453
diff changeset
2282 case INLINE:
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
2283 return 1;
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
2284 }
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
2285 return 0;
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
2286 }
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
2287
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2288 static int
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2289 simple_arg(int e3)
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2290 {
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2291 return !contains_p(e3,not_simple_p);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2292 }
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2293
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
2294 #define caller_arg_offset_v(arg) (ARG_LVAR_OFFSET+(arg)*SIZE_OF_INT)
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2295
715
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
2296 /*
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
2297 use input register as current register
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
2298 なんで、こんなに複雑なんだ?
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
2299 むしろ、INPUT_REG みたいな mark をいれたら?
715
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
2300 */
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
2301
655
cddab906095e struct init in function arg (or other expression).
kono
parents: 649
diff changeset
2302 static void
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2303 use_input_reg(int reg,int mode)
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2304 {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2305 if (is_int_reg(reg)) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2306 if (ireg&&reg == ireg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2307 if (creg==ireg) creg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2308 ireg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2309 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2310 if (lreg) {
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
2311 // free_regsiter(lreg) でいいんじゃないの?
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2312 if (regv_l(lreg)==reg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2313 regs[lreg]=0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2314 if (regv_h(lreg)>reg&&regs[regv_h(lreg)]==USING_REG) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2315 free_register(regv_h(lreg));
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2316 }
529
ad874ef77dde use_input_reg...
kono
parents: 528
diff changeset
2317 if (creg==lreg) creg = ireg;
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
2318 free_register(lreg);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2319 lreg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2320 } else if (regv_h(lreg)==reg) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2321 regs[lreg]=0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2322 if (regv_h(lreg)>reg&&regs[regv_l(lreg)]==USING_REG) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2323 free_register(regv_l(lreg));
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2324 }
529
ad874ef77dde use_input_reg...
kono
parents: 528
diff changeset
2325 if (creg==lreg) creg = ireg;
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
2326 free_register(lreg);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2327 lreg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2328 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2329 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2330 } else if (is_longlong_reg(reg)) {
709
8b54c40081de *** empty log message ***
kono
parents: 705
diff changeset
2331 use_input_reg(regv_h(reg),mode);
8b54c40081de *** empty log message ***
kono
parents: 705
diff changeset
2332 use_input_reg(regv_l(reg),mode);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2333 } else if (is_float_reg(reg)) {
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2334 if (freg&&reg == freg) {
529
ad874ef77dde use_input_reg...
kono
parents: 528
diff changeset
2335 if (creg==freg) creg = ireg;
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2336 freg = 0;
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2337 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2338 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2339 if (mode) use_reg(reg);
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2340 }
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2341
271
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
2342 static int
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2343 compute_complex_arg(int e3,int reg_arg_list,int arg) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2344 int t=caddr(e3);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2345 int e4 = car(e3);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2346 reg_arg_list = list2(arg,reg_arg_list);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2347 if (car(arg)==REGISTER||car(arg)==DREGISTER||
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2348 car(arg)==FREGISTER||car(arg)==LREGISTER)
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2349 use_input_reg(cadr(arg),1);
709
8b54c40081de *** empty log message ***
kono
parents: 705
diff changeset
2350 g_expr_u(assign_expr0(arg,e4,t,t));
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2351 car(e3) = arg;
271
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
2352 return reg_arg_list;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2353 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2354
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2355
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2356 #ifdef __APPLE__
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2357 static void
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2358 increment_function_arg(int e3,int *pnargs,int *preg_arg,int *pfreg_arg) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2359 int nargs=0,reg_arg=0,freg_arg=0;
487
b4d9809d6ee2 type attribute (half done)
kono
parents: 475
diff changeset
2360 int t=type_value(caddr(e3));
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
2361 if (t>=0&&(car(t)==BIT_FIELD)) {
487
b4d9809d6ee2 type attribute (half done)
kono
parents: 475
diff changeset
2362 t = type_value(cadr(t));
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
2363 }
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2364 if(scalar(t)) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2365 nargs ++ ; reg_arg++;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2366 } else if (t==LONGLONG||t==ULONGLONG) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2367 nargs ++ ; reg_arg++;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2368 nargs ++ ; reg_arg++;
475
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2369 } else if (t==FLOAT) {
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2370 if (*preg_arg<MAX_INPUT_REGISTER_VAR) {
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2371 reg_arg += 1;
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2372 }
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2373 freg_arg++;
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2374 nargs += size(t)/SIZE_OF_INT;
ec4046c9d34f PowerPC float / int mix args bug fix.
kono
parents: 469
diff changeset
2375 } else if (t==DOUBLE) {
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2376 if (*preg_arg<MAX_INPUT_REGISTER_VAR) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2377 reg_arg += 2;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2378 }
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2379 nargs += size(t)/SIZE_OF_INT;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2380 freg_arg++;
638
35014112c01d multi dimentional array in functional arugments.
kono
parents: 637
diff changeset
2381 } else if (t>=0&&(car(t)==STRUCT||car(t)==UNION)) {
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2382 nargs += round4(size(t))/SIZE_OF_INT;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2383 } else {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2384 error(TYERR);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2385 nargs ++ ;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2386 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2387 *pnargs += nargs;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2388 *preg_arg += reg_arg;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2389 *pfreg_arg += freg_arg;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2390 }
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2391 #else
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2392 static void
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2393 increment_function_arg(int e3,int *pnargs,int *preg_arg,int *pfreg_arg) {
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2394 int nargs=0,reg_arg=0,freg_arg=0;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2395 int t=type_value(caddr(e3));
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2396 if (t>=0&&(car(t)==BIT_FIELD)) {
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2397 t = type_value(cadr(t));
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2398 }
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2399 if(scalar(t)) {
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2400 reg_arg++;
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2401 if (*preg_arg>=MAX_INPUT_REGISTER_VAR) nargs ++ ;
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2402 } else if (t==LONGLONG||t==ULONGLONG) {
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2403 if (*preg_arg%2==1) reg_arg++; // alignment
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2404 if (*pnargs%2==1) nargs++; // alignment
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2405 reg_arg++; reg_arg++;
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2406 if (*preg_arg+1>=MAX_INPUT_REGISTER_VAR) nargs += 2;
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2407 } else if (t==FLOAT) {
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2408 freg_arg++;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2409 if (*pfreg_arg>=MAX_INPUT_DREGISTER_VAR) nargs += size(t)/SIZE_OF_INT;
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2410 } else if (t==DOUBLE) {
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2411 freg_arg++;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2412 if (*pfreg_arg>=MAX_INPUT_DREGISTER_VAR) nargs += round4(size(t))/SIZE_OF_INT;
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2413 } else if (t>=0&&(car(t)==STRUCT||car(t)==UNION)) {
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2414 nargs += round4(size(t))/SIZE_OF_INT;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2415 } else {
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2416 error(TYERR);
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2417 nargs ++ ;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2418 }
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2419 *pnargs += nargs;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2420 *preg_arg += reg_arg;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2421 *pfreg_arg += freg_arg;
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2422 }
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2423 #endif
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2424
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2425 #define AS_SAVE 1
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2426 #define AS_ARG 0
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2427
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2428 /*
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2429 set storage type of caller's arguments
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2430 register or stack
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2431 this muse corprate with code_arg_register();
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2432 if AS_SAVE is set, register variable (or temporary local variable)
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2433 is used.
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2434 */
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
2435
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2436 static int
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2437 get_input_arg(int t,int mode,int nargs,int reg_arg,int freg_arg)
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2438 {
487
b4d9809d6ee2 type attribute (half done)
kono
parents: 475
diff changeset
2439 t = type_value(t);
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
2440 if (t>=0&&(car(t)==BIT_FIELD)) {
487
b4d9809d6ee2 type attribute (half done)
kono
parents: 475
diff changeset
2441 t = type_value(cadr(t));
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
2442 }
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2443 if(scalar(t)) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2444 if (mode==AS_SAVE) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2445 return get_register_var(0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2446 } else if (reg_arg>=MAX_INPUT_REGISTER_VAR) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2447 return list3n(LVAR,caller_arg_offset_v(nargs),0);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2448 } else
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2449 return get_input_register_var(reg_arg,0,0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2450 } else if (t==LONGLONG||t==ULONGLONG) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2451 if (mode==AS_SAVE) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2452 return get_lregister_var(0);
259
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2453 } else if (reg_arg+1>=MAX_INPUT_REGISTER_VAR) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2454 return list3n(LVAR,caller_arg_offset_v(nargs),0);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2455 } else
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2456 return get_input_lregister_var(reg_arg,0,0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2457 } else if (t==FLOAT) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2458 if (mode==AS_SAVE) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2459 return get_dregister_var(0,0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2460 } else if (freg_arg>=MAX_INPUT_DREGISTER_VAR) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2461 return list3n(LVAR,caller_arg_offset_v(nargs),0);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2462 } else
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2463 return get_input_dregister_var(freg_arg,0,0,0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2464 } else if (t==DOUBLE) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2465 if (mode==AS_SAVE) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2466 return get_dregister_var(0,1);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2467 } else if (freg_arg>=MAX_INPUT_DREGISTER_VAR) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2468 return list3n(LVAR,caller_arg_offset_v(nargs),0);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2469 } else
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2470 return get_input_dregister_var(freg_arg,0,0,1);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2471 } else if (t>=0&&(car(t)==STRUCT||car(t)==UNION)) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2472 if (mode==AS_SAVE) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2473 return get_register_var(0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2474 } else
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2475 return list3n(LVAR,caller_arg_offset_v(nargs),0);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2476 } else {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2477 error(-1);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2478 return get_register_var(0);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2479 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2480 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2481
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2482 int
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2483 function(int e1)
917947ffeb7c power pc version
kono
parents:
diff changeset
2484 {
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2485 int e2,e3,e4,e5,nargs,t,r0;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2486 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
2487 int dots;
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2488 int reg_arg_list=0,ret_type,special_lvar;
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
2489 NMTBL *fn = 0;
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2490 int jmp = 0;
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2491 char *jrn;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2492 int complex_;
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
2493 int pnargs=0,preg_arg=0,pfreg_arg=0;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2494 int stargs;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2495
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2496 special_lvar = -1;
305
117baacd1ed0 stdarg powerpc passed except long long (macro problem)
kono
parents: 304
diff changeset
2497 ret_type = function_type(cadddr(e1),&dots);
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2498 if (caddr(cadddr(e1))==0) dots=1;
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2499
285
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2500 arg_assign = 0;
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2501 e2 = cadr(e1);
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2502 if (car(e2) == FNAME) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2503 fn=ncaddr(e2);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2504 } else {
285
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2505 if (car(e2)==INDIRECT) e2=cadr(e2); // (*func)(i) case
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2506 jmp = get_register_var(0);
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2507 if (car(jmp)!=REGISTER) error(-1);
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2508 reg_arg_list = list2(jmp,reg_arg_list);
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2509 if (!simple_arg(e2)) {
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2510 g_expr_u(assign_expr0(jmp,e2,INT,INT));
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2511 } else
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2512 arg_assign = list2(assign_expr0(jmp,e2,INT,INT),arg_assign);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2513 }
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2514 /* first we execute complex argument to avoid interaction with
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2515 input variables */
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2516 stargs = 0;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2517 complex_ = 0;
259
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2518 nargs = reg_arg = freg_arg = 0;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2519 for (e3 = e1 = reverse0(caddr(e1)); e3; e3 = cadr(e3)) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2520 t=caddr(e3);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2521 if ((e5= !simple_arg(car(e3)))) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2522 if (complex_) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2523 arg = get_input_arg(caddr(complex_),AS_SAVE,
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2524 pnargs,preg_arg,pfreg_arg);
271
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
2525 reg_arg_list = compute_complex_arg(complex_,reg_arg_list,arg);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2526 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2527 pnargs=nargs;preg_arg=reg_arg;pfreg_arg=freg_arg;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2528 complex_ = e3;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2529 }
638
35014112c01d multi dimentional array in functional arugments.
kono
parents: 637
diff changeset
2530 if (t>=0&&(car(t)==STRUCT||car(t)==UNION)) {
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2531 // The struct should be pushed after complex arguments.
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2532 if (e5) { // compute address only, complex_ is me now. Clear it.
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2533 complex_ = 0;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2534 e4 = car(e3);
693
e5a498eab0f4 *** empty log message ***
kono
parents: 676
diff changeset
2535 if (car(e4)==RSTRUCT) e4 = cadr(e4);
784
3bc6c34bfa2e i64 obsf2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 782
diff changeset
2536 else if (car(e4)==INDIRECT) e4 = cadr(e4);
693
e5a498eab0f4 *** empty log message ***
kono
parents: 676
diff changeset
2537 if (!simple_arg(e4)) {
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2538 // Calculate complex struct address here.
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2539 // If simple, leave it.
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2540 arg = get_register_var(0);
693
e5a498eab0f4 *** empty log message ***
kono
parents: 676
diff changeset
2541 g_expr_u(assign_expr0(arg,e4,INT,INT));
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2542 car(e3)=arg;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2543 reg_arg_list = list2(arg,reg_arg_list);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2544 if (car(arg)==REGISTER) use_input_reg(cadr(arg),1);
408
b4375f895fd5 ARM struct copy, alloca fix
kono
parents: 405
diff changeset
2545 else car(e3) = rvalue_t(arg,INT);
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2546 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2547 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2548 stargs = list4(e3,stargs,nargs,reg_arg);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2549 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2550 increment_function_arg(e3,&nargs,&reg_arg,&freg_arg);
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2551 }
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2552
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2553 /* now all input register vars are free */
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2554 code_save_stacks();
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2555 // set_lreg(LREG_LREGISTER,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2556 set_freg(FREG_FREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2557 set_ireg(CREG_REGISTER,0);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2558
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2559 // Struct arguments need emit_copy. it destructs 3 input registers.
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
2560 // But it returns no value on a register. So calculate it here.
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2561 // We cannot do this in the previous loop, because the copied struct may be
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
2562 // override by other complex arguments. But before this we have to check
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2563 // complex_.
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2564
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2565 if (stargs) {
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2566 if (complex_) {
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2567 arg = get_input_arg(caddr(complex_),AS_SAVE,
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2568 pnargs,preg_arg,pfreg_arg);
271
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
2569 reg_arg_list = compute_complex_arg(complex_,reg_arg_list,arg);
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2570 }
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2571 for(stargs=reverse0(stargs);stargs;stargs = cadr(stargs)) {
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2572 e3 = car(stargs);
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2573 e4 = car(e3);
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2574 t = caddr(e3);
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2575 arg = get_input_arg(t,AS_ARG,caddr(stargs),cadddr(stargs),0);
444
8bec605d1701 small sized struct
kono
parents: 440
diff changeset
2576 push_struct(e4,t,arg);
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2577 car(e3)=0; // done
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2578 }
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2579 } else {
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2580 // last complex argument can use input register
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2581 if (complex_) {
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2582 arg = get_input_arg(caddr(complex_),AS_ARG,pnargs,preg_arg,pfreg_arg);
271
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
2583 reg_arg_list = compute_complex_arg(complex_,reg_arg_list,arg);
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2584 }
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2585 }
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2586
285
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
2587 nargs = reg_arg = freg_arg = 0;
268
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2588 // calc stack arguments first, it may requires extra registers,
3a368fc37559 MIPS binary continue...
kono
parents: 263
diff changeset
2589 // and we can still use input registers now.
259
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2590 for (e3 = e1; e3;
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2591 increment_function_arg(e3,&nargs,&reg_arg,&freg_arg),
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2592 e3 = cadr(e3)) {
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2593 if (!(e4=car(e3))) continue;
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2594 t=caddr(e3);
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2595 arg = get_input_arg(t,AS_ARG,nargs,reg_arg,freg_arg);
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2596 if (car(arg)!=LVAR) continue;
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2597 g_expr_u(assign_expr0(arg,e4,t,t));
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2598 if (t==LONGLONG||t==ULONGLONG) {
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2599 if (reg_arg+1==MAX_INPUT_REGISTER_VAR) {
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2600 // half register, half memory case
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2601 arg_assign = list2(
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2602 assign_expr0(r0=get_input_register_var(reg_arg,0,0),
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2603 arg,INT,INT),
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2604 arg_assign);
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2605 use_input_reg(cadr(r0),1);
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2606 }
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2607 }
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2608 car(e3)=0; // done
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2609 }
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2610 nargs = reg_arg = freg_arg = 0;
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2611 for (e3 = e1; e3;
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2612 increment_function_arg(e3,&nargs,&reg_arg,&freg_arg),
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2613 e3 = cadr(e3)) {
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2614 if (!(e4=car(e3))) continue;
487
b4d9809d6ee2 type attribute (half done)
kono
parents: 475
diff changeset
2615 t=type_value(caddr(e3));
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2616 arg = get_input_arg(t,AS_ARG,nargs,reg_arg,freg_arg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2617 if(scalar(t)) {
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2618 reg_arg_list = list2(arg,reg_arg_list);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2619 /* protect from input register free */
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2620 if (car(arg)==REGISTER)
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2621 use_input_reg(cadr(arg),1);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
2622 g_expr_u(assign_expr0(arg,e4,t,t));
202
601301152d9c *** empty log message ***
kono
parents: 196
diff changeset
2623 } else if (t==LONGLONG||t==ULONGLONG) {
259
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2624 if (reg_arg+1==MAX_INPUT_REGISTER_VAR) {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
2625 // half register, half memory case
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
2626 // put whole long long anyway
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
2627 arg_assign = list2(
232
8a23c20ac92d *** empty log message ***
kono
parents: 231
diff changeset
2628 assign_expr0(r0=get_input_register_var(reg_arg,0,0),
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
2629 arg,INT,INT),
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
2630 arg_assign);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2631 use_input_reg(cadr(r0),1);
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2632 reg_arg_list = list2(r0,reg_arg_list);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2633 } else {
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2634 if (car(arg)==LREGISTER) {
258
22949117768f Complex function argments. Struct is done. Long long is odd.
kono
parents: 257
diff changeset
2635 use_input_reg(cadr(arg),1);
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2636 }
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2637 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2638 reg_arg_list = list2(arg,reg_arg_list);
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2639 g_expr_u(assign_expr0(arg,e4,t,t));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2640 } else if (t==DOUBLE||t==FLOAT) {
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2641 #ifdef __APPLE__
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2642 if (reg_arg<MAX_INPUT_REGISTER_VAR) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2643 /* sigh...
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
2644 printf requires floating value in integer registers
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2645 */
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2646 if (dots) {
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2647 int r1;
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2648 if (car(e4)==DRLVAR) {
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2649 special_lvar = cadr(e4);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2650 e5 = list3n(LVAR,special_lvar,0);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2651 } else {
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
2652 special_lvar = new_lvar(SIZE_OF_DOUBLE);
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2653 g_expr(assign_expr0(
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2654 (e5=list3n(LVAR,special_lvar,0)),e4,DOUBLE,t));
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2655 reg_arg_list = list2(e5,reg_arg_list);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2656 e4 = list2(DREGISTER,freg);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2657 /* freg should not change until XXX */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2658 }
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2659 r0=get_input_register_var(reg_arg,0,0);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2660 r1 = reg_arg+1+MIN_TMP_REG;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2661 if (regs[r1]==PTRC_REG)
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2662 clear_ptr_cache_reg(list2(REGISTER,r1));
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2663 /* else if (regs[r1]) error(-1); */
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2664 r1=get_input_register_var_1(reg_arg+1,0,0);
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2665 use_input_reg(cadr(r0),1); /* protect from input register free */
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2666 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
2667 reg_arg_list = list2(r0,reg_arg_list);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2668 reg_arg_list = list2(r1,reg_arg_list);
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2669 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
2670 arg_assign = list2( assign_expr0(r1,
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2671 list3n(LVAR,special_lvar+SIZE_OF_INT,0),
137
9fb09db54436 fix powerpc get_fregister_var's regs error.
kono
parents: 136
diff changeset
2672 INT,INT), arg_assign);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2673 }
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2674 }
498
574856cee9da printf double/int mix
kono
parents: 496
diff changeset
2675 if (dots && (freg_arg*8+reg_arg*4)>=32 && freg_arg<MAX_INPUT_DREGISTER_VAR) {
496
5640fb7a270d more bugs...
kono
parents: 495
diff changeset
2676 /*
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
2677 it requires integer register and floating register and
496
5640fb7a270d more bugs...
kono
parents: 495
diff changeset
2678 stack value.
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2679 */
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2680 arg_assign = list2(
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2681 assign_expr0(list3n(LVAR,caller_arg_offset_v(nargs),0),
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
2682 get_input_dregister_var(freg_arg,0,0,1),t,t),
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2683 arg_assign);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2684 }
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2685 #endif
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2686 reg_arg_list = list2(arg,reg_arg_list);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
2687 if (car(arg)==DREGISTER)
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2688 use_input_reg(cadr(arg),1); /* protect from input register free */
118
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
2689 g_expr_u(assign_expr0(arg,e4,t,t)); /* XXX */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2690 }
259
18837238e306 complex argument pre-calcuration done for power pc
kono
parents: 258
diff changeset
2691 // structs are finished
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2692 }
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
2693 if (max_func_args<nargs) max_func_args=nargs;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2694 for(;arg_assign;arg_assign=cadr(arg_assign)) {
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2695 g_expr_u(car(arg_assign));
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2696 }
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2697 clear_ptr_cache();
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2698 #ifndef __APPLE__
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2699 if (dots) {
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2700 if (freg_arg) {
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2701 // variadic function has floating value in register
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2702 printf("\tcreqv 6,6,6\n");
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2703 } else {
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2704 // printf("\tcrxor 6,6,6\n"); // for value in stack
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
2705 }
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2706 }
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2707 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2708 if (car(e2) == FNAME) {
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2709 #ifdef __APPLE__
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2710 printf("\tbl\tL_%s$stub\n",fn->nm);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2711 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2712 printf("\tbl\t%s\n",fn->nm);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2713 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2714 } else {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
2715 jrn = register_name(cadr(jmp));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2716 printf("\tmtctr %s\n",jrn);
917947ffeb7c power pc version
kono
parents:
diff changeset
2717 printf("\tbctrl\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
2718 }
716
21f770a3b298 *** empty log message ***
kono
parents: 715
diff changeset
2719 free_register_var(reg_arg_list);
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
2720 if (ret_type==DOUBLE||ret_type==FLOAT) {
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2721 set_freg(RET_FREGISTER,0);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2722 } else if (ret_type==ULONGLONG||ret_type==LONGLONG) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2723 set_lreg(RET_LREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2724 use_reg(RET_LREGISTER);
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
2725 } else if (ret_type==VOID) {
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2726 } else {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
2727 set_ireg(RET_REGISTER,0);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
2728 }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
2729 cleanup_lregister0();
105
7e3d59e56a53 save register ( incomplete )
kono
parents: 104
diff changeset
2730 return ret_type;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2731 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2732
917947ffeb7c power pc version
kono
parents:
diff changeset
2733 void
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2734 code_alloca(int e1,int reg)
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2735 {
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2736 char *crn,*grn;
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2737 int g;
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2738
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2739 if (!is_const(e1)) {
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2740 g_expr(list3(BAND,list3(ADD,e1,list2(CONST,15)),list2(CONST,~15)));
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2741 use_int(reg);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2742 } else {
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2743 use_int(reg);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2744 code_const(round16(cadr(e1)),reg);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2745 }
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2746 use_int(reg);
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2747 g = get_register();
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2748 crn = register_name(reg);
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2749 grn = register_name(g);
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2750 // printf("\trlwinm r0,%s,0,0,27\n",crn);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2751 #ifdef R1SAVE
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2752 printf("\tlwz %s,0(%s)\n",grn,register_name(1));
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2753 printf("\tneg %s,%s\n",crn,crn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2754 printf("\tstwux %s,%s,%s\n",grn,register_name(1),crn);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2755 #else
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2756 printf("\tlwz %s,0(%s)\n",grn,register_name(1));
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2757 printf("\tneg %s,%s\n",crn,crn);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2758 printf("\tstwux %s,%s,%s\n",grn,register_name(1),crn);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
2759 #endif
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2760 // printf("\tstw %s,0(r1)\n",grn);
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2761 if (!max_func_arg_label) max_func_arg_label = fwdlabel();
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2762 #ifdef __APPLE__
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2763 printf("\taddis r1,r1,ha16(L_%d)\n",max_func_arg_label);
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2764 printf("\taddi %s,r1,lo16(L_%d)\n",crn,max_func_arg_label);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2765 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2766 printf("\taddis 1,1,.LC%d@ha\n",max_func_arg_label);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2767 printf("\taddi %s,1,.LC%d@l\n",crn,max_func_arg_label);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2768 #endif
313
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2769 free_register(g);
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2770 }
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2771
f73b93de216a alloca done for ia32, powerpc, mips
kono
parents: 308
diff changeset
2772 void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2773 code_frame_pointer(int e3) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2774 use_int(e3);
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2775 #if R1SAVE
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2776 printf("\tmr %s,%s\n",register_name(1),register_name(e3));
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2777 #else
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
2778 printf("\tmr %s,%s\n",register_name(REG_fp),register_name(e3));
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2779 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2780 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2781
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
2782 int
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
2783 code_frame_pointer_register()
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
2784 {
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
2785 return list2(REGISTER,REG_fp);
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
2786 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2787
917947ffeb7c power pc version
kono
parents:
diff changeset
2788 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2789 code_fix_frame_pointer(int disp_offset) {
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
2790 #if 0
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2791 printf("\tla r30,");
578
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
2792 printf("lo16(%d)(r30)\n",FUNC_LVAR(0)-CODE_LVAR(0));
dbde3b869a0f try to remove code_fix_frame_pointer(); PowerPC fixed.
kono
parents: 577
diff changeset
2793 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2794 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2795
917947ffeb7c power pc version
kono
parents:
diff changeset
2796 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2797 code_jmp(char *s) {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2798 max_reg_var = REG_VAR_BASE-REG_VAR_MIN;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2799 max_freg_var = FREG_VAR_BASE-FREG_VAR_MIN;
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2800 #ifdef __APPLE__
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2801 printf("\tb L_%s$stub\n",s);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2802 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2803 printf("\tb %s\n",s);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2804 #endif
283
230a3b98b843 MIPS jump work.
kono
parents: 280
diff changeset
2805 control=0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2806 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2807
917947ffeb7c power pc version
kono
parents:
diff changeset
2808
917947ffeb7c power pc version
kono
parents:
diff changeset
2809 void
917947ffeb7c power pc version
kono
parents:
diff changeset
2810 code_indirect_jmp(int e2) {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2811 max_reg_var = REG_VAR_BASE-REG_VAR_MIN;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
2812 max_freg_var = FREG_VAR_BASE-FREG_VAR_MIN;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2813 use_int(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2814 printf("\tmtctr %s\n",register_name(e2));
917947ffeb7c power pc version
kono
parents:
diff changeset
2815 printf("\tbctr\n");
283
230a3b98b843 MIPS jump work.
kono
parents: 280
diff changeset
2816 control=0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2817 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2818
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2819 static void
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2820 code_add_op(char *op, char *crn, int offset, char *rrn)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2821 {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2822 #ifdef __APPLE__
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2823 if (LARGE_OFFSET(offset)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2824 printf("\taddis %s,%s,ha16(%d)\n",crn,crn,offset);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2825 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
2826 printf("\t%s %s,lo16(%d)(%s)\n",op,crn,offset,rrn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2827 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2828 if (LARGE_OFFSET(offset)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2829 printf("\taddis %s,%s,%d@ha\n",crn,crn,offset);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2830 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
2831 printf("\t%s %s,%d@l(%s)\n",op,crn,offset,rrn);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2832 #endif
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2833 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2834
355
6188f66c0c0b cond op, and arg scope.
kono
parents: 354
diff changeset
2835 void
6188f66c0c0b cond op, and arg scope.
kono
parents: 354
diff changeset
2836 code_rindirect(int e1, int reg,int offset, int sign,int sz)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2837 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2838 char *crn,*rrn;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2839 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2840 if (!is_int_reg(creg)) error(-1);
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2841 crn=register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2842 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2843 rrn=register_name(reg);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2844 code_add_op(cload(sz),rrn,offset,crn);
355
6188f66c0c0b cond op, and arg scope.
kono
parents: 354
diff changeset
2845 cext(sign,sz,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2846 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2847
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2848 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2849 int
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2850 code_drindirect(int e1, int reg,int offset, int d)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2851 {
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2852 char *crn;
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2853 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2854 if (!is_int_reg(creg)) error(-1);
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2855 crn=register_name(creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2856 use_float(d,reg);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2857 code_add_op(fload(d),fregister_name(reg),offset,crn);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2858
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2859 return d?DOUBLE:FLOAT;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2860 }
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2861 #endif
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2862
440
a531bbf572e3 regression test (case, float, long long)
kono
parents: 438
diff changeset
2863 #if LONGLONG_CODE
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2864
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2865
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2866 static void
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2867 lload(int creg,int reg,int offset)
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2868 {
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2869 char *crn = register_name(creg);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2870 #ifdef __APPLE__
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2871 if (LARGE_OFFSET(offset)) {
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2872 printf("\taddis %s,%s,ha16(%d)\n",crn,crn,offset);
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2873 }
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2874 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2875 if (creg!=regv_l(reg)) {
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2876 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_low(reg),offset,crn);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2877 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_high(reg),offset+SIZE_OF_INT,crn);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2878 } else {
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2879 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_high(reg),offset+SIZE_OF_INT,crn);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2880 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_low(reg),offset,crn);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2881 }
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2882 #else
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2883 if (creg!=regv_h(reg)) {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2884 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_high(reg),offset,crn);
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2885 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_low(reg),offset+SIZE_OF_INT,crn);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2886 } else {
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2887 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_low(reg),offset+SIZE_OF_INT,crn);
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
2888 printf("\tlwz %s,lo16(%d)(%s)\n",lregister_name_high(reg),offset,crn);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2889 }
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
2890 #endif
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2891 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2892 if (LARGE_OFFSET(offset)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2893 printf("\taddis %s,%s,%d@ha\n",crn,crn,offset);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2894 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2895 #if ENDIAN_L==0
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2896 if (creg!=regv_l(reg)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2897 printf("\tlwz %s,%d@l(%s)\n",lregister_name_low(reg),offset,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2898 printf("\tlwz %s,%d@l(%s)\n",lregister_name_high(reg),offset+SIZE_OF_INT,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2899 } else {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2900 printf("\tlwz %s,%d@l(%s)\n",lregister_name_high(reg),offset+SIZE_OF_INT,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2901 printf("\tlwz %s,%d@l(%s)\n",lregister_name_low(reg),offset,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2902 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2903 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2904 if (creg!=regv_h(reg)) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2905 printf("\tlwz %s,%d@l(%s)\n",lregister_name_high(reg),offset,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2906 printf("\tlwz %s,%d@l(%s)\n",lregister_name_low(reg),offset+SIZE_OF_INT,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2907 } else {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2908 printf("\tlwz %s,%d@l(%s)\n",lregister_name_low(reg),offset+SIZE_OF_INT,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2909 printf("\tlwz %s,%d@l(%s)\n",lregister_name_high(reg),offset,crn);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2910 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2911 #endif
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2912
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2913 #endif
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2914 }
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2915
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2916 int
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2917 code_lrindirect(int e1, int reg, int offset, int us)
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2918 {
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2919 char *crn;
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2920 int creg0;
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2921
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2922 g_expr(e1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2923 if (!is_int_reg(creg)) error(-1);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
2924 crn=register_name(creg0=creg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2925 use_longlong(reg);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
2926 lload(creg0,reg,offset);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
2927 return us?ULONGLONG:LONGLONG;
196
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2928 }
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2929 #endif
5f70abd9453d *** empty log message ***
kono
parents: 195
diff changeset
2930
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2931 void
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2932 code_assign_gvar(int e2,int creg,int byte) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2933 use_int(creg);
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
2934 code_ldf(cstore(byte),register_name(creg),cadr(e2),
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
2935 get_ptr_cache(ncaddr(e2)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2936 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2937
917947ffeb7c power pc version
kono
parents:
diff changeset
2938 void
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
2939 code_assign_lvar(int e2,int creg,int byte) {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2940 char *crn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2941 use_int(creg);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
2942 crn=register_name(creg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
2943 lvar_intro(e2);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
2944 printf("\t%s %s,",cstore(byte),crn);
165
kono
parents: 164
diff changeset
2945 lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2946 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2947
917947ffeb7c power pc version
kono
parents:
diff changeset
2948 void
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
2949 code_assign_register(int e2,int byte,int creg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2950 use_int(creg);
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2951 if (e2!=creg)
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
2952 printf("\tmr %s,%s\n",register_name(e2),register_name(creg));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2953 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2954
917947ffeb7c power pc version
kono
parents:
diff changeset
2955 void
118
07b91b625f84 assignment optimization
kono
parents: 117
diff changeset
2956 code_assign(int e2,int byte,int creg) {
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2957 char *drn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2958 char *crn;
233
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2959 use_int(e2);
2208a18f3799 *** empty log message ***
kono
parents: 232
diff changeset
2960 drn=register_name(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2961 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2962 crn=register_name(creg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
2963
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
2964 printf("\t%s %s,0(%s)\n",cstore(byte),crn,drn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2965 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2966
917947ffeb7c power pc version
kono
parents:
diff changeset
2967
917947ffeb7c power pc version
kono
parents:
diff changeset
2968 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2969 code_register_assop(int e2,int reg, int op,int byte) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2970 // reg <= reg(e2) op=reg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2971 use_int(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2972 tosop(op,e2,reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2973 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2974
917947ffeb7c power pc version
kono
parents:
diff changeset
2975 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
2976 code_assop(int op,int creg, int byte,int sign) {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2977 int xreg;
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2978 // (*pop()) op = creg
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2979 // creg should be ecx
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2980
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2981 use_int(creg);
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2982 xreg = emit_pop(0); /* pop e3 value */
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2983 emit_push();
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2984 ld_indexx(byte,0,creg,ireg,sign);
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2985 tosop(op,ireg,xreg);
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2986 emit_pop_free(xreg);
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2987 xreg = emit_pop(0); /* pop e3 value */
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2988 printf("\t%s %s,0(%s)\n",cstore(byte),
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2989 register_name(ireg),register_name(xreg));
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
2990 emit_pop_free(xreg);
594
f49c825920c4 tosop optimize buf fix
kono
parents: 593
diff changeset
2991 }
f49c825920c4 tosop optimize buf fix
kono
parents: 593
diff changeset
2992
f49c825920c4 tosop optimize buf fix
kono
parents: 593
diff changeset
2993 int
f49c825920c4 tosop optimize buf fix
kono
parents: 593
diff changeset
2994 tosop_operand_safe_p(int op)
f49c825920c4 tosop optimize buf fix
kono
parents: 593
diff changeset
2995 {
f49c825920c4 tosop optimize buf fix
kono
parents: 593
diff changeset
2996 return 1;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
2997 }
917947ffeb7c power pc version
kono
parents:
diff changeset
2998
917947ffeb7c power pc version
kono
parents:
diff changeset
2999 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3000 tosop(int op,int creg,int oreg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3001 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3002 int dx = -1;
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3003 int ox = -1;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3004 char *orn,*crn,*drn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3005 // creg = creg op oreg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3006
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3007 use_int(creg);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3008 if(oreg==-1) {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3009 error(-1);
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3010 } else if (oreg<= -REG_LVAR_OFFSET) {
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3011 ox = get_register(); if (ox<0) error(-1);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3012 code_rlvar(oreg+REG_LVAR_OFFSET,ox);
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
3013 free_lvar(oreg+REG_LVAR_OFFSET);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3014 oreg = ox;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3015 }
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3016
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3017 switch(op) {
917947ffeb7c power pc version
kono
parents:
diff changeset
3018 case LSHIFT:
917947ffeb7c power pc version
kono
parents:
diff changeset
3019 case ULSHIFT:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3020 shift("slw",creg,oreg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3021 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3022 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
3023 case RSHIFT:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3024 shift("sraw",creg,oreg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3025 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3026 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
3027 case URSHIFT:
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3028 shift("srw",creg,oreg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3029 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3030 return;
917947ffeb7c power pc version
kono
parents:
diff changeset
3031 }
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
3032 orn = register_name(oreg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3033 crn = register_name(creg);
917947ffeb7c power pc version
kono
parents:
diff changeset
3034 switch(op) {
917947ffeb7c power pc version
kono
parents:
diff changeset
3035 case ADD:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3036 printf("\tadd %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3037 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3038 case SUB:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3039 printf("\tsub %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3040 break;
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
3041 case CMP:
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3042 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3043 printf("\tcmpw %s,%s,%s\n",crname(cmpflag),crn,orn);
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
3044 break;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
3045 case UCMP:
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3046 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3047 printf("\tcmplw %s,%s,%s\n",crname(cmpflag),crn,orn);
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
3048 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3049 case BAND:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3050 printf("\tand %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3051 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3052 case EOR:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3053 printf("\txor %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3054 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3055 case BOR:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3056 printf("\tor %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3057 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3058 case MUL:
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3059 printf("\tmullw %s,%s,%s\n",crn,crn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3060 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3061 case UMUL:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3062 printf("\tmullw %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3063 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3064 case DIV:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3065 printf("\tdivw %s,%s,%s\n",crn,crn,orn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
3066 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3067 case UDIV:
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3068 printf("\tdivwu %s,%s,%s\n",crn,crn,orn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3069 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
3070 case MOD:
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
3071 dx=get_register();
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3072 drn = register_name(dx);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3073 printf("\tdivw %s,%s,%s\n",drn,crn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3074 printf("\tmullw %s,%s,%s\n",drn,drn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3075 printf("\tsubf %s,%s,%s\n",crn,drn,crn);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
3076 break;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3077 case UMOD:
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
3078 dx=get_register();
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3079 drn = register_name(dx);
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
3080 printf("\tdivwu %s,%s,%s\n",drn,crn,orn);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3081 printf("\tmullw %s,%s,%s\n",drn,drn,orn);
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3082 printf("\tsubf %s,%s,%s\n",crn,drn,crn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3083 break;
112
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
3084 default:
fc7de4faedfd *** empty log message ***
kono
parents: 111
diff changeset
3085 error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3086 }
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3087 if(dx!=-1) free_register(dx);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
3088 if(ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3089 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3090
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3091 int
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3092 code_const_op_p(int op,int v)
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3093 {
240
b59364f5b030 *** empty log message ***
kono
parents: 239
diff changeset
3094 if (car(v)!=CONST) return 0;
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3095 if (op==DIV||op==UDIV) return ilog(v);
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3096 if (op==BAND||op==MOD||op==UMOD) return 0;
240
b59364f5b030 *** empty log message ***
kono
parents: 239
diff changeset
3097 v = cadr(v);
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
3098 return (-32766<v&&v<32767);
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3099 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3100
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
3101 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3102 oprtc(int op,int creg, int v)
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3103 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3104 char *crn;
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3105 int l;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3106 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3107 crn = register_name(creg);
240
b59364f5b030 *** empty log message ***
kono
parents: 239
diff changeset
3108 v = cadr(v);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3109
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3110 switch(op) {
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3111 case LSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3112 case ULSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3113 printf("\tslwi %s,%s,%d\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3114 return;
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3115 case DIV:
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3116 v = ilog(v);
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3117 case RSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3118 printf("\tsrawi %s,%s,%d\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3119 return;
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3120 case UDIV:
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3121 v = ilog(v);
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3122 case URSHIFT:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3123 printf("\tsrwi %s,%s,%d\n",crn,crn,v);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3124 return;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3125 case ADD:
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3126 #ifdef __APPLE__
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3127 printf("\taddi %s,%s,lo16(%d)\n",crn,crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3128 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3129 printf("\taddi %s,%s,%d@l\n",crn,crn,v);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3130 #endif
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3131 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3132 case SUB:
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3133 #ifdef __APPLE__
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3134 printf("\taddi %s,%s,lo16(-%d)\n",crn,crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3135 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3136 printf("\taddi %s,%s,-%d@l\n",crn,crn,v);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3137 #endif
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3138 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3139 case CMP:
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3140 inc_cmpflag();
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3141 #ifdef __APPLE__
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3142 printf("\tcmpwi %s,%s,lo16(%d)\n",crname(cmpflag),crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3143 #else
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3144 printf("\tcmpwi %s,%s,%d@l\n",crname(cmpflag),crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3145 #endif
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3146 break;
354
32cd53208b79 type of fix.
kono
parents: 353
diff changeset
3147 case UCMP:
32cd53208b79 type of fix.
kono
parents: 353
diff changeset
3148 inc_cmpflag();
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3149 #ifdef __APPLE__
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3150 printf("\tcmplwi %s,%s,lo16(%d)\n",crname(cmpflag),crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3151 #else
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3152 printf("\tcmplwi %s,%s,%d@l\n",crname(cmpflag),crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3153 #endif
354
32cd53208b79 type of fix.
kono
parents: 353
diff changeset
3154 break;
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3155 case EOR:
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3156 #ifdef __APPLE__
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3157 printf("\txori %s,%s,lo16(%d)\n",crn,crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3158 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3159 printf("\txori %s,%s,%d@l\n",crn,crn,v);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3160 #endif
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3161 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3162 case BOR:
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3163 #ifdef __APPLE__
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3164 printf("\tori %s,%s,lo16(%d)\n",crn,crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3165 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3166 printf("\tori %s,%s,%d@l\n",crn,crn,v);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3167 #endif
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3168 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3169 case MUL:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3170 case UMUL:
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3171 if ((l=ilog(v))) {
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3172 printf("\tslwi %s,%s,%d\n",crn,crn,l);
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3173 } else
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3174 #ifdef __APPLE__
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3175 printf("\tmulli %s,%s,lo16(%d)\n",crn,crn,v);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3176 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3177 printf("\tmulli %s,%s,%d@l\n",crn,crn,v);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3178 #endif
189
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3179 break;
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3180 default:
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3181 error(-1);
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3182 }
f53d70110377 immediate instructions.
kono
parents: 187
diff changeset
3183 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3184
917947ffeb7c power pc version
kono
parents:
diff changeset
3185 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3186 shift(char *op, int creg, int reg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3187 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3188 char *crn;
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
3189 char *rrn = register_name(reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3190 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3191 crn = register_name(creg);
186
6391432ca002 nkf binary fix
kono
parents: 185
diff changeset
3192 printf("\t%s %s,%s,%s\n",op,crn,crn,rrn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3193 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3194
917947ffeb7c power pc version
kono
parents:
diff changeset
3195 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3196 ld_indexx(int byte, int n, int xreg,int creg, int sign)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3197 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3198 char *crn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3199 use_int(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
3200 crn = register_name(creg);
246
0dcc0ec81ed2 MIPS on going (90%)
kono
parents: 245
diff changeset
3201 printf("\t%s %s,%d(%s)\n",cload(byte),register_name(creg),n,
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
3202 register_name(xreg));
246
0dcc0ec81ed2 MIPS on going (90%)
kono
parents: 245
diff changeset
3203 cext(sign,byte,creg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3204 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3205
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3206 int
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3207 code_csvalue()
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3208 {
458
0bc9f3273aa7 *** empty log message ***
kono
parents: 456
diff changeset
3209 return glist2(REGISTER,creg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3210 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
3211
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3212 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
3213 code_cmpdimm(int e, int csreg,int label,int cond)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3214 {
415
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3215 int reg,regsv;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3216 /* used in dosiwtch() */
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3217 inc_cmpflag();
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3218 if (-32767<e&&e<32767) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3219 printf("\tcmpwi %s,%s,%d\n",crname(cmpflag),register_name(csreg),e);
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3220 jcond(label,cond);
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3221 } else {
415
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3222 regsv = regs[csreg]; regs[csreg]=USING_REG;
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3223 reg = get_register();
415
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3224 regs[csreg]= regsv;
405
5b76a2bc1177 ARM code-gen-all passed.
kono
parents: 382
diff changeset
3225 code_const(e,reg);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3226 printf("\tcmpw %s,%s,%s\n",crname(cmpflag),register_name(csreg),register_name(reg));
366
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3227 jcond(label,cond);
2d510935c37d *** empty log message ***
kono
parents: 365
diff changeset
3228 free_register(reg);
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
3229 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3230 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3231
917947ffeb7c power pc version
kono
parents:
diff changeset
3232 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3233 code_opening(char *filename)
917947ffeb7c power pc version
kono
parents:
diff changeset
3234 {
917947ffeb7c power pc version
kono
parents:
diff changeset
3235 printf("\t.file \"%s\"\n",filename);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3236 /* printf("\t.version\t\"01.01\"\n"); */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3237 /* printf("gcc2_compiled.:\n"); */
605
1078c7e3bfb0 minor fixes
kono
parents: 603
diff changeset
3238 // printf(".text\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3239 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3240
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3241 #define CRBITSIZ 4
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3242
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3243 static int
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3244 rexpr_bool(int e1,int reg)
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3245 {
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3246 int t,flag=-1,eq=-1,neg=-1;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3247 char *rn;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3248 switch(car(e1)) {
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3249 case GT: t=INT; flag = 2; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3250 case UGT: t=0; flag = 2; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3251 case GE: t=INT; flag = 2; eq=3; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3252 case UGE: t=0; flag = 2; eq=3; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3253 case LT: t=INT; flag = 1; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3254 case ULT: t=0; flag = 1; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3255 case LE: t=INT; flag = 1; eq=3; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3256 case ULE: t=0; flag = 1; eq=3; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3257 case EQ: t=INT; flag = 3; break;
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3258 case NEQ: t=INT; flag = 3; neg=3; break;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3259 default: return 0;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3260 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3261 g_expr(list3((t==INT?CMP:UCMP),cadr(e1),caddr(e1)));
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3262 use_int(reg);
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3263 rn = register_name(reg);
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3264 t = CRBITSIZ*cmpflag;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3265 if (eq>0) {
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3266 printf("\tcror %d,%d,%d\n",t+flag-1,t+eq-1,t+flag-1);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3267 }
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3268 if (neg>0) {
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3269 neg = t+neg-1,
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3270 printf("\tcrnor %d,%d,%d\n",neg,neg,neg);
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3271 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3272 printf("\tmfcr %s\n",rn);
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
3273 printf("\trlwinm %s,%s,%d,1\n",rn,rn,t+flag);
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3274 return 1;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3275 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
3276
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
3277 int
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
3278 rexpr(int e1, int l1, int cond,int t)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3279 {
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
3280 char *s=0;
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3281 switch(car(e1)+BNOT*(!cond)) {
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3282 case GT: s=code_gt(1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3283 case UGT: s=code_ugt(1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3284 case GE: s=code_ge(1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3285 case UGE: s=code_uge(1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3286 case LT: s=code_ge(!1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3287 case ULT: s=code_uge(!1);break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3288 case LE: s=code_gt(!1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3289 case ULE: s=code_ugt(!1);break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3290 case EQ: s=code_eq(1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3291 case NEQ: s=code_eq(!1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3292 case GT+BNOT: s=code_gt(0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3293 case UGT+BNOT: s=code_ugt(0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3294 case GE+BNOT: s=code_ge(0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3295 case UGE+BNOT: s=code_uge(0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3296 case LT+BNOT: s=code_ge(!0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3297 case ULT+BNOT: s=code_uge(!0);break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3298 case LE+BNOT: s=code_gt(!0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3299 case ULE+BNOT: s=code_ugt(!0);break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3300 case EQ+BNOT: s=code_eq(0); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
3301 case NEQ+BNOT: s=code_eq(!0); break;
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
3302 default: error(-1);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
3303 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
3304 g_expr(list3((t==INT?CMP:UCMP),cadr(e1),caddr(e1)));
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3305 printf("\tb%s %s,%s%d\n",s,crname(cmpflag),lpfx,l1);
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
3306 return l1;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3307 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3308
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
3309 static void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3310 jcond(int l, char cond)
917947ffeb7c power pc version
kono
parents:
diff changeset
3311 {
297
0f79c95df73a switch index no compile error
kono
parents: 292
diff changeset
3312 if (cond==LT) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3313 printf("\tb%s %s,%s%d\n",code_ge(0),crname(cmpflag),lpfx,l);
297
0f79c95df73a switch index no compile error
kono
parents: 292
diff changeset
3314 } else if (cond==1||cond==0) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3315 printf("\tb%s %s,%s%d\n",cond?"ne":"eq",crname(cmpflag),lpfx,l);
297
0f79c95df73a switch index no compile error
kono
parents: 292
diff changeset
3316 } else error(-1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3317 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3318
917947ffeb7c power pc version
kono
parents:
diff changeset
3319 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3320 jmp(int l)
917947ffeb7c power pc version
kono
parents:
diff changeset
3321 {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3322 printf("\tb\t%s%d\n",lpfx,l);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3323 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3324
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
3325 extern void
456
b8f95294eb77 inline continue... if test passed.
kono
parents: 453
diff changeset
3326 code_comment(char *s)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3327 {
307
fda28752d301 stdarg (varargs done... PowerPC, IA32 checked)
kono
parents: 305
diff changeset
3328 printf("## %s",s);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3329 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3330
917947ffeb7c power pc version
kono
parents:
diff changeset
3331 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3332 code_enter(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
3333 {
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3334 #ifdef __APPLE__
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3335 if (output_mode!=TEXT_EMIT_MODE)
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
3336 text_mode(0);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3337 else
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3338 printf("\t.align 2\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3339 if (stmode!=STATIC)
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
3340 printf(".globl _%s\n",name);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3341 #ifdef DOT_SIZE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3342 printf("\t.type\t%s,@function\n",name);
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3343 #endif
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
3344 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
3345 code_disp_label=fwdlabel();
417
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3346 #if 0
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3347 printf("\tla r1,lo16(L_%d)(r30)\n",code_disp_label);
417
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3348 #else
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3349 printf("\tla r1,lo16(L_%d)(r30)\n",code_disp_label);
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3350 printf("\taddis r1,r1,ha16(L_%d)\n",code_disp_label);
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3351 #endif
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3352 printf("\tbcl 20,31,L_%d\n",code_base = fwdlabel());
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3353 fwddef(code_base);
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3354 printf("\tmflr r31\n");
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3355 max_func_args = 0;
489
79fef53141b4 fix clear_ptr_cache in MIPS/ARM.
kono
parents: 487
diff changeset
3356 clear_ptr_cache();
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3357 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3358 if (output_mode!=TEXT_EMIT_MODE)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3359 text_mode(0);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3360 else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3361 printf("\t.align 2\n");
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3362 if (stmode!=STATIC)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3363 printf(".globl %s\n",name);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3364 #ifdef DOT_SIZE
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3365 printf("\t.type\t%s,@function\n",name);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3366 #endif
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3367 printf("%s:\n",name);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3368 code_disp_label=fwdlabel();
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3369 #if 0
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3370 printf("\tla r1,lo16(L_%d)(r30)\n",code_disp_label);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3371 #else
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3372 printf("\tla 1,%s%d@l(31)\n",lpfx,code_disp_label);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3373 printf("\taddis 1,1,%s%d@ha\n",lpfx,code_disp_label);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3374 #endif
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3375 max_func_args = 0;
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3376 clear_ptr_cache();
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3377 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3378 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3379
917947ffeb7c power pc version
kono
parents:
diff changeset
3380
917947ffeb7c power pc version
kono
parents:
diff changeset
3381 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3382 code_enter1(int args)
917947ffeb7c power pc version
kono
parents:
diff changeset
3383 {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
3384 // set_lreg(LREG_LREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3385 set_ireg(CREG_REGISTER,0);
106
3618c0efe9d3 fix save_input_register
kono
parents: 105
diff changeset
3386 set_freg(FREG_FREGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3387 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3388
917947ffeb7c power pc version
kono
parents:
diff changeset
3389 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3390 code_leave(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
3391 {
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3392 int r1_offsetv;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3393 disp&= -SIZE_OF_INT;
603
2baddc88097d *** empty log message ***
kono
parents: 599
diff changeset
3394 r1_offsetv = -disp+max_func_args*SIZE_OF_INT -code_disp_offset0 +8+32+48;
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3395 #ifdef __APPLE__
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3396 printf(".set L_%d,%d\n",code_disp_label,-r1_offsetv);
417
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3397 if (max_func_arg_label) {
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3398 printf(".set L_%d,%d\n",max_func_arg_label,max_func_args*SIZE_OF_INT+24);
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3399 max_func_arg_label = 0;
98888da30b35 code jump fixes (not finished)
kono
parents: 416
diff changeset
3400 }
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3401 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3402 printf(".set .LC%d,%d\n",code_disp_label,-r1_offsetv);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3403 if (max_func_arg_label) {
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3404 printf(".set .LC%d,%d\n",max_func_arg_label,max_func_args*SIZE_OF_INT+24);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3405 max_func_arg_label = 0;
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3406 }
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3407 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3408 local_table();
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
3409 // free_all_register();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3410 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3411
917947ffeb7c power pc version
kono
parents:
diff changeset
3412 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3413 enter(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
3414 {
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3415 #ifdef __APPLE__
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3416 if (output_mode!=TEXT_EMIT_MODE)
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
3417 text_mode(0);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3418 else
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3419 printf("\t.align 2\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3420 if (stmode!=STATIC)
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3421 printf(".globl %s%s\n",npfx,name);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3422 /*
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3423 printf("\t.type\t%s,@function\n",name);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3424 */
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3425 printf("%s%s:\n",npfx,name);
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3426 code_setup=fwdlabel();
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3427 printf("\tmflr r0\n");
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
3428 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
3429 code_base=fwdlabel();
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3430 fwddef(code_base);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3431 r1_offset_label = fwdlabel();
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3432 lvar_offset_label = fwdlabel();
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3433 #if 0
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3434 printf("\taddi r30,r1,lo16(-L_%d)\n",lvar_offset_label);
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3435 printf("\tstwu r1,lo16(-L_%d)(r1)\n",r1_offset_label);
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3436 // printf("\tmr r30,r1\n");
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3437 #else
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3438 printf("\taddi r30,r1,lo16(-L_%d)\n",lvar_offset_label);
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3439 printf("\tlis r31,ha16(-L_%d)\n",r1_offset_label);
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3440 printf("\taddi r31,r31,lo16(-L_%d)\n",r1_offset_label);
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3441 printf("\tstwux r1,r1,r31\n");
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
3442 #endif
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3443 printf("\tmflr r31\n");
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3444 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3445 if (output_mode!=TEXT_EMIT_MODE)
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3446 text_mode(0);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3447 else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3448 printf("\t.align 2\n");
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3449 if (stmode!=STATIC)
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3450 printf(".globl %s%s\n",npfx,name);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3451 /*
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3452 printf("\t.type\t%s,@function\n",name);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3453 */
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3454 printf("%s:\n",name);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3455 code_setup=fwdlabel();
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3456 arg_offset_label = fwdlabel();
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3457 printf("\tmflr 0\n");
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3458 printf("\tstwu %d,-%s%d@l(%d)\n",1,lpfx,arg_offset_label,1);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3459 printf("\tbl .LC%d\n",code_setup);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3460 r1_offset_label = fwdlabel();
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3461 lvar_offset_label = fwdlabel();
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
3462
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3463 printf("\tmr %d,1\n",REG_fp);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3464 printf("\taddi %d,1,-%s%d@l\n",REG_fp,lpfx,lvar_offset_label);
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
3465 printf("\tlis %d,-%s%d@ha\n",30,lpfx,r1_offset_label);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3466 printf("\taddi %d,%d,-%s%d@l\n",30,30,lpfx,r1_offset_label);
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
3467 printf("\tstwux 1,1,%d\n",30);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3468 #endif
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3469 max_func_args = 0;
489
79fef53141b4 fix clear_ptr_cache in MIPS/ARM.
kono
parents: 487
diff changeset
3470 clear_ptr_cache();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3471 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3472
917947ffeb7c power pc version
kono
parents:
diff changeset
3473 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3474 enter1()
917947ffeb7c power pc version
kono
parents:
diff changeset
3475 {
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
3476 text_mode(0);
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
3477 // set_lreg(LREG_LREGISTER,0);
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3478 set_ireg(CREG_REGISTER,0);
106
3618c0efe9d3 fix save_input_register
kono
parents: 105
diff changeset
3479 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
3480 }
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3481
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3482 int
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3483 reg_save_offset()
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3484 {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3485 return -(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3486 (REAL_MAX_REGISTER-(REG_VAR_BASE-max_reg_var))*SIZE_OF_INT+
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3487 (REAL_MAX_FREGISTER-(FREG_VAR_BASE-max_freg_var))*SIZE_OF_DOUBLE
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3488 );
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3489 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3490
917947ffeb7c power pc version
kono
parents:
diff changeset
3491 void
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3492 code_label_call(int l)
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3493 {
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3494 #ifdef __APPLE__
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3495 printf("\tbl\tL_%d\n",l);
660
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3496 #else
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3497 printf("\tbl\t.LC%d\n",l);
3e1dba5758d8 *** empty log message ***
kono
parents: 655
diff changeset
3498 #endif
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3499 }
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3500
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3501 void
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3502 code_ret()
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3503 {
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3504 printf("\tblr\n");
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3505 }
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3506
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3507 #ifndef __APPLE__
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3508 static int saveFP_used=0;
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3509 static char *saveFP_lib[] = {
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3510 ".saveFP: stfd 14,-144(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3511 " stfd 15,-136(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3512 " stfd 16,-128(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3513 " stfd 17,-120(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3514 " stfd 18,-112(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3515 " stfd 19,-104(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3516 " stfd 20,-96(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3517 " stfd 21,-88(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3518 " stfd 22,-80(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3519 " stfd 23,-72(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3520 " stfd 24,-64(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3521 " stfd 25,-56(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3522 " stfd 26,-48(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3523 " stfd 27,-40(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3524 " stfd 28,-32(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3525 " stfd 29,-24(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3526 " stfd 31,-16(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3527 " stfd 30,-8(1)",
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
3528 " stw 0,4(1)",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3529 " blr",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3530 ".restFP: ",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3531 " lfd 14,-144(1)",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3532 " lfd 15,-136(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3533 " lfd 16,-128(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3534 " lfd 17,-120(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3535 " lfd 18,-112(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3536 " lfd 19,-104(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3537 " lfd 20,-96(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3538 " lfd 21,-88(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3539 " lfd 22,-80(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3540 " lfd 23,-72(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3541 " lfd 24,-64(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3542 " lfd 25,-56(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3543 " lfd 26,-48(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3544 " lfd 27,-40(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3545 " lfd 28,-32(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3546 " lfd 29,-24(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3547 " lwz 0,4(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3548 " lfd 31,-16(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3549 " lwz 1,0(1)",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3550 " mtlr 0",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3551 " blr",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3552 0
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3553 };
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3554 #endif
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3555
726
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3556 static void
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3557 make_return_continuation()
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3558 {
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3559 #if R1SAVE
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3560 retcont1 = fwdlabel();
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3561 #endif
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3562 fwddef(retcont);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3563 if (cadr(fnptr->ty)==FLOAT||cadr(fnptr->ty)==DOUBLE) {
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3564 printf("\tfmr %s,%s\n",fregister_name(1),fregister_name(31));
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3565 printf("\tmr %s,%s\n",register_name(30),register_name(28));
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3566 } else if (cadr(fnptr->ty)>0&&(
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3567 car(cadr(fnptr->ty))==STRUCT ||
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3568 car(cadr(fnptr->ty))==UNION)) {
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3569 int sz = size(cadr(fnptr->ty));
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3570 #ifdef __APPLE__
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3571 printf("\tli r7,%d\n",sz);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3572 printf("\tsubl r6,r7,r30\n");
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3573 printf("\tlwz r3,lo16(%d)(r30)\n",(my_func_args-1)*SIZE_OF_INT);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3574 // emit_copy(6,3,sz,0,1,1);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3575 #else
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3576 printf("\tli 7,%d\n",sz);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3577 printf("\tsubl 6,7,%d\n",REG_fp);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3578 printf("\tlwz 3,%d@l(%d)\n",(my_func_args-1)*SIZE_OF_INT,REG_fp);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3579 // emit_copy(6,3,sz,0,1,1);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3580 #endif
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3581 printf("\tmr %s,%s\n",register_name(30),register_name(28));
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3582 } else if (cadr(fnptr->ty)!=VOID) {
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3583 printf("\tmr %s,%s\n",register_name(3),register_name(29));
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3584 printf("\tmr %s,%s\n",register_name(30),register_name(28));
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3585 }
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3586 #if R1SAVE
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3587 jmp(retcont1);
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3588 #else
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3589 #endif
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3590 }
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3591
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3592 void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3593 leave(int control, char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
3594 {
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3595 #if R1SAVE
726
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3596 int retcont1=0;
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3597 #else
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3598 #endif
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3599
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3600 if (max_freg_var>=0 && max_freg_var<=3) max_freg_var=3;
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3601 reg_save = reg_save_offset();
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3602
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3603 if (control) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3604 code_set_return_register(1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3605 }
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3606 if (retcont) {
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3607 if (control) jmp(retlabel);
726
f3fccac64cbe fix ppc goto with env
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 724
diff changeset
3608 make_return_continuation();
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3609 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3610 fwddef(retlabel);
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3611 #if R1SAVE
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3612 printf("\tlwz %s,0(%s)\n",register_name(1),register_name(1));
128
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3613 if (retcont) {
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3614 fwddef(retcont1);
d497c39add36 arg.c works (?)
kono
parents: 127
diff changeset
3615 }
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3616 #else
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3617 #ifdef __APPLE__
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3618 printf("\taddi r1,r30,lo16(L_%d)\n",lvar_offset_label);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3619 #else
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3620 printf("\taddi 1,%d,%s%d@l\n",REG_fp,lpfx,lvar_offset_label);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3621 #endif
577
7e0076617c76 env switch continue..
kono
parents: 572
diff changeset
3622 #endif
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
3623 if (max_freg_var>=0) {
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3624 #ifdef __APPLE__
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3625 printf("\tlmw r%d,%d(%s)\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3626 REG_VAR_BASE-max_reg_var,reg_save,register_name(1));
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3627 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
3628 printf("\tb restFP+%d ; restore f%d-f31\n",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3629 freg_save,
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3630 FREG_VAR_BASE-max_freg_var);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3631 #else
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3632 printf("\tlmw %d,%d(%s)\n",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3633 REG_VAR_BASE-max_reg_var,reg_save,register_name(1));
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3634 freg_save = 72-(REAL_MAX_FREGISTER-(FREG_VAR_BASE-max_freg_var))*4;
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3635 printf("\tb .restFP+%d # restore f%d-f31\n",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3636 freg_save,
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3637 FREG_VAR_BASE-max_freg_var);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3638 #endif
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3639 } else {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3640 #ifdef __APPLE__
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3641 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
3642 printf("\tmtlr r0\n");
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
3643 printf("\tlmw r%d,%d(r1)\n",
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3644 REG_VAR_BASE-max_reg_var,reg_save);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3645 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3646 printf("\tlmw %d,%d(1)\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3647 REG_VAR_BASE-max_reg_var,reg_save);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3648 printf("\tlwz %s,4(1)\n",register_name(0));
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3649 printf("\tlwz 1,0(1)\n");
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3650 printf("\tmtlr %s\n",register_name(0));
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3651 #endif
450
eaf9e2746c83 parallel assign for simple expr. (too complex solution)
kono
parents: 449
diff changeset
3652 code_ret();
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3653 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3654
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
3655 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
3656 fwddef(code_setup);
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3657 #ifdef __APPLE__
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3658 printf("\tstmw %s,%d(%s)\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3659 register_name(REG_VAR_BASE-max_reg_var),reg_save,register_name(1));
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3660 printf("\tstw %s,8(%s)\n",register_name(0),register_name(1));
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3661 #else
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3662 printf("\tstmw %s,%d(%s)\n",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3663 register_name(REG_VAR_BASE-max_reg_var),reg_save,register_name(1));
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3664 printf("\tstw %s,4(%s)\n",register_name(0),register_name(1));
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
3665 #endif
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3666 if (max_freg_var>=0) {
664
ec1bac997e50 fix 387 floating point stack overflow
kono
parents: 663
diff changeset
3667 #ifdef __APPLE__
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3668 printf("\tb saveFP+%d ; save f%d-f31\n",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3669 freg_save,
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3670 FREG_VAR_BASE-max_freg_var);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3671 #else
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3672 saveFP_used = 1;
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3673 printf("\tb .saveFP+%d # save f%d-f31\n",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3674 freg_save,
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3675 FREG_VAR_BASE-max_freg_var);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3676 #endif
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
3677 } else {
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3678 printf("\tblr\n");
110
fb502a0071f8 first binary run
kono
parents: 109
diff changeset
3679 }
100
a9e6f2a2946f Wrote all code for PowerPC and no compile error. Let's fix all bugs...
kono
parents: 99
diff changeset
3680
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3681 code_offset_set();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3682 local_table();
917947ffeb7c power pc version
kono
parents:
diff changeset
3683 labelno++;
208
70b1da1864f6 *** empty log message ***
kono
parents: 207
diff changeset
3684 // free_all_register();
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3685 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3686
917947ffeb7c power pc version
kono
parents:
diff changeset
3687
705
0554b7f985ee parse mode done.
kono
parents: 693
diff changeset
3688 int
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3689 code_set_return_register(int mode) {
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3690 if (cadr(fnptr->ty)==DOUBLE||cadr(fnptr->ty)==FLOAT) {
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3691 set_freg(RET_FREGISTER,mode);
705
0554b7f985ee parse mode done.
kono
parents: 693
diff changeset
3692 return freg;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3693 } else if (cadr(fnptr->ty)==LONGLONG||cadr(fnptr->ty)==ULONGLONG) {
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3694 set_lreg(RET_LREGISTER,mode);
705
0554b7f985ee parse mode done.
kono
parents: 693
diff changeset
3695 return lreg;
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
3696 } else if (cadr(fnptr->ty)==VOID) {
705
0554b7f985ee parse mode done.
kono
parents: 693
diff changeset
3697 return 0;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3698 } else {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3699 set_ireg(RET_REGISTER,mode);
705
0554b7f985ee parse mode done.
kono
parents: 693
diff changeset
3700 return ireg;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3701 }
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3702 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3703
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3704 int
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3705 code_get_fixed_creg(int reg,int type) {
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3706 return creg;
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3707 }
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3708
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3709 void
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3710 code_set_fixed_creg(int reg,int mode,int type) {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3711 if (type==FLOAT||type==DOUBLE) {
187
dffcccf8b1cb nested COND
kono
parents: 186
diff changeset
3712 set_freg(reg,mode);
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3713 } else if (type==LONGLONG||type==ULONGLONG) {
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3714 set_lreg(reg,mode);
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
3715 // use_reg(reg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3716 } else {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
3717 set_ireg(reg,mode);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
3718 }
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3719 }
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3720
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
3721 void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3722 gen_gdecl(char *n, int gpc)
917947ffeb7c power pc version
kono
parents:
diff changeset
3723 {
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
3724 /*
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3725 if (stmode!=STATIC)
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
3726 printf(".globl _%s\n",n);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
3727 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3728 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3729
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3730 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3731 ascii(char *s)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3732 {
517
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3733 cstring_mode();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3734 #ifdef __APPLE__
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3735 printf("\t.ascii \"");
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3736 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3737 printf("\t.string \"");
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3738 #endif
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3739 while(*s) {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3740 if (*s=='\n')
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3741 printf("%cn",92);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3742 else if (*s<' ')
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3743 printf("%c%03o",92,*s);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3744 else if (*s=='\\')
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3745 printf("\\\\");
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3746 else if (*s==34)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3747 printf("%c%c",92,34);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3748 else
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3749 printf("%c",*s);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3750 s++;
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3751 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3752 printf("\\0%c\n\t.align 2\n",34);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3753 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3754
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3755 extern int
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3756 emit_string_label() {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3757 int lb;
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3758
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3759 lb=fwdlabel();
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
3760 cstring_mode();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3761 printf("%s%d:\n",lpfx,lb);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3762 return lb;
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3763 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3764
518
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3765 extern void
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3766 emit_string(char *s,int t)
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3767 {
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3768 t = type_value(t);
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3769 if (car(t)==ARRAY &&
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3770 (type_value(cadr(t))==CHAR||type_value(cadr(t))==UCHAR)) {
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3771 ascii(s);
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3772 } else {
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3773 int l = emit_string_label();
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3774 ascii(s);
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3775 emit_label(l);
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3776 }
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3777 return;
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3778 }
9f2d6aea201f cstring fix.... finally
kono
parents: 517
diff changeset
3779
415
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3780 void
716
21f770a3b298 *** empty log message ***
kono
parents: 715
diff changeset
3781 code_align(int t)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3782 {
415
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3783 int d;
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3784 switch(t) {
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3785 case CHAR: case UCHAR: return;
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3786 case SHORT: case USHORT: d = data_alignment & 1; break;
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3787 default: d = data_alignment & 3;
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3788 }
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3789 if (d) {
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3790 printf("\t.align 2\n");
bdf900926f32 fix cpmd register
kono
parents: 411
diff changeset
3791 data_alignment = 0;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3792 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3793 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3794
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
3795 void
517
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3796 emit_global(NMTBL *n,int a,int e)
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3797 {
517
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3798 int t = type_value(n->ty);
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3799 if (e>0 && car(e)==STRING && t>0 && car(t)==ARRAY &&
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3800 (type_value(cadr(t))==CHAR||type_value(cadr(t))==UCHAR)) {
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3801 cstring_mode();
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3802 } else
d686497e8fd2 cstring array fix.
kono
parents: 516
diff changeset
3803 data_mode(n->nm);
542
492f06738550 working... (struct init fix)
kono
parents: 536
diff changeset
3804 if (n && n->sc!=STATIC)
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3805 printf("\t.globl\t%s%s\n",npfx,n->nm);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3806 printf("%s%s:\n",npfx,n->nm);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3807 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3808
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3809 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3810 emit_space(int sp)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3811 {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3812 data_mode(0);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3813 printf("\t.space\t%d\n",sp);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3814 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3815
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3816 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3817 emit_char(int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3818 {
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3819 data_mode(0);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3820 printf("\t.byte %d\n",d);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3821 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3822
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3823 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3824 emit_short(int d)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3825 {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3826 data_mode(0);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3827 printf("\t.short %d\n",d);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3828 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3829
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3830 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3831 emit_int(int d)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3832 {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3833 data_mode(0);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3834 printf("\t.long %d\n",d);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3835 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3836
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3837 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3838 emit_longlong(int e)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3839 {
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
3840 #if LONGLONG_CODE
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
3841 long long d = lcadr(e);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3842 data_mode(0);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3843 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3844 printf("\t.long\t0x%x,0x%x\n",code_l1(d),code_l2(d));
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3845 #else
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3846 printf("\t.long\t0x%x,0x%x\n",code_l2(d),code_l1(d));
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3847 #endif
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3848 #endif
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3849 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3850
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3851 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3852 emit_double(int e)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3853 {
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
3854 #if FLOAT_CODE
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
3855 double d = dcadr(e);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3856 data_mode(0);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3857 #if ENDIAN_D==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3858 printf("\t.long\t0x%x,0x%x\n",code_d1(d),code_d2(d));
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3859 #else
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3860 printf("\t.long\t0x%x,0x%x\n",code_d2(d),code_d1(d));
339
375d21a2b845 emit_data
kono
parents: 338
diff changeset
3861 #endif
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
3862 #endif
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3863 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3864
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3865 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3866 emit_float(int e)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3867 {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3868 #if FLOAT_CODE
341
ca34f02b2056 ptr cache speed up
kono
parents: 340
diff changeset
3869 float f = dcadr(e);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3870 data_mode(0);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3871 printf("\t.long\t0x%x\n",*(int *)&f);
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3872 #endif
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3873 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3874
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3875 extern void
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
3876 emit_address(char *s,int offset)
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3877 {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3878 data_mode(0);
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
3879 if (offset)
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3880 printf("\t.long %s%s+%d\n",npfx,s,offset);
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
3881 else
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3882 printf("\t.long %s%s\n",npfx,s);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3883 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3884
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3885 extern void
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3886 emit_label(int labelno)
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3887 {
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3888 data_mode(0);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3889 printf("\t.long %s%d\n",lpfx,labelno);
340
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3890 }
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3891
0150de6a3244 emit_data moved.
kono
parents: 339
diff changeset
3892 extern void
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3893 emit_data_closing(NMTBL *n)
917947ffeb7c power pc version
kono
parents:
diff changeset
3894 {
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3895 #ifdef DOT_SIZE
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3896 int lb;
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3897 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3898 if (mode==GDECL) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3899 #ifdef DOT_SIZE
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3900 #ifdef __APPLE__
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3901 data_mode(0);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3902 lb=fwdlabel();
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3903 printf("%s%d:\n",lpfx,lb);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3904 printf("\t.size\t%s,%s%d-%%ss\n",n->nm,lb,lpfx,npfx,n->nm);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3905 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3906 data_mode(0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3907 lb=fwdlabel();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3908 printf(".LC%d:\n",lb);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3909 printf("\t.size\t%s,%s%d-%s%s\n",n->nm,lb,lpfx,npfx,n->nm);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3910 #endif
126
1d1612fe705a *** empty log message ***
kono
parents: 125
diff changeset
3911 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3912 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3913 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3914
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3915 #ifdef __APPLE__
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3916 void
917947ffeb7c power pc version
kono
parents:
diff changeset
3917 global_table(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
3918 {
917947ffeb7c power pc version
kono
parents:
diff changeset
3919 NMTBL *n;
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
3920 int init; char *extrn;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3921 init=0;
350
43099915f4c2 name table reconfigure continue...
kono
parents: 348
diff changeset
3922 for(n = global_list;n!=&null_nptr;n = n->next) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3923 if ((n->sc == GVAR) && n->dsp != -1) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3924 /* n->dsp = -1 means initialized global */
917947ffeb7c power pc version
kono
parents:
diff changeset
3925 if (init==0) {
917947ffeb7c power pc version
kono
parents:
diff changeset
3926 data_mode(0);
917947ffeb7c power pc version
kono
parents:
diff changeset
3927 init=1;
917947ffeb7c power pc version
kono
parents:
diff changeset
3928 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3929 printf(".comm %s%s,%d\n",npfx,n->nm,size(n->ty));
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3930 } else if ((n->sc==STATIC) && n->dsp != -1) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3931 /* n->dsp = -1 means initialized global */
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 542
diff changeset
3932 if (is_code(n)||is_function(n)) continue;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3933 if (init==0) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3934 data_mode(0);
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3935 init=1;
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3936 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3937 printf(".lcomm %s%s,%d\n",npfx,n->nm,size(n->ty));
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3938 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3939 }
350
43099915f4c2 name table reconfigure continue...
kono
parents: 348
diff changeset
3940 for(n = global_list;n!=&null_nptr;n = n->next) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3941 if (is_code(n)||is_function(n)) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3942 extrn = n->nm;
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3943 if (n->sc==EXTRN1) {
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3944 data_mode(0);
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3945 printf(".picsymbol_stub\n");
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3946 printf("L_%s$stub:\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3947 printf("\t.indirect_symbol _%s\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3948 printf("\tmflr r0\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3949 printf("\tbcl 20,31,L0$_%s\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3950 printf("L0$_%s:\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3951 printf("\tmflr r11\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3952 printf("\taddis r11,r11,ha16(L_%s$lazy_ptr-L0$_%s)\n",extrn,extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3953 printf("\tmtlr r0\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3954 printf("\tlwz r12,lo16(L_%s$lazy_ptr-L0$_%s)(r11)\n",extrn,extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3955 printf("\tmtctr r12\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3956 printf("\taddi r11,r11,lo16(L_%s$lazy_ptr-L0$_%s)\n",extrn,extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3957 printf("\tbctr\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3958 printf(".data\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3959 printf(".lazy_symbol_pointer\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3960 printf("L_%s$lazy_ptr:\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3961 printf("\t.indirect_symbol _%s\n",extrn);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3962 printf("\t.long dyld_stub_binding_helper\n");
544
dbfd6e88e2c3 s-dandy compile OK
kono
parents: 542
diff changeset
3963 } else if (n->sc==STATIC) {
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
3964 text_mode(0);
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
3965 printf("\t.set L_%s$stub,_%s\n",extrn,extrn);
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3966 data_mode(0);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
3967 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
3968 }
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3969 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3970 }
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3971 init=0;
350
43099915f4c2 name table reconfigure continue...
kono
parents: 348
diff changeset
3972 for(n = global_list;n!=&null_nptr;n = n->next) {
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3973 if (n->sc == GVAR) {
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3974 if (init==0) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3975 printf(".data\n");
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3976 init=1;
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3977 }
116
b14ff9671c90 register offset fix
kono
parents: 115
diff changeset
3978 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
3979 }
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3980 }
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3981 init = 0;
350
43099915f4c2 name table reconfigure continue...
kono
parents: 348
diff changeset
3982 for(n = global_list;n!=&null_nptr;n = n->next) {
453
1e5ca85d3f97 inline on going...
kono
parents: 450
diff changeset
3983 if ((is_code(n)||is_function(n))&&
1e5ca85d3f97 inline on going...
kono
parents: 450
diff changeset
3984 !has_attr(n,FNAME)) // not used as value
1e5ca85d3f97 inline on going...
kono
parents: 450
diff changeset
3985 continue;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
3986 if (n->sc==EXTRN1) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3987 if(init==0) {
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
3988 printf(".data\n");
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3989 printf(".non_lazy_symbol_pointer\n");
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3990 init=1;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3991 }
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3992 printf("L_%s$non_lazy_ptr:\n",n->nm);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3993 printf("\t.indirect_symbol _%s\n",n->nm);
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
3994 printf("\t.long\t0\n");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
3995 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3996 }
917947ffeb7c power pc version
kono
parents:
diff changeset
3997 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3998 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
3999
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4000 static void
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4001 comm(NMTBL *n)
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4002 {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4003 int align = 1;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4004 switch(n->ty) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4005 case DOUBLE:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4006 case LONGLONG:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4007 case ULONGLONG:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4008 align = 8; break;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4009 case INT:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4010 case UNSIGNED:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4011 case FLOAT:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4012 align = 4; break;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4013 case SHORT:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4014 case USHORT:
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4015 align = 2; break;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4016 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4017 printf("\t.comm %s,%d,%d\n",n->nm,size(n->ty),align);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4018 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4019
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4020 void
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4021 global_table(void)
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4022 {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4023 NMTBL *n;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4024 int init;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4025 init=0;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4026 for(n=global_list;n;n=n->next) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4027 if ((n->sc == GVAR) && n->dsp != -1) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4028 /* n->dsp = -1 means initialized global */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4029 if (init==0) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4030 data_mode(0);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4031 init=1;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4032 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4033 comm(n);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4034 } else if ((n->sc==STATIC) && n->dsp != -1) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4035 /* n->dsp = -1 means initialized global */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4036 if (is_code(n)||is_function(n)) continue;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4037 if (init==0) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4038 data_mode(0);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4039 init=1;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4040 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4041 // printf(".local %s\n",n->nm);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4042 comm(n);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4043 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4044 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4045 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4046 #endif
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4047
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4048 #ifdef __APPLE__
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4049 void
917947ffeb7c power pc version
kono
parents:
diff changeset
4050 local_table(void)
917947ffeb7c power pc version
kono
parents:
diff changeset
4051 {
917947ffeb7c power pc version
kono
parents:
diff changeset
4052 NMTBL *n;
917947ffeb7c power pc version
kono
parents:
diff changeset
4053 int init;
917947ffeb7c power pc version
kono
parents:
diff changeset
4054 init=0;
917947ffeb7c power pc version
kono
parents:
diff changeset
4055 /* static local variables */
350
43099915f4c2 name table reconfigure continue...
kono
parents: 348
diff changeset
4056 for(n = local_static_list;n!=&null_nptr;n = n->next) {
553
293f827ccfb2 Linux kernel source compiled.
kono
parents: 544
diff changeset
4057 if (n->sc == STATIC) {
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4058 if (init==0) {
917947ffeb7c power pc version
kono
parents:
diff changeset
4059 data_mode(0);
917947ffeb7c power pc version
kono
parents:
diff changeset
4060 init=1;
917947ffeb7c power pc version
kono
parents:
diff changeset
4061 }
156
da529eab5618 static initialization
kono
parents: 153
diff changeset
4062 if (n->dsp != -1) /* initialized static */
da529eab5618 static initialization
kono
parents: 153
diff changeset
4063 printf(".lcomm _%s,%d\n",n->nm,size(n->ty));
da529eab5618 static initialization
kono
parents: 153
diff changeset
4064 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
4065 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4066 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4067 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4068 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4069 void
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4070 local_table(void)
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4071 {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4072 NMTBL *n;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4073 int init;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4074 init=0;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4075 /* static local variables */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4076 for(n = local_static_list;n!=&null_nptr;n = n->next) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4077 if (n->sc == STATIC) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4078 if (init==0) {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4079 data_mode(0);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4080 init=1;
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4081 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4082 if (n->dsp != -1) /* initialized static */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4083 printf(".lcomm %s,%d\n",n->nm,size(n->ty));
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4084 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4085 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4086 }
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4087 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4088
917947ffeb7c power pc version
kono
parents:
diff changeset
4089 void
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4090 cstring_mode(int align)
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4091 {
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4092 if (output_mode!=RODATA_EMIT_MODE) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4093 #ifdef __APPLE__
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4094 printf(".cstring\n\t.align 2\n");
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4095 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4096 printf("\t.section\t.rodata\n\t.align 2\n");
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4097 #endif
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4098 output_mode = RODATA_EMIT_MODE;
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4099 }
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4100 }
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4101
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4102 void
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
4103 text_mode(int align)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4104 {
917947ffeb7c power pc version
kono
parents:
diff changeset
4105 if (output_mode!=TEXT_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
4106 printf(".text\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
4107 printf("\t.align 2\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
4108 output_mode = TEXT_EMIT_MODE;
917947ffeb7c power pc version
kono
parents:
diff changeset
4109 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4110 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4111
917947ffeb7c power pc version
kono
parents:
diff changeset
4112 void
917947ffeb7c power pc version
kono
parents:
diff changeset
4113 data_mode(char *name)
917947ffeb7c power pc version
kono
parents:
diff changeset
4114 {
917947ffeb7c power pc version
kono
parents:
diff changeset
4115 if (output_mode!=DATA_EMIT_MODE) {
917947ffeb7c power pc version
kono
parents:
diff changeset
4116 printf(".data\n");
917947ffeb7c power pc version
kono
parents:
diff changeset
4117 output_mode = DATA_EMIT_MODE;
917947ffeb7c power pc version
kono
parents:
diff changeset
4118 }
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4119 /*
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4120 if (name)
917947ffeb7c power pc version
kono
parents:
diff changeset
4121 printf("\t.type\t%s,@object\n",name);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4122 */
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4123 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4124
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4125 #if FLOAT_CODE
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4126
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4127 /* floating point */
917947ffeb7c power pc version
kono
parents:
diff changeset
4128
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4129 static int float_one_lib_used=0;
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4130 static char *float_one_lib[] = {
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4131 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4132 /* ".literal8", */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4133 " .align 3",
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4134 "__float_one:",
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4135 " .long 1065353216",
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4136 ".text",
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
4137 /* ".set L__float_one$non_lazy_ptr,__float_one", */
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4138 0
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4139 };
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4140 static int float_zero_lib_used=0;
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4141 static char *float_zero_lib[] = {
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4142 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4143 /* ".literal8", */
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4144 " .align 3",
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4145 "__float_zero:",
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4146 " .long 0",
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4147 ".text",
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
4148 /* ".set L__float_zero$non_lazy_ptr,__float_zero", */
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4149 0
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4150 };
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4151
739
0c7a6ae119ba i64 continue... compiler compiled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 726
diff changeset
4152 char * fstore(int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4153 {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
4154 return (d?"stfd":"stfs");
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4155 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4156
917947ffeb7c power pc version
kono
parents:
diff changeset
4157 char *
917947ffeb7c power pc version
kono
parents:
diff changeset
4158 fload(int d)
917947ffeb7c power pc version
kono
parents:
diff changeset
4159 {
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
4160 return d?"lfd":"lfs";
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4161 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4162
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4163 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
4164 code_cmp_dregister(int e2,int d,int label,int cond)
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4165 {
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4166 char *frn,*rrn,*grn;
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4167 int greg,r;
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4168 grn = fregister_name(greg = get_dregister(d));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4169 use_float(d,e2);
132
07eb1249f07a *** empty log message ***
kono
parents: 131
diff changeset
4170 frn = register_name(e2);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4171 float_zero_lib_used=1;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
4172 r = get_ptr_cache(&float_zero);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4173 rrn = register_name(r);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4174 printf("\tlfs %s,0(%s)\n",grn,rrn);
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
4175 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4176 printf("\tfcmpu %s,%s,%s\n",crname(cmpflag),grn,frn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4177 free_register(greg);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
4178 jcond(label,cond);
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4179 return;
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4180 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4181
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4182 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4183 code_dregister(int e2,int freg,int d)
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4184 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4185 use_float(d,freg);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4186 if (freg!=e2) {
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4187 if (is_int_reg(e2)) error(-1);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4188 printf("\tfmr %s,%s\n",fregister_name(freg),fregister_name(e2));
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4189 }
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4190 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4191
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4192 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4193 code_dassign_gvar(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4194 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4195 use_float(d,freg);
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
4196 code_ldf(fstore(d),fregister_name(freg),cadr(e2),
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
4197 get_ptr_cache(ncaddr(e2)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4198 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4199
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4200 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4201 code_dassign_lvar(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4202 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4203 use_float(d,freg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4204 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4205 printf("\t%s %s,",fstore(d),fregister_name(freg));
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4206 lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4207 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4208
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4209 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4210 code_dassign(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4211 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4212 use_float(d,freg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4213 printf("\t%s %s,0(%s)\n",fstore(d),fregister_name(freg),register_name(e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4214 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4215
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4216 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4217 code_dassign_dregister(int e2,int d,int freg) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4218 use_float(d,freg);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4219 if (e2!=freg) {
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4220 printf("\tfmr %s,%s\n",fregister_name(e2),fregister_name(freg));
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4221 }
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4222 }
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4223
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4224 static double d0 = 1.0;
917947ffeb7c power pc version
kono
parents:
diff changeset
4225
917947ffeb7c power pc version
kono
parents:
diff changeset
4226 int
917947ffeb7c power pc version
kono
parents:
diff changeset
4227 code_d1(double d)
917947ffeb7c power pc version
kono
parents:
diff changeset
4228 {
917947ffeb7c power pc version
kono
parents:
diff changeset
4229 int *i = (int *)&d0; int *j = (int *)&d;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4230 return (i[1] == 0x3ff00000)?j[0]:j[1];
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4231 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4232
917947ffeb7c power pc version
kono
parents:
diff changeset
4233 int
917947ffeb7c power pc version
kono
parents:
diff changeset
4234 code_d2(double d)
917947ffeb7c power pc version
kono
parents:
diff changeset
4235 {
917947ffeb7c power pc version
kono
parents:
diff changeset
4236 int *i = (int *)&d0; int *j = (int *)&d;
99
53899975154c *** empty log message ***
kono
parents: 98
diff changeset
4237 return (i[1] == 0x3ff00000)?j[1]:j[0];
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4238 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4239
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4240 int
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4241 code_f(double d)
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4242 {
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4243 float f = d;
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4244 int *j = (int *)&f;
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4245 return *j;
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4246 }
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4247
779
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4248 static void emit_dconst0(ValuePtr value, int lb, void *arg)
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4249 {
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4250 long d = (long) arg;
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4251 printf(" \t.data\n\t.align 3\n");
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4252 printf("%s%d:\n",lpfx,lb);
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4253 if (d) {
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4254 #if ENDIAN_D==0
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4255 printf("\t.long\t0x%x,0x%x\n",code_d1(value->d),code_d2(value->d));
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4256 #else
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4257 printf("\t.long\t0x%x,0x%x\n",code_d2(value->d),code_d1(value->d));
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4258 #endif
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4259 } else {
780
c5315f472912 ia32/powerpc regression test
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 779
diff changeset
4260 printf("\t.long\t0x%x\n",code_f(value->f));
779
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4261 }
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4262 if (output_mode==TEXT_EMIT_MODE) {
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4263 printf(".text\n");
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4264 } else {
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4265 text_mode(0);
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4266 }
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4267 }
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4268
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4269 /* load double / float const
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4270 we should keep what constant we have create
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4271 */
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4272
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4273 void
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4274 code_dconst(int e2,int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4275 {
780
c5315f472912 ia32/powerpc regression test
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 779
diff changeset
4276 int sz;
779
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4277 Value value;
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4278 value.d = dcadr(e2);
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
4279 int r;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4280 char *rrn,*frn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4281 use_float(d,freg);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4282 frn = fregister_name(freg);
779
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4283 if (value.d==0.0) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4284 float_zero_lib_used=1;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
4285 r = get_ptr_cache(&float_zero);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
4286 rrn = register_name(r);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4287 printf("\tlfs %s,0(%s)\n",frn,rrn);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4288 return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4289 }
779
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4290 if (value.d==1.0) {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4291 float_one_lib_used=1;
109
e09f9de6f5d3 *** empty log message ***
kono
parents: 108
diff changeset
4292 r = get_ptr_cache(&float_one);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
4293 rrn = register_name(r);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4294 printf("\tlfs %s,0(%s)\n",frn,rrn);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4295 return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4296 }
779
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4297 if (d) {
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4298 sz = sizeof(double);
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4299 } else {
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4300 sz = sizeof(float);
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4301 value.f = (float) value.d;
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4302 }
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4303
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4304 long d_mode = d;
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4305 int lb = get_data_label(&value,sz,emit_dconst0, (void*) d_mode);
a0f84a0a990a float value sharing
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 778
diff changeset
4306
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4307 rrn = register_name((r=get_register()));
780
c5315f472912 ia32/powerpc regression test
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 779
diff changeset
4308 // use_reg(r); // to clear ptr cache
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4309 code_label_value(lb,r);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4310 if (d) {
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4311 printf("\tlfd %s,0(%s)\n",frn,rrn);
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4312 } else {
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4313 printf("\tlfs %s,0(%s)\n",frn,rrn);
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4314 }
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
4315 free_register(r);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4316 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4317
616
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4318 void
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4319 code_builtin_fabsf(int e)
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4320 {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4321 char *frn;
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4322 g_expr0(e);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4323 use_float(0,freg);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4324 frn = fregister_name(freg);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4325 printf("\tfabs %s,%s\n",frn,frn);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4326 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4327
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4328 void
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4329 code_builtin_fabs(int e)
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4330 {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4331 char *frn;
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4332 g_expr0(e);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4333 use_float(1,freg);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4334 frn = fregister_name(freg);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4335 printf("\tfabs %s,%s\n",frn,frn);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4336 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4337
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4338 static void
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4339 code_inf(int d)
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4340 {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4341 int lb;
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4342 int r;
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4343 char *rrn,*frn;
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4344 int freg = USE_CREG;
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4345
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4346 use_float(d,freg);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4347 frn = fregister_name(freg);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4348 rrn = register_name((r=get_register()));
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4349 use_reg(r); // to clear ptr cache
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4350 printf(" \t.data\n\t.align 3\n");
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4351 lb=fwdlabel();
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4352 printf("L_%d:\n",lb);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4353 if (d) {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4354 #if ENDIAN_D==0
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4355 printf("\t.long\t0x%x,0x%x\n",0,0x7ff00000);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4356 #else
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4357 printf("\t.long\t0x%x,0x%x\n",0x7ff00000,0);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4358 #endif
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4359 } else {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4360 printf("\t.long\t0x%x\n",0x7f800000);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4361 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4362 if (output_mode==TEXT_EMIT_MODE) {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4363 printf(".text\n");
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4364 } else {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4365 text_mode(0);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4366 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4367 code_label_value(lb,r);
616
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4368 if (d) {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4369 printf("\tlfd %s,0(%s)\n",frn,rrn);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4370 } else {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4371 printf("\tlfs %s,0(%s)\n",frn,rrn);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4372 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4373 free_register(r);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4374 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4375
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4376 void
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4377 code_builtin_inff()
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4378 {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4379 code_inf(0);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4380 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4381
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4382 void
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4383 code_builtin_inf()
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4384 {
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4385 code_inf(1);
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4386 }
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4387
2ba903c8e749 builtin_fabs
kono
parents: 615
diff changeset
4388
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4389
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4390 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4391 code_dneg(int freg,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4392 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4393 char *frn;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4394 use_float(d,freg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4395 frn = fregister_name(freg);
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4396 printf("\tfneg %s,%s\n",frn,frn);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4397 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4398
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4399 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4400 code_d2i()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4401 {
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4402 char *frn;
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4403 char *crn;
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4404 int e2 = new_lvar(SIZE_OF_DOUBLE);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4405
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4406 use_double0();
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4407 frn = fregister_name(freg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4408 use_int0();
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4409 crn = register_name(creg);
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4410
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4411 free_lvar(e2);
93
8f5d61239b93 *** empty log message ***
kono
parents: 92
diff changeset
4412 printf("\tfctiwz %s,%s\n",frn,frn);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4413 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4414 printf("\tstfd %s,",frn); lvar(e2);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4415 lvar_intro(e2+SIZE_OF_DOUBLE-SIZE_OF_INT);
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
4416 printf("\tlwz %s,",crn); lvar(e2+SIZE_OF_DOUBLE-SIZE_OF_INT);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4417 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4418
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4419 static int i2d_lib_used=0;
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4420 #ifdef __APPLE__
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4421 static char *i2d_lib[] = {
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4422 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4423 /* ".literal8", */
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4424 " .align 3",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4425 "__i2dLC0:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4426 " .long 1127219200",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4427 " .long -2147483648",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4428 ".text",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4429 " .align 2",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4430 "i2d_:",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4431 " mflr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4432 " bcl 20,31,__i2dL1$pb",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4433 "__i2dL1$pb:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4434 " mflr r10",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4435 " mtlr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4436 " xoris r3,r3,0x8000",
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4437 " stw r3,-28(r1)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4438 " lis r0,0x4330",
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4439 " stw r0,-32(r1)",
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4440 " lfd f0,-32(r1)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4441 " addis r9,r10,ha16(__i2dLC0-__i2dL1$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4442 " lfd f1,lo16(__i2dLC0-__i2dL1$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4443 " fsub f1,f0,f1",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4444 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4445 0
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4446 };
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4447 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4448 static char *i2d_lib[] = {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4449 ".data",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4450 /* ".literal8", */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4451 " .align 3",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4452 "__i2dLC0:",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4453 " .long 1127219200",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4454 " .long -2147483648",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4455 ".text",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4456 " .align 2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4457 "i2d_:",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4458 " xoris 3,3,0x8000",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4459 " stw 3,-28(1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4460 " lis 0,0x4330",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4461 " stw 0,-32(1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4462 " lfd 0,-32(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4463 " lis 9,__i2dLC0@ha",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4464 " lfd 1,__i2dLC0@l(9)",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4465 " fsub 1,0,1",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4466 " blr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4467 0
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4468 };
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4469 #endif
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4470
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4471 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4472 code_i2d()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4473 {
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
4474 i2d_lib_used = 1;
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
4475 clear_ptr_cache();
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
4476 code_save_stacks();
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
4477 set_ireg(RET_REGISTER,1);
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4478 printf("\tbl i2d_\n");
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
4479 set_freg(RET_FREGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4480 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4481
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4482 static int d2u_lib_used=0;
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4483 #ifdef __APPLE__
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4484 static char *d2u_lib[] = {
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4485 /* ".literal8", */
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4486 " .align 3",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4487 "__d2uLC0:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4488 " .long 1105199104",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4489 " .long 0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4490 ".text",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4491 " .align 2",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4492 "d2u_:",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4493 " mflr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4494 " bcl 20,31,__d2uL1$pb",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4495 "__d2uL1$pb:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4496 " mflr r10",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4497 " mtlr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4498 " addis r9,r10,ha16(__d2uLC0-__d2uL1$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4499 " lfd f0,lo16(__d2uLC0-__d2uL1$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4500 " fcmpu cr0,f1,f0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4501 " cror 2,1,2",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4502 " beq- cr0,__d2uL2",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4503 " fctiwz f0,f1",
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4504 " stfd f0,-32(r1)",
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4505 " lwz r3,-28(r1)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4506 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4507 "__d2uL2:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4508 " addis r9,r10,ha16(__d2uLC0-__d2uL1$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4509 " lfd f0,lo16(__d2uLC0-__d2uL1$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4510 " fsub f0,f1,f0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4511 " fctiwz f0,f0",
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4512 " stfd f0,-24(r1)",
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4513 " lwz r3,-20(r1)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4514 " xoris r3,r3,0x8000",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4515 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4516 0
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4517 };
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4518 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4519 static char *d2u_lib[] = {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4520 /* ".literal8", */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4521 " .align 3",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4522 "__d2uLC0:",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4523 " .long 1105199104",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4524 " .long 0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4525 ".text",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4526 " .align 2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4527 "d2u_:",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4528 " lis 9,__d2uLC0@ha",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4529 " lfd 0,__d2uLC0@l(9)",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4530 " fcmpu 0,1,0",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4531 " cror 2,1,2",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4532 " beq- 0,__d2uL2",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4533 " fctiwz 0,1",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4534 " stfd 0,-32(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4535 " lwz 3,-28(1)",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4536 " blr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4537 "__d2uL2:",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4538 " lis 9,__d2uLC0@ha",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4539 " lfd 0,__d2uLC0@l(9)",
663
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4540 " fsub 0,1,0",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4541 " fctiwz 0,0",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4542 " stfd 0,-24(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4543 " lwz 3,-20(1)",
92a401bef729 *** empty log message ***
kono
parents: 662
diff changeset
4544 " xoris 3,3,0x8000",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4545 " blr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4546 0
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4547 };
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4548 #endif
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4549
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4550 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4551 code_d2u()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4552 {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
4553 code_save_stacks();
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
4554 clear_ptr_cache();
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4555 d2u_lib_used=1;
104
c21aeb12b78b *** empty log message ***
kono
parents: 103
diff changeset
4556 set_freg(RET_FREGISTER,1);
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4557 printf("\tbl d2u_\n");
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
4558 set_ireg(RET_REGISTER,0);
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4559 }
90
07e3113c3c13 *** empty log message ***
kono
parents: 89
diff changeset
4560
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4561 static int u2d_lib_used=0;
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4562 #ifdef __APPLE__
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4563 static char *u2d_lib[] = {
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4564 ".data",
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4565 /* ".literal8", */
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4566 " .align 3",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4567 "__u2dLC1:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4568 " .long 1127219200",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4569 " .long 0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4570 ".text",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4571 " .align 2",
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4572 "u2d_:",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4573 " mflr r0",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4574 " bcl 20,31,__u2dL2$pb",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4575 "__u2dL2$pb:",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4576 " mflr r10",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4577 " mtlr r0",
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4578 " stw r3,-28(r1)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4579 " lis r0,0x4330",
375
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4580 " stw r0,-32(r1)",
91849fdeea60 PowerPC large offset.
kono
parents: 371
diff changeset
4581 " lfd f0,-32(r1)",
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4582 " addis r9,r10,ha16(__u2dLC1-__u2dL2$pb)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4583 " lfd f1,lo16(__u2dLC1-__u2dL2$pb)(r9)",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4584 " fsub f1,f0,f1",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4585 " blr",
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4586 0
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4587 };
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4588 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4589 static char *u2d_lib[] = {
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4590 ".data",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4591 /* ".literal8", */
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4592 " .align 3",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4593 "__u2dLC1:",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4594 " .long 1127219200",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4595 " .long 0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4596 ".text",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4597 " .align 2",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4598 ".u2d_:",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4599 " stw 3,-28(1)",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4600 " lis 0,0x4330",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4601 " stw 0,-32(1)",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4602 " lfd 0,-32(1)",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4603 " lis 9,__u2dLC1@ha",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4604 " lfd 1,__u2dLC1@l(9)",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4605 " fsub 1,0,1",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4606 " blr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4607 0
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4608 };
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4609 #endif
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4610
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4611 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4612 code_u2d()
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4613 {
113
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
4614 code_save_stacks();
a9261154cde9 integer operation debug
kono
parents: 112
diff changeset
4615 clear_ptr_cache();
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4616 u2d_lib_used = 1;
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
4617 set_ireg(RET_REGISTER,1);
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4618 #ifdef __APPLE__
111
7aa449aff3e6 floating point
kono
parents: 110
diff changeset
4619 printf("\tbl u2d_\n");
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4620 #else
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4621 printf("\tbl .u2d_\n");
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
4622 #endif
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
4623 set_freg(RET_FREGISTER,0);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4624 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4625
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4626 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4627 code_d2f() { }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4628 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4629 code_f2d() { }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4630 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4631 code_f2i() { code_d2i(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4632 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4633 code_f2u() { code_d2u(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4634 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4635 code_i2f() { code_i2d(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4636 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4637 code_u2f() { code_u2d(); }
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4638
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4639 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4640 code_drgvar(int e2,int d,int freg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4641 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4642 use_float(d,freg);
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
4643 code_ldf(fload(d),fregister_name(freg),cadr(e2),
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
4644 get_ptr_cache(ncaddr(e2)));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4645 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4646
917947ffeb7c power pc version
kono
parents:
diff changeset
4647
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4648 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4649 code_drlvar(int e2,int d,int freg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4650 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4651 use_float(d,freg);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4652 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4653 printf("\t%s %s,",fload(d),fregister_name(freg)); lvar(e2);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4654 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4655
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4656 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
4657 code_cmp_drgvar(int e2,int reg,int d,int label,int cond)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4658 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4659 char *frn;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4660 int g=get_dregister(d);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4661 char *grn=fregister_name(g);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4662
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4663 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4664 frn=fregister_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4665
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
4666 code_ldf(fload(1),grn,cadr(e2),
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
4667 get_ptr_cache(ncaddr(e2)));
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
4668 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4669 printf("\tfcmpu %s,%s,%s\n",crname(cmpflag),frn,grn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4670 free_register(g);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
4671 jcond(label,cond);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4672 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4673
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4674 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
4675 code_cmp_drlvar(int e2,int reg,int d,int label,int cond)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4676 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4677 char *frn;
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4678 int g=get_dregister(d);
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4679 char *grn=fregister_name(g);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4680
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4681 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4682 frn=fregister_name(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4683
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4684 lvar_intro(e2);
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4685 printf("\t%s %s,",fload(1),grn); lvar(e2);
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
4686 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4687 printf("\tfcmpu %s,%s,%s\n",crname(cmpflag),frn,grn);
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4688 free_register(g);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
4689 jcond(label,cond);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4690 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4691
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4692 void
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4693 dtosop(int op,int reg,int oreg)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4694 {
127
eb4d8975926c Intel float fix
kono
parents: 126
diff changeset
4695 char *opn="";
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4696 char *frn;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4697 char *grn;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4698 int ox = -1;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4699
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4700 use_float(1,reg);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4701 if(oreg==-1) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4702 error(-1);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4703 } else if (oreg<= -REG_LVAR_OFFSET) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4704 ox = get_dregister(1); if (ox<0) error(-1);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4705 use_reg(ox);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4706 code_drlvar(oreg+REG_LVAR_OFFSET,1,ox);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4707 oreg = ox;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4708 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4709 grn=fregister_name(oreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4710 frn=fregister_name(reg);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4711 switch(op) {
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4712 case FADD:
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4713 case DADD: opn="fadd"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4714 case FSUB:
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4715 case DSUB: opn="fsub"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4716 case FDIV:
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4717 case DDIV: opn="fdiv"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4718 case FMUL:
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4719 case DMUL: opn="fmul"; break;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4720 case FCMP:
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4721 case DCMP:
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
4722 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4723 printf("\tfcmpu %s,%s,%s\n",crname(cmpflag),frn,grn);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4724 if (ox!=-1) free_register(ox);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4725 return;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4726 case FCMPGE:
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4727 case DCMPGE:
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
4728 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4729 printf("\tfcmpu %s,%s,%s\n",crname(cmpflag),frn,grn);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4730 if (ox!=-1) free_register(ox);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
4731 return;
133
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4732 default:
7d436c08e949 separate float / double flow
kono
parents: 132
diff changeset
4733 error(-1); return;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4734 }
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4735 printf("\t%s %s,%s,%s\n",opn,frn,frn,grn);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4736 if (ox!=-1) free_register(ox);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4737 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4738
917947ffeb7c power pc version
kono
parents:
diff changeset
4739 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4740 code_dassop(int op,int reg,int d) {
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4741 /* we have lvalue in creg, applied floating value is in freg */
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4742 // (*creg) op = pop()
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4743 int xreg=emit_dpop(d);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4744 char *crn;
209
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
4745 char *frn;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4746
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4747 crn=register_name(ireg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4748 use_float(d,reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4749 frn =fregister_name(reg);
209
7bfc1435cdc6 regv fix done
kono
parents: 208
diff changeset
4750
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4751 printf("\t%s %s,0(%s)\n",fload(d),frn,crn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4752 dtosop(op,reg,xreg);
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
4753 printf("\t%s %s,0(%s)\n",fstore(d),frn,crn);
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4754 emit_dpop_free(xreg,d);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4755 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4756
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4757 void
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4758 code_register_dassop(int reg,int op,int d) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4759 // reg op= dpop()
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4760 int xreg=emit_dpop(d);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4761 dtosop(op,reg,xreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4762 emit_dpop_free(xreg,d);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4763 }
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4764
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4765 static int
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4766 code_dload_1(int d)
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4767 {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4768 int r,g;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4769 char *drn,*grn;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4770 // load 1
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4771 float_one_lib_used=1;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4772 r = get_ptr_cache(&float_one);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4773 drn=register_name(r);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4774 grn=fregister_name(g=get_dregister(d));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4775 printf("\tlfs %s,0(%s)\n",grn,drn);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4776 return g;
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4777 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4778
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4779 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
4780 code_dpreinc(int e1,int e2,int d,int reg) {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4781 char *frn,*crn,*grn;
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4782 int g;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4783
144
56211702f298 creg/freg continue
kono
parents: 141
diff changeset
4784 if (car(e2)==DREGISTER||car(e2)==FREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4785 crn=register_name(cadr(e2));
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4786 grn = fregister_name(g = code_dload_1(d));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4787 if (reg==USE_CREG) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4788 reg=get_dregister(d); if (!reg) error(-1);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4789 set_freg(reg,0);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4790 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4791 frn=fregister_name(reg);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4792 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",crn,crn,grn);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4793 if (use && reg!=cadr(e2))
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4794 printf("\tfmr %s,%s\n",frn,crn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4795 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4796 g_expr(e2);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4797 if (!is_int_reg(creg)) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4798 crn=register_name(ireg);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4799 if (reg==USE_CREG) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4800 reg=get_dregister(d); if (!reg) error(-1);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4801 set_freg(reg,0);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4802 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4803 frn=fregister_name(reg);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4804 grn = fregister_name(g = code_dload_1(d));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4805 printf("\t%s %s,0(%s)\n",fload(d),frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4806 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",frn,frn,grn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4807 printf("\t%s %s,0(%s)\n",fstore(d),frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4808 }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4809 free_register(g);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4810 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4811
917947ffeb7c power pc version
kono
parents:
diff changeset
4812 void
107
06f72222d6b5 prevent destorying function argument (incomeplete)
kono
parents: 106
diff changeset
4813 code_dpostinc(int e1,int e2,int d,int reg) {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4814 char *frn,*crn,*grn;
91
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4815 int g;
9b1aeb62e0b9 powerpc continue... (floating point)
kono
parents: 90
diff changeset
4816
144
56211702f298 creg/freg continue
kono
parents: 141
diff changeset
4817 if (car(e2)==DREGISTER||car(e2)==FREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4818 crn=register_name(cadr(e2));
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4819 grn = fregister_name(g = code_dload_1(d));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4820 if (reg==USE_CREG) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4821 reg=get_dregister(d); if (!reg) error(-1);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4822 set_freg(reg,0);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4823 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4824 frn=fregister_name(reg);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4825 if (use && reg!=cadr(e2))
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4826 printf("\tfmr %s,%s\n",frn,crn);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4827 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",crn,crn,grn);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4828 } else {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4829 g_expr(e2);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4830 if (!is_int_reg(creg)) error(-1);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4831 crn=register_name(ireg);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4832 if (reg==USE_CREG) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4833 reg=get_dregister(d); if (!reg) error(-1);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4834 set_freg(reg,0);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4835 }
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4836 frn=fregister_name(reg);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
4837 grn = fregister_name(g = code_dload_1(d));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4838 printf("\t%s %s,0(%s)\n",fload(d),frn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4839 printf("\t%s %s,%s,%s\n",(caddr(e1)>0)?"fadd":"fsub",grn,frn,grn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4840 printf("\t%s %s,0(%s)\n",fstore(d),grn,crn);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4841 }
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4842 free_register(g);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4843 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4844
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4845 static int
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4846 drexpr_bool(int e1,int reg)
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4847 {
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4848 int flag=-1,eq=-1,neg=-1,t;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4849 char *rn;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4850 switch(car(e1)) {
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4851 case DOP+GT: case FOP+GT: flag = 2; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4852 case DOP+GE: case FOP+GE: flag = 2; eq=3; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4853 case DOP+LT: case FOP+LT: flag = 1; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4854 case DOP+LE: case FOP+LE: flag = 1; eq=3; break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4855 case DOP+EQ: case FOP+EQ: flag = 3; break;
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4856 case DOP+NEQ: case FOP+NEQ: flag = 3; neg=3; break;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4857 default: return 0;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4858 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4859 g_expr(list3(DCMP,cadr(e1),caddr(e1)));
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4860 use_int(reg);
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4861 rn = register_name(reg);
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4862 t = CRBITSIZ*cmpflag;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4863 if (eq>0) {
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4864 printf("\tcror %d,%d,%d\n",t+flag-1,t+eq-1,t+flag-1);
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4865 }
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4866 if (neg>0) {
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4867 neg = t+neg-1,
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4868 printf("\tcrnor %d,%d,%d\n",neg,neg,neg);
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4869 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4870 printf("\tmfcr %s\n",rn);
289
55e611476cba *** empty log message ***
kono
parents: 288
diff changeset
4871 printf("\trlwinm %s,%s,%d,1\n",rn,rn,t+flag);
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4872 return 1;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4873 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4874
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4875 int
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4876 drexpr(int e1, int e2,int l1, int op,int cond)
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4877 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
4878 if (!cond) {
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4879 switch(op) {
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4880 case FOP+GT:
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4881 return drexpr(e2,e1,l1,FOP+GE,1);
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4882 case FOP+GE:
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4883 return drexpr(e2,e1,l1,FOP+GT,1);
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4884 case FOP+EQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4885 op=FOP+NEQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4886 case FOP+NEQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4887 op=FOP+EQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4888 case DOP+GT:
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4889 return drexpr(e2,e1,l1,DOP+GE,1);
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4890 case DOP+GE:
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4891 return drexpr(e2,e1,l1,DOP+GT,1);
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4892 case DOP+EQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4893 op=DOP+NEQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4894 case DOP+NEQ:
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4895 op=DOP+EQ; break;
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4896 }
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4897 }
234
eccea7c904ee float powerpc drexp done (?)
kono
parents: 233
diff changeset
4898 g_expr(list3(DCMP, e1,e2));
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4899 switch(op) {
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4900 case DOP+GT: case FOP+GT:
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4901 printf("\tbgt\t%s,%s%d\n",crname(cmpflag),lpfx,l1);
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4902 break;
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4903 case DOP+GE: case FOP+GE:
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4904 printf("\tbge\t%s,%s%d\n",crname(cmpflag),lpfx,l1);
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4905 break;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4906 case DOP+EQ: case FOP+EQ:
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4907 printf("\tbeq\t%s,%s%d\n",crname(cmpflag),lpfx,l1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4908 break;
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 287
diff changeset
4909 case DOP+NEQ: case FOP+NEQ:
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4910 printf("\tbne\t%s,%s%d\n",crname(cmpflag),lpfx,l1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4911 break;
917947ffeb7c power pc version
kono
parents:
diff changeset
4912 }
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4913 return l1;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4914 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4915
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4916 int emit_dpop(int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4917 {
114
e6cb1e293b35 float/int passed.
kono
parents: 113
diff changeset
4918 int xreg,reg;
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4919 xreg=pop_fregister();
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4920 if (xreg<= -REG_LVAR_OFFSET) {
138
e6e77af048a1 float/dobule configuration
kono
parents: 137
diff changeset
4921 reg = get_dregister(d);
119
b815fcd57b9d input var ( incomplete )
kono
parents: 118
diff changeset
4922 code_drlvar(REG_LVAR_OFFSET+xreg,1,reg);
117
2d5a203cc3a6 lvar reuse
kono
parents: 116
diff changeset
4923 free_lvar(REG_LVAR_OFFSET+xreg);
205
a50f90d0b63a *** empty log message ***
kono
parents: 204
diff changeset
4924 xreg=reg;
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4925 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
4926 return xreg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4927 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4928
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4929 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4930 emit_dpop_free(int e1,int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4931 {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
4932 if (e1>=0 && e1!=creg && regs[e1]!=REG_VAR)
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
4933 free_register(e1);
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4934 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4935
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4936 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4937 emit_dpush(int d)
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4938 {
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
4939 int new_reg;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4940 if (!is_float_reg(creg)) error(-1);
102
3cf2f8c120b9 *** empty log message ***
kono
parents: 101
diff changeset
4941 if (freg_sp>MAX_MAX) error(-1);
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
4942 new_reg = get_dregister(1); /* 絶対に取れる */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
4943 freg_stack[freg_sp++] = freg; /* push するかわりにレジスタを使う */
147
cb7aa0089681 creg/ireg done for powerpc.
kono
parents: 145
diff changeset
4944 creg = freg = new_reg;
89
917947ffeb7c power pc version
kono
parents:
diff changeset
4945 }
917947ffeb7c power pc version
kono
parents:
diff changeset
4946
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4947 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4948
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4949 #if LONGLONG_CODE
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4950
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4951
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4952 /* 64bit int part */
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4953 static void
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
4954 lmove(int to,int from) // to <= from
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4955 {
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4956 int tmp;
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4957 if (regv_h(to)==regv_l(from)&&(regv_l(to)==regv_h(from))) {
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4958 tmp = get_register();
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
4959 printf("\tmr %s,%s\n",register_name(tmp),lregister_name_low(from));
227
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4960 printf("\tmr %s,%s\n",lregister_name_high(to),lregister_name_high(from));
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4961 printf("\tmr %s,%s\n",lregister_name_low(to),register_name(tmp));
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4962 free_register(tmp);
ed92cef127f1 *** empty log message ***
kono
parents: 226
diff changeset
4963 } else if (regv_h(to)==regv_l(from)) {
226
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
4964 printf("\tmr %s,%s\n",lregister_name_low(to),lregister_name_low(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
4965 printf("\tmr %s,%s\n",lregister_name_high(to),lregister_name_high(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
4966 } else {
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
4967 printf("\tmr %s,%s\n",lregister_name_high(to),lregister_name_high(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
4968 printf("\tmr %s,%s\n",lregister_name_low(to),lregister_name_low(from));
a31e1d24c097 *** empty log message ***
kono
parents: 223
diff changeset
4969 }
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
4970 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4971
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
4972 static void
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4973 pcond(char *s,int cmpflag,int l1)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4974 {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
4975 printf("\tb%s %s,%s%d\n",s,crname(cmpflag),lpfx,l1);
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4976 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4977
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4978 static int
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4979 lcmp(int op,int cond)
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
4980 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4981 if (op==LOP+UGT||op==LOP+UGE) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4982 return UCMP;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4983 } else if (op==LOP+LE||op==LOP+GE) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4984 return CMP;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4985 } else {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4986 return CMP;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4987 }
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
4988 }
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
4989
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
4990 int
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
4991 lrexpr(int e1, int e2,int l1, int op,int cond)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
4992 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
4993 int reg;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
4994 int e3;
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4995 int l2;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4996 int op1,cr0,cr1;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
4997
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
4998 g_expr(e1);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
4999 emit_lpush();
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5000 g_expr(e2);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5001 e3 = emit_lpop();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5002 if (!is_longlong_reg(creg)) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5003 reg = lreg;
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5004 op1 = lcmp(op,cond);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5005 tosop(op1,regv_h(e3),regv_h(reg));
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5006 cr0 = cmpflag;
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
5007 tosop(op1,regv_l(e3),regv_l(reg));
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5008 cr1 = cmpflag;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5009
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5010 l2 = fwdlabel();
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5011 // cond==0 jump on false condtion ( if(x) => rexpr(.. cond=0 ...) )
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5012 switch(op+(!cond)*BNOT) {
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5013 case LOP+GT:
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5014 case LOP+GE:
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5015 pcond(code_gt(1),cr0,1?l1:l2);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5016 pcond(code_eq(0),cr0,1?l2:l1);
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5017 break;
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5018 case LOP+UGT:
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5019 case LOP+UGE:
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5020 pcond(code_ugt(1),cr0,1?l1:l2);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5021 pcond(code_eq(0), cr0,1?l2:l1);
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5022 break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5023 case LOP+EQ:
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5024 pcond(code_eq(0),cr0,(1?l2:l1));
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5025 pcond(code_eq(cond),cr1,l1);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5026 break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5027 case LOP+NEQ:
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5028 pcond(code_eq(0),cr0,(1?l1:l2));
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5029 pcond(code_eq(!1),cr1,l1);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5030 break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5031 case LOP+GT+BNOT:
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5032 case LOP+GE+BNOT:
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5033 pcond(code_gt(1),cr0,0?l1:l2);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5034 pcond(code_eq(0),cr0,0?l2:l1);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5035 break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5036 case LOP+UGT+BNOT:
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5037 case LOP+UGE+BNOT:
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5038 pcond(code_ugt(1),cr0,0?l1:l2);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5039 pcond(code_eq(0), cr0,0?l2:l1);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5040 break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5041 case LOP+EQ+BNOT:
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5042 pcond(code_eq(0),cr0,(0?l2:l1));
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5043 pcond(code_eq(0),cr1,l1);
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5044 break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5045 case LOP+NEQ+BNOT:
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5046 pcond(code_eq(0),cr0,(0?l1:l2));
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5047 pcond(code_eq(!0),cr1,l1);
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5048 break;
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5049 default:
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5050 error(-1);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5051 }
433
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5052 switch(op+BNOT*(!cond)) {
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5053 case LOP+GT: pcond(code_gt(1), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5054 case LOP+GE: pcond(code_ge(1), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5055 case LOP+UGT: pcond(code_ugt(1), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5056 case LOP+UGE: pcond(code_uge(1), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5057 case LOP+GT+BNOT: pcond(code_gt(0), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5058 case LOP+GE+BNOT: pcond(code_ge(0), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5059 case LOP+UGT+BNOT: pcond(code_ugt(0), cr1,l1); break;
b9566a04b6e2 *** empty log message ***
kono
parents: 432
diff changeset
5060 case LOP+UGE+BNOT: pcond(code_uge(0), cr1,l1); break;
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5061 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5062 fwddef(l2);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5063 emit_lpop_free(e3);
438
626d705471d5 Unexecuted code in conditional. Lazy jmp code generation.
kono
parents: 436
diff changeset
5064 return l1;
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 273
diff changeset
5065 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5066
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5067 int
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5068 emit_lpop()
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5069 {
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5070 int xreg,reg;
237
1933266f1efa long long ia32 (imcomplete)
kono
parents: 234
diff changeset
5071 xreg=lreg_stack[--lreg_sp];
210
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5072 if (xreg<= -REG_LVAR_OFFSET) {
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5073 reg = get_lregister();
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5074 code_lrlvar(REG_LVAR_OFFSET+xreg,reg);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5075 free_lvar(REG_LVAR_OFFSET+xreg);
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5076 xreg = reg;
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5077 }
f21651f85344 *** empty log message ***
kono
parents: 209
diff changeset
5078 return xreg;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5079 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5080
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5081 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5082 code_lregister(int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5083 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5084 use_longlong(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5085 if (reg!=e2) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5086 lmove(reg,e2);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5087 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5088 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5089
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5090 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5091 code_cmp_lregister(int reg,int label,int cond)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5092 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5093 use_longlong(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5094 printf("\tor %s,%s,%s\n",
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5095 lregister_name_low(reg),
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5096 lregister_name_low(reg),
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5097 lregister_name_high(reg));
291
7b6df595b205 ia32 code_bool.
kono
parents: 289
diff changeset
5098 inc_cmpflag();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5099 printf("\tcmpwi %s,%s,0\n",crname(cmpflag),lregister_name_low(reg));
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5100 jcond(label,cond);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5101 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5102
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5103 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5104 code_cmp_lrgvar(int e1,int creg,int label,int cond)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5105 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5106 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5107 code_lrgvar(e1,creg);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5108 code_cmp_lregister(creg,label,cond);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5109 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5110
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5111 void
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5112 code_cmp_lrlvar(int e1,int creg,int label,int cond)
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5113 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5114 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5115 code_lrlvar(e1,creg);
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5116 code_cmp_lregister(creg,label,cond);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5117 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5118
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5119 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5120 code_lassign(int e2,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5121 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5122 char *drn = register_name(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5123 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5124 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5125
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5126 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5127 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5128 crn_l = lregister_name_low(creg);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5129 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5130 printf("\tstw %s,0(%s)\n",crn_l,drn);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5131 printf("\tstw %s,%d(%s)\n",crn_h,SIZE_OF_INT,drn);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5132 #else
271
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
5133 printf("\tstw %s,0(%s)\n",crn_h,drn);
e1a96bdbe527 MIPS continue...
kono
parents: 269
diff changeset
5134 printf("\tstw %s,%d(%s)\n",crn_l,SIZE_OF_INT,drn);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5135 #endif
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5136 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5137
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5138 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5139 code_lassign_gvar(int e2,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5140 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5141 int r;
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
5142 use_longlong(creg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
5143 r = get_ptr_cache(ncaddr(e2));
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5144 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5145 code_ldf(cstore(0),lregister_name_low(creg),cadr(e2),r);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5146 code_ldf(cstore(0),lregister_name_high(creg),cadr(e2)+SIZE_OF_INT,r);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5147 #else
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
5148 code_ldf(cstore(0),lregister_name_high(creg),cadr(e2),r);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
5149 code_ldf(cstore(0),lregister_name_low(creg),cadr(e2)+SIZE_OF_INT,r);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5150 #endif
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5151 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5152
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5153 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5154 code_lassign_lvar(int e2,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5155 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5156 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5157 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5158
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5159 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5160 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5161 crn_l = lregister_name_low(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5162 lvar_intro(e2);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5163 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5164 printf("\tstw %s,",crn_l);lvar(e2);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5165 printf("\tstw %s,",crn_h);lvar(e2+SIZE_OF_INT);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5166 #else
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5167 printf("\tstw %s,",crn_h);lvar(e2);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
5168 printf("\tstw %s,",crn_l);lvar(e2+SIZE_OF_INT);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5169 #endif
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5170 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5171
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5172 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5173 code_lassign_lregister(int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5174 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5175 use_longlong(reg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5176 if (e2!=reg) {
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5177 lmove(e2,reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5178 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5179 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5180
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
5181 static long long ll0 = 1LL;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5182
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5183 static int
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5184 code_l1(long long d)
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5185 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
5186 int *i = (int *)&ll0; int *j = (int *)&d;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5187 return (i[1] == 1)?j[1]:j[0];
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5188 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5189
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5190 static int
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5191 code_l2(long long d)
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5192 {
207
8a3516f6eb66 *** empty log message ***
kono
parents: 206
diff changeset
5193 int *i = (int *)&ll0; int *j = (int *)&d;
206
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5194 return (i[1] == 1)?j[0]:j[1];
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5195 }
4170cefb48f6 *** empty log message ***
kono
parents: 205
diff changeset
5196
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5197 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5198 code_lconst(int e1,int creg)
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5199 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5200 use_longlong(creg);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5201 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5202 code_const(code_l1(lcadr(e1)),regv_h(creg));
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5203 code_const(code_l2(lcadr(e1)),regv_l(creg));
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5204 #else
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5205 code_const(code_l1(lcadr(e1)),regv_l(creg));
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5206 code_const(code_l2(lcadr(e1)),regv_h(creg));
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5207 #endif
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5208 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5209
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5210 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5211 code_lneg(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5212 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5213 use_longlong(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5214 printf("\tsubfic %s,%s,0\n",
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5215 lregister_name_low(creg),lregister_name_low(creg));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5216 printf("\tsubfze %s,%s\n",
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5217 lregister_name_high(creg),lregister_name_high(creg));
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5218 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5219
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5220 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5221 code_lrgvar(int e1,int creg)
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5222 {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5223 int r;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5224 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5225 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5226 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5227 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5228 crn_l = lregister_name_low(creg);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
5229 r = get_ptr_cache(ncaddr(e1));
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5230 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5231 code_ldf(cload(0),crn_l,cadr(e1),r);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5232 code_ldf(cload(0),crn_h,cadr(e1)+SIZE_OF_INT,r);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5233 #else
367
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
5234 code_ldf(cload(0),crn_h,cadr(e1),r);
4efbb07f556b global variable offset
kono
parents: 366
diff changeset
5235 code_ldf(cload(0),crn_l,cadr(e1)+SIZE_OF_INT,r);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5236 #endif
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5237 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5238
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5239 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5240 code_lrlvar(int e1,int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5241 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5242 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5243 char *crn_l;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5244 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5245 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5246 crn_l = lregister_name_low(creg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5247 lvar_intro(e1);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5248 #if ENDIAN_L==0
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5249 printf("\tlwz %s,",crn_l); lvar(e1);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5250 printf("\tlwz %s,",crn_h); lvar(e1+SIZE_OF_INT);
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5251 #else
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5252 printf("\tlwz %s,",crn_h); lvar(e1);
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
5253 printf("\tlwz %s,",crn_l); lvar(e1+SIZE_OF_INT);
411
32c1914308db ENDIAN_L ENDIAN_D
kono
parents: 408
diff changeset
5254 #endif
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5255 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5256
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5257 #if 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5258 static int lumod_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5259 static char *lumod_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5260 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5261
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5262 static int lmod_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5263 static char *lmod_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5264 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5265
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5266 static int ludiv_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5267 static char *ludiv_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5268 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5269
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5270 static int ldiv_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5271 static char *ldiv_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5272 };
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5273 #endif
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5274
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5275 static int lsrd_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5276 static char *lsrd_lib[] = {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5277 #ifdef __APPLE__
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5278 ".text",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5279 " .align 2",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5280 ".lsrd__:",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5281 " mr. r5,r5",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5282 " beqlr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5283 " subfic r2,r5,32",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5284 " stw r3,-32(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5285 " stw r4,-28(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5286 " cmpwi cr7,r2,0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5287 " bgt+ cr7,L__lsrd1",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5288 " neg r0,r2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5289 " lwz r2,-32(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5290 " li r9,0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5291 " srw r2,r2,r0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5292 " stw r9,-48(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5293 " b L__lsrd2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5294 "L__lsrd1: lwz r0,-32(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5295 " slw r9,r0,r2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5296 " lwz r2,-28(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5297 " srw r0,r0,r5",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5298 " srw r2,r2,r5",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5299 " stw r0,-48(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5300 " or r2,r2,r9",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5301 "L__lsrd2: stw r2,-44(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5302 " lwz r3,-48(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5303 " lwz r4,-44(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5304 " blr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5305 #else
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5306 ".text",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5307 " .align 2",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5308 ".lsrd__:",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5309 " mr. 5,5",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5310 " beqlr",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5311 " subfic 8,5,32",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5312 " stw 3,-32(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5313 " stw 4,-28(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5314 " cmpwi 7,8,0",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5315 " bgt+ 7,.L__lsrd1",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5316 " neg 0,2",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5317 " lwz 8,-32(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5318 " li 9,0",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5319 " srw 8,8,0",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5320 " stw 9,-48(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5321 " b .L__lsrd2",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5322 ".L__lsrd1: lwz 0,-32(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5323 " slw 9,0,8",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5324 " lwz 8,-28(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5325 " srw 0,0,5",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5326 " srw 8,8,5",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5327 " stw 0,-48(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5328 " or 8,8,9",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5329 ".L__lsrd2: stw 8,-44(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5330 " lwz 3,-48(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5331 " lwz 4,-44(1)",
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5332 " blr",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5333 #endif
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5334 0
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5335 };
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5336
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5337 static int asld_lib_used=0;
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5338 static char *asld_lib[] = {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5339 #ifdef __APPLE__
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5340 ".text",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5341 " .align 2",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5342 ".asld__:",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5343 " mr. r5,r5",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5344 " beqlr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5345 " subfic r2,r5,32",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5346 " stw r3,-32(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5347 " stw r4,-28(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5348 " cmpwi cr7,r2,0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5349 " bgt+ cr7,L__asld1",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5350 " neg r0,r2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5351 " lwz r2,-28(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5352 " li r9,0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5353 " slw r2,r2,r0",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5354 " stw r9,-44(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5355 " b L__asld2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5356 "L__asld1: lwz r0,-28(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5357 " srw r9,r0,r2",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5358 " lwz r2,-32(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5359 " slw r0,r0,r5",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5360 " slw r2,r2,r5",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5361 " stw r0,-44(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5362 " or r2,r2,r9",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5363 "L__asld2: stw r2,-48(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5364 " lwz r3,-48(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5365 " lwz r4,-44(r1)",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5366 " blr",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5367 #else
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5368 ".text",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5369 " .align 2",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5370 ".asld__:",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5371 " mr. 5,5",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5372 " beqlr",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5373 " subfic 8,5,32",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5374 " stw 3,-32(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5375 " stw 4,-28(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5376 " cmpwi 7,8,0",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5377 " bgt+ 7,.L__asld1",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5378 " neg 0,8",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5379 " lwz 8,-28(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5380 " li 9,0",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5381 " slw 8,8,0",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5382 " stw 9,-44(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5383 " b .L__asld2",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5384 ".L__asld1: lwz 0,-28(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5385 " srw 9,0,8",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5386 " lwz 8,-32(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5387 " slw 0,0,5",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5388 " slw 8,8,5",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5389 " stw 0,-44(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5390 " or 8,8,9",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5391 ".L__asld2: stw 8,-48(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5392 " lwz 3,-48(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5393 " lwz 4,-44(1)",
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5394 " blr",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5395 #endif
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5396 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5397 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5398
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5399 static int asrd_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5400 static char *asrd_lib[] = {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5401 #ifdef __APPLE__
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5402 ".text",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5403 " .align 2",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5404 ".asrd__:",
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5405 " mr. r5,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5406 " beqlr",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5407 " subfic r2,r5,32",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5408 " stw r3,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5409 " stw r4,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5410 " cmpwi cr7,r2,0",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5411 " bgt+ cr7,L__asrd1",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5412 " lwz r0,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5413 " neg r2,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5414 " sraw r2,r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5415 " srawi r0,r0,31",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5416 " b L__asrd2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5417 "L__asrd1: lwz r0,-32(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5418 " slw r9,r0,r2",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5419 " lwz r2,-28(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5420 " sraw r0,r0,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5421 " srw r2,r2,r5",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5422 " or r2,r2,r9",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5423 "L__asrd2: stw r0,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5424 " stw r2,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5425 " lwz r3,-48(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5426 " lwz r4,-44(r1)",
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5427 " blr",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5428 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5429 ".text",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5430 " .align 2",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5431 ".asrd__:",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5432 " mr. 5,5",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5433 " beqlr",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5434 " subfic 8,5,32",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5435 " stw 3,-32(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5436 " stw 4,-28(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5437 " cmpwi 7,8,0",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5438 " bgt+ 7,.L__asrd1",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5439 " lwz 0,-32(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5440 " neg 8,8",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5441 " sraw 8,0,8",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5442 " srawi 0,0,31",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5443 " b .L__asrd2",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5444 ".L__asrd1: lwz 0,-32(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5445 " slw 9,0,8",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5446 " lwz 8,-28(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5447 " sraw 0,0,5",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5448 " srw 8,8,5",
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5449 " or 8,8,9",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5450 ".L__asrd2: stw 0,-48(1)",
673
442e90958386 PS3 PPc almot done...
kono
parents: 672
diff changeset
5451 " stw 8,-44(1)",
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5452 " lwz 3,-48(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5453 " lwz 4,-44(1)",
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5454 " blr",
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5455 #endif
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5456 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5457 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5458
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5459 #endif
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5460
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5461 static void
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5462 extern_conv(char *conv)
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5463 {
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5464 code_save_stacks();
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5465 clear_ptr_cache();
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5466 extern_define(conv,0,FUNCTION,1);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5467 #ifdef __APPLE__
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5468 printf("\tbl L_%s$stub\n",conv);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5469 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5470 printf("\tbl %s\n",conv);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5471 #endif
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5472 }
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5473
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5474 #if FLOAT_CODE
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5475 #if 0
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5476 static int d2ll_lib_used=0;
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5477 static char *d2ll_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5478 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5479
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5480 static int d2ull_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5481 static char *d2ull_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5482 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5483
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5484 static int f2ll_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5485 static char *f2ll_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5486 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5487
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5488 static int f2ull_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5489 static char *f2ull_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5490 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5491
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5492 static int ll2d_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5493 static char *ll2d_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5494 };
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5495
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5496 static int ll2f_lib_used=0;
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5497 static char *ll2f_lib[] = {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5498 };
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5499 #endif
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5500
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5501 #endif
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5502
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5503 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5504 code_asld_lib(int reg,int oreg)
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5505 {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5506 code_save_stacks();
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5507 clear_ptr_cache();
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5508 asld_lib_used = 1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5509 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5510 set_lreg(RET_LREGISTER,0);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5511 if (regv_l(oreg)!=5) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5512 printf("\tmr %s,%s\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5513 register_name(5),
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5514 lregister_name_low(oreg));
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5515 }
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5516 printf("\tbl .asld__\n");
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5517 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5518
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5519 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5520 code_asrd_lib(int reg,int oreg) // ___ashrdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5521 {
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5522 code_save_stacks();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5523 clear_ptr_cache();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5524 asrd_lib_used = 1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5525 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5526 set_lreg(RET_LREGISTER,0);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5527 if (regv_l(oreg)!=5) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5528 printf("\tmr %s,%s\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5529 register_name(5),
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5530 lregister_name_low(oreg));
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5531 }
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5532 printf("\tbl .asrd__\n");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5533 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5534
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5535 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5536 code_lsrd_lib(int reg,int oreg) // ___lshrdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5537 {
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5538 code_save_stacks();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5539 clear_ptr_cache();
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5540 lsrd_lib_used = 1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5541 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5542 set_lreg(RET_LREGISTER,0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5543 if (regv_l(oreg)!=5) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5544 printf("\tmr %s,%s\n",
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5545 register_name(5),
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5546 lregister_name_low(oreg));
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5547 }
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
5548 printf("\tbl .lsrd__\n");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5549 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5550
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5551 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5552 code_ldiv_lib(int reg,int oreg) // ___divdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5553 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5554 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5555 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5556 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5557 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5558 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5559 extern_conv("__divdi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5560 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5561
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5562 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5563 code_ludiv_lib(int reg,int oreg) // ___udivdi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5564 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5565 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5566 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5567 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5568 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5569 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5570 extern_conv("__udivdi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5571 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5572
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5573 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5574 code_lmod_lib(int reg,int oreg) // ___moddi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5575 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5576 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5577 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5578 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5579 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5580 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5581 extern_conv("__moddi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5582 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5583
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5584 static void
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5585 code_lumod_lib(int reg,int oreg) // ___umoddi3$stub
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5586 {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5587 code_save_stacks();
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5588 clear_ptr_cache();
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5589 set_lreg(RET_LREGISTER,0);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5590 set_lreg_operand(reg,1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5591 set_lreg_operand1(oreg,1);
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5592 extern_conv("__umoddi3");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5593 }
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5594
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
5595 #define check_lreg(reg) if (reg!=lreg) { lmove(reg,lreg); /* reg<=lreg */ }
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
5596
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
5597 // reg = reg op oreg
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5598
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5599 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5600 ltosop(int op,int reg,int oreg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5601 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5602 int dx = -1;
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5603 int ox = -1;
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
5604 int creg_mode = (reg==USE_CREG);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5605 char *orn_h,*crn_h,*drn_h;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5606 char *orn_l,*crn_l,*drn_l;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5607 // creg = creg op oreg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5608
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5609 use_longlong(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5610 if(oreg==-1) {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5611 error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5612 } else if (oreg<= -REG_LVAR_OFFSET) {
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5613 ox = get_lregister(); if (ox<0) error(-1);
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5614 use_reg(ox);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
5615 code_lrlvar(oreg+REG_LVAR_OFFSET,ox);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5616 oreg = ox;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5617 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5618
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5619 switch(op) {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5620 case LLSHIFT:
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5621 case LULSHIFT:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5622 code_asld_lib(reg,oreg); // ___ashldi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5623 check_lreg(reg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5624 if(ox!=-1) free_register(ox);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5625 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5626 case LRSHIFT:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5627 code_asrd_lib(reg,oreg); // ___ashrdi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5628 check_lreg(reg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5629 if(ox!=-1) free_register(ox);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5630 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5631 case LURSHIFT:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5632 code_lsrd_lib(reg,oreg); // ___lshrdi3$stub
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5633 check_lreg(reg);
252
1452eb0eab20 *** empty log message ***
kono
parents: 246
diff changeset
5634 if(ox!=-1) free_register(ox);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5635 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5636 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5637 orn_h = lregister_name_high(oreg);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5638 orn_l = lregister_name_low(oreg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5639 crn_h = lregister_name_high(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5640 crn_l = lregister_name_low(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5641 switch(op) {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5642 case LADD:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5643 printf("\taddc %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5644 printf("\tadde %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5645 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5646 case LSUB:
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5647 printf("\tsubfc %s,%s,%s\n",crn_l,orn_l,crn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5648 printf("\tsubfe %s,%s,%s\n",crn_h,orn_h,crn_h);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5649 break;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5650 case LCMP:
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5651 error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5652 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5653 case LBAND:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5654 printf("\tand %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5655 printf("\tand %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5656 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5657 case LEOR:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5658 printf("\txor %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5659 printf("\txor %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5660 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5661 case LBOR:
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5662 printf("\tor %s,%s,%s\n",crn_l,crn_l,orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5663 printf("\tor %s,%s,%s\n",crn_h,crn_h,orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5664 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5665 case LMUL:
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5666 case LUMUL:
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
5667 // code_save_stacks();
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
5668 // clear_ptr_cache();
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
5669 dx=get_lregister(); if (dx<0) error(-1);
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5670 use_reg(dx);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5671 drn_l = lregister_name_low(dx);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5672 drn_h = lregister_name_high(dx);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5673 /*
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5674 drn_l = l32( crn_l * orn_l);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5675 drn_h = h32( crn_l * orn_l);
593
c139d4d9307c ltosop optimize
kono
parents: 590
diff changeset
5676 crn_h = l32( crn_h * orn_l);
c139d4d9307c ltosop optimize
kono
parents: 590
diff changeset
5677 drn_h = drn_h + crn_h;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5678 crn_l = l32( crn_l * orn_h);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5679 crn_h = drn_h + crn_l;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5680 crn_l = drn_l;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5681 */
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5682 printf("\tmulhwu %s,%s,%s\n",drn_h,crn_l,orn_l);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5683 printf("\tmullw %s,%s,%s\n", drn_l,crn_l,orn_l);
593
c139d4d9307c ltosop optimize
kono
parents: 590
diff changeset
5684 printf("\tmullw %s,%s,%s\n", crn_h,crn_h,orn_l);
c139d4d9307c ltosop optimize
kono
parents: 590
diff changeset
5685 printf("\tadd %s,%s,%s\n", drn_h,drn_h,crn_h);
228
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5686 printf("\tmullw %s,%s,%s\n", crn_l,orn_h,crn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5687 printf("\tadd %s,%s,%s\n", crn_h,drn_h,crn_l);
21b311266011 *** empty log message ***
kono
parents: 227
diff changeset
5688 printf("\tmr %s,%s\n", crn_l,drn_l);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5689 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5690 case LDIV:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5691 code_ldiv_lib(reg,oreg); // ___divdi3$stub
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
5692 if (!creg_mode) check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5693 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5694 case LUDIV:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5695 code_ludiv_lib(reg,oreg); // ___udivdi3$stub
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
5696 if (!creg_mode) check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5697 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5698 case LMOD:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5699 code_lmod_lib(reg,oreg); // ___moddi3$stub
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
5700 if (!creg_mode) check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5701 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5702 case LUMOD:
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 252
diff changeset
5703 code_lumod_lib(reg,oreg); // ___umoddi3$stub
531
19f5882997f5 *** empty log message ***
kono
parents: 530
diff changeset
5704 if (!creg_mode) check_lreg(reg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5705 break;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5706 default:
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5707 error(-1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5708 }
530
58aceee8e4b4 get_lregister messed up
kono
parents: 529
diff changeset
5709 if(ox!=-1) free_register(ox);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5710 if(dx!=-1) free_register(dx);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5711 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5712
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5713 int
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5714 code_lconst_op_p(int op,int e)
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5715 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5716 int v;
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5717 if (car(e)==LCONST) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
5718 if (!(-32766<lcadr(e)&&lcadr(e)<32767)) return 0;
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5719 v = lcadr(e);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5720 } else if (car(e)==CONST) {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
5721 if (!(-32766<cadr(e)&&cadr(e)<32767)) return 0;
287
a0779a414855 *** empty log message ***
kono
parents: 285
diff changeset
5722 v = cadr(e);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
5723 } else return 0;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5724
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5725 switch(op) {
436
kono
parents: 435
diff changeset
5726 case LMUL: case LUMUL: case LUDIV:
kono
parents: 435
diff changeset
5727 // case LDIV:
kono
parents: 435
diff changeset
5728 return ilog(v);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5729 case LLSHIFT:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5730 case LULSHIFT:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5731 case LRSHIFT:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5732 case LURSHIFT:
435
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5733 return (0<=v&&v<=64);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5734 case LADD:
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5735 case LSUB:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5736 return 1;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5737 case LBOR:
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5738 return (v>0);
214
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5739 default:
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5740 return 0;
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5741 }
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5742 }
4f459364c334 *** empty log message ***
kono
parents: 213
diff changeset
5743
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5744 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5745 loprtc(int op,int creg,int e)
213
kono
parents: 212
diff changeset
5746 {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5747 char *crn_h;
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5748 char *crn_l;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5749 char *grn;
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
5750 int v=0;
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5751 int greg;
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5752
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5753 use_longlong(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5754 crn_h = lregister_name_high(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5755 crn_l = lregister_name_low(creg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5756
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
5757 if (car(e)==LCONST) v = lcadr(e);
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
5758 else if (car(e)==CONST) v = cadr(e);
213
kono
parents: 212
diff changeset
5759
kono
parents: 212
diff changeset
5760 switch(op) {
436
kono
parents: 435
diff changeset
5761 case LMUL: case LUMUL:
kono
parents: 435
diff changeset
5762 v=ilog(v);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5763 case LLSHIFT:
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5764 case LULSHIFT:
435
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5765 if (v==0) return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5766 if (v==32) {
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5767 code_register(regv_l(creg),regv_h(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5768 code_const(0,regv_l(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5769 return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5770 } else if (v>31) {
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5771 printf("\tslwi %s,%s,%d\n",crn_h,crn_l,v-32);
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5772 code_const(0,regv_l(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5773 return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5774 }
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5775 greg = get_register();
435
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5776 grn = register_name(greg);
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5777 use_reg(greg);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5778 printf("\tsrwi %s,%s,%d\n",grn,crn_l,32-v);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5779 printf("\tslwi %s,%s,%d\n",crn_h,crn_h,v);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5780 printf("\tor %s,%s,%s\n",crn_h,grn,crn_h);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5781 printf("\tslwi %s,%s,%d\n",crn_l,crn_l,v);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5782 free_register(greg);
213
kono
parents: 212
diff changeset
5783 return;
436
kono
parents: 435
diff changeset
5784 case LDIV:
kono
parents: 435
diff changeset
5785 v=ilog(v);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5786 case LRSHIFT:
435
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5787 if (v==0) return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5788 if (v==32) {
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5789 code_register(regv_h(creg),regv_l(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5790 printf("\tsrawi %s,%s,31\n",crn_h,crn_l);
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5791 return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5792 } else if (v>31) {
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5793 printf("\tsrawi %s,%s,%d\n",crn_l,crn_h,v-32);
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5794 printf("\tsrawi %s,%s,31\n",crn_h,crn_l);
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5795 return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5796 }
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5797 greg = get_register();
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5798 use_reg(greg);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5799 grn = register_name(greg);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5800 printf("\tsrwi %s,%s,%d\n",grn,crn_l,v);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5801 printf("\tinsrwi %s,%s,%d,0\n",grn,crn_h,v);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5802 printf("\tsrawi %s,%s,%d\n",crn_h,crn_h,v);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5803 printf("\tmr %s,%s\n",crn_l,grn);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5804 free_register(greg);
213
kono
parents: 212
diff changeset
5805 return;
436
kono
parents: 435
diff changeset
5806 case LUDIV:
kono
parents: 435
diff changeset
5807 v=ilog(v);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5808 case LURSHIFT:
435
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5809 if (v==0) return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5810 if (v==32) {
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5811 code_register(regv_h(creg),regv_l(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5812 code_const(0,regv_h(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5813 return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5814 } else if (v>31) {
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5815 printf("\tsrwi %s,%s,%d\n",crn_l,crn_h,v-32);
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5816 code_const(0,regv_h(creg));
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5817 return;
d3e6359f8501 loprtc LLSHIFT....
kono
parents: 433
diff changeset
5818 }
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5819 greg = get_register();
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
5820 use_reg(greg);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5821 grn = register_name(greg);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5822 printf("\tslwi %s,%s,%d\n",grn,crn_h,32-v);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5823 printf("\tsrwi %s,%s,%d\n",crn_l,crn_l,v);
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5824 printf("\tor %s,%s,%s\n",crn_l,grn,crn_l);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5825 printf("\tsrwi %s,%s,%d\n",crn_h,crn_h,v);
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5826 free_register(greg);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5827 return;
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5828 case LSUB:
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5829 v = -v;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5830 case LADD:
231
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5831 printf("\taddic %s,%s,%d\n",crn_l,crn_l,v);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5832 if (v<0)
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5833 printf("\taddme %s,%s\n",crn_h,crn_h);
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5834 else
f5efe15629d4 *** empty log message ***
kono
parents: 230
diff changeset
5835 printf("\taddze %s,%s\n",crn_h,crn_h);
213
kono
parents: 212
diff changeset
5836 break;
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5837 case LBOR:
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5838 #ifdef __APPLE__
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5839 printf("\tori %s,%s,lo16(%d)\n",crn_l,crn_l,v);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5840 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5841 printf("\tori %s,%s,%d@l\n",crn_l,crn_l,v);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
5842 #endif
213
kono
parents: 212
diff changeset
5843 break;
kono
parents: 212
diff changeset
5844 default:
kono
parents: 212
diff changeset
5845 error(-1);
kono
parents: 212
diff changeset
5846 }
kono
parents: 212
diff changeset
5847 }
kono
parents: 212
diff changeset
5848
kono
parents: 212
diff changeset
5849
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5850 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5851 emit_lpop_free(int xreg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5852 {
590
cc2a83f98188 ia32 reorganization etc.
kono
parents: 587
diff changeset
5853 if (xreg>=0 && xreg!=creg && regs[xreg]!=REG_VAR)
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5854 free_register(xreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5855 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5856
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5857 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5858 emit_lpush()
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5859 {
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5860 int new_reg;
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
5861 if (!is_longlong_reg(creg)) error(-1);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5862 if (lreg_sp>MAX_MAX) error(-1);
724
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
5863 new_reg = get_lregister(); /* 絶対に取れる(?) */
e60c3d8dadd6 convert to UTF-8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 717
diff changeset
5864 lreg_stack[lreg_sp++] = creg; /* push するかわりにレジスタを使う */
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5865 lreg = creg = new_reg;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5866 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5867
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5868 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5869 code_i2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5870 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5871 char *crn,*crn_h,*crn_l;
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5872 int reg0;
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5873 crn = register_name(reg0 = ireg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5874 use_longlong(reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5875 crn_h = lregister_name_high(lreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5876 crn_l = lregister_name_low(lreg);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5877 if (reg0!=regv_l(lreg))
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5878 printf("\tmr %s,%s\n",crn_l,crn);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5879 printf("\tsrawi %s,%s,31\n",crn_h,crn_l);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5880 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5881
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5882 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5883 code_i2ull(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5884 {
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5885 code_i2ll(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5886 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5887
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5888 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5889 code_u2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5890 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5891 char *crn,*crn_h,*crn_l;
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5892 int reg0;
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5893 crn = register_name(reg0 = ireg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5894 use_longlong(reg);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5895 crn_h = lregister_name_high(lreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5896 crn_l = lregister_name_low(lreg);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5897 if (reg0!=regv_l(lreg))
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5898 printf("\tmr %s,%s\n",crn_l,crn);
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5899 printf("\tli %s,0\n",crn_h);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5900 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5901
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5902 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5903 code_u2ull(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5904 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5905 code_u2ll(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5906 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5907
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5908 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5909 code_ll2i(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5910 {
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
5911 char *crn_l;
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5912 int reg0;
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5913 crn_l = lregister_name_low(reg0=lreg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5914 use_int(reg);
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5915 if (ireg!=regv_l(reg0))
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5916 printf("\tmr %s,%s\n",register_name(ireg),crn_l);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5917 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5918
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5919 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5920 code_ll2u(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5921 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5922 code_ll2i(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5923 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5924
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5925 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5926 code_ull2i(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5927 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5928 code_ll2i(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5929 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5930
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5931 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5932 code_ull2u(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5933 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5934 code_ll2i(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5935 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5936
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5937 #if FLOAT_CODE
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5938
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5939 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5940 code_d2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5941 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
5942 // fixdfdi$stub
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5943 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5944 extern_conv("__fixdfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5945 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5946 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5947 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5948 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5949
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5950 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5951 code_d2ull(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5952 {
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5953 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5954 extern_conv("__fixunsdfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5955 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5956 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5957 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5958 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5959
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5960 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5961 code_f2ll(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5962 {
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5963 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5964 extern_conv("__fixdfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5965 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5966 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5967 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5968 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5969
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5970 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5971 code_f2ull(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5972 {
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5973 set_freg(RET_FREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5974 extern_conv("__fixsfdi");
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5975 set_lreg(RET_LREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5976 if (reg!=USE_CREG&&reg!=RET_LREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5977 use_longlong(reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5978 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5979
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5980 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5981 code_ll2d(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5982 {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5983 set_lreg(RET_LREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5984 extern_conv("__floatdidf");
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5985 set_freg(RET_FREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5986 if (reg!=USE_CREG&&reg!=RET_FREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5987 use_float(1,reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5988 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5989
217
a4d3818f5353 *** empty log message ***
kono
parents: 216
diff changeset
5990
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
5991 void
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5992 code_ll2f(int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5993 {
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
5994 set_lreg(RET_LREGISTER,1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
5995 extern_conv("__floatdisf");
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
5996 set_freg(RET_FREGISTER,0);
239
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5997 if (reg!=USE_CREG&&reg!=RET_FREGISTER)
1849e0079f08 ia32 long long continue
kono
parents: 238
diff changeset
5998 use_float(0,reg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
5999 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6000
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6001 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6002 code_ull2d(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6003 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
6004 code_ll2d(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6005 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6006
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6007 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6008 code_ull2f(int creg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6009 {
215
abfad046e6de *** empty log message ***
kono
parents: 214
diff changeset
6010 code_ll2f(creg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6011 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6012
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6013
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6014 static void
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6015 ladd(int creg,int reg,int dir) // creg=reg+dir
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6016 {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6017 printf("\taddic %s,%s,%d\n",
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6018 lregister_name_low(creg),lregister_name_low(reg), dir);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6019 printf("\tadd%s %s,%s\n", dir>0?"ze":"me",
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6020 lregister_name_high(creg),lregister_name_high(reg));
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6021 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6022
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6023 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6024 code_lpreinc(int e1,int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6025 {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6026 int dreg,xreg;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6027 int dir=caddr(e1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6028 if (car(e2)==LREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6029 use_longlong(reg);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6030 ladd(cadr(e2),cadr(e2),dir);
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6031 if (reg!=cadr(e2)) {
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6032 lmove(reg,cadr(e2));
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6033 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6034 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6035 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6036 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6037 if(!is_int_reg(creg)) error(-1);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6038 emit_push();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6039 if (reg==USE_CREG) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6040 dreg=get_lregister(); if (!dreg) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6041 set_lreg(dreg,0); // free old lreg==creg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6042 } else {
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6043 dreg = reg;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6044 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6045 xreg = emit_pop(0);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6046 lload(xreg,dreg,0);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6047 ladd(dreg,dreg,dir);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6048 code_lassign(xreg,dreg);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6049 emit_pop_free(xreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6050 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6051
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6052 void
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6053 code_lpostinc(int e1,int e2,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6054 {
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6055 int dreg,nreg,xreg;
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6056 int dir=caddr(e1);
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6057 if (car(e2)==LREGISTER) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6058 use_longlong(reg);
587
c991b82e6849 *** empty log message ***
kono
parents: 583
diff changeset
6059 if (use && reg!=cadr(e2))
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6060 lmove(reg,cadr(e2));
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6061 ladd(cadr(e2),cadr(e2),dir);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6062 return;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6063 }
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6064 g_expr(e2);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6065 if(!is_int_reg(creg)) error(-1);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6066 emit_push();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6067 nreg=get_lregister(); if (!nreg) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6068 if (reg==USE_CREG) {
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6069 dreg=get_lregister(); if (!dreg) error(-1);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6070 set_lreg(dreg,0); // free old lreg==creg
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6071 } else {
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6072 dreg = reg;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6073 }
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6074 xreg = emit_pop(0);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6075 lload(xreg,dreg,0);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 271
diff changeset
6076 ladd(nreg,dreg,dir);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6077 code_lassign(xreg,nreg);
222
3d214303bae9 *** empty log message ***
kono
parents: 221
diff changeset
6078 emit_pop_free(xreg);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6079 free_register(nreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6080 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6081
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6082 void
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6083 code_lassop(int op,int reg)
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6084 {
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6085 int xreg;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6086 int edx,edx0=-1;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6087
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6088 // (*creg) op = pop()
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6089 xreg = emit_lpop(0); /* pop e3 value */
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6090 if (!is_int_reg(creg)) error(-1);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6091 edx = ireg;
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
6092 emit_push();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6093 use_longlong(reg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6094 if (regv_l(lreg)==edx || regv_h(lreg)==edx) {
285
912b54949344 register assop const ( int/long )
kono
parents: 283
diff changeset
6095 // this can't happen
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6096 edx0 = get_register(); if(!edx0) error(-1);
468
464e7480395c *** empty log message ***
kono
parents: 467
diff changeset
6097 printf("## lassop\n\tmr %s,%s\n",register_name(edx0),register_name(edx));
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6098 edx = edx0;
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6099 }
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6100 lload(edx0=edx,reg,0);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6101 ltosop(op,reg,xreg);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6102 use_reg(reg);
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
6103 edx = emit_pop(0);
269
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6104 code_lassign(edx,reg);
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6105 if (edx0!=-1)
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6106 free_register(edx0);
d9f4026de4e3 MIPS continue...
kono
parents: 268
diff changeset
6107 emit_pop_free(edx);
211
dbad3172fa14 *** empty log message ***
kono
parents: 210
diff changeset
6108 emit_lpop_free(xreg);
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6109 }
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6110
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
6111 void
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
6112 code_register_lassop(int reg,int op) {
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6113 // reg op = pop()
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
6114 int xreg=emit_lpop();
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6115 ltosop(op,reg,xreg);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6116 emit_lpop_free(xreg);
219
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
6117 }
6190d24e178c long long code generation level 4
kono
parents: 218
diff changeset
6118
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6119
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6120 #endif
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6121
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
6122 void
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
6123 code_save_stacks()
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
6124 {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
6125 int i,reg;
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6126 for(i=0;i<reg_sp;i++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
6127 if ((reg=reg_stack[i])>=0) {
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6128 code_assign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
6129 (reg_stack[i]=new_lvar(SIZE_OF_INT)),reg,0);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6130 reg_stack[i]= reg_stack[i]-REG_LVAR_OFFSET;
368
be56772ab12a global offset, parallel_rassign fix, save_stack fix.
kono
parents: 367
diff changeset
6131 free_register(reg);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6132 }
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6133 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6134 #if FLOAT_CODE
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6135 for(i=0;i<freg_sp;i++) {
103
f849af4b5ea9 *** empty log message ***
kono
parents: 102
diff changeset
6136 if ((reg=freg_stack[i])>=0) {
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6137 code_dassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
6138 (freg_stack[i]=new_lvar(SIZE_OF_DOUBLE)),reg,1);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6139 freg_stack[i]= freg_stack[i]-REG_LVAR_OFFSET;
368
be56772ab12a global offset, parallel_rassign fix, save_stack fix.
kono
parents: 367
diff changeset
6140 free_register(reg);
101
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6141 }
05f197a4573a *** empty log message ***
kono
parents: 100
diff changeset
6142 }
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6143 #endif
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6144 #if LONGLONG_CODE
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6145 for(i=0;i<lreg_sp;i++) {
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6146 if ((reg=lreg_stack[i])>=0) {
223
1ac647873577 *** empty log message ***
kono
parents: 222
diff changeset
6147 code_lassign_lvar(
245
8a72b0afccfc *** empty log message ***
kono
parents: 240
diff changeset
6148 (lreg_stack[i]=new_lvar(SIZE_OF_LONGLONG)),reg);
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6149 lreg_stack[i]= lreg_stack[i]-REG_LVAR_OFFSET;
368
be56772ab12a global offset, parallel_rassign fix, save_stack fix.
kono
parents: 367
diff changeset
6150 free_register(reg);
212
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6151 }
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6152 }
32f54ab63b35 *** empty log message ***
kono
parents: 211
diff changeset
6153 #endif
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6154 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6155
739
0c7a6ae119ba i64 continue... compiler compiled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 726
diff changeset
6156 static void
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6157 emit_lib(char *p[])
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
6158 {
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
6159 while(*p) {
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
6160 printf("%s\n",*p++);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6161 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6162 }
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6163
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6164 void
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6165 code_closing()
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6166 {
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6167 #if FLOAT_CODE
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6168 if (d2u_lib_used) emit_lib(d2u_lib);
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6169 if (u2d_lib_used) emit_lib(u2d_lib);
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6170 if (float_one_lib_used) emit_lib(float_one_lib);
98
07c2554e1cfa *** empty log message ***
kono
parents: 97
diff changeset
6171 if (float_zero_lib_used) emit_lib(float_zero_lib);
96
7d8de41390d8 *** empty log message ***
kono
parents: 95
diff changeset
6172 if (i2d_lib_used) emit_lib(i2d_lib);
739
0c7a6ae119ba i64 continue... compiler compiled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 726
diff changeset
6173 d2u_lib_used = u2d_lib_used= float_one_lib_used= float_zero_lib_used = i2d_lib_used = 0;
195
c193120ee2a6 *** empty log message ***
kono
parents: 189
diff changeset
6174 #endif
213
kono
parents: 212
diff changeset
6175 #if LONGLONG_CODE
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
6176 if (asld_lib_used) emit_lib(asld_lib);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6177 if (lsrd_lib_used) emit_lib(lsrd_lib);
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6178 if (asrd_lib_used) emit_lib(asrd_lib);
739
0c7a6ae119ba i64 continue... compiler compiled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 726
diff changeset
6179 asld_lib_used = lsrd_lib_used = asrd_lib_used = 0;
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6180 #if 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6181 if (lumod_lib_used) emit_lib(lumod_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6182 if (lmod_lib_used) emit_lib(lmod_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6183 if (ludiv_lib_used) emit_lib(ludiv_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6184 if (ldiv_lib_used) emit_lib(ldiv_lib);
221
ceae585186d9 *** empty log message ***
kono
parents: 220
diff changeset
6185 #endif
213
kono
parents: 212
diff changeset
6186 #if FLOAT_CODE
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
6187 #if 0
216
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6188 if (dl2ll_lib_used) emit_lib(dl2ll_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6189 if (d2ull_lib_used) emit_lib(d2ull_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6190 if (f2ll_lib_used) emit_lib(f2ll_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6191 if (f2ull_lib_used) emit_lib(f2ull_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6192 if (ll2d_lib_used) emit_lib(ll2d_lib);
941177f65d07 *** empty log message ***
kono
parents: 215
diff changeset
6193 if (ll2f_lib_used) emit_lib(ll2f_lib);
213
kono
parents: 212
diff changeset
6194 #endif
kono
parents: 212
diff changeset
6195 #endif
218
2d64e82437d2 *** empty log message ***
kono
parents: 217
diff changeset
6196 #endif
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6197 #ifndef __APPLE__
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6198 if (saveFP_used) emit_lib(saveFP_lib);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6199 #endif
97
6d42fcac07af *** empty log message ***
kono
parents: 96
diff changeset
6200 global_table();
108
69e2e763cce5 object assemble first try.
kono
parents: 107
diff changeset
6201 /* printf("\t.ident \"Micro-C compiled\"\n"); */
95
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
6202 }
185d2cc6a3a9 *** empty log message ***
kono
parents: 93
diff changeset
6203
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6204 #if CASE_CODE
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6205
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6206 int
382
832e1f6bba82 ARM wrote all code. Check compile error.
kono
parents: 375
diff changeset
6207 code_table_jump_p(int delta) { return 1; }
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6208
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6209 void
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6210 code_table_jump(int l,int csvalue,int delta,int max,int min,int dlabel)
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6211 {
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6212 int t,s,u=-1;
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6213 char *crn = register_name(csvalue); // can be t,s,u
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6214 char *trn = register_name(t=get_register());
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6215 char *srn = register_name(s=get_register());
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6216 char *urn;
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6217
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6218 inc_cmpflag();
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6219 if (min>32767||min<-32765) {
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6220 if (t==csvalue) {
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6221 code_const(min,s);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6222 printf("\tsub\t%s,%s,%s\n",trn,crn,srn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6223 } else {
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6224 code_const(min,t);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6225 printf("\tsub\t%s,%s,%s\n",trn,crn,trn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6226 }
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6227 } else {
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6228 #ifdef __APPLE__
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6229 printf("\taddi\t%s,%s,lo16(%d)\n",trn,crn,-min);
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6230 #else
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6231 printf("\taddi\t%s,%s,%d@l\n",trn,crn,-min);
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6232 #endif
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6233 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6234 printf("\tcmplwi %s,%s,%d\n",crname(cmpflag),trn,max-min);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6235 printf("\tbgt-\t%s,%s%d\n",crname(cmpflag),lpfx,dlabel);
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6236 inc_cmpflag();
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6237 switch(delta) {
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6238 case 1: printf("\tslwi %s,%s,2\n",trn,trn); break;
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6239 case 2:
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6240 printf("\tli %s,1\n",srn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6241 printf("\tand %s,%s,%s\n",srn,srn,trn);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6242 printf("\tcmplwi %s,%s,0\n",crname(cmpflag),srn);
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6243 printf("\tbne\t%s,%s%d\n",crname(cmpflag),lpfx,dlabel);
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6244 printf("\tslwi %s,%s,1\n",trn,trn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6245 break;
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6246 case 4:
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6247 printf("\tli %s,3\n",srn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6248 printf("\tand %s,%s,%s\n",srn,srn,trn);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6249 printf("\tcmplwi %s,%s,0\n",crname(cmpflag),srn);
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6250 printf("\tbne\t%s,%s%d\n",crname(cmpflag),lpfx,dlabel);
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6251 break;
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6252 default:
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6253 urn = register_name(u=get_register());
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6254 printf("\tli %s,%d\n",srn,delta);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6255 printf("\tdivwu %s,%s,%s\n",urn,trn,srn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6256 printf("\tmullw %s,%s,%s\n",srn,urn,srn);
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6257 printf("\tsubf %s,%s,%s\n",srn,trn,srn);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6258 printf("\tcmplwi %s,%s,0\n",crname(cmpflag),srn);
667
dbfbeb05210c *** empty log message ***
kono
parents: 664
diff changeset
6259 printf("\tbne\t%s,%s%d\n",crname(cmpflag),lpfx,dlabel);
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6260 printf("\tslwi %s,%s,2\n",trn,urn);
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6261 }
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6262 #ifdef __APPLE__
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6263 printf("\taddis %s,r31,ha16(L_%d-L_%d)\n",
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6264 srn,l,code_base);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6265 printf("\tla %s,lo16(L_%d-L_%d)(%s)\n",
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6266 srn,l,code_base,srn);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6267 printf("\tadd %s,%s,%s\n",trn,srn,trn);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6268 printf("\tlwz r0,0(%s)\n",trn);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6269 printf("\tadd r0,r0,%s\n",srn);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6270 printf("\tmtctr r0\n");
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6271 printf("\tbctr\n");
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6272 #else
672
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
6273 printf("\tlis %s,%s%d@ha\n",srn,lpfx,l);
3f559c67bc86 *** empty log message ***
kono
parents: 667
diff changeset
6274 printf("\tla %s,%s%d@l(%s)\n",srn,lpfx,l,srn);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6275 printf("\tadd %s,%s,%s\n",trn,srn,trn);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6276 printf("\tlwz 0,0(%s)\n",trn);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6277 printf("\tadd 0,0,%s\n",srn);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6278 printf("\tmtctr 0\n");
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6279 printf("\tbctr\n");
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6280 #endif
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6281
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6282 free_register(s);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6283 free_register(t);
302
bea7ab2fb218 switch table jump finished.
kono
parents: 300
diff changeset
6284 if (u!=-1) free_register(u);
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6285 }
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6286
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6287 void
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6288 code_table_open(int l)
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6289 {
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6290 printf("\t.p2align 2\n");
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6291 fwddef(l);
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6292 }
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6293
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6294 void
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6295 code_table_value(int label,int table_top)
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6296 {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6297 printf("\t.long %s%d-%s%d\n",lpfx,label,lpfx,table_top);
300
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6298 }
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6299
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6300 void
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6301 code_table_close()
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6302 {
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6303 }
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6304
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6305 #endif
86255dd7f148 table done. (?)
kono
parents: 297
diff changeset
6306
316
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6307 #if ASM_CODE
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6308
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6309 /*
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6310 print an operand
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6311 */
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6312
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6313 static void
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6314 emit_asm_operand(int rstr)
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6315 {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6316 if (car(rstr)==REGISTER) {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6317 printf("%s",register_name(cadr(rstr)));
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6318 } else if (car(rstr)==CONST) {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6319 printf("%d",cadr(rstr));
319
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
6320 } else if (car(rstr)==FNAME) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
6321 printf("%s",ncaddr(rstr)->nm);
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
6322 } else if (car(rstr)==LABEL) {
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
6323 printf("%s%d:\n",lpfx,cadr(rstr));
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6324 } else {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6325 error(-1);
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6326 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6327 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6328
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6329 /*
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6330 prepare asm operands
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6331
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6332 char *constraints sgtring
326
e5d40f8c4cce bit-field continue.
kono
parents: 324
diff changeset
6333 int oeprand expr
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6334 int mode (ASM_INPUT,ASM_OUTPUT)
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6335 int replacement list
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6336 int output operands count
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6337 int output operands replacement list
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6338
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6339 retrun replacement list
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6340 list3( operands, next, clobber )
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6341 0 can be shared in input/output
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6342 1 can't be used in input
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6343 */
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6344
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
6345 extern int
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
6346 code_asm_operand(char *p,int e1,int mode,int repl,int n,int repl0)
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6347 {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6348 int r;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6349 int c;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6350 int val;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6351 int clobber = 0;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6352
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6353 printf("## constraint %s\n",p);
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6354 retry:
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6355 switch((c=*p)) {
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6356 case '?':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6357 case '!':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6358 case '+':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6359 case '%':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6360 case '#':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6361 case '*':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6362 case '=':
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6363 // output register
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6364 p++;
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6365 goto retry;
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6366 case '&':
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6367 // earlyclobber
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6368 p++;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6369 clobber = 1;
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6370 goto retry;
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6371 case 'b': // address base register (what?)
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6372 case 'r':
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6373 if (mode==ASM_INPUT) {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6374 for(;repl0;repl0 = cadr(repl0)) {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6375 if (car(car(repl0))==REGISTER && caddr(repl0)==0) {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6376 r = cadr(car(repl0));
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6377 caddr(repl0) = ASM_USED;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6378 break;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6379 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6380 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6381 r = get_register();
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6382 } else {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6383 r = get_register();
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6384 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6385 repl = list3(list2(REGISTER,r),repl,clobber);
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6386 break;
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6387 case 'm':
319
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
6388 repl = list3(list2(0,0),repl,clobber);
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6389 break;
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6390 case 'i':
368
be56772ab12a global offset, parallel_rassign fix, save_stack fix.
kono
parents: 367
diff changeset
6391 if (car(e1)==GVAR) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
6392 e1=list3n(FNAME,0,ncaddr(e1));
368
be56772ab12a global offset, parallel_rassign fix, save_stack fix.
kono
parents: 367
diff changeset
6393 } else if (car(e1)==FNAME) {
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
6394 e1=list3n(FNAME,0,ncaddr(e1));
319
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
6395 } else if (car(e1)==STRING) {
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
6396 val = emit_string_label();
712
bf94c295d763 *** empty log message ***
kono
parents: 711
diff changeset
6397 ascii(ncaddr(e1)->nm);
711
35e6841ba01a pointer fixes (partial)
kono
parents: 709
diff changeset
6398 e1=list2(LABEL,val);
319
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
6399 } else if (car(e1)==CONST) {
88cf6512fa1b asm for powerpc done.
kono
parents: 318
diff changeset
6400 } else error(-1);
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6401 repl = list3(e1,repl,clobber);
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6402 break;
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6403 case '0': case '1': case '2': case '3': case '4':
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6404 case '5': case '6': case '7': case '8': case '9':
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6405 val = 0;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6406 do { val = val*10 + c-'0'; } while (digit(c=*p++));
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6407 if (val>MAX_ASM_REG) error(-1); // too large register
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6408 if (n-val<0) error(-1);
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6409 repl = list3(car(nth(n-val-1,repl0)),repl,clobber);
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6410 break;
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6411 default:
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6412 printf("### unknown asm constraint %c\n",c);
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6413 }
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6414 return repl;
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6415 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6416
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6417 void
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
6418 code_free_asm_operand(int repl)
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6419 {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6420 for(;repl;repl=cadr(repl)) {
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6421 if (car(car(repl))==REGISTER)
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6422 free_register(cadr(car(repl)));
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6423 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6424 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6425
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6426
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6427 extern void
327
da2e3f2d127d macro/codegen reorganization
kono
parents: 326
diff changeset
6428 code_asm(char *asm_str,int repl)
316
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6429 {
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6430 int c,i,rstr,val;
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6431 char *p;
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6432 int reg[MAX_ASM_REG];
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6433
516
bfa4c834a3b8 data/text/rodata segment fix (incomplete)
kono
parents: 513
diff changeset
6434 text_mode(0);
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6435 c = *asm_str;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6436 if (c!='\t'&&c!=' ') printf("\t");
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6437 for(i=0;repl && i<MAX_ASM_REG;i++) {
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6438 reg[i] = car(repl);
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6439 repl = cadr(repl);
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6440 }
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6441 p = asm_str;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6442 while((c = *p++)) {
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6443 if (c=='%') {
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6444 c = *p++;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6445 if (!c) { break;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6446 } else if (c=='%') {
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6447 printf("%%"); continue;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6448 } else if (!digit(c)) {
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6449 printf("%%%c",c); continue;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6450 }
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6451 val = 0;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6452 do { val = val*10 + c-'0'; } while (digit(c=*p++)) ;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6453 p--;
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6454 if (val>MAX_ASM_REG) error(-1); // too large register
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6455 rstr = reg[val];
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6456 emit_asm_operand(rstr);
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6457 } else {
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6458 printf("%c",c);
318
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6459 }
9fe0b32a7d57 asm continue...
kono
parents: 316
diff changeset
6460 }
320
183726ccd83d asm minor fix. ia32 table jmp fix.
kono
parents: 319
diff changeset
6461 printf("\n");
316
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6462 }
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6463
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6464 #endif
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6465
22d92986c7f7 asm, valued statement, local decls continue...
kono
parents: 313
diff changeset
6466
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6467 #if BIT_FIELD_CODE
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6468
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6469 /* bit field alignment calcuration */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6470
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6471 static void
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6472 set_bitsz(int type,int *pbitpos,int *pbitsize,
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6473 int *psign,int *pbitsz,int *palign,int *pl)
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6474 {
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
6475 int sign=0,bitsz=0;
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
6476 int align=4,l=0;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6477 *pbitpos = cadr(caddr(type));
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6478 *pbitsize = caddr(caddr(type));
420
efbd420386c5 non aligned bitfield (not yet finished)
kono
parents: 418
diff changeset
6479 switch(cadr(type)) { /* value type */
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6480 case INT: sign=1; bitsz=32; align=4;break;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6481 case UNSIGNED: bitsz=32; align=4;break;
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6482 case CHAR: sign=1; bitsz= 8; align=1;break;
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6483 case UCHAR: bitsz= 8; align=1;break;
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6484 case SHORT: sign=1; bitsz=16; align=2;break;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6485 case USHORT: sign=1; bitsz=16; align=2;break;
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
6486 #ifdef __APPLE__
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6487 case LONGLONG: sign=1; bitsz=64; align=4;l=1; break;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6488 case ULONGLONG: bitsz=64; align=4;l=1; break;
676
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
6489 #else
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
6490 case LONGLONG: sign=1; bitsz=64; align=8;l=1; break;
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
6491 case ULONGLONG: bitsz=64; align=8;l=1; break;
5e71527f9fd6 *** empty log message ***
kono
parents: 674
diff changeset
6492 #endif
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6493 default: error(-1);
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6494 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6495 *psign = sign;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6496 *pbitsz = bitsz;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6497 *palign = align;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6498 *pl = l;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6499 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6500
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6501 /*
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6502 bit field alignment calcuration
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6503 this is architecture depenedent
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6504 */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6505
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6506 extern int
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6507 code_bit_field_disp(int type,int *poffset,int *bfd,int *sz)
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6508 {
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
6509 int sign,bitsz,align;
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6510 int i;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6511 int bitpos = *bfd;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6512 int bitpos0;
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6513 int bitsize;
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6514 int offset = *poffset;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6515 int l;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6516 set_bitsz(type,&bitpos0,&bitsize,&sign,&bitsz,&align,&l);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6517
569
1fcad06b264a gcc4 (ia32)
kono
parents: 560
diff changeset
6518 if (bitsize>bitsz) { error(BTERR); bitsize = bitsz; }
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6519
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6520 /* bfd means previous bit field bit offset */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6521 if (bitpos) {
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6522 /* previous field is bit field and spaces may remain */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6523 /* calc previsous offset */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6524
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6525 i= offset-(bitpos+7)/8;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6526
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6527 for(l = bitpos;l>0;l -= 8,i++) {
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6528 if ((i & (align-1))==0 && l+bitsize <= bitsz) {
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6529 /* alignment is correct and space remains */
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6530 *poffset=offset=i;
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6531 i = l+bitsize;
423
8b9136a06f56 bitfield continue...
kono
parents: 420
diff changeset
6532 *bfd = (i==bitsz)?0:i;
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6533 *sz = (i+7)/8;
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6534 // printf("## bitpos=%d bitsize=%d bitsz=%d offset=%d\n",l,bitsize,bitsz,*poffset);
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6535 return l;
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6536 }
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6537 }
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6538 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6539
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6540 /* first bit-field */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6541
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6542 if ((i=(offset & (align-1)))) {
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6543 *poffset = (offset += (align-i));
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6544 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6545 bitpos = 0;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6546 *bfd = (bitsize==bitsz)?0:bitsize;
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6547 *sz = (bitsize+7)/8;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6548
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6549 // printf("## bitpos=%d bitsize=%d bitsz=%d offset=%d\n",bitpos,bitsize,bitsz,*poffset);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6550 return bitpos;
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6551 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6552
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6553 /* bit field value */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6554
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6555 extern void
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6556 code_bit_field(int type,int adr, int reg)
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6557 {
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
6558 int sign,bitsz,l,align;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6559 int bitsize,bitpos;
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6560 int i,size;
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6561 set_bitsz(type,&bitpos,&bitsize,&sign,&bitsz,&align,&l);
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6562 size = bitsz/8;
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6563 // printf("## %d: bitpos=%d bitsize=%d bitsz=%d\n",lineno,bitpos,bitsize,bitsz);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6564 /* this implementation returns -1 for int i:1; */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6565 if (l==1) {
440
a531bbf572e3 regression test (case, float, long long)
kono
parents: 438
diff changeset
6566 #if LONGLONG_CODE
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6567 // use_int(adr);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6568 use_longlong(reg);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6569 lload(adr,reg,0);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6570 /* shift left */
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
6571 if (bitpos)
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6572 loprtc(LLSHIFT,reg,list2(CONST,bitpos));
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6573 /* shift right */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6574 if ((i=bitsz-bitsize))
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6575 loprtc(sign?LRSHIFT:LURSHIFT,reg,list2(CONST,i));
440
a531bbf572e3 regression test (case, float, long long)
kono
parents: 438
diff changeset
6576 #endif
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6577 } else {
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6578 // use_int(adr);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6579 use_int(reg);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6580 #ifdef __APPLE__
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6581 printf("\t%s %s,lo16(%d)(%s)\n",cload(size),
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6582 register_name(reg),0,register_name(adr));
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6583 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6584 printf("\t%s %s,%d@l(%s)\n",cload(size),
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6585 register_name(reg),0,register_name(adr));
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6586 #endif
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6587 cext(sign,size,reg);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6588 /* shift left */
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6589 if ((i=bitpos+(32-bitsz)))
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6590 oprtc(LSHIFT,reg,list2(CONST,i));
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6591 /* shift right */
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6592 if ((i=bitsz-bitsize+(32-bitsz)))
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6593 oprtc(sign?RSHIFT:URSHIFT,reg,list2(CONST,i));
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6594 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6595 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6596
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6597 /* bit field replacement */
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6598
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6599 static void
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
6600 make_mask_and_or(int mask,int tmp,char *trn,char *crn,char *lrn)
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6601 {
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6602 // printf("## mask 0x%08x ~0x%08x\n",mask,~mask);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6603 code_const(~mask,tmp);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6604 printf("\tor %s,%s,%s\n",trn,crn,trn);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6605 /* do conjunction */
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6606 printf("\tand %s,%s,%s\n",lrn,trn,lrn);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6607 /* make or-mask */
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6608 code_const(mask,tmp);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6609 printf("\tand %s,%s,%s\n",trn,crn,trn);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6610 /* do disjunction */
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6611 printf("\tor %s,%s,%s\n",crn,trn,lrn);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6612 }
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6613
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6614 extern void
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6615 code_bit_replace(int adr,int value,int type)
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6616 {
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
6617 int sign,bitsz,l,align;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6618 int bitsize,bitpos;
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6619 int mask = 0;
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6620 int tmp = -1;
331
f25aa4f03198 bit-field continue...
kono
parents: 330
diff changeset
6621 int i;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6622 int lvalue;
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6623 char *crn,*lrn,*trn;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6624 int size;
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6625 set_bitsz(type,&bitpos,&bitsize,&sign,&bitsz,&align,&l);
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6626 size = bitsz/8;
467
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
6627 // printf("## %d: bitpos=%d bitsize=%d bitsz=%d\n",lineno,bitpos,bitsize,bitsz);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6628 if (l) {
440
a531bbf572e3 regression test (case, float, long long)
kono
parents: 438
diff changeset
6629 #if LONGLONG_CODE
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6630 // use_int(adr);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6631 lvalue = get_lregister();
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6632 lload(adr,lvalue,0);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6633 use_longlong(value);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6634 crn = lregister_name_low(value);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6635 lrn = lregister_name_low(lvalue);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6636 /* shift left */
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6637 if ((i=bitsz-bitsize-bitpos))
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6638 loprtc(LLSHIFT,value,list2(CONST,i));
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6639 trn = register_name(tmp = get_register());
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6640 if (bitpos+bitsize>=32) {
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6641 /* make and-mask lower */
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6642 mask = make_mask(bitpos>=32?bitpos-32:0,bitpos+bitsize-32-1);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6643 make_mask_and_or(mask,tmp,trn,crn,lrn);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6644 }
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6645 crn = lregister_name_high(value);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6646 lrn = lregister_name_high(lvalue);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6647 if (bitpos<32) {
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6648 /* make and-mask upper */
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6649 mask = make_mask(bitpos,bitpos+bitsize>=32?31:bitpos+bitsize-1);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6650 make_mask_and_or(mask,tmp,trn,crn,lrn);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6651 }
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6652 code_lassign(adr,value);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6653 free_register(lvalue);
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6654 // free_register(adr);
440
a531bbf572e3 regression test (case, float, long long)
kono
parents: 438
diff changeset
6655 #endif
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6656 } else {
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6657 // use_int(adr);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6658 use_int(value);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6659 lvalue = get_register();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6660 #ifdef __APPLE__
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6661 printf("\t%s %s,lo16(%d)(%s)\n",cload(size),
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6662 register_name(lvalue),0,register_name(adr));
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6663 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6664 printf("\t%s %s,%d@l(%s)\n",cload(size),
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6665 register_name(lvalue),0,register_name(adr));
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6666 #endif
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6667 cext(sign,size,lvalue);
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6668 crn = register_name(value);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6669 lrn = register_name(lvalue);
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6670 /* shift left */
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6671 if ((i=bitsz-bitsize-bitpos))
335
4f98dc4b5fd8 bit-field continue... code-generation debug
kono
parents: 334
diff changeset
6672 oprtc(LSHIFT,value,list2(CONST,i));
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6673 trn = register_name(tmp = get_register());
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6674 /* make and-mask */
336
d488b72254fb bit-field done.
kono
parents: 335
diff changeset
6675 mask = make_mask(bitpos+(32-bitsz),bitpos+bitsize-1+(32-bitsz));
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6676 make_mask_and_or(mask,tmp,trn,crn,lrn);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6677 free_register(lvalue);
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6678 code_assign(adr,size,value);
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6679 }
330
fa4c7b15d7ed bit field all code written
kono
parents: 329
diff changeset
6680 if (tmp!=-1) free_register(tmp);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6681 if (use) {
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6682 code_bit_field(type,adr,USE_CREG);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6683 }
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6684 }
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6685
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6686 static void
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6687 make_mask_and_or_const(int mask,char *crn,int c)
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6688 {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6689 char *trn;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6690 int tmp = -1;
527
6b0fd56848e6 inline continue....
kono
parents: 526
diff changeset
6691 // printf("## mask 0x%08x ~0x%08x\n",mask,~mask);
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6692 if ((~mask|c)!=-1) {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6693 trn = register_name(tmp=get_register());
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6694 code_const((~mask|c),tmp);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6695 /* do conjunction */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6696 printf("\tand %s,%s,%s\n",crn,trn,crn);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6697 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6698 /* make or-mask */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6699 c = mask&c;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6700 if (c!=0) {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6701 /* do disjunction */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6702 if (!((mask&c)&0xffff0000)) {
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6703 #ifdef __APPLE__
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6704 printf("\tori %s,%s,lo16(%d)\n",crn,crn,c);
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6705 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6706 printf("\tori %s,%s,%d@l\n",crn,crn,c);
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6707 #endif
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6708 } else {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6709 trn = register_name(tmp=get_register());
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6710 code_const(c,tmp);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6711 printf("\tor %s,%s,%s\n",crn,trn,crn);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6712 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6713 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6714 if (tmp!=-1) free_register(tmp);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6715 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6716
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6717 extern void
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6718 code_bit_replace_const(int value,int adr,int type)
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6719 {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6720 int sign,bitsz,l,align;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6721 int bitsize,bitpos,size;
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6722 int mask = 0;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6723 int i;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6724 int c;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6725 int lvalue;
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6726 #if LONGLONG_CODE
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6727 long long lc;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6728 #endif
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6729 char *crn;
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6730 set_bitsz(type,&bitpos,&bitsize,&sign,&bitsz,&align,&l);
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6731 size = bitsz/8;
467
32737bad7489 fix list/tag interference
kono
parents: 463
diff changeset
6732 // printf("## %d: bitpos=%d bitsize=%d bitsz=%d\n",lineno,bitpos,bitsize,bitsz);
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6733 if (l) {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6734 #if LONGLONG_CODE
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6735 use_int(adr);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6736 lvalue = get_lregister();
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6737 lload(adr,lvalue,0);
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6738 crn = lregister_name_low(lvalue);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6739 /* shift left */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6740 lc = lcadr(value);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6741 if ((i=bitsz-bitsize-bitpos))
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6742 lc <<= i;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6743 if (bitpos+bitsize>=32) {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6744 /* make and-mask lower */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6745 mask = make_mask(bitpos>=32?bitpos-32:0,bitpos+bitsize-32-1);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6746 make_mask_and_or_const(mask,crn,(int)lc);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6747 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6748 crn = lregister_name_high(lvalue);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6749 if (bitpos<32) {
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6750 /* make and-mask upper */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6751 mask = make_mask(bitpos,bitpos+bitsize>=32?31:bitpos+bitsize-1);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6752 make_mask_and_or_const(mask,crn,(int)(lc>>32));
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6753 }
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6754 code_lassign(adr,lvalue);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6755 free_register(lvalue);
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6756 #endif
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6757 } else {
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6758 use_int(adr);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6759 lvalue = get_register();
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6760 #ifdef __APPLE__
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6761 printf("\t%s %s,lo16(%d)(%s)\n",cload(size),
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6762 register_name(lvalue),0,register_name(adr));
662
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6763 #else
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6764 printf("\t%s %s,%d@l(%s)\n",cload(size),
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6765 register_name(lvalue),0,register_name(adr));
c9df4e08da9b *** empty log message ***
kono
parents: 660
diff changeset
6766 #endif
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6767 cext(sign,size,lvalue);
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6768 crn = register_name(lvalue);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6769 /* shift left */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6770 c = cadr(value);
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6771 if ((i=bitsz-bitsize-bitpos))
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6772 c <<= i;
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6773 /* make and-mask */
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6774 mask = make_mask(bitpos+(32-bitsz),bitpos+bitsize-1+(32-bitsz));
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6775 make_mask_and_or_const(mask,crn,c);
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6776 code_assign(adr,size,lvalue);
426
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6777 free_register(lvalue);
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6778 }
fb136af3bf09 Bitfield reorganization.
kono
parents: 423
diff changeset
6779 if (use) {
431
800a5e3e6a17 *** empty log message ***
kono
parents: 426
diff changeset
6780 code_bit_field(type,adr,USE_CREG);
365
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6781 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6782 }
5ac17fa9d7e0 bit-field constant assignment
kono
parents: 363
diff changeset
6783
329
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6784 #endif
4c8f8ef8c0cf bit field continue...
kono
parents: 328
diff changeset
6785
715
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6786 extern int
782
003067098032 code argument offset in caller and callee
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 780
diff changeset
6787 code_arg_alignment(int args,NMTBL *n, int type0,int sz, int is_code)
003067098032 code argument offset in caller and callee
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 780
diff changeset
6788 {
003067098032 code argument offset in caller and callee
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 780
diff changeset
6789 return code_arg_alignment0(args,n, type0,sz, is_code);
715
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6790 }
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6791
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6792
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6793 extern int
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6794 code_lvar_alignment(int args,NMTBL *n, int type0,int sz)
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6795 {
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6796 return code_lvar_alignment0(args,n, type0,sz);
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6797 }
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6798
83e18db76c96 architecture depenedent argument alignment
kono
parents: 712
diff changeset
6799
89
917947ffeb7c power pc version
kono
parents:
diff changeset
6800 /* end */