Changeset 616c55 in git


Ignore:
Timestamp:
Jul 18, 2003, 6:59:59 PM (21 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')
Children:
d05dba851be4cc5a2d085ceced25fa7cd401565c
Parents:
5b7df73907733b25b73a6d513efd0e3da5005479
Message:
*hannes: V-2-0 port


git-svn-id: file:///usr/local/Singular/svn/trunk@6841 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    r5b7df7 r616c55  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.304 2003-07-15 11:10:22 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.305 2003-07-18 16:59:54 Singular Exp $ */
    55
    66/*
    … …  
    17831783static BOOLEAN jjGCD_N(leftv res, leftv u, leftv v)
    17841784{
    1785   res->data=(char *)nGcd((number) u->Data(), (number) v->Data(), currRing);
     1785  number a=(number) u->Data();
     1786  number b=(number) v->Data();
     1787  if (nIsZero(a))
     1788  {
     1789    if (nIsZero(b)) res->data=(char *)nInit(1);
     1790    else            res->data=(char *)nCopy(b);
     1791  }
     1792  else
     1793  {
     1794    if (nIsZero(b))  res->data=(char *)nCopy(a);
     1795    else res->data=(char *)nGcd(a, b, currRing);
     1796  }
    17861797  return FALSE;
    17871798}

  • Singular/kstdfac.cc

    r5b7df7 r616c55  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstdfac.cc,v 1.55 2003-06-11 21:25:34 krueger Exp $ */
     4/* $Id: kstdfac.cc,v 1.56 2003-07-18 16:59:57 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: factorizing alg. of Buchberger
    … …  
    243243  ideal fac=singclap_factorize(p,NULL,1);
    244244  int fac_elems;
     245#if !defined(HAVE_LIBFAC_P) && 0
    245246#warning "don't know what to do here"
    246 #if !defined(HAVE_LIBFAC_P) && 0
    247247  if (fac==NULL)
    248248  {

  • Singular/mpr_base.cc

    r5b7df7 r616c55  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: mpr_base.cc,v 1.30 2003-06-02 07:35:38 Singular Exp $ */
     4/* $Id: mpr_base.cc,v 1.31 2003-07-18 16:59:58 Singular Exp $ */
    55
    66/*

  • Singular/mpr_complex.cc

    r5b7df7 r616c55  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: mpr_complex.cc,v 1.33 2002-05-22 10:25:46 Singular Exp $ */
     4/* $Id: mpr_complex.cc,v 1.34 2003-07-18 16:59:59 Singular Exp $ */
    55
    66/*

  • Singular/mpr_inout.cc

    r5b7df7 r616c55  
    33****************************************/
    44
    5 /* $Id: mpr_inout.cc,v 1.13 2001-08-27 14:47:14 Singular Exp $ */
     5/* $Id: mpr_inout.cc,v 1.14 2003-07-18 16:59:59 Singular Exp $ */
    66
    77/*
    … …  
    659659    return TRUE;
    660660  else
    661     m= (matrix)(v->Data());
     661    m= (matrix)(v->CopyD());
    662662
    663663  LP = new simplex(MATROWS(m),MATCOLS(m));
Note: See TracChangeset for help on using the changeset viewer.