X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2Fos2.c;h=4ebdd509a9994f5f60533b18320f83f9c87b72da;hb=fb063f91dc7f31f7c1489f10462283ee145673d0;hp=5c05df59b94053a61d61416f143856f65c6cf2ae;hpb=4e205ed637fa853d115099170e6e11407ca49619;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/os2.c b/os2/os2.c
index 5c05df5..4ebdd50 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -4360,10 +4360,10 @@ XS(XS_OS2_pipeCntl)
 				      &PipeState), "DosPeekNPipe() for state");
 	    if (state) {
 		EXTEND(SP, 3);
-		PUSHs(newSVuv(PipeState));
+		mPUSHu(PipeState);
 		/*   Bytes (available/in-message) */
-		PUSHs(newSViv(BytesAvail.cbpipe));
-		PUSHs(newSViv(BytesAvail.cbmessage));
+		mPUSHi(BytesAvail.cbpipe);
+		mPUSHi(BytesAvail.cbmessage);
 		XSRETURN(3);
 	    } else if (info) {
 		/* L S S C C C/Z*
@@ -4390,12 +4390,12 @@ XS(XS_OS2_pipeCntl)
 		else
 		    size = strlen(b.pInfo.szName);
 		EXTEND(SP, 6);
-		PUSHs(newSVpvn(b.pInfo.szName, size));
-		PUSHs(newSVuv(b.id));
-		PUSHs(newSViv(b.pInfo.cbOut));
-		PUSHs(newSViv(b.pInfo.cbIn));
-		PUSHs(newSViv(b.pInfo.cbMaxInst));
-		PUSHs(newSViv(b.pInfo.cbCurInst));
+		mPUSHp(b.pInfo.szName, size);
+		mPUSHu(b.id);
+		mPUSHi(b.pInfo.cbOut);
+		mPUSHi(b.pInfo.cbIn);
+		mPUSHi(b.pInfo.cbMaxInst);
+		mPUSHi(b.pInfo.cbCurInst);
 		XSRETURN(6);
 	    } else if (BytesAvail.cbpipe == 0) {
 		XSRETURN_NO;