let_callback: optional call variable list

[m6w6/ext-psi] / psi.d / netdb.psi

diff --git a/psi.d/netdb.psi b/psi.d/netdb.psi
index 11eccea638510088765c73b1900d22accbdf489b..26f91e9e47f027c8ba7d88397a400fbe529a543d 100644 (file)
--- a/psi.d/netdb.psi
+++ b/psi.d/netdb.psi
@@ -74,10 +74,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);