From 3631439be9ab60db6bba11054a264ccb8776047e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Thu, 17 Jun 2010 08:20:15 +0100 Subject: [PATCH] fix debugging info --- packages/clib/socket.c | 1 - packages/clib/test_socket.pl | 3 --- 2 files changed, 4 deletions(-) diff --git a/packages/clib/socket.c b/packages/clib/socket.c index 099bed7de..45a67a074 100644 --- a/packages/clib/socket.c +++ b/packages/clib/socket.c @@ -278,7 +278,6 @@ udp_receive(term_t Socket, term_t Data, term_t From, term_t options) if ( (n=nbio_recvfrom(socket, buf, sizeof(buf), flags, (struct sockaddr*)&sockaddr, &alen)) == -1 ) return nbio_error(errno, TCP_ERRNO); - if ( !PL_unify_chars(Data, as, n, buf) ) return FALSE; diff --git a/packages/clib/test_socket.pl b/packages/clib/test_socket.pl index 33613d76d..4d9396557 100644 --- a/packages/clib/test_socket.pl +++ b/packages/clib/test_socket.pl @@ -67,7 +67,6 @@ server(Port) :- run_server(Socket). run_server(Socket) :- - writeln(before_main), tcp_open_socket(Socket, In, _Out), add_stream_to_pool(In, accept(Socket)), stream_pool_main_loop. @@ -185,7 +184,6 @@ receive_loop(Socket, Queue) :- repeat, udp_receive(Socket, Data, From, [as(atom)]), thread_send_message(Queue, got(Data, From)), - writeln(before_main:Data:done), Data == quit, !, tcp_close_socket(Socket). @@ -213,7 +211,6 @@ run_udp :- udp_send(S, 'quit', localhost:Port, []), thread_get_message(got(Q, _)), thread_join(ThreadId, Exit), - writeln(done), tcp_close_socket(S), assertion(X=='hello world'), assertion(Q=='quit'),