Re: bnfisnorm() bug

[Bill Allombert <Bill.Allombert@math.u-bordeaux.fr>]

Igor wrote:

? bnfisnorm(bnfinit(polsubcyclo(7,3)),2)
  ***   impossible concatenation in concat

Here a patch contributed by Denis Simon, who wrote the initial code of
bnfisnorm.

Bill.
CVS version updated
Index: src/basemath/buch4.c
===================================================================
RCS file: /home/megrez/cvsroot/pari/src/basemath/buch4.c,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 buch4.c
--- src/basemath/buch4.c        1999/09/16 13:47:29     1.1.1.1
+++ src/basemath/buch4.c        1999/12/11 20:53:20
@@ -768,7 +768,7 @@
     aux=(GEN)aux[1];
   }
   if (lg(aux)>1)
-    sunitrelnf=concatsp(gtrans(aux),sunitrelnf);
+    sunitrelnf=concatsp(aux,sunitrelnf);
   lgsunitrelnf=lg(sunitrelnf);
   M=cgetg(lgsunitrelnf+1,t_MAT);
   sunitnormnf=cgetg(lgsunitrelnf,t_VEC);