Changeset 68 in dev

Timestamp:

Mar 12, 2007, 4:04:55 AM (18 years ago)

Author:

dai_9181

Message:

#84の対応（64bitでの動作確認はまだ）。
Stringクラスのコンストラクタにリテラル文字列が渡せないバグを修正。
STRING_IS_NOT_ALWAYS_UNICODEを暗黙的に定義するようにした（暫定対応）。

Files:

• BasicCompiler32/Compile_Object.cpp (modified) (1 diff)
• BasicCompiler32/NumOpe.cpp (modified) (2 diffs)
• BasicCompiler64/NumOpe.cpp (modified) (1 diff)
• BasicCompiler_Common/Class.cpp (modified) (1 diff)
• BasicCompiler_Common/NumOpe_GetType.cpp (modified) (2 diffs)
• BasicCompiler_Common/Variable.cpp (modified) (2 diffs)
• BasicCompiler_Common/preprocessor.cpp (modified) (4 diffs)

BasicCompiler32/Compile_Object.cpp

@@ -208 +208 @@
     // コンストラクタの呼び出し
     ////////////////////////////
+
+    if( lstrcmp(classObj.name,"proc")==0){
+        int i=0;
+    }
 
     BOOL bSomeObjects;

BasicCompiler32/NumOpe.cpp

@@ -73 +73 @@
     ///////////////////////////////////////////////////////
 
-    char *parameter = (char *)malloc( lstrlen( lpszText ) + 3 );
-    lstrcpy( parameter, lpszText );
+    char *parameter = (char *)malloc( lstrlen( lpszText ) + 32 );
+    sprintf( parameter, "\"%s\"%c%c*Char", lpszText, 1, ESC_AS );
     SetStringQuotes( parameter );
 
@@ -196 +196 @@
                         pobj_Class=(CClass *)lpBaseIndex;
                         TYPEINFO BaseTypeInfo = {BaseType,lpBaseIndex};
-                        if(IsStringSubsituation(pobj_Class)
-                            || IsStringObjectType(BaseTypeInfo)){
+                        if(IsStringObjectType(BaseTypeInfo)){
                             //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
 

BasicCompiler64/NumOpe.cpp

@@ -213 +213 @@
                         pobj_Class=(CClass *)lpBaseIndex;
                         TYPEINFO BaseTypeInfo = {BaseType,lpBaseIndex};
-                        if(IsStringSubsituation(pobj_Class)
-                            || IsStringObjectType(BaseTypeInfo)){
-                            //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
+                        if(IsStringObjectType(BaseTypeInfo)){
+                            //要求タイプがStringのとき
 
                             //String型オブジェクトを生成

BasicCompiler_Common/Class.cpp

@@ -372 +372 @@
     //※オーバーライドされた関数を先にサーチする必要があるため、バックサーチを行う
     for( int i=(int)methods.size()-1; i>=0; i-- ){
-        char *temp;
-        temp=methods[i]->psi->name;
+        SUBINFO *psi = methods[i]->psi;
+        char *temp = psi->name;
         if(temp[0]==1&&temp[1]==ESC_OPERATOR){
             if((BYTE)temp[2]==idOperatorCalc){
-                subs.push_back( methods[i]->psi );
+                subs.push_back( psi );
             }
         }

BasicCompiler_Common/NumOpe_GetType.cpp

@@ -376 +376 @@
                     if(pBaseType){
                         if(pBaseType->type==DEF_OBJECT){
-                            if(IsStringSubsituation(pBaseType->u.pobj_Class)
-                                || IsStringObjectType(*pBaseType)){
+                            if(IsStringObjectType(*pBaseType)){
                                 //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
                                 extern CClass *pobj_StringClass;
@@ -513 +512 @@
                         //////////
 
-                        type[sp]=i2;
+                        if(i2&FLAG_PTR){
+                            //配列ポインタ
+                            type[sp]=GetPtrType(i2^FLAG_PTR,index_stack[sp]);
+                        }
+                        else{
+                            type[sp]=i2;
+                        }
+
                         bLiteralCalculation=0;
                         sp++;

BasicCompiler_Common/Variable.cpp

@@ -211 +211 @@
 
     //文字型
-    else if( lstrcmpi( TypeName, "Char" ) == 0 ) return DEF_CHAR;
+    //else if( lstrcmpi( TypeName, "Char" ) == 0 ) return DEF_CHAR;
 
     //bool型
@@ -290 +290 @@
 
     //文字型
-    else if(type==DEF_CHAR)             lstrcpy(name,"Char");
+    //else if(type==DEF_CHAR)               lstrcpy(name,"Char");
 
     //bool型

BasicCompiler_Common/preprocessor.cpp

@@ -84 +84 @@
     }
 
+    // TODO: 削除
+    add( "__STRING_IS_NOT_ALWAYS_UNICODE" );
+
     char temporary[255];
     sprintf(temporary,"_AB_VER%d",MAJOR_VER);
@@ -166 +169 @@
 }
 
-void preprocessor_ifdef(char *buffer,BOOL bndef){
+void preprocessor_ifdef(char *buffer,bool isNot){
     int i,i2,i3;
     char temporary[VN_SIZE];
 
-    if(bndef) i=lstrlen("#ifndef");
+    if(isNot) i=lstrlen("#ifndef");
     else i=lstrlen("#ifdef");
     while(buffer[i]==' '||buffer[i]=='\t') i++;
@@ -185 +188 @@
     if(pobj_define->check(temporary)) sw=1;
 
-    if(bndef){
+    if(isNot){
         //#ifndefのとき（反対にする）
         if(sw) sw=0;
@@ -357 +360 @@
             }
             else if(_memicmp(buffer+i,"#ifdef",6)==0){
-                preprocessor_ifdef(buffer+i,0);
+                preprocessor_ifdef(buffer+i,false);
                 continue;
             }
             else if(_memicmp(buffer+i,"#ifndef",7)==0){
-                preprocessor_ifdef(buffer+i,1);
+                preprocessor_ifdef(buffer+i,true);
                 continue;
             }