Changeset 02064d in git

Timestamp:

Aug 5, 1998, 4:09:45 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

eb06982842b9b2889c71c393d0c2a664c30b5188

Parents:

0e3e6f4a4d841a9a31f2a0c9f797ac572094c852

Message:

* polys-impl.h: #define NVARS 0 for NDEBU


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

Location:

Singular

Files:

• generate.pl (deleted)
• kbAdd.cc (deleted)
• kbSpolyLoop.cc (deleted)
• kbuckets.h (deleted)
• mmheap.c (deleted)
• mmheap.h (deleted)
• mpsr_Tok.cc (modified) (4 diffs)
• polys-impl.h (modified) (2 diffs)

Singular/mpsr_Tok.cc

@@ -3 +3 @@
 ****************************************/
 
-/* $Id: mpsr_Tok.cc,v 1.15 1998-06-14 12:19:34 Singular Exp $ */
+/* $Id: mpsr_Tok.cc,v 1.16 1998-08-05 14:09:44 obachman Exp $ */
 
 /***************************************************************
@@ -508 +508 @@
       {
         fprintf(stderr, "Warning: mpsr_ttGen: Unknown Cmd Token: %d(%s)\n",
-                        i, Tok2Cmdname(i));
+                        i, iiTwoOps(i));
       }
     }
@@ -530 +530 @@
  *
  ***************************************************************/
-
+#ifndef MPSR_STRING_TABLES
 mpsr_cmd mpsr_cmds[] =
 {
@@ -562 +562 @@
     else                  fprintf(outfile, "}");
   }
-  fprintf(outfile,"\n};");
+  fprintf(outfile,"\n};\n\n");
+
+  fprintf(outfile, "
+#else /* MPSR_STRING_TABLE */
+mpsr_cmd mpsr_cmds[] =
+{
+  { \"%s\",\t %d,\t %d }", iiTwoOps(mpsrcmds[0].tok), mpsrcmds[0].dict, mpsrcmds[0].cop);
+
+  for (i=1; i<max_cmd; i++)
+  {
+    fprintf(outfile, ",\n  { \"%s\",\t %d,\t %d }",
+            iiTwoOps(mpsrcmds[i].tok), mpsrcmds[i].dict, mpsrcmds[i].cop);
+  }
+  fprintf(outfile, ",\n { NULL, \t 0, \t 0}");
+  fprintf(outfile,"\n};\n\n#endif /* ! MPSR_STRING_TABLE */");
+
   fclose(outfile);
 } // That's all

Singular/polys-impl.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.h,v 1.22 1998-06-02 15:30:02 Singular Exp $ */
+/* $Id: polys-impl.h,v 1.23 1998-08-05 14:09:45 obachman Exp $ */
 
 /***************************************************************
@@ -28 +28 @@
 typedef EXPONENT_TYPE Exponent_t;
 
+#ifndef NDEBUG
 #define VARS (10)   /*max. number of variables as constant*/
+#else
+#define VARS (0)
+#endif
 
 typedef Exponent_t  monomial[VARS + 1];