Changeset 97 in dev for BasicCompiler_Common/calculation.cpp

Timestamp:

Apr 16, 2007, 3:52:40 AM (18 years ago)

Author:

dai_9181

Message:

関数の戻り値オブジェクトのメンバ・メソッドを一時オブジェクトを介さずに参照できるようにした。

File:

• BasicCompiler_Common/calculation.cpp (modified) (6 diffs)

BasicCompiler_Common/calculation.cpp

@@ -820 +820 @@
     for(i=0,sp=0;i<pnum;i++){
 
-        //型チェック（正常でない場合はエラーにする）
-        TypeErrorCheck(stack,sp,calc[i]%100);
+        if( enableerror ){
+            //型チェック（正常でない場合はエラーにする）
+            TypeErrorCheck(stack,sp,calc[i]%100);
+        }
 
         idCalc=calc[i]%100;
@@ -1088 +1090 @@
 #pragma optimize("", on)
 
-BOOL GetConstCalcBuffer(char *name,char *Parameter,char *pCalcBuffer){
+BOOL GetConstCalcBuffer(const char *name,const char *Parameter,char *pCalcBuffer){
     extern HANDLE hHeap;
     int i2,i3,i4,num;
@@ -1256 +1258 @@
                     pDllProc=GetDeclareHash(temporary);
                     if(pDllProc){
-                        if( pDllProc->ReturnType().IsStringObject() ){
+                        if( pDllProc->ReturnType().IsStringClass() ){
                             return 1;
                         }
@@ -1266 +1268 @@
                     pUserProc=GetSubHash(temporary);
                     if(pUserProc){
-                        if( pUserProc->ReturnType().IsStringObject() ){
+                        if( pUserProc->ReturnType().IsStringClass() ){
                             return 1;
                         }
@@ -1307 +1309 @@
                     return -1;
                 }
-                if( varType.IsStringObject() ){
+                if( varType.IsStringClass() ){
                     return 1;
                 }
@@ -1526 +1528 @@
     }
 
+    calc[*pnum]=0;
+
     return 1;
 }