Changeset cc94b0a in git for Singular/iparith.cc

Timestamp:

Mar 31, 1998, 11:00:50 AM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

bc82d60fa171675a0c23a3e2051318500187aa39

Parents:

c9ea817ef59b4d9f8adaa507840ddb8ff4d4a945

Message:

Tue Mar 31 10:47:06 MET DST 1998 hannes
        * feread.cc: fixed handling of empty history
	* clapsing.cc: fixed gcd(0,..) and gcd(..,0) -> pOne()
	* febase.h/febase.inc: renaming of scanner variables
	  ( yy_blocklineno, yy_noeof)
	* febase.inc: increased speed in feReadLine
	* minor changes in scanner/grammar/iparith.cc (example)


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

File:

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

Singular/iparith.cc

@@ -154 +154 @@
   { "else",        0, ELSE_CMD ,          ELSE_CMD},
   { "eval",        0, EVAL ,              EVAL},
+  { "example",     0, EXAMPLE_CMD ,       EXAMPLE_CMD},
   { "execute",     0, EXECUTE_CMD ,       EXECUTE_CMD},
   { "export",      0, EXPORT_CMD ,        EXPORT_CMD},
@@ -301 +302 @@
 
 /* other reserved words:scanner.l */
-  { "pause",       0, -1 ,             0},
+  { "pause",       2, -1 ,             0},
   { "while",       0, -1 ,             0},
   { "for",         0, -1 ,             0},
   { "help",        0, -1 ,             0},
-  { "example",     0, -1 ,             0},
   { "newline",     0, -1 ,             0},
   { "exit",        0, -1 ,             0},
@@ -2184 +2184 @@
 {
   poly p=(poly)v->CopyD();
-  pCleardenom(p);
+  if (p!=NULL) pCleardenom(p);
   res->data = (char *)p;
   return FALSE;