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

Timestamp:

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

Author:

dai_9181

Message:

GCのバグをいくつか修正

File:

• trunk/abdev/BasicCompiler32/NumOpe.cpp (modified) (5 diffs)

trunk/abdev/BasicCompiler32/NumOpe.cpp

@@ -73 +73 @@
 
     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() ) );
@@ -763 +762 @@
                 }
 
-                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() )
+                    {
                         //要求タイプがオブジェクト、または未定のとき
 
@@ -786 +782 @@
                     }
 
-
+                    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;
@@ -794 +815 @@
                     //push DataSize
                     compiler.codeGenerator.op_push_V( i2, Schedule::DataTable );
-                }
-                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])||
@@ -896 +904 @@
                             //リテラル文字列
 
+                            if( baseType.IsObject() || baseType.IsNull() )
+                            {
+                                //要求タイプがオブジェクト、または未定のとき
+
+                                //String型オブジェクトを生成
+                                NewStringObject(term);
+
+                                type_stack[sp]=DEF_OBJECT;
+                                index_stack[sp]=(LONG_PTR)compiler.GetObjectModule().meta.GetClasses().GetStringClassPtr();
+                                bLiteralCalculation=0;
+
+                                sp++;
+                                break;
+                            }
+
                             double dbl = compiler.GetObjectModule().meta.GetGlobalConsts().GetDoubleData(term);
                             memcpy(&i64data,&dbl,sizeof(double));