[4] | 1 | #include "../BasicCompiler_Common/common.h"
|
---|
| 2 |
|
---|
| 3 | #ifdef _AMD64_
|
---|
| 4 | #include "../BasicCompiler64/opcode.h"
|
---|
| 5 | #else
|
---|
[5] | 6 | #include "../BasicCompiler32/opcode.h"
|
---|
[4] | 7 | #endif
|
---|
| 8 |
|
---|
| 9 | int hash_default(char *name){
|
---|
| 10 | int key;
|
---|
| 11 |
|
---|
| 12 | for(key=0;*name!='\0';name++){
|
---|
| 13 | key=((key<<8)+ *name )%MAX_HASH;
|
---|
| 14 | }
|
---|
| 15 |
|
---|
| 16 | return key;
|
---|
| 17 | }
|
---|
| 18 |
|
---|
| 19 | CONSTINFO *GetConstHash(char *name){
|
---|
| 20 | //ハッシュ値を取得
|
---|
| 21 | int key;
|
---|
| 22 | key=hash_default(name);
|
---|
| 23 |
|
---|
| 24 | //格納位置を取得
|
---|
| 25 | extern CONSTINFO **ppConstHash;
|
---|
| 26 | CONSTINFO *pci;
|
---|
| 27 | pci=ppConstHash[key];
|
---|
| 28 | while(pci){
|
---|
| 29 | if(lstrcmp(pci->name,name)==0) break;
|
---|
| 30 |
|
---|
| 31 | pci=pci->pNextData;
|
---|
| 32 | }
|
---|
| 33 |
|
---|
| 34 | return pci;
|
---|
| 35 | }
|
---|
| 36 |
|
---|
| 37 | DECLAREINFO *GetDeclareHash(char *name){
|
---|
| 38 | //ハッシュ値を取得
|
---|
| 39 | int key;
|
---|
| 40 | key=hash_default(name);
|
---|
| 41 |
|
---|
| 42 | //格納位置を取得
|
---|
| 43 | extern DECLAREINFO **ppDeclareHash;
|
---|
| 44 | DECLAREINFO *pdi;
|
---|
| 45 | pdi=ppDeclareHash[key];
|
---|
| 46 | while(pdi){
|
---|
| 47 | if(lstrcmp(pdi->name,name)==0) break;
|
---|
| 48 |
|
---|
| 49 | pdi=pdi->pNextData;
|
---|
| 50 | }
|
---|
| 51 |
|
---|
| 52 | return pdi;
|
---|
| 53 | }
|
---|
| 54 |
|
---|
| 55 | SUBINFO **GetOverloadObjectSubHash(char *name,CClass *pobj_c, int *pNum){
|
---|
| 56 | int i;
|
---|
| 57 |
|
---|
| 58 |
|
---|
| 59 | //格納のための構造体配列を用意
|
---|
| 60 | extern HANDLE hHeap;
|
---|
| 61 | SUBINFO **ppArray_si;
|
---|
| 62 | int num=0;
|
---|
| 63 | ppArray_si=(SUBINFO **)HeapAlloc(hHeap,0,sizeof(SUBINFO *)*1024);
|
---|
| 64 |
|
---|
| 65 |
|
---|
| 66 | //オブジェクトのメンバ関数の場合
|
---|
| 67 | //※オーバーライドされた関数を先にサーチする必要があるため、バックサーチを行う
|
---|
| 68 | for(i=pobj_c->iMethodNum-1;i>=0;i--){
|
---|
| 69 | if(lstrcmp(name,pobj_c->ppobj_Method[i]->psi->name)==0){
|
---|
| 70 | ppArray_si[num]=pobj_c->ppobj_Method[i]->psi;
|
---|
| 71 | num++;
|
---|
| 72 | }
|
---|
| 73 | }
|
---|
| 74 |
|
---|
| 75 | *pNum=num;
|
---|
| 76 | return ppArray_si;
|
---|
| 77 | }
|
---|
| 78 |
|
---|
| 79 | SUBINFO **GetOverloadSubHash(char *lpszName,int *pNum){
|
---|
| 80 | extern SUBINFO *pSubInfo;
|
---|
| 81 | extern int SubInfoNum;
|
---|
| 82 | extern int cp;
|
---|
| 83 | int i;
|
---|
| 84 |
|
---|
| 85 | char name[VN_SIZE];
|
---|
| 86 |
|
---|
| 87 | if(lpszName[0]=='.'){
|
---|
| 88 | GetWithName(name);
|
---|
| 89 | lstrcat(name,lpszName);
|
---|
| 90 | }
|
---|
| 91 | else lstrcpy(name,lpszName);
|
---|
| 92 |
|
---|
| 93 |
|
---|
| 94 | //格納のための構造体配列を用意
|
---|
| 95 | extern HANDLE hHeap;
|
---|
| 96 | SUBINFO **ppArray_si;
|
---|
| 97 | int num=0;
|
---|
| 98 | ppArray_si=(SUBINFO **)HeapAlloc(hHeap,0,sizeof(SUBINFO *)*1024);
|
---|
| 99 |
|
---|
| 100 |
|
---|
| 101 | char ObjName[VN_SIZE]; //オブジェクト変数
|
---|
| 102 | char NestMember[VN_SIZE]; //入れ子メンバ
|
---|
[28] | 103 | bool isObjectMember = SplitMemberName( name, ObjName, NestMember );
|
---|
| 104 | if( !isObjectMember ) lstrcpy(ObjName,name);
|
---|
[4] | 105 |
|
---|
[28] | 106 | if(isObjectMember){
|
---|
[4] | 107 | //オブジェクトのメンバ関数の場合
|
---|
| 108 |
|
---|
[27] | 109 | bool isStatic = false;
|
---|
| 110 | CClass *pobj_c;
|
---|
[4] | 111 | if(lstrcmpi(ObjName,"Super")==0){
|
---|
[27] | 112 | //クラスメンバ関数内から基底クラスの呼び出し
|
---|
| 113 | pobj_c=pobj_CompilingClass;
|
---|
| 114 | }
|
---|
| 115 | else{
|
---|
| 116 | pobj_c=pobj_DBClass->check(ObjName);
|
---|
[28] | 117 | if( pobj_c ){
|
---|
| 118 | isStatic = true;
|
---|
| 119 | }
|
---|
| 120 | else{
|
---|
[27] | 121 | //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
|
---|
| 122 | int type = GetVarType(ObjName,(LONG_PTR *)&pobj_c,0);
|
---|
| 123 | if(!(NATURAL_TYPE(type)==DEF_OBJECT)) goto finish;
|
---|
[4] | 124 | }
|
---|
| 125 | }
|
---|
| 126 |
|
---|
[28] | 127 | if( isStatic ){
|
---|
| 128 | // 静的メソッドから取得
|
---|
| 129 | for(i=0;i<pobj_c->iStaticMethodNum;i++){
|
---|
| 130 | if(lstrcmp(NestMember,pobj_c->ppobj_StaticMethod[i]->psi->name)==0){
|
---|
| 131 | ppArray_si[num]=pobj_c->ppobj_StaticMethod[i]->psi;
|
---|
| 132 | num++;
|
---|
| 133 | }
|
---|
[4] | 134 | }
|
---|
| 135 | }
|
---|
[28] | 136 | else{
|
---|
| 137 | //動的メソッドから取得
|
---|
[4] | 138 |
|
---|
[28] | 139 | //※オーバーライドされた関数を先にサーチする必要があるため、バックサーチを行う
|
---|
| 140 | for(i=pobj_c->iMethodNum-1;i>=0;i--){
|
---|
| 141 | if(lstrcmp(NestMember,pobj_c->ppobj_Method[i]->psi->name)==0){
|
---|
| 142 | ppArray_si[num]=pobj_c->ppobj_Method[i]->psi;
|
---|
| 143 | num++;
|
---|
| 144 | }
|
---|
[4] | 145 | }
|
---|
| 146 | }
|
---|
| 147 | }
|
---|
[31] | 148 | else{
|
---|
| 149 | //オブジェクトが明示的に指定されていないとき
|
---|
[4] | 150 |
|
---|
[31] | 151 | if(pobj_CompilingClass){
|
---|
| 152 | //自身のオブジェクトのメンバ関数を検索
|
---|
[4] | 153 |
|
---|
| 154 |
|
---|
[31] | 155 | //////////////////////////////////////////////
|
---|
| 156 | // 静的メソッド
|
---|
| 157 | //////////////////////////////////////////////
|
---|
[4] | 158 |
|
---|
[31] | 159 | CClass *pobj_c = pobj_CompilingClass;
|
---|
[4] | 160 |
|
---|
[31] | 161 | for(i=0;i<pobj_c->iStaticMethodNum;i++){
|
---|
| 162 | if(lstrcmp(name,pobj_c->ppobj_StaticMethod[i]->psi->name)==0){
|
---|
| 163 | ppArray_si[num]=pobj_c->ppobj_StaticMethod[i]->psi;
|
---|
| 164 | num++;
|
---|
| 165 | }
|
---|
[4] | 166 | }
|
---|
| 167 |
|
---|
| 168 |
|
---|
[31] | 169 | ///////////////////////
|
---|
| 170 | // 動的メソッド(一般)
|
---|
| 171 | ///////////////////////
|
---|
| 172 | for(i=0;i<pobj_CompilingClass->iMethodNum;i++){
|
---|
| 173 | //オーバーライドされた関数を飛び越す
|
---|
| 174 | if(pobj_CompilingClass->ppobj_Method[i]->pobj_InheritsClass==0) break;
|
---|
[4] | 175 | }
|
---|
[31] | 176 | for(;i<pobj_CompilingClass->iMethodNum;i++){
|
---|
[4] | 177 | if(lstrcmp(name,pobj_CompilingClass->ppobj_Method[i]->psi->name)==0){
|
---|
| 178 | ppArray_si[num]=pobj_CompilingClass->ppobj_Method[i]->psi;
|
---|
| 179 | num++;
|
---|
| 180 | }
|
---|
| 181 | }
|
---|
[31] | 182 |
|
---|
| 183 | //オーバーライドされたメンバ関数
|
---|
| 184 | for(i=0;i<pobj_CompilingClass->iMethodNum;i++){
|
---|
| 185 | //オーバーライドされた関数を飛び越す
|
---|
| 186 | if(pobj_CompilingClass->ppobj_Method[i]->pobj_InheritsClass){
|
---|
| 187 | if(lstrcmp(name,pobj_CompilingClass->ppobj_Method[i]->psi->name)==0){
|
---|
| 188 | ppArray_si[num]=pobj_CompilingClass->ppobj_Method[i]->psi;
|
---|
| 189 | num++;
|
---|
| 190 | }
|
---|
| 191 | }
|
---|
| 192 | }
|
---|
[4] | 193 | }
|
---|
| 194 |
|
---|
[27] | 195 |
|
---|
[31] | 196 | ///////////////////////////
|
---|
| 197 | // グローバル関数を検索
|
---|
| 198 | ///////////////////////////
|
---|
[27] | 199 |
|
---|
[31] | 200 | //ハッシュ値を取得
|
---|
| 201 | int key;
|
---|
| 202 | key=hash_default(name);
|
---|
[4] | 203 |
|
---|
[31] | 204 | //格納位置を取得
|
---|
| 205 | extern SUBINFO **ppSubHash;
|
---|
| 206 | SUBINFO *psi;
|
---|
| 207 | psi=ppSubHash[key];
|
---|
| 208 | while(psi){
|
---|
| 209 | if(!psi->pobj_ParentClass){
|
---|
| 210 | if(lstrcmp(psi->name,name)==0){
|
---|
| 211 | ppArray_si[num]=psi;
|
---|
| 212 | num++;
|
---|
| 213 | }
|
---|
[4] | 214 | }
|
---|
[31] | 215 |
|
---|
| 216 | psi=psi->pNextData;
|
---|
[4] | 217 | }
|
---|
| 218 |
|
---|
| 219 | }
|
---|
| 220 | finish:
|
---|
| 221 |
|
---|
| 222 | *pNum=num;
|
---|
| 223 | return ppArray_si;
|
---|
| 224 | }
|
---|
| 225 |
|
---|
| 226 | //オーバーロードされていない関数を取得(昔のコンパイラソースコードとの互換性保持)
|
---|
| 227 | SUBINFO *GetSubHash(char *lpszName,BOOL bError){
|
---|
| 228 | int num;
|
---|
| 229 | SUBINFO **ppsi,*psi;
|
---|
| 230 | ppsi = GetOverloadSubHash(lpszName,&num);
|
---|
| 231 |
|
---|
| 232 | //関数が存在しないとき
|
---|
| 233 | if(num == 0){
|
---|
| 234 | HeapDefaultFree(ppsi);
|
---|
| 235 | return 0;
|
---|
| 236 | }
|
---|
| 237 |
|
---|
| 238 | //一つ以上の関数が存在するときは内部エラー(デバッグ用)
|
---|
| 239 | if(num > 1){
|
---|
[5] | 240 | if(bError) SetError(300,NULL,cp);
|
---|
[4] | 241 | }
|
---|
| 242 |
|
---|
| 243 | psi = ppsi[0];
|
---|
| 244 |
|
---|
[5] | 245 | HeapDefaultFree(ppsi);
|
---|
[4] | 246 |
|
---|
| 247 | return psi;
|
---|
[5] | 248 | }
|
---|
| 249 | SUBINFO *GetMethodHash(char *ObjectName,char *MethodName,char *Parameter,BOOL bError){
|
---|
| 250 | char temporary[VN_SIZE];
|
---|
| 251 | sprintf(temporary,"%s.%s",ObjectName,MethodName);
|
---|
| 252 |
|
---|
| 253 | int num;
|
---|
| 254 | SUBINFO **ppsi,*psi;
|
---|
| 255 | ppsi = GetOverloadSubHash(temporary,&num);
|
---|
| 256 |
|
---|
| 257 | //関数が存在しないとき
|
---|
| 258 | if(num == 0){
|
---|
| 259 | HeapDefaultFree(ppsi);
|
---|
| 260 | return 0;
|
---|
| 261 | }
|
---|
| 262 |
|
---|
| 263 | //オーバーロードを解決
|
---|
| 264 | psi=OverloadSolutionWithStrParam(temporary,ppsi,num,Parameter,ObjectName,NULL);
|
---|
| 265 | HeapDefaultFree(ppsi);
|
---|
| 266 |
|
---|
| 267 | return psi;
|
---|
| 268 | }
|
---|