Changeset a1c150 in git


Ignore:
Timestamp:
Jan 16, 2007, 2:39:15 PM (17 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
7e1643192aa47d4202455c1f6e496dee58c49f83
Parents:
4aac7e480a94e94b52b2386eb1918bb5895a050a
Message:
*hannes: poly(bigint)


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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r4aac7e ra1c150  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.433 2007-01-16 13:29:47 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.434 2007-01-16 13:39:15 Singular Exp $ */
    55
    66/*
     
    33113311  }
    33123312}
     3313static BOOLEAN jjBI2P(leftv res, leftv u)
     3314{
     3315  sleftv tmp;
     3316  BOOLEAN bo=jjBI2N(&tmp,u);
     3317  if (!bo)
     3318  {
     3319    number n=(number) tmp.data;
     3320    if (nIsZero(n)) { res->data=NULL;nDelete(&n); }
     3321    else
     3322    {
     3323      poly p=pOne();
     3324      pSetCoeff(p,n);
     3325      res->data=(void *)p;
     3326    }
     3327  }
     3328  return bo;
     3329}
    33133330static BOOLEAN jjCALL1MANY(leftv res, leftv u)
    33143331{
     
    47934810,{jjrParStr,    PARSTR_CMD,      XS(STRING_CMD), RING_CMD       ALLOW_PLURAL}
    47944811,{jjrParStr,    PARSTR_CMD,      XS(STRING_CMD), QRING_CMD      ALLOW_PLURAL}
     4812,{jjBI2P,       POLY_CMD,        POLY_CMD,       BIGINT_CMD     ALLOW_PLURAL}
    47954813,{jjDUMMY,      POLY_CMD,        POLY_CMD,       POLY_CMD       ALLOW_PLURAL}
    47964814,{jjPREIMAGE_R, PREIMAGE_CMD,    RING_CMD,       MAP_CMD        NO_PLURAL}
Note: See TracChangeset for help on using the changeset viewer.