diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove forgotten debugging puts()'s

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@621 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos 2002-10-03 17:32:40 +00:00
parent 5895564724
commit 5d0716fb66
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/mpi/mpi.c
View File

@ -9,14 +9,14 @@
************************************************************************** **************************************************************************
* * * *
* File: mpi.c * * File: mpi.c *
* Last rev: $Date: 2002-10-03 17:28:37 $ * * Last rev: $Date: 2002-10-03 17:32:40 $ *
* mods: * * mods: *
* comments: Interface to an MPI library * * comments: Interface to an MPI library *
* * * *
*************************************************************************/ *************************************************************************/
#ifndef lint #ifndef lint
static char *rcsid = "$Header: /Users/vitor/Yap/yap-cvsbackup/library/mpi/mpi.c,v 1.8 2002-10-03 17:28:37 stasinos Exp $"; static char *rcsid = "$Header: /Users/vitor/Yap/yap-cvsbackup/library/mpi/mpi.c,v 1.9 2002-10-03 17:32:40 stasinos Exp $";
#endif #endif
#include "Yap.h" #include "Yap.h"
@ -469,7 +469,7 @@ p_mpi_receive() /* mpi_receive(-data, ?orig, ?tag) */
return FALSE; return FALSE;
} }
#if 1 #if 0
printf("About to receive %d chars from %d\n", bufstrlen, orig); printf("About to receive %d chars from %d\n", bufstrlen, orig);
#endif #endif
@ -498,7 +498,7 @@ p_mpi_receive() /* mpi_receive(-data, ?orig, ?tag) */
return FALSE; return FALSE;
} }
#if 1 #if 0
{ {
int aa; int aa;
MPI_Get_count( &status, MPI_CHAR, &aa ); MPI_Get_count( &status, MPI_CHAR, &aa );
@ -509,7 +509,7 @@ p_mpi_receive() /* mpi_receive(-data, ?orig, ?tag) */
/* parse received string into a Prolog term */ /* parse received string into a Prolog term */
bufptr = 0; bufptr = 0;
retv = unify(t_data, mpi_parse()); retv = unify(t_data, mpi_parse());
#if 1 #if 0
printf("mpi_receive: t_data == %d, retv == %d\n", t_data, retv); printf("mpi_receive: t_data == %d, retv == %d\n", t_data, retv);
#endif #endif
@ -627,11 +627,9 @@ p_mpi_bcast2() /* mpi_bcast( ?data, +root ) */
} }
bufptr = 0; bufptr = 0;
/* Turn the term into its ASCII representation */ /* Turn the term into its ASCII representation */
puts("1");
plwrite( t_data, mpi_putc, 5 ); plwrite( t_data, mpi_putc, 5 );
/* NULL-terminate the string and add the ". " termination /* NULL-terminate the string and add the ". " termination
required by the parser. */ required by the parser. */
puts("1");
buf[bufptr] = 0; buf[bufptr] = 0;
strcat( buf, ". " ); strcat( buf, ". " );
bufstrlen = bufptr + 2; bufstrlen = bufptr + 2;