Changeset 40 in dev for BasicCompiler_Common/Variable.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler_Common/Variable.cpp (modified) (6 diffs)

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;