Changeset 47faf56 in git for Singular/maps.cc

Timestamp:

Jan 12, 1998, 8:00:02 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

567aff6dba275744806617fcbb3253b828a9b5d1

Parents:

38cfbb50a8306b0a1da54ae6a6614ae8f4ecc643

Message:

* ring handling: from pChangeRing to rChangeCurrRing was prepared
* various fixes towards working COMP_FAST
* fixed gcd content problem of factory


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

File:

• Singular/maps.cc (modified) (6 diffs)

Singular/maps.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: maps.cc,v 1.6 1997-12-15 22:46:31 obachman Exp $ */
+/* $Id: maps.cc,v 1.7 1998-01-12 18:59:50 obachman Exp $ */
 /*
 * ABSTRACT - the mapping of polynomials to other rings
@@ -172 +172 @@
   sip_sring tmpR;
 
-//  pChangeRing(theImageRing->N,theImageRing->OrdSgn,theImageRing->order,theImageRing->blocks,theImageRing->wvhdl);
   memset(block0, 0,sizeof(block0));
   memset(block1, 0,sizeof(block1));
@@ -203 +202 @@
   memset(wv,0,ordersize * sizeof(short **));
   for (i--;i!=0 ;i--) wv[i+1] = sourcering->wvhdl[i];
-  memset(&tmpR, 0, sizeof(sip_sring));
+  tmpR = *currRing;
   tmpR.N = N;
-  tmpR.OrdSgn = currRing->OrdSgn;
   tmpR.order = orders;
   tmpR.block0 = block0;
@@ -211 +209 @@
   tmpR.wvhdl = wv;
   rComplete(&tmpR);
-  
-  pChangeRing(N,currRing->OrdSgn,orders,block0,block1, wv);
+
+  // change to new ring
+  rChangeCurrRing(&tmpR, FALSE);
   sizeofpoly = pMonomSize; /*POLYSIZE+sizeof(monomial);*/
   if (id==NULL)
@@ -248 +247 @@
     if (pLowVar(temp2->m[i])<imagepvariables) pDelete(&(temp2->m[i]));
   }
-  pChangeRing(sourcering->N,sourcering->OrdSgn,sourcering->order,
-              sourcering->block0,sourcering->block1,sourcering->wvhdl);
+
+  // let's get back to the original ring
+  rChangeCurrRing(sourcering, FALSE);
   temp1 = idInit(5,1);
   j = 0;
@@ -411 +411 @@
   int *m=(int *)Alloc0(N*sizeof(int));
 
-  pTest(p);
+//  pTest(p);
   while(p!=NULL)
   {