Changeset 290 in dev for trunk/abdev/BasicCompiler_Common/Subroutine.cpp

Timestamp:

Aug 21, 2007, 11:00:25 PM (17 years ago)

Author:

dai_9181

Message:

ジェネリクスのベースを実装

File:

• trunk/abdev/BasicCompiler_Common/Subroutine.cpp (modified) (7 diffs)

trunk/abdev/BasicCompiler_Common/Subroutine.cpp

@@ -73 +73 @@
 }
 
-void SplitObjectName(const char *name,char *ObjectName,int *pRefType){
+void SplitObjectName(const char *name,char *ObjectName, ReferenceKind &referenceFind )
+{
+    referenceFind = RefNon;
+
     int i4;
     for(i4=lstrlen(name)-1;i4>=0;i4--){
@@ -82 +85 @@
     else{
         //参照タイプを判別
-        if(name[i4]=='.') *pRefType=DEF_OBJECT;
-        else *pRefType=DEF_PTR_OBJECT;
+        if(name[i4]=='.')
+        {
+            referenceFind = RefDot;
+        }
+        else
+        {
+            referenceFind = RefPointer;
+        }
 
         if(i4==0) GetWithName(ObjectName);
@@ -109 +118 @@
         //オブジェクト名を取得
         char ObjectName[VN_SIZE];
-        int RefType;
-        SplitObjectName(fullCallName,ObjectName,&RefType);
+        ReferenceKind referenceKind;
+        SplitObjectName(fullCallName,ObjectName, referenceKind );
 
 
@@ -131 +140 @@
 
         if( isCallOn ){
-            if( !Opcode_CallProc(lpszParms,pUserProc,0,ObjectName,RefType) ){
+            if( !Opcode_CallProc(lpszParms,pUserProc,0,ObjectName ) ){
                 return false;
             }
@@ -192 +201 @@
     //オブジェクト名を取得
     char ObjectName[VN_SIZE];
-    int RefType;
-    SplitObjectName(VarName,ObjectName,&RefType);
+    ReferenceKind referenceKind;
+    SplitObjectName(VarName,ObjectName, referenceKind );
 
     //オーバーロード用の関数リストを作成
@@ -216 +225 @@
     if(pUserProc){
         //呼び出し
-        Opcode_CallProc(Parameter,pUserProc,0,ObjectName,RefType);
+        Opcode_CallProc(Parameter,pUserProc,0,ObjectName);
 
         resultType = pUserProc->ReturnType();
@@ -235 +244 @@
     //オブジェクト名を取得
     char ObjectName[VN_SIZE];
-    int RefType;
-    SplitObjectName(VarName,ObjectName,&RefType);
+    ReferenceKind referenceKind;
+    SplitObjectName(VarName,ObjectName, referenceKind );
 
     //オーバーロード用の関数リストを作成