Changeset 1c3aa7 in git for kernel/longalg.cc


Ignore:
Timestamp:
Aug 21, 2009, 3:24:56 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')
Children:
05a2f65abea7460479e32eb18200563024d57dd2
Parents:
f73e9cd899821185b921674a392103bfa336b941
Message:
*hannes: less naNormalize


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

Legend:

Unmodified
Added
Removed

  • kernel/longalg.cc

    rf73e9cd r1c3aa7  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: longalg.cc,v 1.49 2009-08-21 10:58:50 Singular Exp $ */
     4/* $Id: longalg.cc,v 1.50 2009-08-21 13:24:56 Singular Exp $ */
    55/*
    66* ABSTRACT:   algebraic numbers
    … …  
    6666static int napExpi(int i, napoly a, napoly b);
    6767       ring nacRing;
    68 static inline void naNormalize0(number &pp)
    69 {
    70   lnumber p = (lnumber)pp;
    71   if ((p!=NULL) && (p->z!=NULL))
    72   {
    73       naNormalize(pp);
    74   }
    75 }
    7668
    7769#define napCopy(p)       (napoly)p_Copy((poly)p,nacRing)
    … …  
    988980  if (p==NULL) return NULL;
    989981  naTest(p);
    990   naNormalize(p);
     982  //naNormalize(p);
    991983  lnumber erg;
    992984  lnumber src = (lnumber)p;
    … …  
    10661058  {
    10671059     number luu=(number)lu;
    1068      naNormalize0(luu);
     1060     naNormalize(luu);
    10691061     lu=(lnumber)luu;
    10701062  }
    … …  
    11311123  {
    11321124     number luu=(number)lu;
    1133      naNormalize0(luu);
     1125     naNormalize(luu);
    11341126     lu=(lnumber)luu;
    11351127  }
    … …  
    12091201    lo->s = 0;
    12101202    number luu=(number)lo;
    1211     naNormalize0(luu);
     1203    naNormalize(luu);
    12121204    lo=(lnumber)luu;
    12131205  }
    … …  
    13761368  {
    13771369     number luu=(number)lo;
    1378      naNormalize0(luu);
     1370     naNormalize(luu);
    13791371     lo=(lnumber)luu;
    13801372  }
    … …  
    15431535  {
    15441536    phn->s = 0;
    1545     naNormalize(phn);
     1537    //naNormalize(phn);
    15461538    BOOLEAN has_denom=(ph->n!=NULL);
    15471539    napWrite(ph->z,has_denom/*(ph->n!=NULL)*/);
    … …  
    15791571    else                 return FALSE;
    15801572  }
     1573#if 0
    15811574  x = a->z;
    15821575  y = a->n;
    … …  
    16071600  a->s = 2;
    16081601  return TRUE;
     1602#else
     1603  return FALSE;
     1604#endif
    16091605}
    16101606
    … …  
    19791975  //  return (number)result;
    19801976  //}
    1981   naNormalize(lb);
     1977  //naNormalize(lb);
    19821978  naTest(la);
    19831979  naTest(lb);
    … …  
    24252421number   naGetDenom(number &n, const ring r)
    24262422{
    2427   if (r==currRing) naNormalize(n);
     2423  //if (r==currRing) naNormalize(n);
    24282424  lnumber x=(lnumber)n;
    24292425  if (x->n!=NULL)
    … …  
    24392435number   naGetNumerator(number &n, const ring r)
    24402436{
    2441   if (r==currRing) naNormalize(n);
     2437  //if (r==currRing) naNormalize(n);
    24422438  lnumber x=(lnumber)n;
    24432439  lnumber rr=(lnumber)omAlloc0Bin(rnumber_bin);
Note: See TracChangeset for help on using the changeset viewer.