Changeset 2eeb7d in git for Singular/iparith.cc

Timestamp:

Jul 13, 1999, 6:24:45 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

eff050869a8899bcdec83ae6d17706325400e93d

Parents:

e202148165f594419822417d29c7ed3dac92e205

Message:

*hannes: minor optimizations


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.160 1999-07-12 18:24:57 Singular Exp $ */
+/* $Id: iparith.cc,v 1.161 1999-07-13 16:24:45 Singular Exp $ */
 
 /*
@@ -5779 +5779 @@
         break;
       }
-      else if (strcmp(n, cmds[en].name) == 0)
+      else if ((an!=en) && (strcmp(n, cmds[en].name) == 0))
       {
         i=en;
@@ -5792 +5792 @@
     if (*n < *(cmds[i].name))
     {
-      en=i;
+      en=i-1;
     }
     else if (*n > *(cmds[i].name))
     {
-      an=i;
+      an=i+1;
     }
     else
@@ -5803 +5803 @@
       if(v<0)
       {
-        en=i;
+        en=i-1;
       }
       else if(v>0)
       {
-        an=i;
+        an=i+1;
       }
       else /*v==0*/