Changeset af42ca in git for Singular/extra.cc

Timestamp:

Jan 29, 2003, 5:13:12 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

cc86cd3b37e46f65f8f2f4c0bea2f9c0a3438043

Parents:

18e9f2f7714c20737d239d02c81a2a64fcc2e65b

Message:

*hannes: ref count etc.


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

File:

• Singular/extra.cc (modified) (2 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.192 2003-01-29 16:04:18 levandov Exp $ */
+/* $Id: extra.cc,v 1.193 2003-01-29 16:13:10 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -1400 +1400 @@
       {
         currRing->nc=(nc_struct *)omAlloc0(sizeof(nc_struct));
+        currRing->nc->ref=1;
       }
       else
       {
         WarnS("redefining algebra structure");
-        /* kill the previous nc data */
+        if (currRing->nc->ref>1) // in use by somebody else
+          currRing->nc->ref--;
+        else
+          ncKill(currRing); /* kill the previous nc data */
+        currRing->nc=(nc_struct *)omAlloc0(sizeof(nc_struct));
+        currRing->nc->ref=1;
       }
       currRing->nc->type=nc_general;