Changeset 75 in dev for BasicCompiler32/NumOpe.cpp

Timestamp:

Mar 20, 2007, 4:36:16 AM (18 years ago)

Author:

dai_9181

Message:

TYPEINFO→Typeへのリファクタリングを実施。64bitはほぼ完了。32bitが全般的に未完成。

File:

• BasicCompiler32/NumOpe.cpp (modified) (6 diffs)

BasicCompiler32/NumOpe.cpp

@@ -78 +78 @@
 
     extern CClass *pobj_StringClass;
-    TYPEINFO baseTypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
+    Type baseTypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
     Operator_New( *pobj_StringClass, "", parameter, baseTypeInfo );
 
@@ -97 +97 @@
     if(Command[0]==1&& Command[1]==ESC_NEW ){
         //New演算子（オブジェクト生成）
-        TYPEINFO baseTypeInfo = { BaseType, lpBaseIndex };
+        Type baseTypeInfo = { BaseType, lpBaseIndex };
         int resultType = Operator_New(Command+2,plpIndex, baseTypeInfo );
 
@@ -157 +157 @@
             if(type[sp-2]==DEF_OBJECT){
                 //オーバーロードされたオペレータを呼び出す
-                TYPEINFO BaseTypeInfo={BaseType,lpBaseIndex};
+                Type BaseTypeInfo={BaseType,lpBaseIndex};
                 i2=CallOperatorProc(idCalc,&BaseTypeInfo,type,index_stack,bUseHeap,sp);
                 if(i2==0){
@@ -195 +195 @@
                         CClass *pobj_Class;
                         pobj_Class=(CClass *)lpBaseIndex;
-                        TYPEINFO BaseTypeInfo = {BaseType,lpBaseIndex};
+                        Type BaseTypeInfo = {BaseType,lpBaseIndex};
                         if(IsStringObjectType(BaseTypeInfo)){
                             //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
@@ -342 +342 @@
                         i2=GetVarType(variable,(LONG_PTR *)&pobj_c,0);
                         if(i2==DEF_OBJECT){
-                            TYPEINFO RetTypeInfo;
+                            Type RetTypeInfo;
                             CallIndexerGetterProc(pobj_c,variable,array_element,RetTypeInfo);
                             type[sp]=RetTypeInfo.type;
@@ -500 +500 @@
 
                     if(GetSubHash(VarName,0)){
-                        TYPEINFO RetTypeInfo;
+                        Type RetTypeInfo;
                         CallPropertyMethod(term,NULL,&RetTypeInfo);