Changeset bc772d in git for Singular/iparith.cc

Timestamp:

Feb 27, 2009, 2:59:54 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

a17f9d3d13f0b6dd016ee874e3b02cfe74adcd7e

Parents:

9441bed67ec1c43393534ce897f991afa2709345

Message:

*hannes: fix deg(0,iv) for 64bit


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.496 2009-02-13 11:40:12 Singular Exp $ */
+/* $Id: iparith.cc,v 1.497 2009-02-27 13:59:54 Singular Exp $ */
 
 /*
@@ -1847 +1847 @@
 static BOOLEAN jjDEG_IV(leftv res, leftv u, leftv v)
 {
-  short *iv=iv2array((intvec *)v->Data());
-  res->data = (char *)pDegW((poly)u->Data(),iv);
-  omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short));
+  poly p=(poly)u->Data();
+  if (p!=NULL)
+  {
+    short *iv=iv2array((intvec *)v->Data());
+    int d=(int)pDegW(p,iv);
+    omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short));
+    res->data = (char *)(long(d));
+  }
+  else
+    res->data=(char *)(long)(-1);
   return FALSE;
 }