source: dev/trunk/abdev/BasicCompiler64/Opcode.h@ 332

Last change on this file since 332 was 331, checked in by dai_9181, 17 years ago

AddressOfの左辺値を加味した処理を簡潔にした
File size: 11.3 KB
RevLine 
[206]1#pragma once
[3]2
[206]3#include <Type.h>
4#include <Procedure.h>
[226]5#include "MachineFixed.h"
[3]6
[206]7
[3]8//変数の種類
[40]9#define NON_VAR 0
[62]10#define VAR_GLOBAL 1 // Global Variable
11#define VAR_REFGLOBAL 2 // Global Refference Variable
12#define VAR_LOCAL 3 // Local Variable
13#define VAR_REFLOCAL 4 // Local Refference Variable
14#define VAR_DIRECTMEM 5 // Direct memory
[3]15
[40]16
[3]17extern int cp;
18
[255]19#define breakpoint compiler.codeGenerator.PutOld( (char)0xCC );
[49]20
21
[3]22//プロシージャ
23struct PROCEDURE{
24 char name[255];
25 int address;
26 int types[MAX_PARMS];
27 _int8 ByVal[MAX_PARMS];
28 BOOL ReturnType;
29};
30
31//With情報
32struct WITHINFO{
33 char **ppName;
34 int *pWithCp;
35 int num;
36};
37
38
[309]39class StackFrame
40{
41 ///////////////////////////
42 // スタックフレーム管理
43 ///////////////////////////
44
45 PertialSchedules pertialSchedules;
46
47 int lowest_sp; //スタックポインタの最下位位置
48 int now_sp; //スタックポインタ
49 int max_parm_size; //パラメータの最大サイズ
50
51public:
52 //コンストラクタ
53 StackFrame();
54
55 //デストラクタ
56 ~StackFrame();
57
58 int GetFrameSize( int localParamSize );
59 int GetNowSp();
60 void mov_sp( int reg );
61 int push(int reg);
62 void push(int xmm_reg,int varSize);
63 void ref_offset_data( int reg, int sp_offset );
64 void ref(int reg);
65 void ref(int xmm_reg,int varSize);
66 void pop(int reg = REG_NON);
67 void pop(int xmm_reg,int varSize);
68 void parameter_allocate(int size);
69 void RunningSchedule( int stackFrameSize );
70
71 void error_check(void);
72};
[308]73extern StackFrame *pobj_sf;
[3]74
[263]75
[3]76class CBlockReg{
77 int array_BlockReg[256];
78 int num;
79
80public:
81 CBlockReg();
82 void lock(int reg);
83 void unlock(int reg);
84 BOOL check(int reg);
85 void clear(void);
86
87 //レジスタのバックアップと復旧
88 void backup();
89 void restore();
90};
91extern CBlockReg *pobj_BlockReg;
92class CRegister{
93 ////////////////////
94 // レジスタ管理
95 ////////////////////
96
97 //利用可能なレジスタを列挙する関数
98 void EnumRegister(int *pRegList,int nMaxList,int *array_reg,int *sp,int AnswerReg);
99
100 int array_UseReg[16],sp_UseReg;
101
102 int array_XmmReg[16];
103 int sp_XmmReg;
104
105 int init_sp_reg,init_sp_xmm_reg;
106
107public:
108 CRegister(){};
109 CRegister(int AnswerReg);
110 ~CRegister(){};
111
112 //コンパイラにバグがないかをチェックする機構
113 void bug_check();
114
115 //汎用レジスタ
116 int GetNextReg();
117 int GetLockingReg();
118 int LockReg();
119 int UnlockReg();
120
121 //XMMレジスタ
122 int GetNextXmmReg();
123 int GetLockingXmmReg();
124 int LockXmmReg();
125 int UnlockXmmReg();
126
[19]127 //レジスタが利用中かどうかを調べる
128 bool IsUsing( int reg );
129
[3]130 //レジスタのバックアップと復旧
131 void backup();
132 void restore();
133};
134extern CRegister *pobj_reg;
135
136
137#define BACKUP_REGISTER_RESOURCE \
138 /* レジスタをスタックフレームにバックアップ */ \
139 pobj_BlockReg->backup(); \
140 if(pobj_reg) pobj_reg->backup(); \
141 \
142 /* レジスタブロッキングオブジェクトを退避して再生成 */ \
143 CBlockReg *pobj_BlockReg_back; \
144 pobj_BlockReg_back=pobj_BlockReg; \
145 pobj_BlockReg=new CBlockReg; \
146 \
147 /* レジスタ管理オブジェクトポインタを退避して0をセット */ \
148 CRegister *pobj_reg_back; \
149 pobj_reg_back=pobj_reg; \
150 pobj_reg=0;
151
152#define RESTORE_REGISTER_RESOURCE \
153 /* レジスタブロッキングオブジェクトポインタを復元 */ \
154 delete pobj_BlockReg; \
155 pobj_BlockReg=pobj_BlockReg_back; \
156 \
157 /* レジスタ管理オブジェクトポインタを復元 */ \
158 delete pobj_reg; \
159 pobj_reg=pobj_reg_back; \
160 \
161 /* レジスタをスタックフレームから復元 */ \
162 if(pobj_reg) pobj_reg->restore(); \
163 pobj_BlockReg->restore();
164
165
166
167//RSrcSection.cpp
168char *GetRSrcSectionBuffer(int *pLen);
169
170//Compile.cpp
171void ChangeOpcode(char *Command);
172void GetGlobalDataForDll(void);
173DWORD CompileBuffer(char Return_Sequence,WORD Return_Command);
174
175//Register.cpp
176BOOL IsGeneralReg(int reg);
177BOOL IsXmmReg(int reg);
178BOOL IsVolatileReg(int reg);
[131]179void IfR14Push( int reg );
[3]180
181//Compile_Calc.cpp
[308]182void SetVariableFromRax( const Type &varType, int CalcType,RELATIVE_VAR *pRelativeVar);
[129]183void OpcodeCalc(const char *Command);
[3]184
185//NumOpe.cpp
[128]186bool TermOpe(
187 const char *term,
188 const Type &baseType,
189 Type &resultType,
190 bool &isLiteral,
191 BOOL *pbUseHeap,
192 bool isWantObject = false,
193 bool *pIsClassName = NULL,
194 bool isProcedureCallOnly = false );
[75]195bool NumOpe( int *pReg,
196 const char *Command,
197 const Type &baseType,
198 Type &resultType,
199 BOOL *pbUseHeap = NULL );
[3]200
201//NumOpe_Arithmetic.cpp
202BOOL CalcTwoTerm_Arithmetic(int idCalc,int *type,LONG_PTR *index_stack,int *pStackPointer);
203BOOL Calc_Mod(int *type,LONG_PTR *index_stack,int *pStackPointer);
204BOOL Calc_Divide(int *type,int *pStackPointer,int BaseType);
205BOOL Calc_IntDivide(int *type,LONG_PTR *index_stack,int *pStackPointer);
206BOOL Calc_MinusMark(int *type,int sp);
207BOOL Calc_Power(int *type,int *pStackPointer);
208BOOL Calc_Shift(int idCalc,int *type,int *pStackPointer);
209
210//NumOpe_Logical.cpp
211BOOL CalcTwoTerm_Logical(int idCalc,int *type,LONG_PTR *index_stack,int *pStackPointer);
212BOOL Calc_Not(int *type,int sp);
213
214//NumOpe_Relation.cpp
215BOOL CalcTwoTerm_Relational(int idCalc,int *type,LONG_PTR *index_stack,int *pStackPointer);
216
217//NumOpe_TypeOperation.cpp
[308]218void ExtendTypeTo64( const Type &oldType, int reg );
219void ExtendTypeTo32( const Type &oldType, int reg );
220void ExtendTypeTo16( const Type &oldType, int reg );
[3]221void ChangeTypeToXmm_Double(int type,int xmm_reg,int general_reg);
222void ChangeTypeToXmm_Single(int type,int xmm_reg,int general_reg);
[308]223void ChangeTypeToWhole( const Type &oldType, const Type &newType, int reg, int xmm_reg );
[3]224void SetOneTermToReg_RealCalc(int TermType,int *pXmmReg);
225void SetOneTermToReg_Whole64Calc(int TermType,int *pReg);
226void SetOneTermToReg_Whole32Calc(int TermType,int *pReg);
227void SetTowTermToReg_RealCalc(int AnswerType,int *type,int sp,int *pXmmReg1,int *pXmmReg2);
228void SetTowTermToReg_Whole64Calc(int *type,int sp,int *pReg1,int *pReg2);
229void SetTowTermToReg_Whole32Calc(int *type,int sp,int *pReg1,int *pReg2);
230BOOL Calc_Cast(int *type,LONG_PTR *index_stack,int *pStackPointer);
231
232//Compile_Set_Var.cpp
233BOOL IsUse_r11(RELATIVE_VAR *pRelativeVar);
[75]234void SetStructVariableFromRax( const Type &varType, const Type &calcType, RELATIVE_VAR *pRelativeVar,BOOL bUseHeap);
[64]235void SetRealVariable(int VarType, int CalcType, RELATIVE_VAR *pRelativeVar);
[36]236void SetBooleanVariable(int type,RELATIVE_VAR *pRelative);
[66]237void SetWholeVariable(int varSize,int type,RELATIVE_VAR *pRelative);
[3]238
239//increment.cpp
[129]240void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight);
[3]241
242//Compile_Calc_PushVar.cpp
243void SetXmmReg_DoubleVariable(RELATIVE_VAR *pRelativeVar,int xmm_reg);
244void SetXmmReg_SingleVariable(RELATIVE_VAR *pRelativeVar,int xmm_reg);
[308]245void SetReg_WholeVariable( const Type &type, RELATIVE_VAR *pRelativeVar,int reg);
[3]246
[131]247//Compile_Interface.cpp
248bool CastToInterface( int reg, int vtblReg, const CClass &baseClass, const CClass &interfaceClass );
249
[3]250//Compile_Object.cpp
[75]251void Operator_New( const CClass &classObj, const char *objectSizeStr, const char *parameter,const Type &baseTypeInfo );
[64]252void OpcodeDelete(const char *Parameter, bool isSweeping);
[3]253
254//Compile_Var.cpp
[316]255bool _member_offset(bool isErrorEnabled, bool isWriteAccess, const Type &classType, const char *member, RELATIVE_VAR *pRelativeVar, Type &resultType, BOOL bPrivateAccess);
[3]256void SetThisPtrToReg(int reg);
[206]257bool GetVarOffset(bool isErrorEnabled,bool isWriteAccess,const char *NameBuffer,RELATIVE_VAR *pRelativeVar,Type &resultType, Subscripts *pResultSubscripts = NULL );
258bool SetInitGlobalData(int offset,const Type &type,const Subscripts &subscripts,const char *InitBuf);
[40]259#define DIMFLAG_INITDEBUGVAR 0x01
260#define DIMFLAG_NONCALL_CONSTRACTOR 0x02
261#define DIMFLAG_STATIC 0x04
262#define DIMFLAG_CONST 0x08
[308]263void dim( char *VarName, const Subscripts &subscripts, const Type &type, const char *InitBuf,const char *ConstractParameter,DWORD dwFlags);
[3]264void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar);
[95]265bool Compile_AddGlobalRootsForGc();
[3]266
[71]267//ParamImpl.cpp
268class ParamImpl{
[3]269 char *Parms[255];
[75]270 vector<Type> types;
[3]271 int ParmsNum;
272
[316]273 Type leftType;
[75]274 Type returnType;
[3]275
[20]276 //一時オブジェクト管理用
277 bool useTempObject;
278 bool useTempParameters[255];
279 int StackOffsetOfTempObject[255];
280
[3]281public:
[71]282 ParamImpl(const char *buffer);
[75]283 ParamImpl(const Parameters &params);
[71]284 ~ParamImpl();
[316]285 void SetLeftType( const Type &type )
286 {
287 this->leftType = type;
288 }
[75]289 void SetReturnType( const Type &returnType );
[3]290
291private:
[140]292 bool EvaluateOverloadScore( int level, const Parameters &targetParms, const Type &targetResultType );
293
[3]294public:
[206]295 const UserProc *_OverloadSolution( const char *name, std::vector<const UserProc *> &subs, bool isEnabledReturnType = false );
296 const UserProc *OverloadSolution( const char *name, std::vector<const UserProc *> &subs, bool isEnabledReturnType = false );
[3]297
[77]298 void ApplyDefaultParameters( const Parameters &params );
[75]299 bool ErrorCheck( const string &procName, const Parameters &params, int SecondParmNum = -1 );
300 void MacroParameterSupport( const Parameters &params );
301 void SetStructParameter( int reg, const Type &baseType, const char *expression );
[316]302 void SetParameter( const string &procName, const Parameters &params, int SecondParmNum = -1, const UserProc *pUserProc = NULL );
[20]303
304 //一時オブジェクトパラメータの生成と破棄
[75]305 int NewTempParameters( const string &procName, const Parameters &params, int SecondParmNum = -1 );
[20]306 void DeleteTempParameters();
307
[3]308 void BackupParameter(int pi_num);
309 void RestoreParameter(int pi_num);
310};
311
312//CLockParameter.cpp
313#define MAX_LOCKPARMS 255
314class CDBLockParms{
315public:
316 int array_LevelCount[MAX_LOCKPARMS];
317 CDBLockParms();
318 ~CDBLockParms();
319
320 void lock(int level);
321 void unlock(int level);
322};
323
324//Compile_CallProc.cpp
325#define PROCFLAG_NEW 1
[75]326bool Opcode_CallProcPtr(const char *variable, const char *lpszParms,ProcPointer *pProcPointer);
[308]327bool Opcode_CallProc(const char *Parameter,const UserProc *pUserProc,DWORD dwFlags,const char *ObjectName);
[75]328bool Opcode_CallDllProc( const char *lpszParms,DllProc *pDllProc);
[330]329void Opcode_CallDelegate( const Delegate &dg, const char *methodPtrValueStr, const char *objPtrValueStr, const char *params );
[3]330
331//Compile_ProcOp.cpp
[316]332void _compile_proc(const UserProc *pUserProc);
[3]333
334//Compile_Func.cpp
335int GetFunctionFromName(char *FuncName);
[331]336bool Opcode_CallFunc( const char *Parameter, const int FuncNum, const Type &baseType, Type &resultType, bool isCallOn = true );
[3]337
338//OperatorProc.cpp
[75]339void FreeTempObject(int reg,const CClass *pobj_c);
[206]340int CallOperatorProc(BYTE idCalc, const Type &baseType, int *type_stack,LONG_PTR *index_stack,BOOL *bUseHeap,int &sp);
[75]341void CallCastOperatorProc(int reg,Type &calcType,BOOL bCalcUseHeap,const Type &toType);
[316]342void CallIndexerGetterProc(int reg, const Type &classType, char *ObjectName,char *Parameter,Type &resultType);
[3]343
344//Compile_Statement.cpp
[129]345void OpcodeOthers(const char *Command);
[3]346void OpcodeIf(char *Parameter);
347void OpcodeGoto(char *Parameter);
348void OpcodeWhile(char *Parameter);
349void OpcodeFor(char *Parameter);
350void OpcodeDo(char *Parameter);
351void OpcodeContinue(void);
352void OpcodeExitSub(void);
[75]353void OpcodeSelect( const char *Parameter );
[3]354void OpcodeCase(char *Parameter);
355void OpcodeGosub(char *Parameter);
356void OpcodeReturn(char *Parameter);
357void OpcodeSetPtrData(char *Parameter,int type);
358
359
360//InsertOpcode.cpp
361void InsertDimStatement_ToProcHead(char *lpszCommand);
362
363
364BOOL IsSafeReg(int reg);
Note: See TracBrowser for help on using the repository browser.