Changeset bc772d in git


Ignore:
Timestamp:
Feb 27, 2009, 2:59:54 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r9441be rbc772d  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.496 2009-02-13 11:40:12 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.497 2009-02-27 13:59:54 Singular Exp $ */
    55
    66/*
     
    18471847static BOOLEAN jjDEG_IV(leftv res, leftv u, leftv v)
    18481848{
    1849   short *iv=iv2array((intvec *)v->Data());
    1850   res->data = (char *)pDegW((poly)u->Data(),iv);
    1851   omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short));
     1849  poly p=(poly)u->Data();
     1850  if (p!=NULL)
     1851  {
     1852    short *iv=iv2array((intvec *)v->Data());
     1853    int d=(int)pDegW(p,iv);
     1854    omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short));
     1855    res->data = (char *)(long(d));
     1856  }
     1857  else
     1858    res->data=(char *)(long)(-1);
    18521859  return FALSE;
    18531860}
Note: See TracChangeset for help on using the changeset viewer.