Changeset 116a98 in git

Timestamp:

Nov 19, 1997, 2:08:11 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c2b784d2a361f4e8e390743e963f669b3e9b6b5d

Parents:

2adb1c3c7f1cce8d55c4699a9c007c51944eb78c

Message:

* hannes: fix to writemon (polys0.cc): x+-y, x(-1)y etc.


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

Location:

Singular

Files:

• longalg.cc (modified) (2 diffs)
• polys0.cc (modified) (4 diffs)

Singular/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.14 1997-11-18 16:10:42 Singular Exp $ */
+/* $Id: longalg.cc,v 1.15 1997-11-19 13:08:10 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -1769 +1769 @@
   mmTestP(a,sizeof(rnumber));
 #ifdef TEST
-  if (a->z==NULL) WerrorS("internal zero error(5)");
+  if (a->z==NULL)
+  {
+    WerrorS("internal zero error(5)");
+    return FALSE;
+  }
 #endif
   if (a->n==NULL)

Singular/polys0.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys0.cc,v 1.5 1997-07-02 16:44:14 Singular Exp $ */
+/* $Id: polys0.cc,v 1.6 1997-11-19 13:08:11 Singular Exp $ */
 
 /*
@@ -27 +27 @@
   BOOLEAN wroteCoef=FALSE,writeGen=FALSE;
 
-  if ((pIsConstantComp(p))
+  nNormalize(pGetCoeff(p));
+
+  if (((pGetComp(p) == (short)ko)
+    &&(pIsConstantComp(p)))
   || ((!nIsOne(pGetCoeff(p)))
-      && (!nIsMOne(pGetCoeff(p)))
-    )
+    && (!nIsMOne(pGetCoeff(p)))
+  )
 #ifdef DRING
   || (pDRING && pdIsConstantComp(p))
@@ -52 +55 @@
 #endif
     {
-      short ee = p->exp[i+1];
+      short ee = pGetExp(p,i+1);
       if (ee!=0)
       {
@@ -79 +82 @@
     }
   }
-  if (p->exp[0] != (short)ko)
+  if (pGetComp(p) != (short)ko)
   {
     if (writeGen) StringAppendS("*");
-    StringAppend("gen(%d)", p->exp[0]);
+    StringAppend("gen(%d)", pGetComp(p));
   }
 }