Smalltalk subclass: Foo

The first issue reported on the new site. 

The test was there but was accessing a NULL pointer.

Paolo

--- orig/libgst/gst-parse.c
+++ mod/libgst/gst-parse.c
 -900,6
+900,7  parse_class (tree_node list)
  {
    const char* name;
    OOP currentOOP = _gst_current_namespace;
+  tree_node next;

    if (strcmp (list->v_list.name, "nil") ==
0)
        return _gst_nil_oop;
 -915,9
+916,8  parse_class (tree_node list)
           return NULL;
         }

-      list = list->v_list.next;
-
-      if (list == NULL)
+      next = list->v_list.next;
+      if (next == NULL)
  	{
  	  if (!_gst_object_is_kind_of (currentOOP,
_gst_class_class))
  	    {
 -937,6
+937,7  parse_class (tree_node list)
  	      return NULL;
  	    }
  	}
+      list = next;
      }
    while (list != NULL);



_______________________________________________
help-smalltalk mailing list
help-smalltalkgnu.org

http://lists.gnu.org/mailman/listinfo/help-smalltalk