Changeset 0f0974 in git for Singular/longalg.cc

Timestamp:

Jun 21, 1999, 6:46:40 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8c51b6db1c377ec23bece6adf1c29990118edc44

Parents:

092430050dbf6ad127e0cf157b408a5b79bf6403

Message:

* hannes: nGetDenom: access to a denominator
  (algmap.cc longalg.cc longalg.h longrat.cc longrat.h numbers.cc numbers.h)


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

File:

• Singular/longalg.cc (modified) (3 diffs)

Singular/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.32 1999-04-23 15:22:25 Singular Exp $ */
+/* $Id: longalg.cc,v 1.33 1999-06-21 16:46:36 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -2537 +2537 @@
 }
 
+number   naGetDenom(number n)
+{
+  lnumber x=(lnumber)n;
+  if (x->n!=NULL)
+  {
+    lnumber r=(lnumber)Alloc0(sizeof(rnumber));
+    r->z=napCopy(naGetDenom0(x));
+    r->s = 2;
+    return (number)r;
+  }
+  return naInit(1);
+}
+
 #ifdef LDEBUG
 BOOLEAN naDBTest(number a, char *f,int l)
@@ -2578 +2591 @@
     p = p->ne;
   }
-  p = x->n;
+  p = naGetDenom0(x);
   while(p!=NULL)
   {