implemented CmiSyncListSendFn (correspondent to the call CmiSyncListSend)
authorFilippo Gioachin <gioachin@illinois.edu>
Tue, 22 Mar 2005 20:05:46 +0000 (20:05 +0000)
committerFilippo Gioachin <gioachin@illinois.edu>
Tue, 22 Mar 2005 20:05:46 +0000 (20:05 +0000)
src/arch/net/machine.c
src/conv-core/convcore.c

index 314516d4dbe8cd3a7379d6c493a2b7c3b3ce557a..b1a096c14861260c184a269bdcc15b2ba93a404c 100644 (file)
@@ -1888,7 +1888,11 @@ void CmiReleaseCommHandle(CmiCommHandle handle)
                                                                                 
 void CmiSyncListSendFn(int npes, int *pes, int len, char *msg)
 {
-  CmiError("ListSend not implemented.");
+  int i;
+  for(i=0;i<npes;i++) {
+    CmiReference(msg);
+    CmiSyncSendAndFree(pes[i], len, msg);
+  }
 }
                                                                                 
 CmiCommHandle CmiAsyncListSendFn(int npes, int *pes, int len, char *msg)
index ee57a5b6f9cca2dd104acdbd329c7d50dd8d30fc..49f480422e55ed437c28adb3de5dfb56eb0d3955 100644 (file)
@@ -1622,7 +1622,10 @@ void CmiGroupInit()
 
 void CmiSyncListSendFn(int npes, int *pes, int len, char *msg)
 {
-  CmiError("ListSend not implemented.");
+  int i;
+  for(i=0;i<npes;i++) {
+    CmiSyncSend(pes[i], len, msg);
+  }
 }
 
 CmiCommHandle CmiAsyncListSendFn(int npes, int *pes, int len, char *msg)
@@ -1633,7 +1636,6 @@ CmiCommHandle CmiAsyncListSendFn(int npes, int *pes, int len, char *msg)
 
 void CmiFreeListSendFn(int npes, int *pes, int len, char *msg)
 {
-  /*CmiError("ListSend not implemented.");*/
   int i;
   for(i=0;i<npes-1;i++) {
     CmiSyncSend(pes[i], len, msg);