Changeset f83dbf5 in git

Timestamp:

Aug 21, 2015, 6:04:12 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

89f472aee2567b3aa5810da669a4b9463ab94a10

Parents:

a70ae4b16c65be7f0b28fba01f121d5df879d49a

Message:

fix tr. #736

Files:

• Tst/Short/bug_tr723.res.gz.uu (modified) (1 diff)
• Tst/Short/bug_tr723.stat (modified) (1 diff)
• Tst/Short/bug_tr723.tst (modified) (1 diff)
• libpolys/polys/prCopy.cc (modified) (2 diffs)

Tst/Short/bug_tr723.res.gz.uu

@@ -1 +1 @@
 begin 640 bug_tr723.res.gz
-M'XL(",(+E54``V)U9U]T<C<R,RYR97,`G91-;X)`$(;O_HI)TP-8BNPL"(3(
-MH>G%I.E!>FL:HY524J"-K*GVUW?7CUF-12U<%F;GG9E]F)WDZ7[X"``LAH?A
-M'5R)6MA%/KV*.LEV!V.0QG%>Y<(PHXY:(8YANLC&8NXCMZOTVZ[%1)""QT#O
-MK@TPSZL,YC``P[$FI@7&TEI9/_)E]J73>#%`^3E;%"F4RG5B=I?=+*T,9MYX
-MO!_X3NB$W=7:Q$VMZRM=U"F?V<O@C(@T?KPMJE:9R+&YN."PN+=4O+X;<PO*
-MO4+"AD)V#LPYY\`T-X:26YV*#;KHOR=D\A>0O/Y;3KZN]/W(BT+F(9NWL]7:
-MIDCW>K>7/Z3TJ0G8Z2Y@0;LN8$WP3S!"9R\7#DH*AJQ%,%0:E"(\4AF._#H2
-M<*+.=&:W+6+T;.H=[!-NO*R_T6^''8,S+8UA`V-^[C)PU@B47)`0H@[,VR+D
-M-*H2A2"O1)JE\HXSAYO6TMK#Q3U]4;F"G<_220%#*5MJ)QHR(VG?15L=Q%'X
-MUK,$C,0:2JYC==85[8>[`XZBS9J0UG5T#2ZSUR-:#>%%+0E%UYU?OH[&GM@%
-"````
+M'XL("$)(UU4``V)U9U]T<C<R,RYR97,`G55-;Z,P$+WG5XRJ'B#KI7@,(0B%
+MPVHOD:H]E+VMJBC=T"PJT"HX:M)?OW8)8VA+2>%B,\R;C^?G(?G]<_D+`'@,
+MU\L?<"$KZ>39W44T24Y?,`9E7&5E)BT[FN@5XACN]MN5W`4HG#)]=BJYEH00
+M,=#><P!V6;F%'2S`<MG:9F`=V)&]J,WFR:3Q8X#B<;//4RBTZ]J>'J;;M+2X
+M_<T7LWG@AFXX/;Z:A&UP,XV+)L4??KL8`!$FB$]%53H3.?87-^\6=Y_*O_^L
+M'8.B54C84TCCP-TA!VYXXZAXJU)94Q=]M4.NCH#@U<=P\O64[T.6YRH/V?S&
+M5AF;9OKJZOOY#R$#$@'_7`5\/DX%O(_\3SA"MY4+%P4%0SXB&&H,*A!^!26(
+M>F[2>V-Y1M\A`>&,.,?S1([!..YQ/J!K#'N(%D,W0O!>5LD%B4(T@<58"@7-
+MJT13D)4RW:;JHG-7V.S`6G0)W]Q6H<G.-NDZAZ6"'8P339H;96^B'3MQ-'VO
+M`P6LA"T5KRO=ZY&^ATV#-U&])H3UW+%]>MQ(Q5.SYIP1[2E6FV/DPP)A4.]0
+M[5[>BL;S3"RM3XI3+VS08"*I<ZBK?^KJ''K[F'7[,-.\'3;H%FB<L.6DSJ[@
+MC%Y#IU8K?Z=694)UJ"="]*NX732L0"WO-QUJT>.'5O'>>JK`=^N?M?X=[RM-
+,T^7D/W>)*<'B!P``
 `
 end

Tst/Short/bug_tr723.stat

@@ -1 @@
-1 >> tst_memory_0 :: 1435831234:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:107760
-1 >> tst_memory_1 :: 1435831234:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:2232320
-1 >> tst_memory_2 :: 1435831234:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:2232320
-1 >> tst_timer_1 :: 1435831234:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:0
+1 >> tst_memory_0 :: 1440172098:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:119128
+1 >> tst_memory_1 :: 1440172098:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:2232320
+1 >> tst_memory_2 :: 1440172098:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:2232320
+1 >> tst_timer_1 :: 1440172098:4020, 64 bit:4.0.2:x86_64-Linux:nepomuck:0

Tst/Short/bug_tr723.tst

@@ -38 +38 @@
  fetch (S,I);
  kill R; kill S;
+ //-------------------------------------------
 
+ring r = (0,a), (x,y,z), dp;
+module m1 = (a)*x*gen(1)+536870909*y*gen(3), y*gen(2), z*gen(3);
+module m2 = x*gen(1)+gen(1), x*gen(1)+gen(1), x*gen(1)+gen(1);
+ring rp = (536870909, a), (x,y,z), dp;
+module m1 = fetch(r, m1);
+module m2 = fetch(r, m2);
+m1,
+m2;
 tst_status(1);$

libpolys/polys/prCopy.cc

@@ -54 +54 @@
   poly dest = &dest_s;
 
+  poly prev;
   while (src != NULL)
   {
-    poly prev=dest;
-    pNext(dest) = (poly) p_Init(dest_r); pIter(dest);
+    pNext(dest) = (poly) p_Init(dest_r);
+    prev = dest;
+    pIter(dest);
 
     pSetCoeff0(dest, nMap(pGetCoeff(src),src_r->cf,dest_r->cf));
@@ -63 +65 @@
     if (n_IsZero(pGetCoeff(dest),dest_r->cf))
     {
-      p_LmDelete(pNext(prev),dest_r);
-      dest=pNext(prev);
+      p_LmDelete(&pNext(prev),dest_r);
     }
     pIter(src);