suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

error message repair

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-18 17:09:15 +08:00
parent 9af2a331ca
commit b27ae70d0a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/racket/src/network.c
View File

@ -1794,7 +1794,7 @@ const char *scheme_hostname_error(int err)
static Scheme_Object *tcp_connect(int argc, Scheme_Object *argv[]) static Scheme_Object *tcp_connect(int argc, Scheme_Object *argv[])
{ {
char * volatile address = "", * volatile src_address, * volatile errmsg = ""; char * volatile address = "", * volatile src_address, * volatile errmsg = NULL;
unsigned short origid, id, src_origid, src_id; unsigned short origid, id, src_origid, src_id;
int errpart = 0, errid = 0; int errpart = 0, errid = 0;
volatile int nameerr = 0, no_local_spec; volatile int nameerr = 0, no_local_spec;
@ -1982,25 +1982,30 @@ static Scheme_Object *tcp_connect(int argc, Scheme_Object *argv[])
} else { } else {
errpart = 2; errpart = 2;
nameerr = 1; nameerr = 1;
errmsg = "; local host not found"; errmsg = "local host not found";
} }
if (tcp_connect_dest) if (tcp_connect_dest)
mz_freeaddrinfo(tcp_connect_dest); mz_freeaddrinfo(tcp_connect_dest);
} else { } else {
errpart = 1; errpart = 1;
nameerr = 1; nameerr = 1;
errmsg = "; host not found"; errmsg = "host not found";
} }
#endif #endif
#ifdef USE_TCP #ifdef USE_TCP
scheme_raise_exn(MZEXN_FAIL_NETWORK, scheme_raise_exn(MZEXN_FAIL_NETWORK,
"tcp-connect: connection failed\n" "tcp-connect: connection failed\n"
"%s%s%s"
" address: %s\n" " address: %s\n"
" port number: %d\n" " port number: %d\n"
" step: %d\n" " step: %d\n"
" system error: %N", " system error: %N",
address, origid, errmsg, errpart, nameerr, errid); errmsg ? " detail: " : "",
errmsg ? errmsg : "",
errmsg ? "\n" : "",
address, origid, errpart,
nameerr, errid);
#else #else
scheme_raise_exn(MZEXN_FAIL_UNSUPPORTED, scheme_raise_exn(MZEXN_FAIL_UNSUPPORTED,
"tcp-connect: not supported on this platform"); "tcp-connect: not supported on this platform");