X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=psi.d%2Fnetdb.psi;h=7ce8427c4ba6d440d752f9628875f3c56c19f1a5;hp=895728e1232f4d0d864e47f40e5c70d58eadf3e1;hb=fecb0372ee8e219a7ebd51406dee3e1008ccb7ec;hpb=3c364acddaef0f5c0b5fe462c92a6cbd64568e51

diff --git a/psi.d/netdb.psi b/psi.d/netdb.psi
index 895728e..7ce8427 100644
--- a/psi.d/netdb.psi
+++ b/psi.d/netdb.psi
@@ -1,3 +1,7 @@
+lib "anl";
+
+#include <netdb.h>
+
 function psi\endhostent() : void {
 	return endhostent() as void(endhostent);
 }
@@ -72,10 +76,10 @@ function psi\getaddrinfo(string $node, string $service, array $hints = NULL, obj
 function psi\getnameinfo(string $addr, string &$host = NULL, string &$service = NULL, int $flags = 0) : int {
 	let sa = strval($addr);
 	let salen = strlen($addr);
-	let hostlen = psi\NI_MAXHOST;
-	let host = calloc(hostlen, psi\SIZEOF_CHAR);
-	let servlen = psi\NI_MAXSERV;
-	let serv = calloc(servlen, psi\SIZEOF_CHAR);
+	let hostlen = NI_MAXHOST;
+	let host = calloc(hostlen, sizeof(char));
+	let servlen = NI_MAXSERV;
+	let serv = calloc(servlen, sizeof(char));
 	let flags = intval($flags);
 	return getnameinfo(sa, salen, host, hostlen, serv, servlen, flags) as to_int(getnameinfo);
 	set $host = to_string(host);