gEDA-cvs: gaf.git: branch: master updated (1.7.1-20110619-311-gf07ea66)

[git@xxxxxxxxxx]

The branch, master has been updated
       via  f07ea6693e22aa8e8895fe3026eafe424c87a585 (commit)
      from  78c8ee905dad0dbfde548debb2be5790d4b2fb71 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.


=========
 Summary
=========

 libgeda/src/scheme_smob.c |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)


=================
 Commit Messages
=================

commit f07ea6693e22aa8e8895fe3026eafe424c87a585
Author: Peter TB Brett <peter@xxxxxxxxxxxxx>
Commit: Peter TB Brett <peter@xxxxxxxxxxxxx>

    scheme-api: Properly clean up extra TOPLEVEL weakref in OBJECT smobs.
    
    Corrects mistake made in commit 78c8ee905dad.

:100644 100644 7fa1305... ef014a0... M	libgeda/src/scheme_smob.c

=========
 Changes
=========

commit f07ea6693e22aa8e8895fe3026eafe424c87a585
Author: Peter TB Brett <peter@xxxxxxxxxxxxx>
Commit: Peter TB Brett <peter@xxxxxxxxxxxxx>

    scheme-api: Properly clean up extra TOPLEVEL weakref in OBJECT smobs.
    
    Corrects mistake made in commit 78c8ee905dad.

diff --git a/libgeda/src/scheme_smob.c b/libgeda/src/scheme_smob.c
index 7fa1305..ef014a0 100644
--- a/libgeda/src/scheme_smob.c
+++ b/libgeda/src/scheme_smob.c
@@ -110,7 +110,11 @@ smob_free (SCM smob)
     s_page_weak_unref ((PAGE *) data, smob_weakref_notify, smob);
     break;
   case GEDA_SMOB_OBJECT:
+    /* See edascm_from_object() for an explanation of why OBJECT
+     * smobs store a TOPLEVEL in the second data word */
     s_object_weak_unref ((OBJECT *) data, smob_weakref_notify, smob);
+    s_toplevel_weak_unref ((TOPLEVEL *) SCM_SMOB_DATA_2 (smob),
+                           smob_weakref2_notify, smob);
     break;
   default:
     /* This should REALLY definitely never be run */
@@ -134,8 +138,8 @@ smob_free (SCM smob)
                  __FUNCTION__, data);
       break;
     case GEDA_SMOB_OBJECT:
-      /*! See edascm_from_object() for an explanation of why OBJECT
-       *  smobs store a TOPLEVEL in the second data word */
+      /* See edascm_from_object() for an explanation of why OBJECT
+       * smobs store a TOPLEVEL in the second data word */
       s_delete_object ((TOPLEVEL *) SCM_SMOB_DATA_2 (smob), (OBJECT *) data);
       break;
     default:




_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs