From 74f1a5310a5c4ab4643e18658493d636a71d1c79 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 3 Jan 2002 17:15:50 +0000
Subject: [PATCH] fix select

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@265 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/heapgc.c     | 2 +-
 pl/sockets.yap | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/C/heapgc.c b/C/heapgc.c
index 2e352efd6..0642eac21 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -571,7 +571,7 @@ init_dbtable(tr_fr_ptr trail_ptr) {
 
 #ifdef DEBUG
 
-#define INSTRUMENT_GC 1
+/* #define INSTRUMENT_GC 1 */
 /* #define CHECK_CHOICEPOINTS 1  */
 
 #ifdef INSTRUMENT_GC
diff --git a/pl/sockets.yap b/pl/sockets.yap
index 545792d31..fceaf1410 100644
--- a/pl/sockets.yap
+++ b/pl/sockets.yap
@@ -70,10 +70,11 @@ socket_buffering(Sock, Flag, InSize, OutSize) :-
 	var(OutSize), OutSize \= InSize, !,
 	throw(error(instantiation_error,socket_buffering(Sock, Flag, InSize, OutSize))).
 socket_buffering(Sock, Flag, InSize, OutSize) :-
-	'$convert_sock_buff'(InSize, InNumb),
+	'$convert_sock_buff'(OutSize, OutNumb),
 	'$socket_buffering'(Sock, Flag, InNumb, OutNumb),
-	'$convert_sock_buff'(OutSize, OutNumb).
+	'$convert_sock_buff'(InSize, InNumb).
 
+'$convert_sock_buff'(V, V) :- var(V), !.
 '$convert_sock_buff'(unbuf, 1) :- !.
 '$convert_sock_buff'(fullbuf, _).