From 12c5be481decb699d9f629bf1fa39e06328f461e Mon Sep 17 00:00:00 2001
From: Graham Fagg <gef@icl.utk.edu>
Date: Mon, 11 Oct 2004 15:46:01 +0000
Subject: [PATCH] Don't allow tcp to register for Self as there is a Self
 module. This fixes a bug in the PML logic that switches the PTL per message
 not just per fragment.

This commit was SVN r3048.
---
 src/mca/ptl/tcp/src/ptl_tcp.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/mca/ptl/tcp/src/ptl_tcp.c b/src/mca/ptl/tcp/src/ptl_tcp.c
index 1e3c281cd3..8986d13934 100644
--- a/src/mca/ptl/tcp/src/ptl_tcp.c
+++ b/src/mca/ptl/tcp/src/ptl_tcp.c
@@ -65,13 +65,18 @@ int mca_ptl_tcp_add_procs(
 {
     size_t i;
     mca_ptl_tcp_module_t *ptl_tcp = (mca_ptl_tcp_module_t*)ptl;
+    struct ompi_proc_t * proc_self = ompi_proc_local();
 
     for(i=0; i<nprocs; i++) {
         struct ompi_proc_t *ompi_proc = ompi_procs[i];
-        mca_ptl_tcp_proc_t* ptl_proc = mca_ptl_tcp_proc_create(ompi_proc);
+        mca_ptl_tcp_proc_t* ptl_proc;
         mca_ptl_base_peer_t* ptl_peer;
         int rc;
 
+        /* Dont let me register tcp for self */
+        if( proc_self == ompi_proc ) continue;
+
+        ptl_proc = mca_ptl_tcp_proc_create(ompi_proc);
         if(NULL == ptl_proc)
             return OMPI_ERR_OUT_OF_RESOURCE;