Changeset 221 for trunk/nom/src/nombuildclass.c

Timestamp:

Feb 3, 2007, 11:01:41 PM (19 years ago)

Author:

cinc

Message:

Changes...

File:

• trunk/nom/src/nombuildclass.c (modified) (19 diffs)

trunk/nom/src/nombuildclass.c

@@ -32 +32 @@
 *
 * ***** END LICENSE BLOCK ***** */
+/** \file
+    This File contains most of the magic to create classes for NOM.
+ */
 
 #define INCL_DOS
@@ -320 +323 @@
 
 
-/*
+/**
   - This function builds the nomMethodTab of class nClass.
   - Calculates the method thunks
@@ -328 +331 @@
   methods. 
  */
-void addMethodAndDataToThisPrivClassStruct(NOMClassPriv* nClass, NOMClassPriv* ncpParent, nomStaticClassInfo *sci) 
+boolean addMethodAndDataToThisPrivClassStruct(NOMClassPriv* nClass, NOMClassPriv* ncpParent, nomStaticClassInfo *sci) 
 {
   BYTE * mem;
@@ -334 +337 @@
 
 BUILDNOMCLASS_ENTER
+
+  /* Get mem for method thunking code. This assembler code is needed so the indirect
+     jump to the methods from the object pointer which is known does work. For each class
+     an individual thunking code must be calculated because the number of instance
+     variables is not defined. */
+  if(0!=sci->ulNumStaticMethods){
+    nClass->mThunk=NOMMalloc(sizeof(nomMethodThunk)*sci->ulNumStaticMethods);
+    if(!nClass->mThunk)
+      return FALSE;
+  }
 
   nClass->sci=sci;   /* Save static class info for internal use */
@@ -347 +360 @@
   nClass->parentMtabStruct.mtab=(nomMethodTab*)&nClass->thisMtab;
   
-#ifdef DEBUG_NOMBUILDCLASS
-  nomPrintf("nClass->mtabList.next: %x\n", nClass->mtabList.next);
-#endif
+  DBG_NOMBUILDCLASS(TRUE, "nClass->mtabList.next: %x\n", nClass->mtabList.next);
   
   /* There're some parents. Copy parent mtab data into new mtab. */
@@ -367 +378 @@
   /* Add class struct of this class. This includes the proc adresses. */
   if(sci->ulNumStaticMethods) {
-#ifdef DEBUG_NOMBUILDCLASS
-    nomPrintf("copy own data: %d (classptr+numProcs*procpointersize) from %x (cds, classDataStruct of %x) to %x (our mtab part)\n", 
-              sizeof(NOMClass*)+sci->ulNumStaticMethods*sizeof(nomMethodProc*),
-              sci->nomCds, sci->nomCds->nomClassObject, mem);
-#endif
+    DBG_NOMBUILDCLASS(TRUE, 
+                      "copy own data: %d (classptr+numProcs*procpointersize) from %x (cds, classDataStruct of %x) to %x (our mtab part)\n", 
+                      sizeof(NOMClass*)+sci->ulNumStaticMethods*sizeof(nomMethodProc*),
+                      sci->nomCds, sci->nomCds->nomClassObject, mem);
+
     nClass->entries0=(NOMClass**)mem; /* Our part in the mtab starts here. We need this position to insert the class object pointer
                                          later. */
@@ -396 +407 @@
   sci->ccds->instanceDataToken=&nClass->thunk;
 
-  BUILDNOMCLASS_LEAVE
+  BUILDNOMCLASS_LEAVE;
+  return TRUE;
 }
 
@@ -530 +542 @@
   if((nClass=(NOMClassPriv*)NOMCalloc(1, ulMemSize))==NULLHANDLE)
     return NULLHANDLE;
-
+#if 0
+  //Moved to addMethodAndDataToThisPrivClassStruct()
   /* Get mem for method thunking code */
   if(0!=sci->ulNumStaticMethods){
@@ -539 +552 @@
     }
   }
+#endif
+
   /* Add class struct of this class.
      This includes 
@@ -544 +559 @@
      -add the parent mtab info to the new built mtab
   */
