Changeset 550b4c in git for Singular/longalg.h

Timestamp:

Apr 21, 1998, 12:59:29 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

559a4bf0a3b03fde23553e3ceb0d6c6ff9e2d4e3

Parents:

aaafeb24812a2fa1306280482a08f65373287b7e

Message:

* Exponents in parameter (polys) are typedef'ed to EXPONENT_TYPE


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

File:

• Singular/longalg.h (modified) (4 diffs)

Singular/longalg.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.h,v 1.5 1998-02-17 15:05:53 obachman Exp $ */
+/* $Id: longalg.h,v 1.6 1998-04-21 10:59:26 obachman Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -10 +10 @@
 #include "structs.h"
 #include "longrat.h"
+#include "polys-impl.h"
 
 struct slnumber;
 typedef struct slnumber * lnumber;
+
+//make parameter type same as exponent type
+#if 1
+#define PARAMETER_TYPE EXPONENT_TYPE
+#define SIZEOF_PARAMETER SIZEOF_EXPONENT
+#else
+#define PARAMETER_TYPE int
+#define SIZEOF_PARAMETER SIZOF_EXPONENT
+#endif
+
 struct reca
 {
   alg ne;
   number ko;
-  int e[1];
+  PARAMETER_TYPE e[1];
 };
+
 struct slnumber
 {
@@ -29 +41 @@
 extern alg naMinimalPoly;
 extern char **naParNames;
+extern int napMonomSize;
 
 void naSetChar(int p, BOOLEAN complete, char ** param, int pars);
@@ -83 +96 @@
 #define napGetCoeff(p) (p->ko)
 #define napGetExp(p,i) (p->e[(i)-1])
-#define napNew() ((alg)Alloc0(RECA_SIZE + naNumbOfPar * sizeof(int)))
+#define napNew() ((alg)Alloc0(napMonomSize))
 #define nanumber lnumber
 #define naGetNom(na)  (((nanumber)(na))->z)