Changeset ed8538 in git for Singular/iparith.cc

Timestamp:

Apr 29, 2005, 2:21:40 PM (19 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3b00f26591becd6d3549521aff441624b708fa57

Parents:

06e7dcdf5fd3a0ce08ced31a9146bb37269a674d

Message:

*bricken: +jjSLIM_GB


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.348 2005-04-28 17:10:47 Singular Exp $ */
+/* $Id: iparith.cc,v 1.349 2005-04-29 12:21:40 bricken Exp $ */
 
 /*
@@ -47 +47 @@
 #include "janet.h"
 #include "GMPrat.h"
+#include "tgb.h"
 #ifdef HAVE_FACTORY
 #include "clapsing.h"
@@ -4885 +4886 @@
   return b;
 }
+static BOOLEAN jjSLIM_GB(leftv res, leftv u){
+  if (pOrdSgn!=1){
+    return TRUE;
+  }
+  res->data=t_rep_gb(currRing, (ideal)u->Data());
+  return FALSE;
+}
 static BOOLEAN jjMATRIX_Id(leftv res, leftv u, leftv v,leftv w)
 {