===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2018/engine/poly.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib2/asir2018/engine/poly.c	2018/09/19 05:45:07	1.1
+++ OpenXM_contrib2/asir2018/engine/poly.c	2018/09/28 08:20:28	1.2
@@ -272,7 +272,7 @@ void pwrp(VL vl,P p,Z q,P *pr)
     } else if ( !INT(q) ) {
       error("pwrp: can't calculate fractional power."); *pr = 0;
     } else if ( smallz(q) ) {
-      n = QTOS(q); x = (P *)ALLOCA((n+1)*sizeof(pointer));
+      n = ZTOS(q); x = (P *)ALLOCA((n+1)*sizeof(pointer));
       NEWDC(dct); DEG(dct) = DEG(dc); COEF(dct) = COEF(dc);
       NEXT(dct) = 0; MKP(VR(p),dct,t);
       for ( i = 0, u = (P)One; i < n; i++ ) {