X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=tests%2Fpipe%2Fpipe.psi;h=8bc0f8ee40f497df6c5450cde9bcaa5fa2c2f9d3;hp=5bc3cd655184bd09bd12f9c7949218df328ef552;hb=93d6b7f962a82b725d1918684297d68221b0b733;hpb=9f381458672347c0f303dc3b309dc299f998f4f6

diff --git a/tests/pipe/pipe.psi b/tests/pipe/pipe.psi
index 5bc3cd6..8bc0f8e 100644
--- a/tests/pipe/pipe.psi
+++ b/tests/pipe/pipe.psi
@@ -1,8 +1,9 @@
+#pragma lib "crypt";
 
-extern int pipe(int fds[2]);
+#include <unistd.h>
 
 function \pipe(array &$fds = null) : int {
-	return to_int(pipe);
-	let fds = calloc(2, int);
-	set $fds = to_array(fds);
+	return pipe(fildes) as to_int(pipe);
+	let fildes = calloc(2, sizeof(int));
+	set $fds = to_array(*fildes, 2, to_int(*fildes));
 }