Changeset 222 for trunk/nom/class_c

Timestamp:

Feb 4, 2007, 10:26:27 AM (19 years ago)

Author:

cinc

Message:

Remove finalizer from object before deleting it using delete(). Some other minor changes.

Location:

trunk/nom/class_c

Files:

• nomclassmanager.c (modified) (2 diffs)
• nomobj.c (modified) (2 diffs)

trunk/nom/class_c/nomclassmanager.c

@@ -89 +89 @@
   mtab=g_datalist_get_data(&_gdataClassList, className);
 
-  nomPrintf("-----> %s %s %x\n", __FUNCTION__, className, mtab);
+  //nomPrintf("-----> %s %s %x\n", __FUNCTION__, className, mtab);
 
   if(mtab){
@@ -225 +225 @@
 }
 
+/**
+   \brief Function which implements the nomSubstituteClass() method of NOMClassMgr.
+ */
+NOM_Scope CORBA_boolean NOMLINK impl_NOMClassMgr_nomSubstituteClass(NOMClassMgr* nomSelf,
+                                                                    const CORBA_char * oldClass, 
+                                                                    const CORBA_char * replacementClass,
+                                                                    CORBA_Environment *ev)
+{
+/* NOMClassMgrData* nomThis=NOMClassMgrGetData(nomSelf); */
+  NOMObject* oClass;
+  NOMObject* rClass;
+
+  if((oClass=_nomFindClassFromName( nomSelf, oldClass, 0, 0, NULLHANDLE))==NULLHANDLE)
+    return FALSE;
+
+  if((rClass=_nomFindClassFromName( nomSelf, replacementClass, 0, 0, NULLHANDLE))==NULLHANDLE)
+    return FALSE;
+
+  /* Save old class object pointer. Hmm, maybe not it's still in the old parentMtab */
+
+  /* Change the class object pointer in the nomClassDataStructure */
+
+  /* Reregister old class with new mtab in the internal list. Make sure we don't get
+     a warning by GLib */
+
+  return FALSE;
+}
+
 static
 int nomClassMgrCompareFunc(gconstpointer a, gconstpointer b)

trunk/nom/class_c/nomobj.c

@@ -45 +45 @@
 
 #include "nomobj.ih"
+
+#include "gc.h"
 
 /**
@@ -95 +97 @@
 {
 /* NOMObjectData* nomThis=NOMObjectGetData(nomSelf); */
+  GC_PTR oldData;
+  GC_finalization_proc oldFinalizerFunc;
+  NOMClassPriv *ncp;
+
+  /* Unregister finalizer if the class uses nomUnInit. This is done so nomUnInit isn't
+     called again when the memory is eventually collected by the GC. */
+  ncp=(NOMClassPriv*)nomSelf->mtab->nomClsInfo;
+  if(ncp->ulClassFlags & NOM_FLG_NOMUNINIT_OVERRIDEN){
+    /* A NULL finalizer function removes the finalizer */
+    GC_register_finalizer(nomSelf,  NULL, NULL, &oldFinalizerFunc, &oldData);
+  }
 
   /* Give object the chance to free resources */