Changeset 91e88f in git

Timestamp:

Mar 23, 2021, 3:19:29 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

45cfbdd2c4a0a45449245e2f4db9109ade80ba37

Parents:

83b708e1e62df44f73360736db039f50d5fb9b14

Message:

uniqueness for ssiRings

File:

• Singular/links/ssiLink.cc (modified) (1 diff)

Singular/links/ssiLink.cc

@@ -619 +619 @@
     omFreeSize(names,N*sizeof(char*));
     rIncRefCnt(r);
+    // check if such ring already exist as ssiRing*
+    char name[20];
+    int nr=0;
+    idhdl h=NULL;
+    loop
+    {
+      sprintf(name,"ssiRing%d",nr); nr++;
+      h=IDROOT->get(name, 0);
+      if (h==NULL)
+      {
+        break;
+      }
+      else if ((IDTYP(h)==RING_CMD)
+      && (r!=IDRING(h))
+      && (rEqual(r,IDRING(h),1)))
+      {
+        rDelete(r);
+        r=rIncRefCnt(IDRING(h));
+        break;
+      }
+    }
     return r;
   }