Changeset a1e8742 in git for Singular/modulop.h

Timestamp:

Mar 2, 2000, 7:44:39 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

b74df82da5481f8597c226c901371bb6fb30e477

Parents:

ff5e0d08ed70bf7df92e057766905c2014edc1bb

Message:

*hannes: npAdd/npSub


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

File:

• Singular/modulop.h (modified) (2 diffs)

Singular/modulop.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: modulop.h,v 1.9 1999-11-15 17:20:29 obachman Exp $ */
+/* $Id: modulop.h,v 1.10 2000-03-02 18:44:39 Singular Exp $ */
 /*
 * ABSTRACT: numbers modulo p (<=32003)
@@ -51 +51 @@
 }
 
+#if 0
+inline number npAddAsm(number a, number b, int m)
+{
+  number r;
+    asm ("addl %2, %1; cmpl %3, %1; jb 0f; subl %3, %1; 0:"
+         : "=&r" (r)
+         : "%0" (a), "g" (b), "g" (m)
+         : "cc");
+  return r;
+}
+inline number npSubAsm(number a, number b, int m)
+{
+  number r;
+  asm ("subl %2, %1; jnc 0f; addl %3, %1; 0:"
+        : "=&r" (r)
+        : "%0" (a), "g" (b), "g" (m)
+        : "cc");
+  return r;
+}
+#endif
+
 inline number npAddM(number a, number b)
 {
-  int ka = (int)a + (int)b;
-  if (ka >= npPrimeM) ka -= npPrimeM;
-  return (number)ka;
+  int r = (int)a + (int)b;
+  return (number)(r >= npPrimeM ? r - npPrimeM : r);
 }