[svn:parrot] r11836 - in trunk/src: io ops

[leo]

Author: leo
Date: Thu Mar  9 08:00:15 2006
New Revision: 11836

Modified:
   trunk/src/io/io_unix.c
   trunk/src/ops/io.ops

Log:
IO - fix recv opcode; inactivate connect dbg msg

Modified: trunk/src/io/io_unix.c
==============================================================================
--- trunk/src/io/io_unix.c      (original)
+++ trunk/src/io/io_unix.c      Thu Mar  9 08:00:15 2006
@@ -718,6 +718,7 @@
 PIO_unix_connect(theINTERP, ParrotIOLayer *layer, ParrotIO *io, STRING *r)
 {
     UNUSED(layer);
+    UNUSED(interpreter);
 
     if (r) {
         struct sockaddr_in sa;
@@ -726,9 +727,11 @@
         io->remote.sin_port = sa.sin_port;
     }
 AGAIN:
+#if PIO_TRACE
     PIO_eprintf(interpreter,
             "connect: fd = %d port = %d\n",
             io->fd, ntohs(io->remote.sin_port));
+#endif
     if ((connect(io->fd, (struct sockaddr*)&io->remote,
                     sizeof(struct sockaddr))) != 0) {
         switch(errno) {

Modified: trunk/src/ops/io.ops
==============================================================================
--- trunk/src/ops/io.ops        (original)
+++ trunk/src/ops/io.ops        Thu Mar  9 08:00:15 2006
@@ -555,6 +555,7 @@
 op recv(out INT, in PMC, in STR) :base_network {
     STRING *dest = $3;
     $1 = (INTVAL)PIO_recv(interpreter, $2, &dest);
+    $3 = dest;
     goto NEXT();
 }