===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/tcpf.c,v
retrieving revision 1.72
retrieving revision 1.74
diff -u -p -r1.72 -r1.74
--- OpenXM_contrib2/asir2000/io/tcpf.c	2016/08/24 01:33:53	1.72
+++ OpenXM_contrib2/asir2000/io/tcpf.c	2016/09/27 07:37:47	1.74
@@ -44,7 +44,7 @@
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
- * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.71 2016/08/24 00:52:50 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/io/tcpf.c,v 1.73 2016/08/27 03:09:03 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -1451,7 +1451,8 @@ void Pox_cmo_rpc(NODE arg,Obj *rp)
 }
 
 int No_ox_reset;
-extern int ox_pari_stream, ox_pari_stream_initialized;
+extern Q ox_pari_stream;
+extern int ox_pari_stream_initialized;
 
 void Pox_reset(NODE arg,Q *rp)
 {
@@ -1474,11 +1475,11 @@ void Pox_reset(NODE arg,Q *rp)
          fprintf(stderr,"The server does not implenent OX reset protocol.\n");
          fprintf(stderr,"The server is terminated.\n");
          Pox_shutdown(nd,rp);
-         if ( index == ox_pari_stream ) ox_pari_stream_initialized = 0;
+         if ( index == QTOS(ox_pari_stream) ) ox_pari_stream_initialized = 0;
          break;
       case 2:
          Pox_shutdown(nd,rp);
-         if ( index == ox_pari_stream ) ox_pari_stream_initialized = 0;
+         if ( index == QTOS(ox_pari_stream) ) ox_pari_stream_initialized = 0;
          break;
       default:
          error("The server does not implement OX reset protocol.");
@@ -1491,7 +1492,10 @@ void Pox_reset(NODE arg,Q *rp)
     if ( argc(arg) == 1 ) {
 			ox_send_cmd(m,SM_control_reset_connection);
 			ox_flush_stream_force(m);
+#if 0
+      /* XXX obsolete */
 			ox_recv(m,&id,&obj); t = (USINT)obj;
+#endif
 		}
 		*rp = ONE;
 #if defined(VISUAL) || defined(__MINGW32__)