Changeset 40 in dev

Timestamp:

Jan 28, 2007, 3:48:22 AM (18 years ago)

Author:

dai_9181

Message:

ByRef修飾子を関数戻り値とDimステートメントで指定可能にした。

Files:

• BasicCompiler32/Compile_Calc.cpp (modified) (1 diff)
• BasicCompiler32/Compile_CallProc.cpp (modified) (2 diffs)
• BasicCompiler32/Compile_Object.cpp (modified) (1 diff)
• BasicCompiler32/Compile_ProcOp.cpp (modified) (6 diffs)
• BasicCompiler32/Compile_Statement.cpp (modified) (1 diff)
• BasicCompiler32/Compile_Var.cpp (modified) (20 diffs)
• BasicCompiler32/NumOpe.cpp (modified) (1 diff)
• BasicCompiler32/Opcode.h (modified) (3 diffs)
• BasicCompiler64/Compile_Calc.cpp (modified) (1 diff)
• BasicCompiler64/Compile_Calc_PushVar.cpp (modified) (3 diffs)
• BasicCompiler64/Compile_CallProc.cpp (modified) (2 diffs)
• BasicCompiler64/Compile_ProcOp.cpp (modified) (6 diffs)
• BasicCompiler64/Compile_Set_Var.cpp (modified) (3 diffs)
• BasicCompiler64/Compile_Statement.cpp (modified) (1 diff)
• BasicCompiler64/Compile_Var.cpp (modified) (24 diffs)
• BasicCompiler64/Opcode.h (modified) (3 diffs)
• BasicCompiler64/WatchList.cpp (modified) (1 diff)
• BasicCompiler_Common/BasicFixed.h (modified) (2 diffs)
• BasicCompiler_Common/Class.cpp (modified) (12 diffs)
• BasicCompiler_Common/Class.h (modified) (4 diffs)
• BasicCompiler_Common/Intermediate_Step2.cpp (modified) (1 diff)
• BasicCompiler_Common/Object.cpp (modified) (4 diffs)
• BasicCompiler_Common/Subroutine.cpp (modified) (3 diffs)
• BasicCompiler_Common/Variable.cpp (modified) (6 diffs)
• BasicCompiler_Common/Variable.h (modified) (1 diff)
• BasicCompiler_Common/common.h (modified) (3 diffs)
• BasicCompiler_Common/error.cpp (modified) (9 diffs)

BasicCompiler32/Compile_Calc.cpp

@@ -600 +600 @@
     }
 }
+
+void SetRefVariable( const char *varname, const char *expression ){
+    ////////////////////////////////////////
+    // 変数のタイプ型を識別して、演算を行う
+    ////////////////////////////////////////
+
+    int VarType,CalcType;
+    LONG_PTR lpVarIndex,lpCalcIndex;
+    RELATIVE_VAR VarRelativeVar;
+    BOOL bCalcUseHeap;
+
+    //型を識別
+    VarType=GetVarType(varname,&lpVarIndex,0);
+    if(VarType==-1){
+        SetError(300,NULL,cp);
+        return;
+    }
+
+    extern LONG_PTR ProcPtr_BaseIndex;
+    if(VarType==DEF_PTR_PROC) ProcPtr_BaseIndex=lpVarIndex;
+    else ProcPtr_BaseIndex=-1;
+
+    if(VarType==DEF_OBJECT){
+        //代入演算のオーバーロード オペレータに備える
+
+        //変数アドレスを取得
+        if(!GetVarOffsetReadWrite(
+            varname,
+            &VarType,
+            &VarRelativeVar,
+            &lpVarIndex)) return;
+
+        SetVarPtrToEax(&VarRelativeVar);
+
+        //push eax
+        op_push(REG_EAX);
+    }
+
+
+    //NumOpe...（スタックに答えが格納される）
+    CalcType=NumOpe(expression,VarType,lpVarIndex,&lpCalcIndex,&bCalcUseHeap);
+    if(VarType==-1||CalcType==-1) return;
+
+    //変数アドレスを取得
+    if(!GetVarOffsetReadWrite(
+        varname,
+        &VarType,
+        &VarRelativeVar,
+        &lpVarIndex)) return;
+
+    if(VarType&FLAG_PTR){
+        SetError(14,varname,cp);
+        return;
+    }
+
+
+    if( VarType == DEF_OBJECT && VarRelativeVar.dwKind == VAR_REFLOCAL ){
+        // 参照型オブジェクトへの代入（初期化）はポインタ変数と同様の処理に値する
+        VarType = PTR_LEVEL_UP( VarType );
+
+        VarRelativeVar.dwKind = VAR_LOCAL;
+
+        if( CalcType == DEF_OBJECT ){
+            //右辺値が実体オブジェクトのときは、参照をコピー
+            CalcType = PTR_LEVEL_UP( DEF_OBJECT );
+        }
+    }
+    else{
+        SetError(300,NULL,cp);
+    }
+
+
+    /////////////////////////////////
+    // 右辺、左辺の型チェックを行う
+    /////////////////////////////////
+
+    CheckDifferentType(VarType,lpVarIndex,CalcType,lpCalcIndex,0,0);
+
+
+    /////////////////////////////////////////////////
+    // スタックの内容を変数にコピーするコードを抽出
+    /////////////////////////////////////////////////
+
+    if(VarType==DEF_BOOLEAN){
+        //bool
+        SetBooleanVariable(CalcType,&VarRelativeVar);
+    }
+    else if(VarType==DEF_CHAR||VarType==DEF_BYTE){
+        //8ビット整数型変数へスタックの内容を格納する
+        Set8Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_INTEGER||VarType==DEF_WORD){
+        //16ビット整数型変数へスタックの内容を格納する
+        Set16Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_LONG||VarType==DEF_DWORD||IsPtrType(VarType)){
+        //32ビット整数型変数へスタックの内容を格納する
+        if(VarType==DEF_LONG)
+            SetLongVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+        else
+            SetDWordVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_INT64||VarType==DEF_QWORD){
+        //64ビット整数型変数へスタックの内容を格納する
+        SetInt64Variable(CalcType,&VarRelativeVar);
+    }
+    else if(VarType==DEF_DOUBLE){
+        //Double型変数へスタックの内容を格納する
+        SetDoubleVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_SINGLE){
+        //Single型変数へスタックの内容を格納する
+        SetSingleVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+}

BasicCompiler32/Compile_CallProc.cpp

@@ -337 +337 @@
     }
 
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false ){
         //_System_ReturnObject（第一または第二パラメータのダミーを作成）
         sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
@@ -375 +375 @@
 
 
-
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
         //////////////////////////////////////////////////////
         // 戻り値にオブジェクト インスタンスを持つ場合

BasicCompiler32/Compile_Object.cpp

@@ -75 +75 @@
     }
 }
