Changeset a74fa8 in git

Timestamp:

Apr 2, 2019, 4:57:59 PM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

2473c953979c291dd9b3163a11c034a8f2518cba

Parents:

379cd1cbfafe8e3ff774a0f4fce088140587e3a1

Message:

fix: ggetid

File:

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

Singular/ipid.cc

@@ -542 +542 @@
 #endif
 
+#if 0
 idhdl ggetid(const char *n)
 {
@@ -561 +562 @@
   return NULL;
 }
+#endif
+#if 1
+idhdl ggetid(const char *n)
+{
+  idhdl h = IDROOT->get(n,myynest);
+  if ((h!=NULL)&&(IDLEV(h)==myynest)) return h;
+  if (currRing!=NULL)
+  {
+    idhdl h2 = currRing->idroot->get(n,myynest);
+    if (h2!=NULL) return h2;
+  }
+  if (h!=NULL) return h;
+  if (basePack!=currPack)
+    return basePack->idroot->get(n,myynest);
+  return NULL;
+}
+#endif
 
 void ipListFlag(idhdl h)