[206] | 1 | #include "stdafx.h"
|
---|
| 2 |
|
---|
[226] | 3 | #include <Compiler.h>
|
---|
| 4 |
|
---|
[3] | 5 | #include "../BasicCompiler_Common/common.h"
|
---|
| 6 | #include "Opcode.h"
|
---|
| 7 |
|
---|
| 8 | BOOL IsUse_r11(RELATIVE_VAR *pRelativeVar){
|
---|
| 9 | if(pRelativeVar->bOffsetOffset||pRelativeVar->dwKind==VAR_DIRECTMEM) return 1;
|
---|
| 10 | return 0;
|
---|
| 11 | }
|
---|
| 12 |
|
---|
[75] | 13 | void 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] | 96 | void 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
|
---|
| 120 | OpBuffer[obp++]=(char)0xF2;
|
---|
| 121 | OpBuffer[obp++]=(char)0x42;
|
---|
| 122 | OpBuffer[obp++]=(char)0x0F;
|
---|
| 123 | OpBuffer[obp++]=(char)0x11;
|
---|
| 124 | OpBuffer[obp++]=(char)0x84;
|
---|
| 125 | OpBuffer[obp++]=(char)0x1C;
|
---|
| 126 | *((long *)(OpBuffer+obp))=(int)pRelative->offset;
|
---|
| 127 | AddLocalVarAddrSchedule();
|
---|
| 128 | obp+=sizeof(long);
|
---|
| 129 | }
|
---|
| 130 | else{
|
---|
| 131 | //movsd qword ptr[rsp+offset],xmm0
|
---|
[232] | 132 | compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 133 | }
|
---|
| 134 | }
|
---|
[40] | 135 | else if( pRelative->dwKind == VAR_REFLOCAL ){
|
---|
[3] | 136 | if(pRelative->bOffsetOffset){
|
---|
| 137 | //add r11,qword ptr[rsp+offset]
|
---|
[232] | 138 | compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 139 | }
|
---|
| 140 | else{
|
---|
| 141 | //mov r11,qword ptr[rsp+offset]
|
---|
[232] | 142 | compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 143 | }
|
---|
| 144 |
|
---|
| 145 | goto directmem;
|
---|
| 146 | }
|
---|
| 147 | else if(pRelative->dwKind==VAR_DIRECTMEM){
|
---|
| 148 | directmem:
|
---|
| 149 | //movsd qword ptr[r11],xmm0
|
---|
[228] | 150 | compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_R11, 0, MOD_BASE );
|
---|
[3] | 151 | }
|
---|
| 152 | }
|
---|
| 153 | void SetSingleVariable(int type,RELATIVE_VAR *pRelative){
|
---|
| 154 | //////////////////////////
|
---|
| 155 | // Single型変数に書き込む
|
---|
| 156 | //////////////////////////
|
---|
| 157 |
|
---|
| 158 | //xmm0に型変換
|
---|
| 159 | ChangeTypeToXmm_Single(type,REG_XMM0,REG_RAX);
|
---|
| 160 |
|
---|
| 161 | if(pRelative->dwKind==VAR_GLOBAL){
|
---|
| 162 | if(pRelative->bOffsetOffset){
|
---|
| 163 | //movss dword ptr[r11+offset],xmm0
|
---|
[232] | 164 | compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_R11, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::GlobalVar );
|
---|
[3] | 165 | }
|
---|
| 166 | else{
|
---|
| 167 | //movss dword ptr[offset],xmm0
|
---|
[232] | 168 | compiler.codeGenerator.op_movss_MR( REG_XMM0, 0, (long)pRelative->offset, MOD_DISP32, Schedule::GlobalVar );
|
---|
[3] | 169 | }
|
---|
| 170 | }
|
---|
[62] | 171 | else if(pRelative->dwKind==VAR_REFGLOBAL){
|
---|
| 172 | SetError(300,NULL,cp);
|
---|
| 173 | }
|
---|
[3] | 174 | else if(pRelative->dwKind==VAR_LOCAL){
|
---|
| 175 | if(pRelative->bOffsetOffset){
|
---|
| 176 | //movss dword ptr[rsp+r11+offset],xmm0
|
---|
| 177 | OpBuffer[obp++]=(char)0xF3;
|
---|
| 178 | OpBuffer[obp++]=(char)0x42;
|
---|
| 179 | OpBuffer[obp++]=(char)0x0F;
|
---|
| 180 | OpBuffer[obp++]=(char)0x11;
|
---|
| 181 | OpBuffer[obp++]=(char)0x84;
|
---|
| 182 | OpBuffer[obp++]=(char)0x1C;
|
---|
| 183 | *((long *)(OpBuffer+obp))=(int)pRelative->offset;
|
---|
| 184 | AddLocalVarAddrSchedule();
|
---|
| 185 | obp+=sizeof(long);
|
---|
| 186 | }
|
---|
| 187 | else{
|
---|
| 188 | //movss dword ptr[rsp+offset],xmm0
|
---|
[232] | 189 | compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 190 | }
|
---|
| 191 | }
|
---|
[40] | 192 | else if( pRelative->dwKind == VAR_REFLOCAL ){
|
---|
[3] | 193 | if(pRelative->bOffsetOffset){
|
---|
| 194 | //add r11,qword ptr[rsp+offset]
|
---|
[232] | 195 | compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 196 | }
|
---|
| 197 | else{
|
---|
| 198 | //mov r11,qword ptr[rsp+offset]
|
---|
[232] | 199 | compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 200 | }
|
---|
| 201 |
|
---|
| 202 | goto directmem;
|
---|
| 203 | }
|
---|
| 204 | else if(pRelative->dwKind==VAR_DIRECTMEM){
|
---|
| 205 | directmem:
|
---|
| 206 | //movss dword ptr[r11],xmm0
|
---|
[228] | 207 | compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_R11, 0, MOD_BASE );
|
---|
[3] | 208 | }
|
---|
| 209 | }
|
---|
[64] | 210 | void SetRealVariable(int VarType, int CalcType, RELATIVE_VAR *pRelativeVar){
|
---|
| 211 | if(VarType==DEF_DOUBLE){
|
---|
| 212 | //Double型変数へスタックの内容を格納する
|
---|
| 213 | SetDoubleVariable(CalcType,pRelativeVar);
|
---|
| 214 | }
|
---|
| 215 | else if(VarType==DEF_SINGLE){
|
---|
| 216 | //Single型変数へスタックの内容を格納する
|
---|
| 217 | SetSingleVariable(CalcType,pRelativeVar);
|
---|
| 218 | }
|
---|
| 219 | }
|
---|
[36] | 220 | void SetBooleanVariable(int type,RELATIVE_VAR *pRelative){
|
---|
| 221 | if(type==DEF_DOUBLE){
|
---|
| 222 | //Double型
|
---|
| 223 |
|
---|
| 224 | //cvttsd2si rax,xmm0
|
---|
[226] | 225 | compiler.codeGenerator.op_cvttsd2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
|
---|
[36] | 226 | }
|
---|
| 227 | else if(type==DEF_SINGLE){
|
---|
| 228 | //Single型
|
---|
| 229 |
|
---|
| 230 | //cvttss2si rax,xmm0
|
---|
[226] | 231 | compiler.codeGenerator.op_cvttss2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
|
---|
[36] | 232 | }
|
---|
| 233 |
|
---|
| 234 | //cmp rax,0
|
---|
[226] | 235 | compiler.codeGenerator.op_cmp_value(GetTypeSize(type,-1),REG_RAX,0);
|
---|
[36] | 236 |
|
---|
| 237 | //setne al
|
---|
[226] | 238 | compiler.codeGenerator.op_setne( REG_RAX );
|
---|
[36] | 239 |
|
---|
| 240 | SetWholeVariable( sizeof(char), DEF_BYTE, pRelative);
|
---|
| 241 | }
|
---|
[66] | 242 | void SetWholeVariable(int varSize,int type,RELATIVE_VAR *pRelative){
|
---|
[3] | 243 | if(type==DEF_DOUBLE){
|
---|
| 244 | //Double型
|
---|
| 245 |
|
---|
| 246 | //cvttsd2si rax,xmm0
|
---|
[226] | 247 | compiler.codeGenerator.op_cvttsd2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
|
---|
[3] | 248 | }
|
---|
| 249 | else if(type==DEF_SINGLE){
|
---|
| 250 | //Single型
|
---|
| 251 |
|
---|
| 252 | //cvttss2si rax,xmm0
|
---|
[226] | 253 | compiler.codeGenerator.op_cvttss2si_xmm(sizeof(_int64),REG_RAX,REG_XMM0);
|
---|
[3] | 254 | }
|
---|
| 255 | else{
|
---|
| 256 | //その他の整数
|
---|
| 257 |
|
---|
[66] | 258 | if(varSize==sizeof(_int64)){
|
---|
[3] | 259 | //レジスタの値を64ビット(rax)に拡張する
|
---|
| 260 | ExtendTypeTo64(type,REG_RAX);
|
---|
| 261 | }
|
---|
[66] | 262 | else if(varSize==sizeof(long)){
|
---|
[3] | 263 | //レジスタの値を32ビット(eax)に拡張する
|
---|
| 264 | ExtendTypeTo32(type,REG_RAX);
|
---|
| 265 | }
|
---|
[66] | 266 | else if(varSize==sizeof(short)){
|
---|
[3] | 267 | //レジスタの値を16ビット(ax)に拡張する
|
---|
| 268 | ExtendTypeTo16(type,REG_RAX);
|
---|
| 269 | }
|
---|
| 270 | //8ビットは拡張なし
|
---|
| 271 | }
|
---|
| 272 |
|
---|
| 273 | if(pRelative->dwKind==VAR_GLOBAL){
|
---|
| 274 | if(pRelative->bOffsetOffset){
|
---|
| 275 | //mov ptr[r11+offset],rax/eax/ax/al
|
---|
[232] | 276 | compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_R11,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::GlobalVar );
|
---|
[3] | 277 | }
|
---|
| 278 | else{
|
---|
| 279 | //mov ptr[offset],rax/eax/ax/al
|
---|
[232] | 280 | compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,0,(int)pRelative->offset,MOD_DISP32, Schedule::GlobalVar );
|
---|
[3] | 281 | }
|
---|
| 282 | }
|
---|
[62] | 283 | else if( pRelative->dwKind == VAR_REFGLOBAL ){
|
---|
| 284 | if(pRelative->bOffsetOffset){
|
---|
| 285 | //add r11,qword ptr[offset]
|
---|
[232] | 286 | compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_NON, (int)pRelative->offset, MOD_DISP32, Schedule::GlobalVar );
|
---|
[62] | 287 | }
|
---|
| 288 | else{
|
---|
| 289 | //mov r11,qword ptr[offset]
|
---|
[232] | 290 | compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_NON,(int)pRelative->offset,MOD_DISP32, Schedule::GlobalVar );
|
---|
[62] | 291 | }
|
---|
| 292 |
|
---|
| 293 | goto directmem;
|
---|
| 294 | }
|
---|
[3] | 295 | else if(pRelative->dwKind==VAR_LOCAL){
|
---|
| 296 | if(pRelative->bOffsetOffset){
|
---|
| 297 | //mov ptr[rsp+r11+offset],rax/eax/ax/al
|
---|
[232] | 298 | compiler.codeGenerator.op_mov_MR_ex(varSize,REG_RAX,REG_RSP,REG_R11,(int)pRelative->offset,USE_OFFSET, Schedule::LocalVar );
|
---|
[3] | 299 | }
|
---|
| 300 | else{
|
---|
| 301 | //mov ptr[rsp+offset],rax/eax/ax/al
|
---|
[232] | 302 | compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 303 | }
|
---|
| 304 | }
|
---|
[40] | 305 | else if( pRelative->dwKind == VAR_REFLOCAL ){
|
---|
[3] | 306 | if(pRelative->bOffsetOffset){
|
---|
| 307 | //add r11,qword ptr[rsp+offset]
|
---|
[232] | 308 | compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_RSP, (int)pRelative->offset, MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 309 | }
|
---|
| 310 | else{
|
---|
| 311 | //mov r11,qword ptr[rsp+offset]
|
---|
[232] | 312 | compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
|
---|
[3] | 313 | }
|
---|
| 314 |
|
---|
| 315 | goto directmem;
|
---|
| 316 | }
|
---|
| 317 | else if(pRelative->dwKind==VAR_DIRECTMEM){
|
---|
| 318 | directmem:
|
---|
| 319 |
|
---|
| 320 | //mov ptr[r11],rax/eax/ax/al
|
---|
[226] | 321 | compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_R11,0,MOD_BASE);
|
---|
[3] | 322 | }
|
---|
| 323 | }
|
---|