Changeset 35b6ca in git

Timestamp:

Sep 28, 2010, 6:26:05 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

3439667251c33cab0606d98bcb3db2a0312e68ab

Parents:

0af2004187271da7bb6f06f4612d7947d57c7b49

Message:

fixing attributes of type 'def' (+debug output for attributes)



git-svn-id: file:///usr/local/Singular/svn/trunk@13299 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/attrib.cc (modified) (4 diffs)

Singular/attrib.cc

@@ -80 +80 @@
 #ifdef TEST
   default:
-    ::Print("atKill: unknown type(%d)\n",h->atyp);  /* DEBUG */
+    ::Print("atKill: unknown type(%s [%d]) of attribute >>%s<<\n", Tok2Cmdname(h->atyp), h->atyp, h->name);  /* DEBUG */
 #endif
   } /* end switch: (atyp) */
@@ -103 +103 @@
   h->data = data;
   h->atyp = t;
-  //::Print("set attr >>%s<< of type %d\n",h->name,t);
+#ifdef TEST
+  ::Print("set attr >>%s<< of type %s\n",h->name, Tok2Cmdname(t));
+#endif
   return  result;
 }
@@ -112 +114 @@
   while (h!=NULL)
   {
-    if (0 == strcmp(s,h->name)) return h;
+    if (0 == strcmp(s,h->name)) 
+    { 
+#ifdef TEST
+      ::Print("get attr >>%s<< of type %s\n",h->name, Tok2Cmdname(h->atyp));
+#endif
+      return h;
+    }
     h = h->next;
   }
@@ -202 +210 @@
 void sattr::kill(const ring r)
 {
+  attr_free(this,r);
   omFree((ADDRESS)name);
   name=NULL;
-  attr_free(this,r);
   omFreeBin((ADDRESS)this, sattr_bin);
 }