Changeset fc315e3 in git for Singular/ipconv.cc

Timestamp:

Jan 16, 2007, 2:30:26 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4aac7e480a94e94b52b2386eb1918bb5895a050a

Parents:

3295ba38add642432868529b1c106db86ba8aa62

Message:

*hannes: no automatic bigint->number


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

File:

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

Singular/ipconv.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipconv.cc,v 1.32 2007-01-11 11:24:32 Singular Exp $ */
+/* $Id: ipconv.cc,v 1.33 2007-01-16 13:30:26 Singular Exp $ */
 /*
 * ABSTRACT: automatic type conversions
@@ -99 +99 @@
   pDelete((poly *)&data);
   return (void *)m;
-}
-static void * iiBI2N(void *d)
-{
-  void *r=NULL;
-  if (rField_is_Q())
-    r=d;
-  else
-  {
-    number n=(number)d;
-    if (rField_is_Zp())
-    {
-      r=(void *)npMap0(n);
-    }
-    else if (rField_is_Q_a())
-    {
-      r=(void *)naMap00(n);
-    }
-    else if (rField_is_Zp_a())
-    {
-      r=(void *)naMap0P(n);
-    }
-    else
-      WerrorS("cannot convert bigint to this field");
-    nlDelete(&n,NULL);
-  }
-  return r;
 }
 
@@ -275 +249 @@
 //  intmat -> matrix
    { INTMAT_CMD,      MATRIX_CMD,     iiIm2Ma , NULL },
-//  bigint -> number
-   { BIGINT_CMD,      NUMBER_CMD,     iiBI2N , NULL },
 //  bigint -> poly
    { BIGINT_CMD,      NUMBER_CMD,     iiBI2P , NULL },