Changeset 103 in dev for BasicCompiler64

Timestamp:

May 2, 2007, 4:08:58 AM (18 years ago)

Author:

dai_9181

Message:

名前空間機能をグローバル変数、定数と列挙型に適用。
一部、クラスの静的メンバと名前空間の相性が悪いコードが潜んでいるため、要改修

Location:

BasicCompiler64

Files:

• Compile_Var.cpp (modified) (1 diff)
• MakePeHdr.cpp (modified) (2 diffs)
• NumOpe.cpp (modified) (6 diffs)

BasicCompiler64/Compile_Var.cpp

@@ -562 +562 @@
         if(member[0]){
             lstrcpy(temporary,member);
+
+            // TODO: 名前空間を考慮したコードになっていない
 
             char tempMember[VN_SIZE];

BasicCompiler64/MakePeHdr.cpp

@@ -302 +302 @@
 
     if(!bDll){
+        // 名前空間が初期化されているかをチェック
+        if( Smoothie::Lexical::liveingNamespaceScopes.size() ){
+            SetError();
+        }
+
         //ラベル用のメモリを確保
         extern LABEL *pLabelNames;
@@ -411 +416 @@
         HeapDefaultFree(WithInfo.ppName);
         HeapDefaultFree(WithInfo.pWithCp);
+
+        // 名前空間が正しく閉じられているかをチェック
+        if( Smoothie::Lexical::liveingNamespaceScopes.size() ){
+            SetError(63,NULL,-1);
+        }
+
     }
     else{

BasicCompiler64/NumOpe.cpp

@@ -239 +239 @@
     lstrcpy(termLeft,termFull);
 
-    if( (string)term=="DayOfWeek"){
-        int test=0;
-    }
-
     // パース
     char member[VN_SIZE];
@@ -258 +254 @@
         Type leftType;
         if( !TermOpe( termLeft, baseType, leftType, isLiteral, pbUseHeap, &isClassName ) ){
-            return false;
+            goto globalArea;
         }
 
@@ -273 +269 @@
         return TermMemberOpe( leftType.GetClass(), baseType, resultType, termFull, termLeft, member );
     }
-
+globalArea:
 
     //////////////////////////////////////////////
@@ -290 +286 @@
     // グローバル属性エリア
     /////////////////////////////////////////////////////////////////
-globalArea:
 
     int UseReg=pobj_reg->GetNextReg();
@@ -783 +778 @@
                     // 何らかの識別子
 
+    if( (string)term=="ParentArea.NamespaceEnumTest.x"){
+        int test=0;
+    }
+
                     bool isLiteral;
                     if( TermOpe( term, baseType, resultType, isLiteral, &bUseHeap[sp] ) ){
@@ -870 +869 @@
                     //////////////
 
-                    i3 = CDBConst::obj.GetType(term);
+                    i3 = CDBConst::obj.GetBasicType(term);
                     if(i3){
+                        if( CDBConst::obj.IsStringPtr( term ) ){
+                            //リテラル文字列
+
+                            double dbl = CDBConst::obj.GetDoubleData(term);
+                            memcpy(&i64data,&dbl,sizeof(double));
+
+                            //バイト数
+                            i3=lstrlen((char *)i64data);
+
+                            memcpy(term,(char *)i64data,i3);
+                            term[i3]=0;
+                            goto StrLiteral;
+                        }
+
                         type_stack[sp] = i3;
                         if(IsRealNumberType(i3)){