[3] | 1 | #include "../BasicCompiler_Common/common.h"
|
---|
| 2 | #include "Opcode.h"
|
---|
| 3 |
|
---|
| 4 | void IncDec(int idCalc, char *lpszLeft, char *lpszRight){
|
---|
| 5 |
|
---|
| 6 | ///////////////////////////
|
---|
| 7 | // 変数アドレスを取得
|
---|
| 8 | ///////////////////////////
|
---|
| 9 |
|
---|
[75] | 10 | RELATIVE_VAR VarRelativeVar;
|
---|
| 11 | Type varType;
|
---|
[11] | 12 | if(!GetVarOffsetReadWrite(
|
---|
[3] | 13 | lpszLeft,
|
---|
| 14 | &VarRelativeVar,
|
---|
[75] | 15 | varType)) return;
|
---|
[3] | 16 |
|
---|
| 17 | //変数オフセットを一時退避
|
---|
| 18 | if(IsUse_r11(&VarRelativeVar)){
|
---|
| 19 | //mov qword ptr[rsp+offset],r11 ※スタックフレームを利用
|
---|
| 20 | pobj_sf->push(REG_R11);
|
---|
| 21 | }
|
---|
| 22 |
|
---|
| 23 |
|
---|
| 24 | ///////////////////////////////////
|
---|
| 25 | // レジスタへ変数の内容をコピー
|
---|
| 26 | ///////////////////////////////////
|
---|
| 27 |
|
---|
| 28 | int reg;
|
---|
[75] | 29 | if( varType.IsDouble() ){
|
---|
[3] | 30 | reg=REG_XMM0;
|
---|
| 31 | SetXmmReg_DoubleVariable(&VarRelativeVar,reg);
|
---|
| 32 | }
|
---|
[75] | 33 | else if( varType.IsSingle() ){
|
---|
[3] | 34 | reg=REG_XMM0;
|
---|
| 35 | SetXmmReg_SingleVariable(&VarRelativeVar,reg);
|
---|
| 36 | }
|
---|
| 37 | else{
|
---|
| 38 | reg=REG_RAX;
|
---|
[75] | 39 | SetReg_WholeVariable(varType.GetBasicType(),&VarRelativeVar,reg);
|
---|
[3] | 40 | }
|
---|
| 41 |
|
---|
| 42 |
|
---|
[75] | 43 | if(varType.IsWhole()&&lstrcmp(lpszRight,"1")==0&&
|
---|
[3] | 44 | (idCalc==CALC_ADDITION||idCalc==CALC_SUBTRACTION)){
|
---|
| 45 | if(idCalc==CALC_ADDITION){
|
---|
| 46 | //インクリメント
|
---|
| 47 | op_inc(REG_RAX);
|
---|
| 48 | }
|
---|
| 49 | else if(idCalc==CALC_SUBTRACTION){
|
---|
| 50 | //デクリメント
|
---|
| 51 | op_dec(REG_RAX);
|
---|
| 52 | }
|
---|
| 53 | }
|
---|
| 54 | else{
|
---|
| 55 | //結果を格納しているレジスタをブロッキング
|
---|
| 56 | pobj_BlockReg->lock(reg);
|
---|
| 57 |
|
---|
| 58 | //右辺を計算
|
---|
[75] | 59 | Type calcType;
|
---|
[3] | 60 | if(reg==REG_RAX) reg=REG_RCX;
|
---|
| 61 | else reg=REG_RAX;
|
---|
[75] | 62 | NumOpe(®,lpszRight,varType,calcType);
|
---|
[3] | 63 |
|
---|
| 64 | //レジスタのブロッキングを解除
|
---|
| 65 | pobj_BlockReg->clear();
|
---|
| 66 |
|
---|
| 67 |
|
---|
[75] | 68 | if(varType.IsPointer()&&calcType.IsWhole()&&(!calcType.IsPointer())){
|
---|
[3] | 69 | //左辺がポインタ型、右辺が整数型の場合は、エラーをださないようにする
|
---|
[75] | 70 | calcType = varType;
|
---|
[3] | 71 | }
|
---|
| 72 |
|
---|
| 73 |
|
---|
| 74 | /////////////////////////////////
|
---|
| 75 | // 右辺、左辺の型チェックを行う
|
---|
| 76 | /////////////////////////////////
|
---|
| 77 |
|
---|
[75] | 78 | CheckDifferentType(varType,calcType,0,0);
|
---|
[3] | 79 |
|
---|
| 80 |
|
---|
| 81 | //レジスタ管理オブジェクトを生成
|
---|
| 82 | pobj_reg=new CRegister(REG_RAX);
|
---|
| 83 |
|
---|
| 84 | //左辺用レジスタ
|
---|
[75] | 85 | if(varType.IsReal())
|
---|
[3] | 86 | pobj_reg->LockXmmReg();
|
---|
| 87 | else
|
---|
| 88 | pobj_reg->LockReg();
|
---|
| 89 |
|
---|
| 90 | //右辺値レジスタ
|
---|
[75] | 91 | if(varType.IsDouble())
|
---|
| 92 | ChangeTypeToXmm_Double(calcType.GetBasicType(),
|
---|
[3] | 93 | pobj_reg->LockXmmReg(),
|
---|
| 94 | pobj_reg->GetNextReg());
|
---|
[75] | 95 | else if(varType.IsSingle())
|
---|
| 96 | ChangeTypeToXmm_Single(calcType.GetBasicType(),
|
---|
[3] | 97 | pobj_reg->LockXmmReg(),
|
---|
| 98 | pobj_reg->GetNextReg());
|
---|
| 99 | else
|
---|
[75] | 100 | ChangeTypeToWhole(calcType.GetBasicType(),varType.GetBasicType(),
|
---|
[3] | 101 | pobj_reg->LockReg(),
|
---|
| 102 | pobj_reg->GetNextXmmReg());
|
---|
| 103 |
|
---|
[75] | 104 | int type_stack[255],sp;
|
---|
[3] | 105 | LONG_PTR index_stack[255];
|
---|
[75] | 106 | type_stack[0]=varType.GetBasicType();
|
---|
| 107 | type_stack[1]=varType.GetBasicType();
|
---|
| 108 | index_stack[0]=varType.GetIndex();
|
---|
| 109 | index_stack[1]=varType.GetIndex();
|
---|
[3] | 110 | sp=2;
|
---|
| 111 |
|
---|
| 112 | switch(idCalc){
|
---|
| 113 | case CALC_XOR:
|
---|
| 114 | case CALC_OR:
|
---|
| 115 | case CALC_AND:
|
---|
[75] | 116 | CalcTwoTerm_Logical(idCalc,type_stack,index_stack,&sp);
|
---|
[3] | 117 | break;
|
---|
| 118 | case CALC_SHL:
|
---|
| 119 | case CALC_SHR:
|
---|
[75] | 120 | Calc_Shift(idCalc,type_stack,&sp);
|
---|
[3] | 121 | break;
|
---|
| 122 | case CALC_ADDITION:
|
---|
| 123 | case CALC_SUBTRACTION:
|
---|
| 124 | case CALC_PRODUCT:
|
---|
[75] | 125 | CalcTwoTerm_Arithmetic(idCalc,type_stack,index_stack,&sp);
|
---|
[3] | 126 | break;
|
---|
| 127 | case CALC_MOD:
|
---|
[75] | 128 | Calc_Mod(type_stack,index_stack,&sp);
|
---|
[3] | 129 | break;
|
---|
| 130 | case CALC_QUOTIENT:
|
---|
[75] | 131 | Calc_Divide(type_stack,&sp,varType.GetBasicType());
|
---|
[3] | 132 | break;
|
---|
| 133 | case CALC_INTQUOTIENT:
|
---|
[75] | 134 | Calc_IntDivide(type_stack,index_stack,&sp);
|
---|
[3] | 135 | break;
|
---|
| 136 | case CALC_POWER:
|
---|
[75] | 137 | Calc_Power(type_stack,&sp);
|
---|
[3] | 138 | break;
|
---|
| 139 | }
|
---|
| 140 |
|
---|
| 141 | //レジスタ管理オブジェクトを解放
|
---|
| 142 | delete pobj_reg;
|
---|
| 143 | pobj_reg=0;
|
---|
| 144 | }
|
---|
| 145 |
|
---|
| 146 |
|
---|
| 147 | /////////////////////////////////////////////////
|
---|
| 148 | // rax(実数はxmm0)の内容を変数にコピー
|
---|
| 149 | /////////////////////////////////////////////////
|
---|
| 150 |
|
---|
| 151 | //変数オフセットを復元
|
---|
| 152 | if(IsUse_r11(&VarRelativeVar)){
|
---|
| 153 | //mov r11,qword ptr[rsp+offset] ※スタックフレームを利用
|
---|
| 154 | pobj_sf->pop(REG_R11);
|
---|
| 155 | }
|
---|
| 156 |
|
---|
[75] | 157 | SetVariableFromRax(varType.GetBasicType(),varType.GetBasicType(),&VarRelativeVar);
|
---|
[3] | 158 | }
|
---|