Changeset 59f0c2b in git

Timestamp:

May 14, 2019, 4:56:40 PM (4 years ago)

Author:

Fabian Zickgraf <f.zickgraf@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2fbb5649d078297d87a8ef7d6969710a97ccdd4b

Parents:

4e5fdad42de8a0a52366ead81619a2e027f2a8ef

Message:

Fix liftstd with four arguments

Files:

• Singular/iparith.cc (modified) (1 diff)
• Singular/table.h (modified) (1 diff)
• Tst/Manual/liftstd.res.gz.uu (modified) (1 diff)
• Tst/Manual/liftstd.tst (modified) (1 diff)

Singular/iparith.cc

@@ -7692 +7692 @@
 static BOOLEAN jjLIFTSTD_4(leftv res, leftv U)
 {
-  const short t1[]={4,IDEAL_CMD,IDEAL_CMD,MATRIX_CMD,STRING_CMD};
-  const short t2[]={4,MODUL_CMD,MODUL_CMD,MATRIX_CMD,STRING_CMD};
+  const short t1[]={4,IDEAL_CMD,MATRIX_CMD,MODUL_CMD,STRING_CMD};
+  const short t2[]={4,MODUL_CMD,MATRIX_CMD,MODUL_CMD,STRING_CMD};
   leftv u=U;
   leftv v=u->next;

Singular/table.h

@@ -933 +933 @@
 ,{D(jjCALL3ARG),  LIFT_CMD,        MATRIX_CMD,          3  , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjLIFT_4),    LIFT_CMD,        MATRIX_CMD,          4  , ALLOW_PLURAL |ALLOW_RING}
-,{D(jjCALL2ARG),  LIFTSTD_CMD,     MODUL_CMD,/*or IDEAL*/2  , ALLOW_PLURAL |ALLOW_RING}
-,{D(jjCALL3ARG),  LIFTSTD_CMD,     MODUL_CMD,/*or IDEAL*/3  , ALLOW_PLURAL |ALLOW_RING}
-,{D(jjLIFTSTD_4), LIFTSTD_CMD,     MODUL_CMD,/*or IDEAL*/4  , ALLOW_PLURAL |ALLOW_RING}
+,{D(jjCALL2ARG),  LIFTSTD_CMD,     IDEAL_CMD,/*or MODUL*/2  , ALLOW_PLURAL |ALLOW_RING}
+,{D(jjCALL3ARG),  LIFTSTD_CMD,     IDEAL_CMD,/*or MODUL*/3  , ALLOW_PLURAL |ALLOW_RING}
+,{D(jjLIFTSTD_4), LIFTSTD_CMD,     IDEAL_CMD,/*or MODUL*/4  , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjLIST_PL),   LIST_CMD,        LIST_CMD,           -1      , ALLOW_NC |ALLOW_RING}
 ,{D(jjLU_INVERSE),LUI_CMD,         LIST_CMD,           -2      , NO_NC |NO_RING}

Tst/Manual/liftstd.res.gz.uu

@@ -1 @@
-begin 640 liftstd.res.gz
-M'XL("`<J<DX``VQI9G1S=&0N<F5S`%5238^;,!"]\RNL50]0AL@?8(@0.52]
-MK%3UT.46H56V22I7D*P65K7]ZSO#YZX/^'G\WLSPQD_U]\>?C#%Q8#\>O[&'
-MH1]VK7EY*!FB9W,S0QB5`>WL<&"MN6+XO+M=_NWZX30$3[-<'O#S9FY_V*^*
-M0VC!@8_@_%JN#$6,UWOKV+6R*G9Y[&5LG=\8*3',^7)JF:G^GG[?7\)KM%UG
-M=-V=AC=C6;V%]:;JNVIN,#10?Y#FQ.F[,NB[HV@JZV+I"<NF4E;&;CRHIG+8
-MDN)I(?;2*XJE2.`RM5XF>$>1#%G2)]J.&DWW^UQDA<BT+`J?QI(+/8GSILJ=
-MCI&Y]%&,'J!-0TCM<1!0'P6H!C!.*&W0N`GJ!C@@A4.B;$Q=>%"6B(R/%$D4
-M`8%`2GU4:Q9%65`S!BD+6^OO-PO#OHN2&9KH*QKZC$71'#X"N0"U@'0!V0+T
-M`G("<PW!QQKW\WM[8?TZ`B&F$7P<$/3;B(3<K*%P8ETB/4S^`4MRGFFG$\%Y
-M06=:`9]V_%6:#HR#DBB,B>4\Z8-IO#!3V92/?5IK"_A"Z<W3NW[O0Q&57X+_
-(F_+PKQX#````
+begin 644 liftstd.res.gz
+M'XL("+'6VEP"`VQI9G1S=&0N<F5S`,5438^;,!"]\RNLJ`<H)O('&**('*I>
+M5JIZZ.86H572)"M7D*S6K&KSZSMC!\A6VW-]P,_C-^/'S-B/VZ\/WPDA?$.^
+M/7PAB][TRU8?%FL"Z$E?=!\GZPAGLMF05I_!?%Q>3K^7IM_WT>/-76S@\ZHO
+MS^1'S6ALJ:-#0H\OZXDAD?%R;1TYUU:FKDP'D5HWS(P<&?IXVK=$U[_V/Z^'
+M^)S,VP5N=_O^55NRG<UJ]C)=?1,8:[J]<RV18[IU9+H=;VKK4C$@%DTMK4B=
+M7\BF=B!)LKSB*S%(M.5`8"*W@\A@#RT%L,20*>M]%.ZO2EY4O%"BJH8\%8RK
+MX%PV=>E4"LQ11^5S`&GJ8Y3'**?;':>RH6!'E#>0N`!50QD%"J.9M"FJ&*BT
+M2"3,4P12.(TX4+8[.461&`5\O!&CD.G\U9S"V'1)=H,Z^0P)?8)#(3G,`S$"
+M.8)\!,4(U`A*!+<S./-G7(]O[8F8J02<AQ+<%XB:N41<S*E!<V9=)@8:\D=)
+M5K)".95QQBI<XXA8F.%7L3K4%TJ`8XHL-Z!_%,I+;U02XI%W8Y(@/Y)(%P`7
+M=T+S_R^T^(?05G?/AWNMZD.MQM>7$A-:SX2^,[ZT?E+827^K-M!PLAD%XJKP
+M;2;A+HE)OX&>"[%EB"U#;!EB8T/>_PE<3'QF\"EY,S%/UI^B/VT'=[N1!```
 `
 end

Tst/Manual/liftstd.tst

@@ -11 +11 @@
   sm=liftstd(i,T,s);
   print(s);
+  sm=liftstd(i,T,s,"std");
+  print(s);
+  sm=liftstd(i,T,s,"slimgb");
+  print(s);
 tst_status(1);$