Changeset 5 in dev for BasicCompiler_Common/Object.cpp

Timestamp:

Dec 5, 2006, 1:42:16 AM (18 years ago)

Author:

dai_9181

Message:

 

File:

• BasicCompiler_Common/Object.cpp (modified) (5 diffs)

BasicCompiler_Common/Object.cpp

@@ -4 +4 @@
 #include "../BasicCompiler64/opcode.h"
 #else
-#include "../BasicCompiler/opcode.h"
+#include "../BasicCompiler32/opcode.h"
 #endif
 
@@ -111 +111 @@
 
 
-void CallConstractor(char *VarName,int *SubScripts,TYPEINFO &TypeInfo,char *Parameter){
+void CallConstractor(char *ObjectName,int *SubScripts,TYPEINFO &TypeInfo,char *Parameter){
     if(TypeInfo.type!=DEF_OBJECT) return;
 
@@ -121 +121 @@
     pobj_c=(CClass *)TypeInfo.u.lpIndex;
 
-    char temporary[VN_SIZE];
-    sprintf(temporary,"%s.%s",VarName,pobj_c->name);
-
     SUBINFO *psi;
-    psi=GetSubHash(temporary);
+    psi=GetMethodHash(ObjectName,pobj_c->name,Parameter);
     if(!psi){
         if(Parameter[0]) SetError(113,pobj_c->name,cp);
         return;
     }
+
+
+    char temporary[VN_SIZE];
+
     if(SubScripts[0]!=-1){
         int ss[MAX_ARRAYDIM];
@@ -145 +146 @@
             }
             if(SubScripts[i3]==-1) break;
-            sprintf(temporary,"%s[%d",VarName,ss[0]);
+            sprintf(temporary,"%s[%d",ObjectName,ss[0]);
             for(i3=1;;i3++){
                 if(SubScripts[i3]==-1) break;
@@ -174 +175 @@
     else{
         LONG_PTR lp;
-        sprintf(temporary,"%s.%s",VarName,pobj_c->name);
+        sprintf(temporary,"%s.%s",ObjectName,pobj_c->name);
         CallProc(PROC_DEFAULT,
             psi,