Changeset 319 in dev for trunk/abdev/BasicCompiler64/NumOpe.cpp

Timestamp:

Sep 9, 2007, 12:37:48 PM (17 years ago)

Author:

dai_9181

Message:

GCのバグをいくつか修正

File:

• trunk/abdev/BasicCompiler64/NumOpe.cpp (modified) (7 diffs)

trunk/abdev/BasicCompiler64/NumOpe.cpp

@@ -22 +22 @@
 
         char *parameter = (char *)malloc( lstrlen( str ) + 32 );
-        sprintf( parameter, "\"%s\"%c%c*Char", str, 1, ESC_AS );
-        SetStringQuotes( parameter );
+        sprintf( parameter, "%s%c%c*Char", str, 1, ESC_AS );
 
         Operator_New( *compiler.GetObjectModule().meta.GetClasses().GetStringClassPtr(), "", parameter, Type( DEF_OBJECT, *compiler.GetObjectModule().meta.GetClasses().GetStringClassPtr() ) );
@@ -429 +428 @@
     GetArrayElement(termFull,VarName,ArrayElements);
     if(ArrayElements[0]){
-        GetVarType(VarName,resultType,false);
-        if( resultType.IsObject() ){
-            CallIndexerGetterProc(UseReg,resultType,VarName,ArrayElements,resultType);
+        Type classType;
+        GetVarType(VarName,classType,false);
+        if( classType.IsObject() )
+        {
+            CallIndexerGetterProc(UseReg,classType,VarName,ArrayElements,resultType);
 
             isLiteral = false;
@@ -788 +789 @@
                 }
 
-                if(term[0]=='\"'){
-                    //リテラル文字列
-                    if(!RemoveStringQuotes(term)){
-                        SetError(43,NULL,cp);
-                        goto error;
-                    }
-                    i3=lstrlen(term);
-StrLiteral:
-
-                    if( baseType.IsObject() || baseType.IsNull() ){
+                if( (term[0]=='e'||term[0]=='E')
+                    && (term[1]=='x'||term[1]=='X')
+                    && term[2]=='\"'
+                    || term[0] == '\"' )
+                {
+                    if( baseType.IsObject() || baseType.IsNull() )
+                    {
                         //要求タイプがオブジェクト、または未定のとき
 
@@ -814 +812 @@
                     }
 
+                    bool isEx = true;
+                    if( term[0] == '\"' )
+                    {
+                        isEx = false;
+                    }
+
+                    if( isEx )
+                    {
+                        // 拡張版リテラル文字列（エスケープシーケンス可能）
+                        if(!RemoveStringQuotes(term+2)){
+                            SetError(43,NULL,cp);
+                            goto error;
+                        }
+                        i3=FormatString_EscapeSequence(term+2);
+                        term+=2;
+                    }
+                    else
+                    {
+                        // 通常文字列
+                        if(!RemoveStringQuotes(term)){
+                            SetError(43,NULL,cp);
+                            goto error;
+                        }
+                        i3=lstrlen(term);
+                    }
+StrLiteral:
+
                     type_stack[sp]=typeOfPtrChar;
                     bLiteralCalculation=0;
@@ -827 +852 @@
                     }
                 }
-                else if((term[0]=='e'||term[0]=='E')&&
-                    (term[1]=='x'||term[1]=='X')&&
-                    term[2]=='\"'){
-                    //拡張版リテラル文字列（エスケープシーケンス可能）
-                    if(!RemoveStringQuotes(term+2)){
-                        SetError(43,NULL,cp);
-                        goto error;
-                    }
-                    i3=FormatString_EscapeSequence(term+2);
-                    term+=2;
-
-                    goto StrLiteral;
-                }
                 else if(IsVariableTopChar(term[0])||
                     term[0]=='*'||
-                    (term[0]=='.'&&IsVariableTopChar(term[1]))){
+                    (term[0]=='.'&&IsVariableTopChar(term[1])))
+                {
                     //////////////////
                     // 何らかの識別子
@@ -938 +951 @@
                             //リテラル文字列
 
+                            if( baseType.IsObject() || baseType.IsNull() )
+                            {
+                                //要求タイプがオブジェクト、または未定のとき
+
+                                //String型オブジェクトを生成
+                                NewStringObject(UseReg,term);
+
+                                type_stack[sp]=DEF_OBJECT;
+                                index_stack[sp]=(LONG_PTR)compiler.GetObjectModule().meta.GetClasses().GetStringClassPtr();
+                                bLiteralCalculation=0;
+
+                                if(bXmm) pobj_reg->LockXmmReg();
+                                else pobj_reg->LockReg();
+
+                                sp++;
+                                break;
+                            }
+
                             double dbl = compiler.GetObjectModule().meta.GetGlobalConsts().GetDoubleData(term);
                             memcpy(&i64data,&dbl,sizeof(double));
@@ -961 +992 @@
                             goto Literal;
                         }
-                        /*else if(i3==DEF_STRING){
-                            //リテラル文字列
-
-                            //バイト数
-                            i3=(int)dbl;
-
-                            memcpy(term,temporary,i3);
-                            goto StrLiteral;
-                        }*/
                         else{
                             SetError(1,NULL,0);