-int Operator_New(char *Parameter,LONG_PTR *plpIndex){
+int Operator_New(const char *Parameter,LONG_PTR *plpIndex){
     char TypeName[VN_SIZE],CreateParameter[VN_SIZE],ObjectSize[VN_SIZE];
     int i,i2;

BasicCompiler32/Compile_ProcOp.cpp

@@ -374 +374 @@
         else temp=psi->name;
 
-        if(psi->ReturnType==DEF_OBJECT){
+        if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
             //戻り値用オブジェクトのコンストラクタを呼び出す
             if(psi->u.Return_pobj_c->ConstructorMemberSubIndex!=-1){
@@ -383 +383 @@
         else{
             //戻り値用の変数の定義
-            sprintf(temporary,"%s%c%c",temp,1,ESC_AS);
+            if( psi->isReturnRef ){
+                sprintf(temporary,"%c%c",1,ESC_BYREF);
+            }
+            else temporary[0]=0;
+
+            sprintf(temporary+lstrlen(temporary),"%s%c%c",temp,1,ESC_AS);
             GetTypeName(psi->ReturnType,psi->u.ReturnIndex,temporary+lstrlen(temporary));
+
             OpcodeDim(temporary,0);
         }
@@ -514 +520 @@
             else offset=0;
             for(i3=0;i3<pobj_CompilingClass->iMemberNum;i3++){
-                offset=GetSizeOfClassMember(pobj_CompilingClass,pobj_CompilingClass->ppobj_Member[i3]->name,NULL);
-
-                if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type==DEF_OBJECT){
-                    if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex!=-1){
-                        i5=pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex;
-                        if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi->RealParmNum==1){    //Thisポインタを第一引数に持ち合わせるため、引数なしの場合はこの値が1になる
+                CMember *pMember = pobj_CompilingClass->ppobj_Member[i3];
+
+                offset=GetSizeOfClassMember(pobj_CompilingClass,pMember->name,NULL);
+
+                if(pMember->TypeInfo.type==DEF_OBJECT){
+                    if(pMember->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex!=-1){
+                        i5=pMember->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex;
+                        if(pMember->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi->RealParmNum==1){  //Thisポインタを第一引数に持ち合わせるため、引数なしの場合はこの値が1になる
 
                             MemberTypeSize=
-                                GetTypeSize(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type,
-                                    pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.lpIndex);
+                                GetTypeSize(pMember->TypeInfo.type,
+                                    pMember->TypeInfo.u.lpIndex);
 
                             MemberObjectNum=
-                                JumpSubScripts(pobj_CompilingClass->ppobj_Member[i3]->SubScripts);
+                                JumpSubScripts(pMember->SubScripts);
 
                             for(i4=0;i4<MemberObjectNum;i4++){
@@ -542 +550 @@
 
                                 //call constructor
-                                op_call(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
+                                op_call(pMember->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
                             }
                         }
@@ -624 +632 @@
             offset=GetTypeSize(DEF_OBJECT,(LONG_PTR)pobj_CompilingClass);
             for(i3=pobj_CompilingClass->iMemberNum-1;i3>=0;i3--){
+                CMember *pMember = pobj_CompilingClass->ppobj_Member[i3];
+
                 MemberTypeSize=
-                    GetTypeSize(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type,
-                        pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.lpIndex);
+                    GetTypeSize(pMember->TypeInfo.type,
+                        pMember->TypeInfo.u.lpIndex);
 
                 MemberObjectNum=
-                    JumpSubScripts(pobj_CompilingClass->ppobj_Member[i3]->SubScripts);
+                    JumpSubScripts(pMember->SubScripts);
 
                 offset-=MemberTypeSize*MemberObjectNum;
 
-                if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type==DEF_OBJECT){
-                    if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->DestructorMemberSubIndex!=-1){
+                if(pMember->TypeInfo.type==DEF_OBJECT){
+                    if(pMember->TypeInfo.u.pobj_Class->DestructorMemberSubIndex!=-1){
                         for(i4=MemberObjectNum-1;i4>=0;i4--){
                             //Thisポインタをecxにコピー
@@ -649 +659 @@
 
                             //call destructor
-                            i5=pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->DestructorMemberSubIndex;
-                            op_call(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
+                            i5=pMember->TypeInfo.u.pobj_Class->DestructorMemberSubIndex;
+                            op_call(pMember->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
                         }
                     }

BasicCompiler32/Compile_Statement.cpp

@@ -1359 +1359 @@
             else temp=pCompilingSubInfo->name;
 
-            char temporary[VN_SIZE];
-            sprintf(temporary,"%s=%s",temp,Parameter);
-            OpcodeCalc(temporary);
+            if( pCompilingSubInfo->isReturnRef ){
+                //参照型
+                SetRefVariable( temp, Parameter );
+            }
+            else{
+                //値型
+                char temporary[VN_SIZE];
+                sprintf(temporary,"%s=%s",temp,Parameter);
+                OpcodeCalc(temporary);
+            }
         }
 

BasicCompiler32/Compile_Var.cpp

@@ -179 +179 @@
     }
 
+    CMember *pMember=pobj_c->ppobj_Member[i];
+
     //アクセシビリティをチェック
     if(pobj_c==pobj_CompilingClass){
         //同一クラスオブジェクトの場合はプライベートアクセスを容認する
-        if(pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
+        if(pMember->dwAccess==ACCESS_NON){
             if(isErrorEnabled) SetError(107,VarName,cp);
             return 0;
@@ -188 +190 @@
     }
     else{
-        if((bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PRIVATE)||
-            pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
+        if((bPrivateAccess==0&&pMember->dwAccess==ACCESS_PRIVATE)||
+            pMember->dwAccess==ACCESS_NON){
             if(isErrorEnabled) SetError(107,VarName,cp);
             return 0;
         }
-        else if(bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PROTECTED){
+        else if(bPrivateAccess==0&&pMember->dwAccess==ACCESS_PROTECTED){
             if(isErrorEnabled) SetError(108,VarName,cp);
             return 0;
@@ -201 +203 @@
     //Const定義の場合は書き込みアクセスを制限する
     //※コンストラクタをコンパイル中の場合は例外的に許可する
-    if( pobj_c->ppobj_Member[i]->IsConst() &&       //定数メンバである
+    if( pMember->IsConst() &&       //定数メンバである
         isWriteAccess &&                            //書き込みアクセスを要求されている
         pobj_c->IsCompilingConstructor() == false   //コンストラクタ コンパイル中を除く
@@ -209 +211 @@
     }
 
-    *pType=pobj_c->ppobj_Member[i]->TypeInfo.type;
-    *plpNestIndex=pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex;
+    *pType=pMember->TypeInfo.type;
+    *plpNestIndex=pMember->TypeInfo.u.lpIndex;
 
     //ポインタ変数の場合
     if(IsPtrType(*pType)){
-        if(pobj_c->ppobj_Member[i]->SubScripts[0]==-1){
+        if(pMember->SubScripts[0]==-1){
             lstrcpy(lpPtrOffset,array);
             array[0]=0;
@@ -236 +238 @@
     if(array[0]){
         //配列オフセット
-        if(!GetArrayOffset(pobj_c->ppobj_Member[i]->SubScripts,array,*pType,pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex))
+        if(!GetArrayOffset(pMember->SubScripts,array,*pType,pMember->TypeInfo.u.lpIndex))
             if(isErrorEnabled) SetError(14,member,cp);
     }
-    else if(pobj_c->ppobj_Member[i]->SubScripts[0]!=-1){
+    else if(pMember->SubScripts[0]!=-1){
         *pType|=FLAG_PTR;
     }
@@ -320 +322 @@
             isErrorEnabled,
             isWriteAccess,
-            pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class,
+            pMember->TypeInfo.u.pobj_Class,
             NestMember,
             pType,
@@ -357 +359 @@
 }
 
-BOOL GetVarOffset(bool isErrorEnabled, bool isWriteAccess, char *NameBuffer, int *pType, RELATIVE_VAR *pRelativeVar, LONG_PTR *plpIndex, int *pss){
+BOOL GetVarOffset(bool isErrorEnabled, bool isWriteAccess, const char *NameBuffer, int *pType, RELATIVE_VAR *pRelativeVar, LONG_PTR *plpIndex, int *pss){
     extern BOOL bCompilingGlobal;
     int i,RefType;
@@ -907 +909 @@
     ///////////////////////////////////////
 
-    if( type == DEF_OBJECT){
-        //オブジェクトの場合はありえない
-        SetError(300,NULL,cp);
-        return 0;
-    }
-
     if(SubScripts[0]!=-1){
         SetError(41,0,cp);
@@ -1064 +1060 @@
 }
 
-void dim(char *Parameter,DWORD dwFlag){
+void dim(char *Parameter,DWORD dwFlags){
     extern BOOL bCompilingGlobal;
     extern HANDLE hHeap;
@@ -1071 +1067 @@
 
 
-    if(dwFlag & DIMFLAG_CONST){
+    //参照型かどうか
+    bool isRef = false;
+
+    i2 = 0;
+
+    if( Parameter[i2] == 1 && Parameter[i2+1] == ESC_BYREF ){
+        //参照型
+        isRef = true;
+        Parameter += 2;
+    }
+
+
+    if(dwFlags & DIMFLAG_CONST){
         //////////////////////////////////
         // 定数変数の場合を考慮
         //////////////////////////////////
-        for(i2=0;;i2++){
+        for(;;i2++){
             if(Parameter[i2] == '=' ||
                 Parameter[i2] == 1 && Parameter[i2] == ESC_AS ||
@@ -1102 +1110 @@
     char InitBuf[8192];
     char ConstractParameter[VN_SIZE];
-    if(!GetDimentionFormat(Parameter,VarName,SubScripts,&TypeInfo,InitBuf,ConstractParameter))
+    if(!GetDimentionFormat(Parameter, isRef, VarName,SubScripts,&TypeInfo,InitBuf,ConstractParameter))
         return;
 
@@ -1123 +1131 @@
     TypeSize=GetTypeSize(TypeInfo.type,TypeInfo.u.lpIndex);
 
-    if(dwFlag&DIMFLAG_STATIC){
+    if(dwFlags&DIMFLAG_STATIC){
         if(bCompilingGlobal){
             SetError(60,NULL,cp);
@@ -1137 +1145 @@
         GetNowStaticVarFullName(VarName,temporary);
 
-        AddGlobalVariable(temporary,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlag);
+        AddGlobalVariable(temporary,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlags);
 
         /*
@@ -1150 +1158 @@
             /////////////////////////
 
-            AddGlobalVariable(VarName,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlag);
+            AddGlobalVariable(VarName,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlags);
         }
         else{
@@ -1168 +1176 @@
 
             LocalVar=(VARIABLE *)HeapReAlloc(hHeap,0,LocalVar,(MaxLocalVarNum+1)*sizeof(VARIABLE));
+            VARIABLE *pVar = &LocalVar[MaxLocalVarNum];
+            MaxLocalVarNum++;
+
+            if( isRef ){
+                //参照型
+                pVar->fRef = REF_VARIABLE;
+                TypeSize = PTR_SIZE;
+            }
+            else pVar->fRef=0;
 
             for(i2=1,i3=0;i3<255;i3++){
                 //配列要素数
-                LocalVar[MaxLocalVarNum].SubScripts[i3]=SubScripts[i3];
+                pVar->SubScripts[i3]=SubScripts[i3];
 
                 if(SubScripts[i3]==-1) break;
@@ -1179 +1196 @@
             if(VarSize%4) VarSize+=4-(VarSize%4);
 
-            VARIABLE *pVar = &LocalVar[MaxLocalVarNum];
-
-            MaxLocalVarNum++;
-
             //変数データを追加
             lstrcpy(pVar->name,VarName);
-            pVar->fRef=0;
-            if(dwFlag & DIMFLAG_CONST) pVar->bConst = true;
+            if(dwFlags & DIMFLAG_CONST) pVar->bConst = true;
             else pVar->bConst = false;
             if(SubScripts[0]==-1) pVar->bArray=0;
@@ -1212 +1224 @@
 
                 if(!result){
-                    //動的な式だった場合は代入演算を行う
-                    char temporary[8192];
-                    sprintf(temporary,"%s=%s",VarName,InitBuf);
-                    OpcodeCalc(temporary);
+                    if( isRef ){
+                        SetRefVariable( VarName, InitBuf );
+                    }
+                    else{
+                        char temporary[8192];
+                        sprintf(temporary,"%s=%s",VarName,InitBuf);
+                        OpcodeCalc(temporary);
+                    }
                 }
 
@@ -1252 +1268 @@
 
         //コンストラクタ呼び出し
-        if(TypeInfo.type==DEF_OBJECT&&(dwFlag&DIMFLAG_NONCALL_CONSTRACTOR)==0){
+        if(TypeInfo.type==DEF_OBJECT&&(dwFlags&DIMFLAG_NONCALL_CONSTRACTOR)==0&& isRef == false ){
             CallConstractor(VarName,SubScripts,TypeInfo,ConstractParameter);
         }
@@ -1264 +1280 @@
     }
 }
-void OpcodeDim(char *Parameter,DWORD dwFlag){
+void OpcodeDim(char *Parameter,DWORD dwFlags){
     int i,i2,i3,IsStr=0;
     char temporary[8192];
@@ -1286 +1302 @@
             temporary[i2]=0;
 
-            dim(temporary,dwFlag);
+            dim(temporary,dwFlags);
 
             if(Parameter[i]=='\0') break;

BasicCompiler32/NumOpe.cpp

@@ -113 +113 @@
 
 
-int NumOpe(char *Command,int BaseType,LONG_PTR lpBaseIndex,LONG_PTR *plpIndex,BOOL *pbUseHeap){
+int NumOpe(const char *Command,int BaseType,LONG_PTR lpBaseIndex,LONG_PTR *plpIndex,BOOL *pbUseHeap){
     extern HANDLE hHeap;
     int i,i2,i3,i4;

BasicCompiler32/Opcode.h

@@ -95 +95 @@
 void ChangeTypeToByte(int OldType);
 void OpcodeCalc(char *Command);
+void SetRefVariable( const char *varname, const char *expression );
 
 //NumOpe.cpp
 void PushReturnValue(int type);
-int NumOpe(char *Command,int BaseType,LONG_PTR lpBaseIndex,LONG_PTR *plpIndex,BOOL *pbUseHeap=0);
+int NumOpe(const char *Command,int BaseType,LONG_PTR lpBaseIndex,LONG_PTR *plpIndex,BOOL *pbUseHeap=0);
 
 //NumOpe_Arithmetic.cpp
@@ -167 +168 @@
 
 //Compile_Object.cpp
-int Operator_New(char *Parameter,LONG_PTR *plpIndex);
+int Operator_New(const char *Parameter,LONG_PTR *plpIndex);
 void OpcodeDelete(char *Parameter);
 
@@ -173 +174 @@
 void GetWithName(char *buffer);
 void SetThisPtrToReg(int reg);
-BOOL GetVarOffset(bool isErrorEnabled,bool isWriteAccess,char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
+BOOL GetVarOffset(bool isErrorEnabled,bool isWriteAccess,const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
 BOOL SetInitGlobalData(int offset,int type,LONG_PTR lpIndex,int *SubScripts,char *InitBuf);
 #define DIMFLAG_INITDEBUGVAR            1

BasicCompiler64/Compile_Calc.cpp

@@ -237 +237 @@
     SetVariableFromRax(VarType,CalcType,&VarRelativeVar);
 }
+
+void SetRefVariable( const char *varname, const char *expression ){
+    ////////////////////////////////////////
+    // 変数のタイプ型を識別して、演算を行う
+    ////////////////////////////////////////
+
+    int VarType,CalcType;
+    LONG_PTR lpVarIndex,lpCalcIndex;
+    BOOL bCalcUseHeap;
+
+    //型を識別
+    VarType=GetVarType(varname,&lpVarIndex,0);
+    if(VarType==-1){
+        SetError(300,NULL,cp);
+        return;
+    }
+
+    extern LONG_PTR ProcPtr_BaseIndex;
+    if(VarType==DEF_PTR_PROC) ProcPtr_BaseIndex=lpVarIndex;
+    else ProcPtr_BaseIndex=-1;
+
+    //NumOpe...（rax、またはxmm0に答えが格納される）
+    int reg=REG_RAX;
+    CalcType=NumOpe(&reg,expression,VarType,lpVarIndex,&lpCalcIndex,&bCalcUseHeap);
+
+    //結果を格納しているレジスタをブロッキング
+    pobj_BlockReg->lock(reg);
+
+    if(VarType==-1||CalcType==-1) return;
+
+    //変数アドレスを取得
+    RELATIVE_VAR VarRelativeVar;
+    if(!GetVarOffsetReadWrite(
+        varname,
+        &VarType,
+        &VarRelativeVar,
+        &lpVarIndex)) return;
+
+    //レジスタのブロッキングを解除
+    pobj_BlockReg->clear();
+
+    if(VarType&FLAG_PTR){
+        SetError(14,varname,cp);
+        return;
+    }
+
+    if( VarType == DEF_OBJECT && VarRelativeVar.dwKind == VAR_REFLOCAL ){
+        // 参照型オブジェクトへの代入（初期化）はポインタ変数と同様の処理に値する
+        VarType = PTR_LEVEL_UP( VarType );
+
+        VarRelativeVar.dwKind = VAR_LOCAL;
+
+        if( CalcType == DEF_OBJECT ){
+            //右辺値が実体オブジェクトのときは、参照をコピー
+            CalcType = PTR_LEVEL_UP( DEF_OBJECT );
+        }
+    }
+    else{
+        SetError(300,NULL,cp);
+    }
+
+
+    /////////////////////////////////
+    // 右辺、左辺の型チェックを行う
+    /////////////////////////////////
+
+    CheckDifferentType(VarType,lpVarIndex,CalcType,lpCalcIndex,0,0);
+
+
+    /////////////////////////////////////////////////
+    // rax（実数はxmm0）の内容を変数にコピー
+    /////////////////////////////////////////////////
+    SetVariableFromRax(VarType,CalcType,&VarRelativeVar);
+}

BasicCompiler64/Compile_Calc_PushVar.cpp

@@ -53 +53 @@
         }
     }
-    else if(pRelativeVar->dwKind==VAR_REFLOCAL){
+    else if( pRelativeVar->dwKind == VAR_REFLOCAL ){
         if(pRelativeVar->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]
@@ -134 +134 @@
         }
     }
-    else if(pRelativeVar->dwKind==VAR_REFLOCAL){
+    else if( pRelativeVar->dwKind == VAR_REFLOCAL ){
         if(pRelativeVar->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]
@@ -204 +204 @@
         }
     }
-    else if(pRelativeVar->dwKind==VAR_REFLOCAL){
+    else if( pRelativeVar->dwKind == VAR_REFLOCAL ){
         if(pRelativeVar->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]

BasicCompiler64/Compile_CallProc.cpp

@@ -339 +339 @@
     }
 
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false ){
         //_System_ReturnObject（第一または第二パラメータのダミーを作成）
         sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
@@ -378 +378 @@
 
 
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
         //////////////////////////////////////////////////////
         // 戻り値にオブジェクト インスタンスを持つ場合

BasicCompiler64/Compile_ProcOp.cpp

@@ -461 +461 @@
         else temp=psi->name;
 
-        if(psi->ReturnType==DEF_OBJECT){
+        if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
             //戻り値用オブジェクトのコンストラクタを呼び出す
             if(psi->u.Return_pobj_c->ConstructorMemberSubIndex!=-1){
@@ -470 +470 @@
         else{
             //戻り値用の変数の定義
-            sprintf(temporary,"%s%c%c",temp,1,ESC_AS);
+            if( psi->isReturnRef ){
+                sprintf(temporary,"%c%c",1,ESC_BYREF);
+            }
+            else temporary[0]=0;
+
+            sprintf(temporary+lstrlen(temporary),"%s%c%c",temp,1,ESC_AS);
             GetTypeName(psi->ReturnType,psi->u.ReturnIndex,temporary+lstrlen(temporary));
+
             OpcodeDim(temporary,0);
         }
@@ -568 +574 @@
             else offset=0;
             for(i3=0;i3<pobj_CompilingClass->iMemberNum;i3++){
+                CMember *pMember = pobj_CompilingClass->ppobj_Member[i3];
                 MemberTypeSize=
-                    GetTypeSize(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type,
-                        pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.lpIndex);
+                    GetTypeSize(pMember->TypeInfo.type,
+                        pMember->TypeInfo.u.lpIndex);
 
                 MemberObjectNum=
-                    JumpSubScripts(pobj_CompilingClass->ppobj_Member[i3]->SubScripts);
-
-                offset=GetSizeOfClassMember(pobj_CompilingClass,pobj_CompilingClass->ppobj_Member[i3]->name,NULL);
-
-                if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type==DEF_OBJECT){
-                    if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex!=-1){
-                        i5=pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex;
-                        if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi->RealParmNum==1){    //Thisポインタを第一引数に持ち合わせるため、引数なしの場合はこの値が1になる
+                    JumpSubScripts(pMember->SubScripts);
+
+                offset=GetSizeOfClassMember(pobj_CompilingClass,pMember->name,NULL);
+
+                if(pMember->TypeInfo.type==DEF_OBJECT && pMember->IsRef() == false){
+                    if(pMember->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex!=-1){
+                        i5=pMember->TypeInfo.u.pobj_Class->ConstructorMemberSubIndex;
+                        if(pMember->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi->RealParmNum==1){  //Thisポインタを第一引数に持ち合わせるため、引数なしの場合はこの値が1になる
                             for(i4=0;i4<MemberObjectNum;i4++){
                                 //Thisポインタをrcxにコピー
@@ -589 +596 @@
 
                                 //call constructor
-                                op_call(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
+                                op_call(pMember->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
                             }
                         }
@@ -672 +679 @@
             int MemberObjectNum;
             for(i3=pobj_CompilingClass->iMemberNum-1;i3>=0;i3--){
+                CMember *pMember = pobj_CompilingClass->ppobj_Member[i3];
                 MemberTypeSize=
-                    GetTypeSize(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type,
-                        pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.lpIndex);
+                    GetTypeSize(pMember->TypeInfo.type,
+                        pMember->TypeInfo.u.lpIndex);
 
                 MemberObjectNum=
-                    JumpSubScripts(pobj_CompilingClass->ppobj_Member[i3]->SubScripts);
-
-                offset=GetSizeOfClassMember(pobj_CompilingClass,pobj_CompilingClass->ppobj_Member[i3]->name,NULL);
-
-                if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.type==DEF_OBJECT){
-                    if(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->DestructorMemberSubIndex!=-1){
+                    JumpSubScripts(pMember->SubScripts);
+
+                offset=GetSizeOfClassMember(pobj_CompilingClass,pMember->name,NULL);
+
+                if(pMember->TypeInfo.type==DEF_OBJECT && pMember->IsRef() == false){
+                    if(pMember->TypeInfo.u.pobj_Class->DestructorMemberSubIndex!=-1){
                         for(i4=MemberObjectNum-1;i4>=0;i4--){
                             //Thisポインタをrcxにコピー
@@ -691 +699 @@
 
                             //call destructor
-                            i5=pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->DestructorMemberSubIndex;
-                            op_call(pobj_CompilingClass->ppobj_Member[i3]->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
+                            i5=pMember->TypeInfo.u.pobj_Class->DestructorMemberSubIndex;
+                            op_call(pMember->TypeInfo.u.pobj_Class->ppobj_Method[i5]->psi);
                         }
                     }

BasicCompiler64/Compile_Set_Var.cpp

@@ -179 +179 @@
         }
     }
-    else if(pRelative->dwKind==VAR_REFLOCAL){
+    else if( pRelative->dwKind == VAR_REFLOCAL ){
         if(pRelative->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]
@@ -267 +267 @@
         }
     }
-    else if(pRelative->dwKind==VAR_REFLOCAL){
+    else if( pRelative->dwKind == VAR_REFLOCAL ){
         if(pRelative->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]
@@ -383 +383 @@
         }
     }
-    else if(pRelative->dwKind==VAR_REFLOCAL){
+    else if( pRelative->dwKind == VAR_REFLOCAL ){
         if(pRelative->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]

BasicCompiler64/Compile_Statement.cpp

@@ -959 +959 @@
             else temp=pCompilingSubInfo->name;
 
-            char temporary[VN_SIZE];
-            sprintf(temporary,"%s=%s",temp,Parameter);
-            OpcodeCalc(temporary);
+            if( pCompilingSubInfo->isReturnRef ){
+                //参照型
+                SetRefVariable( temp, Parameter );
+            }
+            else{
+                //値型
+                char temporary[VN_SIZE];
+                sprintf(temporary,"%s=%s",temp,Parameter);
+                OpcodeCalc(temporary);
+            }
         }
 

BasicCompiler64/Compile_Var.cpp

@@ -206 +206 @@
     }
 
+    CMember *pMember=pobj_c->ppobj_Member[i];
+
 
     //アクセシビリティをチェック
     if(pobj_c==pobj_CompilingClass){
         //同一クラスオブジェクトの場合はプライベートアクセスを容認する
-        if(pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
+        if(pMember->dwAccess==ACCESS_NON){
             if(isErrorEnabled) SetError(107,VarName,cp);
             return 0;
@@ -216 +218 @@
     }
     else{
-        if((bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PRIVATE)||
-            pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
+        if((bPrivateAccess==0&&pMember->dwAccess==ACCESS_PRIVATE)||
+            pMember->dwAccess==ACCESS_NON){
             if(isErrorEnabled) SetError(107,VarName,cp);
             return 0;
         }
-        else if(bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PROTECTED){
+        else if(bPrivateAccess==0&&pMember->dwAccess==ACCESS_PROTECTED){
             if(isErrorEnabled) SetError(108,VarName,cp);
             return 0;
@@ -229 +231 @@
     //Const定義の場合は書き込みアクセスを制限する
     //※コンストラクタをコンパイル中の場合は例外的に許可する
-    if( pobj_c->ppobj_Member[i]->IsConst() &&       //定数メンバである
+    if( pMember->IsConst() &&       //定数メンバである
         isWriteAccess &&                            //書き込みアクセスを要求されている
         pobj_c->IsCompilingConstructor() == false   //コンストラクタ コンパイル中を除く
@@ -237 +239 @@
     }
 
-    *pType=pobj_c->ppobj_Member[i]->TypeInfo.type;
-    *plpNestIndex=pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex;
+    *pType=pMember->TypeInfo.type;
+    *plpNestIndex=pMember->TypeInfo.u.lpIndex;
 
     //ポインタ変数の場合
     if(IsPtrType(*pType)){
-        if(pobj_c->ppobj_Member[i]->SubScripts[0]==-1){
+        if(pMember->SubScripts[0]==-1){
             lstrcpy(lpPtrOffset,array);
             array[0]=0;
@@ -265 +267 @@
     if(array[0]){
         //配列オフセット
-        if(!GetArrayOffset(pobj_c->ppobj_Member[i]->SubScripts,array,*pType,pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex)){
+        if(!GetArrayOffset(pMember->SubScripts,array,*pType,pMember->TypeInfo.u.lpIndex)){
             if(isErrorEnabled) SetError(14,member,cp);
         }
     }
-    else if(pobj_c->ppobj_Member[i]->SubScripts[0]!=-1){
+    else if(pMember->SubScripts[0]!=-1){
         *pType|=FLAG_PTR;
     }
@@ -276 +278 @@
         //入れ子構造の場合
 
-        if(*pType==DEF_OBJECT){
+        if(*pType==DEF_OBJECT && pMember->IsRef() == false){
             if(RefType!=DEF_OBJECT){
                 if(isErrorEnabled) SetError(104,member,cp);
@@ -282 +284 @@
             }
         }
-        else if(*pType==DEF_PTR_OBJECT){
+        else if(*pType==DEF_PTR_OBJECT || ( *pType==DEF_OBJECT && pMember->IsRef() )){
             //構造体ポインタ型メンバ変数
 
             if(lpPtrOffset[0]){
                 //pObj[n].member
-                if(RefType!=DEF_OBJECT){
+                if(*pType==DEF_PTR_OBJECT&&RefType!=DEF_OBJECT){
                     if(isErrorEnabled) SetError(104,member,cp);
                     return 0;
@@ -300 +302 @@
             else{
                 //pObj->member
-                if(RefType!=DEF_PTR_OBJECT){
+                if(*pType==DEF_PTR_OBJECT&&RefType!=DEF_PTR_OBJECT){
                     if(isErrorEnabled) SetError(104,member,cp);
                     return 0;
@@ -347 +349 @@
             isErrorEnabled,
             isWriteAccess,
-            pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class,
+            pMember->TypeInfo.u.pobj_Class,
             NestMember,
             pType,
@@ -383 +385 @@
     SetReg_WholeVariable(DEF_PTR_VOID,&RelativeVar,reg);
 }
-BOOL GetVarOffset(bool isErrorEnabled,bool isWriteAccess,char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
+BOOL GetVarOffset(bool isErrorEnabled,bool isWriteAccess,const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
     extern BOOL bCompilingGlobal;
     int i,RefType;
@@ -432 +434 @@
             pRelativeVar->offset=-LocalVar[i].offset;
             pRelativeVar->bOffsetOffset=0;
-            if(LocalVar[i].fRef) pRelativeVar->dwKind=VAR_REFLOCAL;
+            if(LocalVar[i].fRef){
+                // 参照型
+                pRelativeVar->dwKind = VAR_REFLOCAL;
+            }
             else pRelativeVar->dwKind=VAR_LOCAL;
             *pType=LocalVar[i].type;
@@ -1045 +1050 @@
 
 
-void dim(char *Parameter,DWORD dwFlag){
+void dim(char *Parameter,DWORD dwFlags){
     extern BOOL bCompilingGlobal;
     extern HANDLE hHeap;
@@ -1051 +1056 @@
     char VarName[VN_SIZE];
 
-
-    if(dwFlag & DIMFLAG_CONST){
+    //参照型かどうか
+    bool isRef = false;
+
+    i2 = 0;
+
+    if( Parameter[i2] == 1 && Parameter[i2+1] == ESC_BYREF ){
+        //参照型
+        isRef = true;
+        Parameter += 2;
+    }
+
+    if(dwFlags & DIMFLAG_CONST){
+
         //////////////////////////////////
         // 定数変数の場合を考慮
         //////////////////////////////////
-        for(i2=0;;i2++){
+        for(;;i2++){
             if(Parameter[i2] == '=' ||
                 Parameter[i2] == 1 && Parameter[i2] == ESC_AS ||
@@ -1083 +1099 @@
     char InitBuf[8192];
     char ConstractParameter[VN_SIZE];
-    if(!GetDimentionFormat(Parameter,VarName,SubScripts,&TypeInfo,InitBuf,ConstractParameter))
+    if(!GetDimentionFormat(Parameter, isRef , VarName,SubScripts,&TypeInfo,InitBuf,ConstractParameter))
         return;
 
@@ -1104 +1120 @@
     TypeSize=GetTypeSize(TypeInfo.type,TypeInfo.u.lpIndex);
 
-    if(dwFlag&DIMFLAG_STATIC){
+    if(dwFlags&DIMFLAG_STATIC){
         if(bCompilingGlobal){
             SetError(60,NULL,cp);
@@ -1118 +1134 @@
         GetNowStaticVarFullName(VarName,temporary);
 
-        AddGlobalVariable(temporary,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlag);
+        AddGlobalVariable(temporary,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlags);
 
         /*
@@ -1131 +1147 @@
             /////////////////////////
 
-            AddGlobalVariable(VarName,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlag);
+            AddGlobalVariable(VarName,SubScripts,&TypeInfo,TypeSize,InitBuf,ConstractParameter,dwFlags);
         }
         else{
@@ -1149 +1165 @@
 
             LocalVar=(VARIABLE *)HeapReAlloc(hHeap,0,LocalVar,(MaxLocalVarNum+1)*sizeof(VARIABLE));
+            VARIABLE *pVar = &LocalVar[MaxLocalVarNum];
+            MaxLocalVarNum++;
+
+            if( isRef ){
+                //参照型
+                pVar->fRef = REF_VARIABLE;
+                TypeSize = PTR_SIZE;
+            }
+            else pVar->fRef=0;
 
             for(i2=1,i3=0;i3<255;i3++){
                 //配列要素数
-                LocalVar[MaxLocalVarNum].SubScripts[i3]=SubScripts[i3];
+                pVar->SubScripts[i3]=SubScripts[i3];
 
                 if(SubScripts[i3]==-1) break;
@@ -1160 +1185 @@
             if(VarSize%8) VarSize+=8-(VarSize%8);
 
-            VARIABLE *pVar = &LocalVar[MaxLocalVarNum];
-
-            MaxLocalVarNum++;
-
             //変数データを追加
             lstrcpy(pVar->name,VarName);
-            pVar->fRef=0;
-            if(dwFlag & DIMFLAG_CONST) pVar->bConst = true;
+            if(dwFlags & DIMFLAG_CONST) pVar->bConst = true;
             else pVar->bConst = false;
             if(SubScripts[0]==-1) pVar->bArray=0;
@@ -1194 +1214 @@
                 if(!result){
                     //動的な式だった場合は代入演算を行う
-                    char temporary[8192];
-                    sprintf(temporary,"%s=%s",VarName,InitBuf);
-                    OpcodeCalc(temporary);
+                    if( isRef ){
+                        SetRefVariable( VarName, InitBuf );
+                    }
+                    else{
+                        char temporary[8192];
+                        sprintf(temporary,"%s=%s",VarName,InitBuf);
+                        OpcodeCalc(temporary);
+                    }
                 }
 
@@ -1227 +1252 @@
 
         //コンストラクタ呼び出し
-        if(TypeInfo.type==DEF_OBJECT&&(dwFlag&DIMFLAG_NONCALL_CONSTRACTOR)==0){
+        if(TypeInfo.type==DEF_OBJECT&&(dwFlags&DIMFLAG_NONCALL_CONSTRACTOR)==0&& isRef == false ){
             CallConstractor(VarName,SubScripts,TypeInfo,ConstractParameter);
         }
@@ -1239 +1264 @@
     }
 }
-void OpcodeDim(char *Parameter,DWORD dwFlag){
+void OpcodeDim(char *Parameter,DWORD dwFlags){
     int i,i2,i3,IsStr=0;
     char temporary[8192];
@@ -1261 +1286 @@
             temporary[i2]=0;
 
-            dim(temporary,dwFlag);
+            dim(temporary,dwFlags);
 
             if(Parameter[i]=='\0') break;
@@ -1322 +1347 @@
         }
     }
-    else if(pRelativeVar->dwKind==VAR_REFLOCAL){
+    else if( pRelativeVar->dwKind == VAR_REFLOCAL ){
         if(pRelativeVar->bOffsetOffset){
             //add r11,qword ptr[rsp+offset]

BasicCompiler64/Opcode.h

@@ -52 +52 @@
 
 //変数の種類
-#define NON_VAR         0
-#define VAR_GLOBAL      1   //Global Variable
-#define VAR_LOCAL       2   //Local Variable
-#define VAR_REFLOCAL    3   //Local Refference Variable
-#define VAR_DIRECTMEM   4   //Direct memory
+#define NON_VAR             0
+#define VAR_GLOBAL          1   //Global Variable
+#define VAR_LOCAL           2   //Local Variable
+#define VAR_REFLOCAL        3   //Local Refference Variable
+#define VAR_DIRECTMEM       5   //Direct memory
+
 
 extern int cp;
@@ -245 +246 @@
 void SetVariableFromRax(int VarType,int CalcType,RELATIVE_VAR *pRelativeVar);
 void OpcodeCalc(char *Command);
+void SetRefVariable( const char *varname, const char *expression );
 
 //NumOpe.cpp
@@ -310 +312 @@
 void GetWithName(char *buffer);
 void SetThisPtrToReg(int reg);
-BOOL GetVarOffset(bool isErrorEnabled,bool isWriteAccess,char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
+BOOL GetVarOffset(bool isErrorEnabled,bool isWriteAccess,const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
 BOOL SetInitGlobalData(int offset,int type,LONG_PTR lpIndex,int *SubScripts,char *InitBuf);
-#define DIMFLAG_INITDEBUGVAR            1
-#define DIMFLAG_NONCALL_CONSTRACTOR     2
-#define DIMFLAG_STATIC                  4
-#define DIMFLAG_CONST                   8
+#define DIMFLAG_INITDEBUGVAR            0x01
+#define DIMFLAG_NONCALL_CONSTRACTOR     0x02
+#define DIMFLAG_STATIC                  0x04
+#define DIMFLAG_CONST                   0x08
 void OpcodeDim(char *Parameter,DWORD dwFlag);
 void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar);

BasicCompiler64/WatchList.cpp

@@ -24 +24 @@
         return pobj_dti->lplpSpBase[i2]+pRelativeVar->offset;
     }
-    else if(pRelativeVar->dwKind==VAR_REFLOCAL){
+    else if( pRelativeVar->dwKind == VAR_REFLOCAL ){
         extern HWND hDebugWnd;
         i2=(int)SendDlgItemMessage(hDebugWnd,IDC_PROCCOMBO,CB_GETCURSEL,0,0);

BasicCompiler_Common/BasicFixed.h

@@ -54 +54 @@
 #define NATURAL_TYPE(t) ((t)&MASK_NATURAL)
 #define MAKE_PTR_TYPE(t,p)  ((t)|((p)<<8))
+#define PTR_LEVEL_UP(t) MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1)
 
 #define DEF_PTR_BYTE    MAKE_PTR_TYPE(DEF_BYTE,1)
@@ -168 +169 @@
 #define ESC_ENDTRY      'm' //End Try
 //EXEファイル用制御エスケープシーケンス
-#define ESC_USING       'n' //Print命令語のUsing
-#define ESC_FOR         'o' //Open命令語のFor
-#define ESC_LINENUM     'p' //行番号を示す
+#define ESC_USING       'o' //Print命令語のUsing
+#define ESC_FOR         'p' //Open命令語のFor
+#define ESC_LINENUM     'q' //行番号を示す
 
 //オブジェクト指向エスケープシーケンス

BasicCompiler_Common/Class.cpp

@@ -18 +18 @@
 
 
-CMember::CMember( CClass *pobj_c, DWORD access, bool isConst, char *buffer, int NowLine ){
+CMember::CMember( CClass *pobj_c, DWORD access, bool isConst, bool isRef, char *buffer, int NowLine ){
     extern int cp;
 
@@ -25 +25 @@
     char init_buf[VN_SIZE];
     char constract_parameter[VN_SIZE];
-    GetDimentionFormat(buffer,VarName,SubScripts,&TypeInfo,init_buf,constract_parameter);
+    GetDimentionFormat(buffer,isRef,VarName,SubScripts,&TypeInfo,init_buf,constract_parameter);
 
     //重複チェック
@@ -49 +49 @@
     this->isConst = isConst;
 
+    //参照型かどうか
+    this->isRef = isRef;
+
     //初期データ
     InitBuf=(char *)HeapAlloc(hHeap,0,lstrlen(init_buf)+1);
@@ -70 +73 @@
     //定数扱いかどうか
     isConst = pobj->isConst;
+
+    //参照型かどうか
+    isRef = pobj->isRef;
 
     //SubScripts
@@ -91 +97 @@
 bool CMember::IsConst(){
     return isConst;
+}
+bool CMember::IsRef(){
+    return isRef;
+}
+
+int CMember::GetSize(){
+    if( IsRef() ){
+        // 参照型
+        return PTR_SIZE;
+    }
+
+    //メンバサイズを取得
+    return GetTypeSize(TypeInfo.type,TypeInfo.u.lpIndex);
 }
 
@@ -264 +283 @@
     pobj_InheritsClass = pInheritsClass;
 }
-void CClass::AddMember( DWORD dwAccess, bool isConst, char *buffer ){
+void CClass::AddMember( DWORD dwAccess, bool isConst, bool isRef, char *buffer ){
     ppobj_Member = (CMember **)HeapReAlloc( hHeap, 0, ppobj_Member, ( iMemberNum + 1 ) * sizeof(CMember *) );
-    ppobj_Member[iMemberNum] = new CMember( this, dwAccess, isConst, buffer );
+    ppobj_Member[iMemberNum] = new CMember( this, dwAccess, isConst, isRef, buffer );
     iMemberNum++;
 }
-void CClass::AddStaticMember( DWORD dwAccess, bool isConst, char *buffer, int NowLine ){
+void CClass::AddStaticMember( DWORD dwAccess, bool isConst, bool isRef, char *buffer, int NowLine ){
     ppobj_StaticMember=(CMember **)HeapReAlloc(hHeap,0,ppobj_StaticMember,(iStaticMemberNum+1)*sizeof(CMember *));
-    ppobj_StaticMember[iStaticMemberNum]=new CMember( this, dwAccess, isConst, buffer, NowLine );
+    ppobj_StaticMember[iStaticMemberNum]=new CMember( this, dwAccess, isConst, isRef, buffer, NowLine );
     iStaticMemberNum++;
 }
@@ -439 +458 @@
     //コンポジションの関係にあるメンバも検査する
     for(int i=0;i < iMemberNum;i++){
-        if(ppobj_Member[i]->TypeInfo.type==DEF_OBJECT){
+        if(ppobj_Member[i]->TypeInfo.type==DEF_OBJECT && ppobj_Member[i]->IsRef() == false){
             if(ppobj_Member[i]->TypeInfo.u.pobj_Class->IsAbstract())
                 return true;
@@ -809 +828 @@
     int i,i2,bRet=1;
     for(i=0;i<pobj_c->iMemberNum;i++){
-        if(pobj_c->ppobj_Member[i]->TypeInfo.type==DEF_OBJECT){
+        CMember *pMember = pobj_c->ppobj_Member[i];
+        if(pMember->TypeInfo.type==DEF_OBJECT && pMember->IsRef()==false ){
             //循環参照でないかをチェック
-            if(pobj_LoopRefCheck->check(pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class->name)){
+            if(pobj_LoopRefCheck->check(pMember->TypeInfo.u.pobj_Class->name)){
                 extern int cp;
-                SetError(123,pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class->name,cp);
+                SetError(124,pMember->TypeInfo.u.pobj_Class->name,cp);
                 return 0;
             }
@@ -819 +839 @@
             pobj_LoopRefCheck->add(pobj_c->name);
 
-            i2=MemberVar_LoopRefCheck(pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class);
+            i2=MemberVar_LoopRefCheck(pMember->TypeInfo.u.pobj_Class);
             if(bRet==1) bRet=i2;
 
@@ -1132 +1152 @@
                 }
 
+                //Ref修飾子
+                bool isRef = false;
+                if( basbuf[i] == 1 && basbuf[i + 1] == ESC_BYREF ){
+                    isRef = true;
+                    i += 2;
+                }
+
                 if(basbuf[i]==1&&(
                     basbuf[i+1]==ESC_ABSTRACT||basbuf[i+1]==ESC_VIRTUAL||basbuf[i+1]==ESC_OVERRIDE||
@@ -1209 +1236 @@
                         //静的メンバを追加
                         cp=i;   //エラー用
-                        pobj_c->AddStaticMember( dwAccess, isConst, temporary, i);
+                        pobj_c->AddStaticMember( dwAccess, isConst, isRef, temporary, i);
                     }
                     else{
                         //メンバを追加
                         cp=i;   //エラー用
-                        pobj_c->AddMember( dwAccess, isConst, temporary );
+                        pobj_c->AddMember( dwAccess, isConst, isRef, temporary );
 
 
@@ -1237 +1264 @@
                 }
                 else{
+                    // 文法エラーチェック
+                    if( isRef ){
+                        SetError(1,NULL,cp);
+                    }
+
                     //メソッドを追加
                     cp=i;   //エラー用

BasicCompiler_Common/Class.h

@@ -20 +20 @@
 class CMember{
     bool isConst;
+    bool isRef;
 public:
     char *name;
@@ -33 +34 @@
 
 
-    CMember( CClass *pobj_c, DWORD access, bool idConst, char *buffer, int NowLine=-1 );
+    CMember( CClass *pobj_c, DWORD access, bool idConst, bool isRef, char *buffer, int NowLine=-1 );
     CMember( CMember *pobj );
     CMember();
@@ -39 +40 @@
 
     bool IsConst();
+    bool IsRef();
+    int GetSize();
 
 
@@ -98 +101 @@
     void Inherits( CClass *pInheritsClass );
 
-    void AddMember( DWORD dwAccess, bool idConst, char *buffer );
-    void AddStaticMember( DWORD dwAccess, bool isConst, char *buffer, int NowLine );
+    void AddMember( DWORD dwAccess, bool idConst, bool isRef, char *buffer );
+    void AddStaticMember( DWORD dwAccess, bool isConst, bool isRef, char *buffer, int NowLine );
     void AddMethod( SUBINFO *psi,DWORD dwAccess, bool isConst, BOOL bAbstract, BOOL bVirtual );
     void AddStaticMethod(SUBINFO *psi,DWORD dwAccess);

BasicCompiler_Common/Intermediate_Step2.cpp

@@ -375 +375 @@
                 break;
             case ESC_CONST:
+            case ESC_BYREF:
                 KillStringSpaces(Command+2);
                 break;

BasicCompiler_Common/Object.cpp

@@ -17 +17 @@
 
     for(i=0;i<pobj_c->iMemberNum;i++){
-        if(pobj_c->ppobj_Member[i]->TypeInfo.type==DEF_OBJECT){
+        CMember *pMember = pobj_c->ppobj_Member[i];
+
+        if(pMember->TypeInfo.type==DEF_OBJECT && pMember->IsRef() == false){
             //メンバクラスのアラインメントを取得
-            member_size=GetAlignment(pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class);
+            member_size=GetAlignment(pMember->TypeInfo.u.pobj_Class);
         }
         else{
             //メンバサイズを取得
-            member_size=GetTypeSize(pobj_c->ppobj_Member[i]->TypeInfo.type,pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex);
+            member_size = pMember->GetSize();
         }
 
@@ -49 +51 @@
     int iMaxAlign=0;
     for(i=0;i<pobj_c->iMemberNum;i++){
-        //メンバ変数の型サイズを取得
-        i2=GetTypeSize(pobj_c->ppobj_Member[i]->TypeInfo.type,pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex);
-        if(i2==-1) return -1;
+        CMember *pMember = pobj_c->ppobj_Member[i];
+
+        i2 = pMember->GetSize();
 
         //アラインメントを算出
         int member_size;
-        if(pobj_c->ppobj_Member[i]->TypeInfo.type==DEF_OBJECT){
+        if(pMember->TypeInfo.type==DEF_OBJECT){
             //メンバクラスのアラインメントを取得
-            member_size=GetAlignment(pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class);
+            member_size=GetAlignment(pMember->TypeInfo.u.pobj_Class);
         }
         else{
@@ -83 +85 @@
         if(pMemberName){
             //メンバ指定がある場合は、オフセットを返す
-            if(lstrcmp(pobj_c->ppobj_Member[i]->name,pMemberName)==0){
+            if(lstrcmp(pMember->name,pMemberName)==0){
                 if(pMemberNum) *pMemberNum=i;
                 return offset;
@@ -90 +92 @@
 
         //配列を考慮したメンバサイズを取得
-        member_size=i2 * JumpSubScripts(pobj_c->ppobj_Member[i]->SubScripts);
+        member_size=i2 * JumpSubScripts(pMember->SubScripts);
 
         //メンバサイズを加算

BasicCompiler_Common/Subroutine.cpp

@@ -687 +687 @@
         ///////////////////
 
+        psi->isReturnRef = false;
+
         if(pobj_c){
             if(lstrcmp(psi->name,pobj_c->name)==0||
@@ -701 +703 @@
         for(;i2>0;i2--){
             if(buffer[i2]==')') break;
+
             if(buffer[i2]==1&&buffer[i2+1]==ESC_AS){
+                if( buffer[i2-2] == 1 && buffer[i2-1] == ESC_BYREF ){
+                    //参照型
+                    psi->isReturnRef = true;
+                }
+
                 i2+=2;
                 i3=0;
@@ -1033 +1041 @@
     }
 
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
         i = psi->RealParmNum;
 

BasicCompiler_Common/Variable.cpp

@@ -629 +629 @@
     return type;
 }
-int GetVarType(char *NameBuffer,LONG_PTR *plpIndex,BOOL bError){
+int GetVarType(const char *NameBuffer,LONG_PTR *plpIndex,BOOL bError){
     extern BOOL bCompilingGlobal;
     int i;
@@ -840 +840 @@
 }
 
-BOOL GetVarOffsetReadOnly(char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
+BOOL GetVarOffsetReadOnly(const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
     //読み取り専用で変数へアクセス
     return GetVarOffset(
@@ -851 +851 @@
         pss);
 }
-BOOL GetVarOffsetReadWrite(char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
+BOOL GetVarOffsetReadWrite(const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
     //読み書き両用で変数へアクセス
     return GetVarOffset(
@@ -865 +865 @@
 
 
-BOOL GetDimentionFormat(char *buffer,char *VarName,int *SubScripts,TYPEINFO *pTypeInfo,char *InitBuf,char *ConstractParameter){
+BOOL GetDimentionFormat(const char *buffer, const bool isRef, char *VarName,int *SubScripts,TYPEINFO *pTypeInfo,char *InitBuf,char *ConstractParameter){
     int i,i2,i3,IsStr;
     char variable[VN_SIZE],temporary[8192];
@@ -998 +998 @@
         else{
             //初期値の型を判別して自動的に型情報を付加する
-
             TYPEINFO BaseType = GetStringTypeInfo();
             int result = NumOpe_GetType( InitBuf, &BaseType, &pTypeInfo->u.lpIndex );
@@ -1015 +1014 @@
     }
 
-    if( pTypeInfo->type == DEF_OBJECT && InitBuf[0] != '\0' && InitBuf[0] != '[' ){
+    if( pTypeInfo->type == DEF_OBJECT && InitBuf[0] != '\0' && InitBuf[0] != '[' && isRef == false ){
         lstrcpy( ConstractParameter, InitBuf );
         InitBuf[0] = 0;

BasicCompiler_Common/Variable.h

@@ -22 +22 @@
 void GetArrange(char *variable,char *variAnswer,int *SubScripts);
 int GetTypeFromSimpleName(char *variable);
-int GetVarType(char *NameBuffer,LONG_PTR *plpIndex,BOOL bError);
-BOOL GetVarOffsetReadOnly(char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
-BOOL GetVarOffsetReadWrite(char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
-BOOL GetDimentionFormat(char *buffer,char *VarName,int *SubScripts,TYPEINFO *pTypeInfo,char *InitBuf,char *ConstractParameter);
+int GetVarType(const char *NameBuffer,LONG_PTR *plpIndex,BOOL bError);
+BOOL GetVarOffsetReadOnly(const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
+BOOL GetVarOffsetReadWrite(const char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss=0);
+BOOL GetDimentionFormat(const char *buffer, const bool isRef, char *VarName,int *SubScripts,TYPEINFO *pTypeInfo,char *InitBuf,char *ConstractParameter);
 BOOL GetNowStaticVarFullName(char *VarName,char *FullName);
 void AddGlobalVariable(char *name,int *SubScripts,TYPEINFO *pTypeInfo,int TypeSize,char *InitBuf,char *ConstractParameter,DWORD dwFlag);

BasicCompiler_Common/common.h

@@ -157 +157 @@
 #define REF_PARAMETER 1
 #define OBJECT_PARAMETER 2
+#define REF_VARIABLE 4
 struct VARIABLE{
     char name[255];
@@ -243 +244 @@
         CClass *Return_pobj_c;
     }u;
+    bool isReturnRef;
 
     DWORD CompileAddress;
@@ -574 +576 @@
 
 //error.cpp
-void SetError(int ErrorNum,char *KeyWord,int pos);
+void SetError(int ErrorNum,const char *KeyWord,int pos);
 void CompileMessage(char *buffer);
 void CheckDifferentType(int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum);

BasicCompiler_Common/error.cpp

@@ -1 +1 @@
 #include "../BasicCompiler_Common/common.h"
 
-BOOL GetErrorMsg(int num,char *KeyWord,char *msg,int pos){
+BOOL GetErrorMsg(int num,const char *KeyWord,char *msg,int pos){
     extern HANDLE hHeap;
     int i2;
     char temporary[64];
 
+    char tempKeyWord[1024];
     if(KeyWord){
+        lstrcpy(tempKeyWord,KeyWord);
         for(i2=0;;i2++){
-            if(KeyWord[i2]=='\0') break;
-            if(KeyWord[i2]==1){
-                GetDefaultNameFromES(KeyWord[i2+1],temporary);
-                SlideString(KeyWord+i2+2,lstrlen(temporary)-2);
-                memcpy(KeyWord+i2,temporary,lstrlen(temporary));
+            if(tempKeyWord[i2]=='\0') break;
+            if(tempKeyWord[i2]==1){
+                GetDefaultNameFromES(tempKeyWord[i2+1],temporary);
+                SlideString(tempKeyWord+i2+2,lstrlen(temporary)-2);
+                memcpy(tempKeyWord+i2,temporary,lstrlen(temporary));
             }
         }
     }
-
-    if(num==-1||num==-2) lstrcpy(msg,KeyWord);  //部分エラー
+    else{
+        lstrcpy(tempKeyWord,"");
+    }
+
+    if(num==-1||num==-2) lstrcpy(msg,tempKeyWord);  //部分エラー
 
     if(num==3){
-        temporary[0]=KeyWord[0];
+        temporary[0]=tempKeyWord[0];
         for(i2=1;;i2++){
-            if((!IsVariableChar(KeyWord[i2]))||i2>=255){
+            if((!IsVariableChar(tempKeyWord[i2]))||i2>=255){
                 temporary[i2]=0;
                 break;
             }
-            temporary[i2]=KeyWord[i2];
+            temporary[i2]=tempKeyWord[i2];
         }
 
@@ -52 +57 @@
 #if defined(JPN)
         //日本語
-        if(temporary[0]) sprintf(msg,"\"%s\" の使い方が不正です",KeyWord);
+        if(temporary[0]) sprintf(msg,"\"%s\" の使い方が不正です",tempKeyWord);
         else lstrcpy(msg,"文法が間違っています");
 #else
         //英語
-        if(temporary[0]) sprintf(msg,"How to use the \"%s\" is wrong.",KeyWord);
+        if(temporary[0]) sprintf(msg,"How to use the \"%s\" is wrong.",tempKeyWord);
         else lstrcpy(msg,"Syntax Error.");
 #endif
@@ -69 +74 @@
     //日本語
     ////////////////////
-    if(num==-101) sprintf(msg,"[警告] %sに強制変換されています。データが失われる可能性があります。",KeyWord);
-    if(num==-102) sprintf(msg,"[警告] %sに強制変換されています。",KeyWord);
-    if(num==-103) sprintf(msg,"[警告] \"%s\" 型が指定されていません。Double型として扱います。",KeyWord);
-    if(num==-104) sprintf(msg,"[警告] \"%s\" 戻り値の型が指定されていません。Double型として扱います。",KeyWord);
-    if(num==-105) sprintf(msg,"[警告] 一時オブジェクトの解放を行えません。キャスト用オブジェクトを用意してください。",KeyWord);
-    if(num==-106) sprintf(msg,"[警告] DLLファイル \"%s\" が見つかりません。",KeyWord);
-    if(num==-107) sprintf(msg,"[警告] DLL関数 \"%s\" を参照できません。",KeyWord);
+    if(num==-101) sprintf(msg,"[警告] %sに強制変換されています。データが失われる可能性があります。",tempKeyWord);
+    if(num==-102) sprintf(msg,"[警告] %sに強制変換されています。",tempKeyWord);
+    if(num==-103) sprintf(msg,"[警告] \"%s\" 型が指定されていません。Double型として扱います。",tempKeyWord);
+    if(num==-104) sprintf(msg,"[警告] \"%s\" 戻り値の型が指定されていません。Double型として扱います。",tempKeyWord);
+    if(num==-105) sprintf(msg,"[警告] 一時オブジェクトの解放を行えません。キャスト用オブジェクトを用意してください。",tempKeyWord);
+    if(num==-106) sprintf(msg,"[警告] DLLファイル \"%s\" が見つかりません。",tempKeyWord);
+    if(num==-107) sprintf(msg,"[警告] DLL関数 \"%s\" を参照できません。",tempKeyWord);
 #else
 #endif
@@ -91 +96 @@
     if(num==2) sprintf(msg,"左のオペランドが、左辺値になっていません");
     //num==3は予約されています
-    if(num==4) sprintf(msg,"%sの相互関係が一致しません",KeyWord);
+    if(num==4) sprintf(msg,"%sの相互関係が一致しません",tempKeyWord);
     if(num==5) sprintf(msg,"ダブルクォートの数が一致しません");
-    if(num==6) sprintf(msg,"\"%s\" ジャンプ先が不正です",KeyWord);
+    if(num==6) sprintf(msg,"\"%s\" ジャンプ先が不正です",tempKeyWord);
     if(num==7) lstrcpy(msg,"DLL名が長すぎます（拡張子を含め、16文字以下にして下さい）");
     if(num==8) lstrcpy(msg,"コンパイラが認識できない文字コードが含まれています");
     if(num==9) sprintf(msg,"型が違います");
-    if(num==10) sprintf(msg,"\"%s\" のパラメータ指定が間違っています",KeyWord);
-    if(num==11) sprintf(msg,"\"%s\" 型が違います",KeyWord);
-    if(num==12) sprintf(msg,"\"%s\" の使い方が不正です",KeyWord);
-    if(num==13) sprintf(msg,"\"%s\" を参照できません",KeyWord);
-    if(num==14) sprintf(msg,"\"%s\" 配列指定が不正です",KeyWord);
-    if(num==15) sprintf(msg,"\"%s\" はすでに定義されています",KeyWord);
-    if(num==16) sprintf(msg,"\"%s\" 配列、またはポインタ以外の変数に添え字が指定されています",KeyWord);
+    if(num==10) sprintf(msg,"\"%s\" のパラメータ指定が間違っています",tempKeyWord);
+    if(num==11) sprintf(msg,"\"%s\" 型が違います",tempKeyWord);
+    if(num==12) sprintf(msg,"\"%s\" の使い方が不正です",tempKeyWord);
+    if(num==13) sprintf(msg,"\"%s\" を参照できません",tempKeyWord);
+    if(num==14) sprintf(msg,"\"%s\" 配列指定が不正です",tempKeyWord);
+    if(num==15) sprintf(msg,"\"%s\" はすでに定義されています",tempKeyWord);
+    if(num==16) sprintf(msg,"\"%s\" 配列、またはポインタ以外の変数に添え字が指定されています",tempKeyWord);
     if(num==17) sprintf(msg,"リソース データが不正です");
-    if(num==18) sprintf(msg,"\"%s\"はポインタ変数型です。文字列演算を指定することはできません",KeyWord);
-    if(num==19) sprintf(msg,"\"%s\"は値参照型です。ByVal指定することはできません",KeyWord);
+    if(num==18) sprintf(msg,"\"%s\"はポインタ変数型です。文字列演算を指定することはできません",tempKeyWord);
+    if(num==19) sprintf(msg,"\"%s\"は値参照型です。ByVal指定することはできません",tempKeyWord);
     if(num==20) lstrcpy(msg,"全角スペースが含まれています（全角スペースはコンパイラが認識できないので、半角スペースまたはタブ文字にしてください）");
     if(num==21) sprintf(msg,"If制御のブロック指定が不正です");
-    if(num==22) sprintf(msg,"\"%s\" に対する \"End %s\" が見つかりません",KeyWord,KeyWord);
-    if(num==23) sprintf(msg,"リソース ファイル \"%s\" の読み込みに失敗",KeyWord);
+    if(num==22) sprintf(msg,"\"%s\" に対する \"End %s\" が見つかりません",tempKeyWord,tempKeyWord);
+    if(num==23) sprintf(msg,"リソース ファイル \"%s\" の読み込みに失敗",tempKeyWord);
     if(num==24) lstrcpy(msg,"Export指定の関数のパラメータには実体オブジェクトを利用することはできません（BytePtr型などを利用して下さい）");
-    if(num==27) sprintf(msg,"\"%s\" は定義されていません",KeyWord);
-    if(num==28) sprintf(msg,"構造体パラメータはポインタ参照にしてください(%s)",KeyWord);
+    if(num==27) sprintf(msg,"\"%s\" は定義されていません",tempKeyWord);
+    if(num==28) sprintf(msg,"構造体パラメータはポインタ参照にしてください(%s)",tempKeyWord);
     if(num==29) sprintf(msg,"配列ポインタを要素と同時に引渡すときは、ポインタ参照（ByRef）にしてください");
     //num==30は予約されています
-    if(num==31) sprintf(msg,"\"%s\" は構造体です（メンバの参照はピリオド \".\" で区切ってください）",KeyWord);
-    if(num==32) sprintf(msg,"\"%s\" は構造体ポインタです（メンバの参照は \"->\" で区切ってください）",KeyWord);
+    if(num==31) sprintf(msg,"\"%s\" は構造体です（メンバの参照はピリオド \".\" で区切ってください）",tempKeyWord);
+    if(num==32) sprintf(msg,"\"%s\" は構造体ポインタです（メンバの参照は \"->\" で区切ってください）",tempKeyWord);
     if(num==33) sprintf(msg,"定数式にリテラル値、または定数以外のものが含まれています");
     if(num==34) sprintf(msg,"定数はモジュールレベルで宣言して下さい");
-    if(num==38) sprintf(msg,"\"%s\" 戻り値が存在しないプロシージャです",KeyWord);
-    if(num==39) sprintf(msg,"\"%s\" はオブジェクトポインタではありません（\"->\" 参照はできません）",KeyWord);
+    if(num==38) sprintf(msg,"\"%s\" 戻り値が存在しないプロシージャです",tempKeyWord);
+    if(num==39) sprintf(msg,"\"%s\" はオブジェクトポインタではありません（\"->\" 参照はできません）",tempKeyWord);
     if(num==40) lstrcpy(msg,"関数の戻り値にオブジェクトを指定することはできません");
     if(num==41) lstrcpy(msg,"初期データが不正です");
     if(num==42) lstrcpy(msg,"閉じカッコ \")\" の後に不正な文字が含まれています");
     if(num==43) lstrcpy(msg,"ダブルクォートの後に不正な文字が含まれています");
-    if(num==45) sprintf(msg,"実数に対して \"%s\" 演算子は利用できません",KeyWord);
+    if(num==45) sprintf(msg,"実数に対して \"%s\" 演算子は利用できません",tempKeyWord);
     if(num==46) lstrcpy(msg,"配列の添え字に整数以外の値が与えられています");
     if(num==47) lstrcpy(msg,"As演算子の右辺値に型名以外の識別子が指定されています");
-    if(num==48) sprintf(msg,"%s演算子に対して型名が指定されています",KeyWord);
+    if(num==48) sprintf(msg,"%s演算子に対して型名が指定されています",tempKeyWord);
     if(num==49) lstrcpy(msg,"添え字に整数以外の型が指定されています");
-    if(num==50) sprintf(msg,"%sに変換できません",KeyWord);
+    if(num==50) sprintf(msg,"%sに変換できません",tempKeyWord);
     if(num==51) lstrcpy(msg,"オブジェクト、構造体のアラインメント値は1,2,4,8,16のいずれかでなければなりません");
-    if(num==52) sprintf(msg,"\"%s\" オーバーロードを解決できません",KeyWord);
-    if(num==53) sprintf(msg,"\"%s\" 出力ファイルの書き込みに失敗しました。実行されている可能性があります",KeyWord);
-    if(num==54) sprintf(msg,"対応する%sが存在しません。",KeyWord);
-    if(num==55) sprintf(msg,"\"%s\" は対応するForステートメントで利用されるカウンタ変数ではありません。",KeyWord);
+    if(num==52) sprintf(msg,"\"%s\" オーバーロードを解決できません",tempKeyWord);
+    if(num==53) sprintf(msg,"\"%s\" 出力ファイルの書き込みに失敗しました。実行されている可能性があります",tempKeyWord);
+    if(num==54) sprintf(msg,"対応する%sが存在しません。",tempKeyWord);
+    if(num==55) sprintf(msg,"\"%s\" は対応するForステートメントで利用されるカウンタ変数ではありません。",tempKeyWord);
     if(num==56) lstrcpy(msg,"ゼロ割りが行われました。");
     if(num==57) lstrcpy(msg,"8進数のリテラル表記が不正です。");
     if(num==58) lstrcpy(msg,"16進数のリテラル表記が不正です。");
-    if(num==59) sprintf(msg,"マニフェスト ファイル \"%s\" の読み込みに失敗。",KeyWord);
+    if(num==59) sprintf(msg,"マニフェスト ファイル \"%s\" の読み込みに失敗。",tempKeyWord);
     if(num==60) lstrcpy(msg,"Staticステートメントはグローバル領域では使用できません。");
-    if(num==61) sprintf(msg,"\"%s\" は定数です。書き込みアクセスはできません。",KeyWord);
-    if(num==62) sprintf(msg,"グローバル領域でのReturnは禁止されています。",KeyWord);
+    if(num==61) sprintf(msg,"\"%s\" は定数です。書き込みアクセスはできません。",tempKeyWord);
+    if(num==62) sprintf(msg,"グローバル領域でのReturnは禁止されています。",tempKeyWord);
 
 
     //オブジェクト関連
-    if(num==102) sprintf(msg,"\"%s\" オブジェクトは定義されていません",KeyWord);
-    if(num==103) sprintf(msg,"\"%s\" メンバは定義されていません",KeyWord);
-    if(num==104) sprintf(msg,"\"%s\" 参照方法が違います",KeyWord);
-    if(num==105) sprintf(msg,"\"%s\" 自身のクラスを継承することはできません",KeyWord);
-    if(num==106) sprintf(msg,"\"%s\" クラスは定義されていません",KeyWord);
-    if(num==107) sprintf(msg,"Privateメンバ \"%s\" にアクセスすることはできません",KeyWord);
-    if(num==108) sprintf(msg,"Protectedメンバ \"%s\" にアクセスすることはできません",KeyWord);
-    if(num==109) sprintf(msg,"Privateメンバ関数 \"%s\" を呼び出すことはできません",KeyWord);
-    if(num==110) sprintf(msg,"Protectedメンバ関数 \"%s\" を呼び出すことはできません",KeyWord);
+    if(num==102) sprintf(msg,"\"%s\" オブジェクトは定義されていません",tempKeyWord);
+    if(num==103) sprintf(msg,"\"%s\" メンバは定義されていません",tempKeyWord);
+    if(num==104) sprintf(msg,"\"%s\" 参照方法が違います",tempKeyWord);
+    if(num==105) sprintf(msg,"\"%s\" 自身のクラスを継承することはできません",tempKeyWord);
+    if(num==106) sprintf(msg,"\"%s\" クラスは定義されていません",tempKeyWord);
+    if(num==107) sprintf(msg,"Privateメンバ \"%s\" にアクセスすることはできません",tempKeyWord);
+    if(num==108) sprintf(msg,"Protectedメンバ \"%s\" にアクセスすることはできません",tempKeyWord);
+    if(num==109) sprintf(msg,"Privateメンバ関数 \"%s\" を呼び出すことはできません",tempKeyWord);
+    if(num==110) sprintf(msg,"Protectedメンバ関数 \"%s\" を呼び出すことはできません",tempKeyWord);
     if(num==111) lstrcpy(msg,"InheritsはClass定義内の先頭に記述する必要があります");
-    if(num==112) sprintf(msg,"\"%s\" はクラス型ではないため、初期パラメータを指定することはできません",KeyWord);
-    if(num==113) sprintf(msg,"\"%s\" コンストラクタへ渡すパラメータが不正です",KeyWord);
+    if(num==112) sprintf(msg,"\"%s\" はクラス型ではないため、初期パラメータを指定することはできません",tempKeyWord);
+    if(num==113) sprintf(msg,"\"%s\" コンストラクタへ渡すパラメータが不正です",tempKeyWord);
     if(num==114) lstrcpy(msg,"デストラクタはパラメータを持てません");
     if(num==115) lstrcpy(msg,"コンストラクタ及びデストラクタは戻り値を持てません");
@@ -164 +169 @@
     if(num==117) lstrcpy(msg,"デストラクタの名前が \"~クラス名\" になっていません");
     if(num==118) lstrcpy(msg,"参照する基底クラスが存在しません");
-    if(num==119) sprintf(msg,"\"%s\" メンバは基底クラスで定義されていません",KeyWord);
+    if(num==119) sprintf(msg,"\"%s\" メンバは基底クラスで定義されていません",tempKeyWord);
     if(num==120) lstrcpy(msg,"デストラクトするオブジェクトの型が不明です");
     if(num==121) lstrcpy(msg,"New演算子にはクラス以外の型を指定できません");
@@ -170 +175 @@
     if(num==123) lstrcpy(msg,"ループ継承が行われました");
     if(num==124) lstrcpy(msg,"循環参照が行われました");
-    if(num==125) sprintf(msg,"\"%s\" は抽象クラスです。インスタンス化することはできません。",KeyWord);
+    if(num==125) sprintf(msg,"\"%s\" は抽象クラスです。インスタンス化することはできません。",tempKeyWord);
     if(num==126) lstrcpy(msg,"オペレータのオーバーロードをクラスの外で行うことはできません。");
     if(num==127) lstrcpy(msg,"Override修飾子の指定が無い状況でオーバーライドを行うことはできません。");
     if(num==128) lstrcpy(msg,"オーバーライドを行うときはアクセシビリティを同一にしなければなりません。");
-    if(num==129) sprintf(msg,"静的メンバ \"%s\" は定義されていません。",KeyWord);
-    if(num==130) sprintf(msg,"\"%s\" はオブジェクト定数です。書き込みアクセスはできません。",KeyWord);
+    if(num==129) sprintf(msg,"静的メンバ \"%s\" は定義されていません。",tempKeyWord);
+    if(num==130) sprintf(msg,"\"%s\" はオブジェクト定数です。書き込みアクセスはできません。",tempKeyWord);
     if(num==131) lstrcpy(msg,"Const定義されたメソッド内でクラスメンバへの書き込みアクセスはできません。");
     if(num==132) lstrcpy(msg,"明示的なコンストラクタ呼び出しと初期値の指定を同時に行うことはできません。");
 
     //Enum関連
-    if(num==150) sprintf(msg,"\"%s\" 値が定義されていません",KeyWord);
-    if(num==151) sprintf(msg,"\"%s\" 列挙リストに登録されていません",KeyWord);
+    if(num==150) sprintf(msg,"\"%s\" 値が定義されていません",tempKeyWord);
+    if(num==151) sprintf(msg,"\"%s\" 列挙リストに登録されていません",tempKeyWord);
 
     //リンカ
-    if(num==200) sprintf(msg,"\"%s\" 未解決です (リンク エラー)",KeyWord);
-    if(num==201) sprintf(msg,"\"%s\" の読み込みに失敗",KeyWord);
+    if(num==200) sprintf(msg,"\"%s\" 未解決です (リンク エラー)",tempKeyWord);
+    if(num==201) sprintf(msg,"\"%s\" の読み込みに失敗",tempKeyWord);
 
     //原因不明
@@ -197 +202 @@
     if(num==2) sprintf(msg,"Left operand must be l-value.");
     //num==3は予約されています
-    if(num==4) sprintf(msg,"Correlation of %s is wrong.",KeyWord);
+    if(num==4) sprintf(msg,"Correlation of %s is wrong.",tempKeyWord);
     if(num==5) sprintf(msg,"Correlation of double quotes is wrong.");
-    if(num==6) sprintf(msg,"\"%s\" Label not found.",KeyWord);
+    if(num==6) sprintf(msg,"\"%s\" Label not found.",tempKeyWord);
     if(num==7) lstrcpy(msg,"The DLL name is too long. Must be 16 characters or less.");
     if(num==8) lstrcpy(msg,"The inaccurate characters are contained.");
     if(num==9) sprintf(msg,"Type is wrong.");
-    if(num==10) sprintf(msg,"\"%s\" Rule of parameter is wrong.",KeyWord);
-    if(num==11) sprintf(msg,"\"%s\" Type is wrong.",KeyWord);
-    if(num==12) sprintf(msg,"\"%s\" Not a valid use.",KeyWord);
-    if(num==13) sprintf(msg,"Cannot refer to \"%s\".",KeyWord);
-    if(num==14) sprintf(msg,"\"%s\" Array argument(s) out of bound.",KeyWord);
-    if(num==15) sprintf(msg,"\"%s\" is already defined.",KeyWord);
-    if(num==16) sprintf(msg,"\"%s\" Argument(s) following variable which is not pointer or array.",KeyWord);
+    if(num==10) sprintf(msg,"\"%s\" Rule of parameter is wrong.",tempKeyWord);
+    if(num==11) sprintf(msg,"\"%s\" Type is wrong.",tempKeyWord);
+    if(num==12) sprintf(msg,"\"%s\" Not a valid use.",tempKeyWord);
+    if(num==13) sprintf(msg,"Cannot refer to \"%s\".",tempKeyWord);
+    if(num==14) sprintf(msg,"\"%s\" Array argument(s) out of bound.",tempKeyWord);
+    if(num==15) sprintf(msg,"\"%s\" is already defined.",tempKeyWord);
+    if(num==16) sprintf(msg,"\"%s\" Argument(s) following variable which is not pointer or array.",tempKeyWord);
     if(num==17) sprintf(msg,"Invalid resource data.");
-    if(num==18) sprintf(msg,"\"%s\" Invalid operation on a pointer variable.",KeyWord);
-    if(num==19) sprintf(msg,"\"%s\" is already to be passed by value. You cannot use \"ByVal\".",KeyWord);
+    if(num==18) sprintf(msg,"\"%s\" Invalid operation on a pointer variable.",tempKeyWord);
+    if(num==19) sprintf(msg,"\"%s\" is already to be passed by value. You cannot use \"ByVal\".",tempKeyWord);
     if(num==21) sprintf(msg,"Wrong structure of \"If\" block.");
-    if(num==22) sprintf(msg,"No matching \"End %s\" found for \"%s\".",KeyWord,KeyWord);
-    if(num==23) sprintf(msg,"Cannot read the resource file \"%s\".",KeyWord);
+    if(num==22) sprintf(msg,"No matching \"End %s\" found for \"%s\".",tempKeyWord,tempKeyWord);
+    if(num==23) sprintf(msg,"Cannot read the resource file \"%s\".",tempKeyWord);
     if(num==24) lstrcpy(msg,"Must not use String type as an argument for exported function. (Use BytePtr type instead.)");
-    if(num==27) sprintf(msg,"\"%s\" Undefined procedure.",KeyWord);
-    if(num==28) sprintf(msg,"\"%s\" Structure must not be passed by value. (Use \"ByRef\".)",KeyWord);
+    if(num==27) sprintf(msg,"\"%s\" Undefined procedure.",tempKeyWord);
+    if(num==28) sprintf(msg,"\"%s\" Structure must not be passed by value. (Use \"ByRef\".)",tempKeyWord);
     if(num==29) sprintf(msg,"Array must not be passed by value. (Use \"ByRef\".)");
     //num==30は予約されています
-    if(num==31) sprintf(msg,"\"%s\" is a struct. (Use period \".\" to refer to the members.)",KeyWord);
-    if(num==32) sprintf(msg,"\"%s\" is a pointer of struct. (Use arrow \"->\" to refer to the members.)",KeyWord);
+    if(num==31) sprintf(msg,"\"%s\" is a struct. (Use period \".\" to refer to the members.)",tempKeyWord);
+    if(num==32) sprintf(msg,"\"%s\" is a pointer of struct. (Use arrow \"->\" to refer to the members.)",tempKeyWord);
     if(num==33) sprintf(msg,"Constant formula has a thing that is not literal value or constant value.");
     if(num==34) sprintf(msg,"Constant formula must be defined in the module level.");
-    if(num==38) sprintf(msg,"\"%s\" is a procedure without a return value.",KeyWord);
-    if(num==39) sprintf(msg,"\"%s\" is not object pointer. \"->\" is invalid.",KeyWord);
+    if(num==38) sprintf(msg,"\"%s\" is a procedure without a return value.",tempKeyWord);
+    if(num==39) sprintf(msg,"\"%s\" is not object pointer. \"->\" is invalid.",tempKeyWord);
     if(num==40) lstrcpy(msg,"Cannot set a object to return value.");
     if(num==41) lstrcpy(msg,"Init data is wrong.");
@@ -233 +238 @@
 
     //オブジェクト関連
-    if(num==102) sprintf(msg,"\"%s\" The object is not defined.",KeyWord);
-    if(num==103) sprintf(msg,"\"%s\" The member is not defined.",KeyWord);
-    if(num==104) sprintf(msg,"\"%s\" The reference character is different.",KeyWord);
-    if(num==105) sprintf(msg,"\"%s\" An own class is not inheritable.",KeyWord);
-    if(num==106) sprintf(msg,"\"%s\" It class is not defined.",KeyWord);
-    if(num==107) sprintf(msg,"\"%s\" Cannot access the private member.",KeyWord);
-    if(num==108) sprintf(msg,"\"%s\" Cannot access the protected member.",KeyWord);
-    if(num==109) sprintf(msg,"\"%s\" Cannot call the private member.",KeyWord);
-    if(num==110) sprintf(msg,"\"%s\" Cannot call the protected member.",KeyWord);
+    if(num==102) sprintf(msg,"\"%s\" The object is not defined.",tempKeyWord);
+    if(num==103) sprintf(msg,"\"%s\" The member is not defined.",tempKeyWord);
+    if(num==104) sprintf(msg,"\"%s\" The reference character is different.",tempKeyWord);
+    if(num==105) sprintf(msg,"\"%s\" An own class is not inheritable.",tempKeyWord);
+    if(num==106) sprintf(msg,"\"%s\" It class is not defined.",tempKeyWord);
+    if(num==107) sprintf(msg,"\"%s\" Cannot access the private member.",tempKeyWord);
+    if(num==108) sprintf(msg,"\"%s\" Cannot access the protected member.",tempKeyWord);
+    if(num==109) sprintf(msg,"\"%s\" Cannot call the private member.",tempKeyWord);
+    if(num==110) sprintf(msg,"\"%s\" Cannot call the protected member.",tempKeyWord);
     if(num==111) lstrcpy(msg,"The Inherits phrase must be described to the 1st line of class module");
-    if(num==112) sprintf(msg,"\"%s\" is not class object. Therefor you cannot set the parameter for constructor.",KeyWord);
-    if(num==113) sprintf(msg,"\"%s\" The parameter for constructor is wrong.",KeyWord);
+    if(num==112) sprintf(msg,"\"%s\" is not class object. Therefor you cannot set the parameter for constructor.",tempKeyWord);
+    if(num==113) sprintf(msg,"\"%s\" The parameter for constructor is wrong.",tempKeyWord);
     if(num==114) lstrcpy(msg,"Destructor cannot have a parameter.");
     if(num==115) lstrcpy(msg,"Constructor and Destructor cannot have a return value.");
@@ -250 +255 @@
     if(num==117) lstrcpy(msg,"Destructors name must be \"~ClassName\".");
     if(num==118) lstrcpy(msg,"Super class is not found.");
-    if(num==119) sprintf(msg,"\"%s\" The member is not defined in the super class.",KeyWord);
+    if(num==119) sprintf(msg,"\"%s\" The member is not defined in the super class.",tempKeyWord);
 
     //Enum関連
-    if(num==150) sprintf(msg,"\"%s\" The value is not set",KeyWord);
-    if(num==151) sprintf(msg,"\"%s\" is not found from enum lists.",KeyWord);
+    if(num==150) sprintf(msg,"\"%s\" The value is not set",tempKeyWord);
+    if(num==151) sprintf(msg,"\"%s\" is not found from enum lists.",tempKeyWord);
 
     //リンカ
-    if(num==200) sprintf(msg,"\"%s\" Unknown error.",KeyWord);
+    if(num==200) sprintf(msg,"\"%s\" Unknown error.",tempKeyWord);
 #endif
 
     return 1;
 }
-void SetError(int num,char *KeyWord,int pos){
+void SetError(int num,const char *KeyWord,int pos){
     extern HANDLE hHeap;
     extern HWND hMainDlg;