source: dev/trunk/abdev/BasicCompiler64/Compile_Set_Var.cpp@ 344

Last change on this file since 344 was 308, checked in by dai_9181, 17 years ago

静的リンクライブラリにより、複数のグローバル領域が存在することになったのでそれぞれを関数ベースに分けた
File size: 10.1 KB
RevLine 
[206]1#include "stdafx.h"
2
[226]3#include <Compiler.h>
4
[3]5#include "../BasicCompiler_Common/common.h"
6#include "Opcode.h"
7
8BOOL IsUse_r11(RELATIVE_VAR *pRelativeVar){
9 if(pRelativeVar->bOffsetOffset||pRelativeVar->dwKind==VAR_DIRECTMEM) return 1;
10 return 0;
11}
12
[75]13void SetStructVariableFromRax( const Type &varType, const Type &calcType, RELATIVE_VAR *pRelativeVar,BOOL bUseHeap){
[3]14 int RightTermReg;
15 pobj_reg=new CRegister(REG_RCX);
16
17 //VarRegにオブジェクトポインタをコピー
18 int VarReg;
19 VarReg=pobj_reg->LockReg();
20 SetVarPtrToReg(VarReg,pRelativeVar);
21
22 //右辺
[75]23 if( calcType.IsReal() ){
[3]24 RightTermReg=pobj_reg->LockXmmReg();
25
[75]26 if( calcType.IsDouble() ){
[3]27 //movlsd RightTermReg,xmm0
[226]28 compiler.codeGenerator.op_movsd_RR(RightTermReg,REG_XMM0);
[3]29 }
[75]30 else if( calcType.IsSingle() ){
[3]31 //movlss RightTermReg,xmm0
[226]32 compiler.codeGenerator.op_movss_RR(RightTermReg,REG_XMM0);
[3]33 }
34 }
35 else{
36 RightTermReg=pobj_reg->LockReg();
37
38 //mov RightTermReg,rax
[226]39 compiler.codeGenerator.op_mov_RR(RightTermReg,REG_RAX);
[3]40 }
41
42 //右辺用レジスタを解除
[75]43 if( calcType.IsReal() ) pobj_reg->UnlockXmmReg();
[3]44 else pobj_reg->UnlockReg();
45
46 //左辺用レジスタを解除
47 pobj_reg->UnlockReg();
48
49 //レジスタ管理オブジェクトを破棄
50 delete pobj_reg;
51 pobj_reg=0;
52
53
[75]54 if( calcType.IsStruct() ){
55 if( varType.GetClass().IsEquals( &calcType.GetClass() ) ){ //等しい
[3]56
[28]57 //双方のオブジェクト型が一致、または派生・継承関係にあるとき
58 //※コピーを行う
[3]59
[28]60 //mov rsi,RightTermReg
[226]61 compiler.codeGenerator.op_mov_RR(REG_RSI,RightTermReg);
[3]62
[28]63 //mov rdi,VarReg
[226]64 compiler.codeGenerator.op_mov_RR(REG_RDI,VarReg);
[3]65
[75]66 int object_size = varType.GetClass().GetSize();
[3]67
[28]68 //mov rcx,object_size
[226]69 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RCX,object_size);
[3]70
[28]71 if(bUseHeap){
72 //mov rax,rsi
[226]73 compiler.codeGenerator.op_mov_RR(REG_RAX,REG_RSI);
[28]74 }
[3]75
[28]76 //rep movs byte ptr[rdi],byte ptr[rsi]
[226]77 compiler.codeGenerator.op_rep_movs(sizeof(BYTE));
[28]78
79 if(bUseHeap){
80 //mov rcx,rax
[226]81 compiler.codeGenerator.op_mov_RR(REG_RCX,REG_RAX);
[28]82
83 //call free
[206]84 extern const UserProc *pSub_free;
[226]85 compiler.codeGenerator.op_call(pSub_free);
[28]86 }
87
88 return;
[3]89 }
[28]90 }
[3]91
[28]92 SetError(1,NULL,cp);
[3]93}
94
[64]95
[3]96void SetDoubleVariable(int type,RELATIVE_VAR *pRelative){
97 //////////////////////////
98 // Double型変数に書き込む
99 //////////////////////////
100
101 //xmm0に型変換
102 ChangeTypeToXmm_Double(type,REG_XMM0,REG_RAX);
103
104 if(pRelative->dwKind==VAR_GLOBAL){
105 if(pRelative->bOffsetOffset){
106 //movsd qword ptr[r11+offset],xmm0
[232]107 compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_R11, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::GlobalVar );
[3]108 }
109 else{
110 //movsd qword ptr[offset],xmm0
[232]111 compiler.codeGenerator.op_movsd_MR( REG_XMM0, 0, (long)pRelative->offset, MOD_DISP32, Schedule::GlobalVar );
[3]112 }
113 }
[62]114 else if(pRelative->dwKind==VAR_REFGLOBAL){
115 SetError(300,NULL,cp);
116 }
[3]117 else if(pRelative->dwKind==VAR_LOCAL){
118 if(pRelative->bOffsetOffset){
119 //movsd qword ptr[rsp+r11+offset],xmm0
[242]120 compiler.codeGenerator.PutOld(
121 (char)0xF2,
122 (char)0x42,
123 (char)0x0F,
124 (char)0x11,
125 (char)0x84,
126 (char)0x1C
127 );
[254]128 compiler.codeGenerator.localVarPertialSchedules.push_back(
129 compiler.codeGenerator.PutOld( (long)pRelative->offset, true )
[242]130 );
[3]131 }
132 else{
133 //movsd qword ptr[rsp+offset],xmm0
[254]134 compiler.codeGenerator.localVarPertialSchedules.push_back(
135 compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::None, true )
136 );
[3]137 }
138 }
[40]139 else if( pRelative->dwKind == VAR_REFLOCAL ){
[3]140 if(pRelative->bOffsetOffset){
141 //add r11,qword ptr[rsp+offset]
[254]142 compiler.codeGenerator.localVarPertialSchedules.push_back(
143 compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
144 );
[3]145 }
146 else{
147 //mov r11,qword ptr[rsp+offset]
[254]148 compiler.codeGenerator.localVarPertialSchedules.push_back(
149 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
150 );
[3]151 }
152
153 goto directmem;
154 }
155 else if(pRelative->dwKind==VAR_DIRECTMEM){
156directmem:
157 //movsd qword ptr[r11],xmm0
[228]158 compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_R11, 0, MOD_BASE );
[3]159 }
160}
161void SetSingleVariable(int type,RELATIVE_VAR *pRelative){
162 //////////////////////////
163 // Single型変数に書き込む
164 //////////////////////////
165
166 //xmm0に型変換
167 ChangeTypeToXmm_Single(type,REG_XMM0,REG_RAX);
168
169 if(pRelative->dwKind==VAR_GLOBAL){
170 if(pRelative->bOffsetOffset){
171 //movss dword ptr[r11+offset],xmm0
[232]172 compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_R11, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::GlobalVar );
[3]173 }
174 else{
175 //movss dword ptr[offset],xmm0
[232]176 compiler.codeGenerator.op_movss_MR( REG_XMM0, 0, (long)pRelative->offset, MOD_DISP32, Schedule::GlobalVar );
[3]177 }
178 }
[62]179 else if(pRelative->dwKind==VAR_REFGLOBAL){
180 SetError(300,NULL,cp);
181 }
[3]182 else if(pRelative->dwKind==VAR_LOCAL){
183 if(pRelative->bOffsetOffset){
184 //movss dword ptr[rsp+r11+offset],xmm0
[242]185 compiler.codeGenerator.PutOld(
186 (char)0xF3,
187 (char)0x42,
188 (char)0x0F,
189 (char)0x11,
190 (char)0x84,
191 (char)0x1C
192 );
[254]193 compiler.codeGenerator.localVarPertialSchedules.push_back(
194 compiler.codeGenerator.PutOld( (long)pRelative->offset, true )
[242]195 );
[3]196 }
197 else{
198 //movss dword ptr[rsp+offset],xmm0
[254]199 compiler.codeGenerator.localVarPertialSchedules.push_back(
200 compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::None, true )
201 );
[3]202 }
203 }
[40]204 else if( pRelative->dwKind == VAR_REFLOCAL ){
[3]205 if(pRelative->bOffsetOffset){
206 //add r11,qword ptr[rsp+offset]
[254]207 compiler.codeGenerator.localVarPertialSchedules.push_back(
208 compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
209 );
[3]210 }
211 else{
212 //mov r11,qword ptr[rsp+offset]
[254]213 compiler.codeGenerator.localVarPertialSchedules.push_back(
214 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
215 );
[3]216 }
217
218 goto directmem;
219 }
220 else if(pRelative->dwKind==VAR_DIRECTMEM){
221directmem:
222 //movss dword ptr[r11],xmm0
[228]223 compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_R11, 0, MOD_BASE );
[3]224 }
225}
[64]226void SetRealVariable(int VarType, int CalcType, RELATIVE_VAR *pRelativeVar){
227 if(VarType==DEF_DOUBLE){
228 //Double型変数へスタックの内容を格納する
229 SetDoubleVariable(CalcType,pRelativeVar);
230 }
231 else if(VarType==DEF_SINGLE){
232 //Single型変数へスタックの内容を格納する
233 SetSingleVariable(CalcType,pRelativeVar);
234 }
235}
[36]236void SetBooleanVariable(int type,RELATIVE_VAR *pRelative){
237 if(type==DEF_DOUBLE){
238 //Double型
239
240 //cvttsd2si rax,xmm0
[226]241 compiler.codeGenerator.op_cvttsd2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
[36]242 }
243 else if(type==DEF_SINGLE){
244 //Single型
245
246 //cvttss2si rax,xmm0
[226]247 compiler.codeGenerator.op_cvttss2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
[36]248 }
249
250 //cmp rax,0
[308]251 compiler.codeGenerator.op_cmp_value(Type(type).GetSize(),REG_RAX,0);
[36]252
253 //setne al
[226]254 compiler.codeGenerator.op_setne( REG_RAX );
[36]255
256 SetWholeVariable( sizeof(char), DEF_BYTE, pRelative);
257}
[66]258void SetWholeVariable(int varSize,int type,RELATIVE_VAR *pRelative){
[3]259 if(type==DEF_DOUBLE){
260 //Double型
261
262 //cvttsd2si rax,xmm0
[226]263 compiler.codeGenerator.op_cvttsd2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
[3]264 }
265 else if(type==DEF_SINGLE){
266 //Single型
267
268 //cvttss2si rax,xmm0
[226]269 compiler.codeGenerator.op_cvttss2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
[3]270 }
271 else{
272 //その他の整数
273
[66]274 if(varSize==sizeof(_int64)){
[3]275 //レジスタの値を64ビット（rax）に拡張する
276 ExtendTypeTo64(type,REG_RAX);
277 }
[66]278 else if(varSize==sizeof(long)){
[3]279 //レジスタの値を32ビット（eax）に拡張する
280 ExtendTypeTo32(type,REG_RAX);
281 }
[66]282 else if(varSize==sizeof(short)){
[3]283 //レジスタの値を16ビット（ax）に拡張する
284 ExtendTypeTo16(type,REG_RAX);
285 }
286 //8ビットは拡張なし
287 }
288
289 if(pRelative->dwKind==VAR_GLOBAL){
290 if(pRelative->bOffsetOffset){
291 //mov ptr[r11+offset],rax/eax/ax/al
[232]292 compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_R11,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::GlobalVar );
[3]293 }
294 else{
295 //mov ptr[offset],rax/eax/ax/al
[232]296 compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,0,(int)pRelative->offset,MOD_DISP32, Schedule::GlobalVar );
[3]297 }
298 }
[62]299 else if( pRelative->dwKind == VAR_REFGLOBAL ){
300 if(pRelative->bOffsetOffset){
301 //add r11,qword ptr[offset]
[232]302 compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_NON, (int)pRelative->offset, MOD_DISP32, Schedule::GlobalVar );
[62]303 }
304 else{
305 //mov r11,qword ptr[offset]
[232]306 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_NON,(int)pRelative->offset,MOD_DISP32, Schedule::GlobalVar );
[62]307 }
308
309 goto directmem;
310 }
[3]311 else if(pRelative->dwKind==VAR_LOCAL){
312 if(pRelative->bOffsetOffset){
313 //mov ptr[rsp+r11+offset],rax/eax/ax/al
[254]314 compiler.codeGenerator.localVarPertialSchedules.push_back(
315 compiler.codeGenerator.op_mov_MR_ex(varSize,REG_RAX,REG_RSP,REG_R11,(int)pRelative->offset,USE_OFFSET, Schedule::None, true )
316 );
[3]317 }
318 else{
319 //mov ptr[rsp+offset],rax/eax/ax/al
[254]320 compiler.codeGenerator.localVarPertialSchedules.push_back(
321 compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
322 );
[3]323 }
324 }
[40]325 else if( pRelative->dwKind == VAR_REFLOCAL ){
[3]326 if(pRelative->bOffsetOffset){
327 //add r11,qword ptr[rsp+offset]
[254]328 compiler.codeGenerator.localVarPertialSchedules.push_back(
329 compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_RSP, (int)pRelative->offset, MOD_BASE_DISP32, Schedule::None, true )
330 );
[3]331 }
332 else{
333 //mov r11,qword ptr[rsp+offset]
[254]334 compiler.codeGenerator.localVarPertialSchedules.push_back(
335 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
336 );
[3]337 }
338
339 goto directmem;
340 }
341 else if(pRelative->dwKind==VAR_DIRECTMEM){
342directmem:
343
344 //mov ptr[r11],rax/eax/ax/al
[226]345 compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_R11,0,MOD_BASE);
[3]346 }
347}
Note: See TracBrowser for help on using the repository browser.