Changeset 811826 in git for Singular/fglm.cc

Timestamp:

Mar 9, 1999, 1:28:50 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

d78e6e2c82ab8bd96284f77386c71eff6908b71a

Parents:

41442f095ba5a5301108857c89ac604ccfdcf0f3

Message:

* maFindPerm: no permutation from Fq parameter to other vars/parameter
  (if they have the same name) -- r->ch new argument to maFindPerm.


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

File:

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

Singular/fglm.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: fglm.cc,v 1.16 1999-03-08 18:11:39 Singular Exp $
+// $Id: fglm.cc,v 1.17 1999-03-09 12:28:45 obachman Exp $
 
 /****************************************
@@ -144 +144 @@
     else
         pperm= NULL;
-    maFindPerm( sring->names, nvar, sring->parameter, npar, dring->names, nvar, dring->parameter, npar, vperm, pperm );
+    maFindPerm( sring->names, nvar, sring->parameter, npar, 
+                dring->names, nvar, dring->parameter, npar, vperm, pperm, 
+                dring->ch);
     for ( k= nvar; (k > 0) && (state == FglmOk); k-- )
         if ( vperm[k] <= 0 ) {
@@ -181 +183 @@
         // check if dring->qideal is contained in sring->qideal:
         int * dsvperm = (int *)Alloc0( (nvar+1)*sizeof( int ) );
-        maFindPerm( dring->names, nvar, NULL, 0, sring->names, nvar, NULL, 0, dsvperm, NULL );
-        nSetMap( rInternalChar(dring), dring->parameter, npar, dring->minpoly );
+        maFindPerm( dring->names, nvar, NULL, 0, sring->names, nvar, NULL, 0, 
+                    dsvperm, NULL, sring->ch);
+        nSetMap(rInternalChar(dring), dring->parameter, npar, dring->minpoly);
         ideal dqins = idInit( IDELEMS( dring->qideal ), 1 );
         for ( k= IDELEMS( dring->qideal )-1; k >= 0; k-- )