-  addMethodAndDataToThisPrivClassStruct( nClass, ncpParent, sci) ;
-
+  if(!addMethodAndDataToThisPrivClassStruct( nClass, ncpParent, sci)){
+    NOMFree(nClass);
+    return NULLHANDLE;
+  };
+  
   DBG_NOMBUILDCLASS(TRUE, "%s:  mtab: %x\n", __FUNCTION__, nClass->mtab);
 
@@ -598 +616 @@
   nomClassMeta=_nomFindClassFromName(NOMClassMgrObject, *sci->nomExplicitMetaId, majorVersion, minorVersion, NULLHANDLE);
 
-#ifdef DEBUG_NOMBUILDCLASS
-  nomPrintf("%d: %x %s %s\n", __LINE__, nomClassMeta, *sci->nomClassId, *sci->nomExplicitMetaId);
-#endif
+    DBG_NOMBUILDCLASS(TRUE, "%x %s %s\n", nomClassMeta, *sci->nomClassId, *sci->nomExplicitMetaId);
 
   if(!nomClassMeta)
@@ -632 +648 @@
                             nomClass);
   
-#ifdef DEBUG_NOMBUILDCLASS
-  nomPrintf("%d: New class Object (child of NOMClass): %x \n", __LINE__, nomClass);
-#endif
+  DBG_NOMBUILDCLASS(TRUE, "New class Object (child of NOMClass): %x \n", nomClass);
 
   /* nomClassReady() is called in nomBuildClass() */
@@ -802 +816 @@
 }
 
-
+/**
+   Build a class for NOM from the data generated from the IDL compiler and
+   compiled into the DLL.
+ */
 NOMEXTERN NOMClass * NOMLINK nomBuildClass(gulong ulReserved,
                                            nomStaticClassInfo *sci,
@@ -886 +903 @@
     priv_buildNOMObjectClassInfo(ulReserved, sci, /* yes */
                                  ulMajorVersion, ulMinorVersion);
-    return NULLHANDLE; /* We can't return a SOMClass for SOMObject because SOMClass isn't built yet. */
+    return NULLHANDLE; /* We can't return a NOMClass for NOMObject because NOMClass isn't built yet. */
   }
 
@@ -907 +924 @@
     ncpParent=priv_findPrivClassInGlobalClassListFromName(pGlobalNomEnv,
                                                           **(sci->nomIdAllParents)); /* This may also return a class not derived
-                                                                                        from SOMClass */
+                                                                                        from NOMClass */
 #endif
     if(!ncpParent)
@@ -1008 +1025 @@
     return NULLHANDLE;
 
+#if 0
+  //Moved to addMethodAndDataToThisPrivClassStruct()
   if(0!=sci->ulNumStaticMethods){
     /* Get mem for method thunking code */
@@ -1016 +1035 @@
     }
   }
+#endif
 
   nClass->ulClassSize=sci->ulInstanceDataSize+ulParentDataSize;
 
   if((nomClass=(NOMClass*)NOMCalloc(1, sci->ulInstanceDataSize+ulParentDataSize))==NULLHANDLE) {
-    NOMFree(nClass->mThunk);
+    //NOMFree(nClass->mThunk);
     NOMFree(nClass);
     return NULLHANDLE;
@@ -1028 +1048 @@
 
   /* Add class struct of this class. This includes resolving the method adresses. */
-  addMethodAndDataToThisPrivClassStruct( nClass, ncpParent, sci) ;
+  if(!addMethodAndDataToThisPrivClassStruct( nClass, ncpParent, sci)){
+    NOMFree(nClass);
+    NOMFree(nomClass);
+    return NULLHANDLE;
+  };
 
   /* Resolve overrides if any */
@@ -1047 +1071 @@
   nClass->mtab->nomClassName=*sci->nomClassId;
   nClass->mtab->ulInstanceSize=sci->ulInstanceDataSize+ulParentDataSize; /* Size of instance data of this class and all
-                                                                        parent classes. This isn't actually allocated for this class
-                                                                        object but the entry is used when creating the objects. */
+                                                                            parent classes. This isn't actually allocated
+                                                                            for this class object but the entry is used
+                                                                            when creating the objects. */
   fillCClassDataStructParentMtab(sci, nClass, nomClass);