Newsgroups: comp.parallel.pvm
From: orenl@mangal.cs.huji.ac.il (Oren Laden)
Subject: Re: FAILURE - large amount of communication
Organization: The Hebrew U. of Jerusalem, Computer Science Dept.
Date: 23 Jan 1995 13:05:41 GMT
Message-ID: <3g09j5$frb@pretzel.cs.huji.ac.il>

Hi,

It's me again.

A small test program I've written also showed the strange behaviour:
The program causes the daemon to crash within 47 iterations !

I am almost certain that this is the same problem as before.

Again, thanks in advance for helping me out.

Oren.

---------------------------------

TEST PROGRAM:

main()
{
  int mytid, ptid, sid;
  int bufno;
  int buffer1024;
  int i,s,cnt = 0;
  FILE * file;

  for (i = 0; i < 1024; i++)
    bufferi = i;

  mytid = pvm_mytid();
  ptid = pvm_parent();
  if (ptid != PvmNoParent) {      /* this is the sender */
    while (1) {
      bufno = pvm_initsend(PvmDataDefault);
      pvm_pkint(buffer, 1024, 1);
      s = pvm_send(ptid, 1);
      if (s != PvmOk) {
	pvm_perror("sender");
	pvm_exit();
	exit(1);
      }
    }
  }
  ptid = pvm_spawn(SLAVENAME, (char **)0, 0, "", 1, &sid);
  fprintf(stderr,"spawn: %d\n",ptid);
  while (1) {
    usleep((unsigned int) 500000);
    bufno = pvm_recv(sid, 1);
    pvm_upkint(buffer, 1024, 1);
    fprintf(stderr,"sample: %d  %d  %d  %d  %d  %d, count: %d\n",
	    buffer1,buffer8,buffer100,buffer600,buffer200,
	    buffer1023,cnt++);
  }
}

---------------------------------

