Changeset 78dd2b in git for kernel/gring.cc

Timestamp:

Feb 3, 2005, 7:29:32 PM (19 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

f8362b458adfbc85cbe2df1a814f2b540b0eaab2

Parents:

409be373d324a65170e8535c8eb84ea389ca01ec

Message:

*levandov: curring replaced with r in nc_CallPlural and other small patches


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

File:

• kernel/gring.cc (modified) (4 diffs)

kernel/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.18 2005-02-03 17:52:02 Singular Exp $
+ *  Version: $Id: gring.cc,v 1.19 2005-02-03 18:29:32 levandov Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -1701 +1701 @@
   /* returns TRUE if there were errors */
   /* analyze inputs, check them for consistency */
-  /* detect nc_type, DO NOT initialize multiplication */
-  /* check the ordering condition and evtl. NDC */
+  /* detects nc_type, DO NOT initialize multiplication but call for it at the end*/
+  /* checks the ordering condition and evtl. NDC */
 {
   matrix CC = NULL; 
@@ -1839 +1839 @@
     if (DN  == NULL)
     {
-      if ( (currRing->nc->type == nc_lie) || (currRing->nc->type == nc_undef) )  
-      {
-        currRing->nc->type = nc_comm; /* it was nc_skew earlier */
+      if ( (r->nc->type == nc_lie) || (r->nc->type == nc_undef) )  
+      {
+        r->nc->type = nc_comm; /* it was nc_skew earlier */
       }
       else /* nc_general, nc_skew */
       {
-        currRing->nc->type = nc_skew;
+        r->nc->type = nc_skew;
       }
     }
@@ -1874 +1874 @@
       if ( p != NULL)
       {
-        q = pOne();
+        q = p_ISet(1,r); // replaces pOne();
         p_SetExp(q,i,1,r);
         p_SetExp(q,j,1,r);