Changeset 79 in dev for BasicCompiler64

Timestamp:

Mar 25, 2007, 5:58:57 AM (18 years ago)

Author:

dai_9181

Message:

バージョンをβ17にした。
#strictをデフォルトの状態で適用するようにした（#90）。
Dimステートメントにおいて、初期値式とAsが同時に指定されていたとき、As以降も初期値式の一部として捉えるよう、変更（#91）。
GetTypeDef関数を完全廃止。

Location:

BasicCompiler64

Files:

• BasicCompiler.vcproj (modified) (3 diffs)
• Compile_Func.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (3 diffs)
• NumOpe.cpp (modified) (5 diffs)
• Opcode.h (modified) (1 diff)

BasicCompiler64/BasicCompiler.vcproj

@@ -152 +152 @@
                 Optimization="2"
                 InlineFunctionExpansion="1"
-                AdditionalIncludeDirectories="..\cpplibs\boost;..\cpplibs\Base"
+                AdditionalIncludeDirectories="..\cpplibs\boost;..\BasicCompiler_Common\include"
                 PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;JPN;_AMD64_;_WIN64"
                 StringPooling="true"
@@ -253 +253 @@
                 Optimization="2"
                 InlineFunctionExpansion="1"
-                AdditionalIncludeDirectories="..\cpplibs\boost;..\cpplibs\Base"
+                AdditionalIncludeDirectories="..\cpplibs\boost;..\BasicCompiler_Common\include"
                 PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;ENG"
                 StringPooling="true"
@@ -348 +348 @@
                 Name="VCCLCompilerTool"
                 Optimization="2"
-                AdditionalIncludeDirectories="..\cpplibs\boost;..\cpplibs\Base"
+                AdditionalIncludeDirectories="..\cpplibs\boost;..\BasicCompiler_Common\include"
                 PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;JPN;_AMD64_;_WIN64"
                 MinimalRebuild="false"

BasicCompiler64/Compile_Func.cpp

@@ -185 +185 @@
     pUserProc->Using();
 }
-void Opcode_Func_SizeOf( const char *Parameter ){
-    LONG_PTR lpIndex;
-    int type = GetTypeFixed(Parameter,&lpIndex);
-
-    int size;
-    if( type == DEF_OBJECT ){
-        CClass *pClass = (CClass *)lpIndex;
-        size = pClass->GetSize();
-    }
-    else{
-        size=GetTypeSize(type,lpIndex);
-    }
+void Opcode_Func_SizeOf( const string &typeName ){
+    Type tempType;
+    if( !Type::StringToType( typeName, tempType ) ){
+        SetError(3,typeName,cp);
+        return;
+    }
+
+    int typeSize = ( tempType.IsObject() ) ?
+        tempType.GetClass().GetSize() : tempType.GetSize();
 
     //mov rax,size
-    op_mov_RV(sizeof(_int64),REG_RAX,size);
+    op_mov_RV(sizeof(_int64),REG_RAX,typeSize);
 }
 void Opcode_Func_VarPtr( const char *Parameter, Type &resultType, bool isCallOn ){

BasicCompiler64/Compile_Var.cpp

@@ -1074 +1074 @@
 }
 
-void dim(bool isRef, char *VarName,int *SubScripts,Type &type,char *InitBuf,char *ConstractParameter,DWORD dwFlags){
+void dim( char *VarName,int *SubScripts,Type &type,char *InitBuf,char *ConstractParameter,DWORD dwFlags){
     if( UserProc::IsGlobalAreaCompiling() ){
         /////////////////////////
@@ -1080 +1080 @@
         /////////////////////////
 
-        AddGlobalVariable(isRef,VarName,SubScripts,type,InitBuf,ConstractParameter,dwFlags);
+        AddGlobalVariable(VarName,SubScripts,type,InitBuf,ConstractParameter,dwFlags);
     }
     else{
@@ -1095 +1095 @@
         bool isConst = ( dwFlags & DIMFLAG_CONST ) ? true:false;
 
-        Variable *pVar = new Variable( VarName, type, isConst, isRef );
+        Variable *pVar = new Variable( VarName, type, isConst );
 
         if( SubScripts[0] != -1 ){

BasicCompiler64/NumOpe.cpp

@@ -177 +177 @@
     int type_stack[255];
     LONG_PTR index_stack[255];
+    bool isNothing_stack[255];
     BOOL bUseHeap[255];
     _int64 i64data;
@@ -187 +188 @@
         if(idCalc){
             if(type_stack[sp-2]==DEF_OBJECT){
-                //オーバーロードされたオペレータを呼び出す
-                i2=CallOperatorProc(idCalc,baseType,type_stack,index_stack,bUseHeap,sp);
-                if(i2==0){
-                    if(idCalc==CALC_EQUAL) lstrcpy(temp2,"==");
-                    else GetCalcName(idCalc,temp2);
-                    sprintf(temporary,"Operator %s",temp2);
-                    SetError(27,temporary,cp);
-                    goto error;
+                if( idCalc == CALC_AS
+                    && type_stack[sp-1] == ( DEF_OBJECT | FLAG_CAST )
+                    && index_stack[sp-1] == index_stack[sp-2]
+                    || isNothing_stack[sp-2] ){
+                        // 同一の型、またはNothingに対するAsはAs演算子を呼び出さない
                 }
-                else if(i2==-1) goto error;
-
-                continue;
+                else{
+                    //オーバーロードされたオペレータを呼び出す
+                    i2=CallOperatorProc(idCalc,baseType,type_stack,index_stack,bUseHeap,sp);
+                    if(i2==0){
+                        if(idCalc==CALC_EQUAL) lstrcpy(temp2,"==");
+                        else GetCalcName(idCalc,temp2);
+                        sprintf(temporary,"Operator %s",temp2);
+                        SetError(27,temporary,cp);
+                        goto error;
+                    }
+                    else if(i2==-1) goto error;
+
+                    continue;
+                }
             }
 
@@ -208 +217 @@
             case 0:
                 index_stack[sp]=-1;
+                isNothing_stack[sp] = false;
                 bUseHeap[sp]=0;
 
@@ -424 +434 @@
                     // Nothing
                     if( lstrcmp( term, "Nothing" ) == 0 ){
+                        isNothing_stack[sp] = true;
+
                         type_stack[sp] = DEF_OBJECT;
                         if( baseType.IsObject() ){
@@ -554 +566 @@
                     // 型名の場合
                     //////////////
-
-                    LONG_PTR lp;
-                    i3=GetTypeFixed(term,&lp);
-                    if(i3!=-1){
-                        type_stack[sp]=i3|FLAG_CAST;
-                        index_stack[sp]=lp;
+                    Type tempType;
+                    if( Type::StringToType( term, tempType ) ){
+                        type_stack[sp] = tempType.GetBasicType() | FLAG_CAST;
+                        index_stack[sp] = tempType.GetIndex();
                         sp++;
                         break;
                     }
-
 
 

BasicCompiler64/Opcode.h

@@ -323 +323 @@
 #define DIMFLAG_STATIC                  0x04
 #define DIMFLAG_CONST                   0x08
-void dim(bool isRef, char *VarName,int *SubScripts,Type &type,char *InitBuf,char *ConstractParameter,DWORD dwFlags);
+void dim( char *VarName,int *SubScripts,Type &type,char *InitBuf,char *ConstractParameter,DWORD dwFlags);
 void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar);