Changeset 24c186a in git for Singular/ipid.cc

Timestamp:

Oct 21, 1998, 5:56:07 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

db70590bb13095fcd6ee6111c59947adffc8ffcc

Parents:

988b76aaa4ed3a9863bf3fd32588e8ee11211a7b

Message:

*hannes: minor bug fixes in assignments, see BUGS


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

File:

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

Singular/ipid.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipid.cc,v 1.19 1998-10-21 10:25:32 krueger Exp $ */
+/* $Id: ipid.cc,v 1.20 1998-10-21 15:56:05 Singular Exp $ */
 
 /*
@@ -44 +44 @@
   idhdl found=NULL;
   int l;
+  char *id;
   while (h!=NULL)
   {
-    l=IDLEV(h);
     mmTestLP(IDID(h));
-    if ((l==lev) && (0 == strcmp(s,IDID(h)))) return h;
-    if ((l==0) && (found==NULL) && (0 == strcmp(s,IDID(h))))
-    {
-      found=h;
-    }
+//    id=IDID(h);
+//    l=IDLEV(h);
+//    if ((l==0) && (*(short *)s==*(short *)id) && (0 == strcmp(s+1,id+1)))
+//    {
+//      found=h;
+//    }
+//    else if ((l==lev) && (*(short *)s==*(short *)id) && (0 == strcmp(s+1,id+1)))
+//    {
+//      return h;
+//    }  
+    id=IDID(h);
+    if (*(short *)s==*(short *)id)
+    {
+      l=IDLEV(h);
+      if ((l==0) && (0 == strcmp(s+1,id+1)))
+      {
+        found=h;
+      }
+      else if ((l==lev) && (0 == strcmp(s+1,id+1)))
+      {
+        return h;
+      }
+    }
+//    l=IDLEV(h);
+//    if ((l==0)||(l==lev))
+//    { 
+//      id=IDID(h);
+//      if (*(short *)s==*(short *)id)
+//      {
+//        if (0 == strcmp(s+1,id+1))
+//        {
+//          if (l==lev) return h;
+//          found=h;
+//        }
+//      }
+//    }
     h = IDNEXT(h);
   }