Changeset e820b2 in git

Timestamp:

Feb 7, 2012, 4:28:51 PM (11 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

f16c7daaa76afc3fdd1ec92e5b33712a2297fc4a

Parents:

108e2ec73be7e6a609b8fa8fb28be6af482e5dcc

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-02-07 16:28:51+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-02-07 19:23:15+01:00

Message:

fixes due to minpoly' killer solution

CHG: since setting minpoly kills local objects - declare them again if needed... (psi in brnoeth.lib)
FIX: minpoly may have killed the map already... (pre_HN in LIB/hnoether.lib)

Location:

Singular/LIB

Files:

• brnoeth.lib (modified) (1 diff)
• hnoether.lib (modified) (1 diff)

Singular/LIB/brnoeth.lib

@@ -135 +135 @@
     poly G;
     ring raux2=(char(basering),@a),(x,y),lp;
-    map psi=BR,x,@a;
-    minpoly=number(psi(A));
+    map psi=BR,x,@a; minpoly=number(psi(A)); if(!defined(psi)){ map psi=BR,x,@a; }
     poly f=psi(B);
     ideal facts=factorize(f,1);

Singular/LIB/hnoether.lib

@@ -2941 +2941 @@
     mipl=string(getminpol(mipo));    // String umgewandelt mit 'a' als Param.
     execute("minpoly="+mipl+";");    // "minpoly=poly is not supported"
-    kill HNhelpring, getminpol;
+    kill HNhelpring; if(defined(getminpol)){ kill getminpol; }
    }
    if (nvars(altring)==2) {