From ff95f1860ad590a14f0026e694b2fa81af6153dd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 11 May 2019 18:48:44 -0600 Subject: [PATCH] io: fix hostname lookup for `tcp-listen` Need to lookup with "passive" flag. Some platforms/configurations apparently don't care, but some do. --- racket/src/cs/rumble/foreign.ss | 7 ++++++- racket/src/io/network/tcp-listen.rkt | 2 ++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss index 2bba9355aa..ebe57fd76a 100644 --- a/racket/src/cs/rumble/foreign.ss +++ b/racket/src/cs/rumble/foreign.ss @@ -1703,7 +1703,12 @@ (cpointer->name proc-p))))] [else (lambda (to-wrap) - (let* ([proc-p (unwrap-cpointer 'ffi-call to-wrap)]) + (let* ([proc-p (unwrap-cpointer 'ffi-call to-wrap)] + #; + [name (and (ffi-obj? proc-p) (let ([n (cpointer/ffi-obj-name proc-p)]) + (if (bytes? n) + (utf8->string n) + n)))]) (do-procedure-reduce-arity-mask (lambda orig-args (let* ([args (map (lambda (orig-arg in-type) diff --git a/racket/src/io/network/tcp-listen.rkt b/racket/src/io/network/tcp-listen.rkt index bc9b4807e8..4f3b2a2da5 100644 --- a/racket/src/io/network/tcp-listen.rkt +++ b/racket/src/io/network/tcp-listen.rkt @@ -41,6 +41,8 @@ ;; or might return a listener (call-with-resolved-address hostname port-no + #:family family + #:passive? #t ;; in atomic mode (lambda (addr) (cond