Changeset 3eb1631 in git


Ignore:
Timestamp:
Feb 22, 2005, 4:25:55 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
f5a8b36ae84134eb9607a0498d04eace5b03f006
Parents:
3f2e22cd9975bb1510a509daa3455435ae14e798
Message:
*hannes: mod for number


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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r3f2e22 r3eb1631  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.340 2005-02-17 09:49:18 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.341 2005-02-22 15:25:55 Singular Exp $ */
    55
    66/*
     
    19941994  return FALSE;
    19951995}
     1996static BOOLEAN jjMOD_N(leftv res, leftv u, leftv v)
     1997{
     1998  number q=(number)v->Data();
     1999  if (nIsZero(q))
     2000  {
     2001    WerrorS(ii_div_by_0);
     2002    return TRUE;
     2003  }
     2004  res->data =(char *) nIntMod((number)u->Data(),q);
     2005  return FALSE;
     2006}
    19962007static BOOLEAN jjMONITOR2(leftv res, leftv u,leftv v)
    19972008{
     
    25582569,{jjOP_IV_I,   INTMOD_CMD,     INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
    25592570,{jjOP_IV_I,   INTMOD_CMD,     INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
     2571,{jjMOD_N,     INTMOD_CMD,     NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
    25602572,{jjPOWER_I,   '^',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
    25612573,{jjPOWER_N,   '^',            NUMBER_CMD,     NUMBER_CMD, INT_CMD ALLOW_PLURAL}
Note: See TracChangeset for help on using the changeset viewer.