* add some useful debugging output

* fix dumb bug in btl_portals_get where I using the dest descriptor key instead
  of the source descriptor key for the match bits, resulting in a PtlGet() with
  the wrong match bits

This commit was SVN r7496.

ompi/mca/btl/portals/btl_portals_component.c

@@ -195,7 +195,7 @@ mca_btl_portals_component_open(void)
                            &dummy);
     mca_btl_portals_module.super.btl_bandwidth = dummy;
 
-    mca_btl_portals_module.super.btl_flags = MCA_BTL_FLAGS_PUT | MCA_BTL_FLAGS_GET | MCA_BTL_FLAGS_SEND_INPLACE;
+    mca_btl_portals_module.super.btl_flags = MCA_BTL_FLAGS_PUT | MCA_BTL_FLAGS_GET| MCA_BTL_FLAGS_SEND_INPLACE;
 
     mca_btl_portals_module.portals_num_procs = 0;
     bzero(&(mca_btl_portals_module.portals_reg),
@@ -454,6 +454,9 @@ mca_btl_portals_component_progress(void)
                     OMPI_BTL_PORTALS_FRAG_ALLOC_RECV(&mca_btl_portals_module, frag, ret);
                     frag->segments[0].seg_addr.pval = (((char*) ev.md.start) + ev.offset);
                     frag->segments[0].seg_len = ev.mlength;
+
+                    OPAL_OUTPUT_VERBOSE((90, mca_btl_portals_component.portals_output,
+                                         "received send fragment %x", frag));
                 
                     if (ev.md.length - (ev.offset + ev.mlength) < ev.md.max_size) {
                         /* the block is full.  It's deactivated automagically, but we

ompi/mca/btl/portals/btl_portals_rdma.c

@@ -31,6 +31,10 @@ mca_btl_portals_put(struct mca_btl_base_module_t* btl_base,
     mca_btl_portals_frag_t *frag = (mca_btl_portals_frag_t*) descriptor;
     int ret;
 
+    OPAL_OUTPUT_VERBOSE((90, mca_btl_portals_component.portals_output,
+                         "PtlPut (rdma) fragment %x, bits %lld", frag,
+                         frag->base.des_dst[0].seg_key.key64));
+
     assert(&mca_btl_portals_module == (mca_btl_portals_module_t*) btl_base);
     assert(frag->md_h != PTL_INVALID_HANDLE);
 
@@ -68,6 +72,10 @@ mca_btl_portals_get(struct mca_btl_base_module_t* btl_base,
     mca_btl_portals_frag_t *frag = (mca_btl_portals_frag_t*) descriptor;
     int ret;
 
+    OPAL_OUTPUT_VERBOSE((90, mca_btl_portals_component.portals_output,
+                         "PtlGet (rdma) fragment %x, bits %lld", frag,
+                         frag->base.des_src[0].seg_key.key64));
+
     assert(&mca_btl_portals_module == (mca_btl_portals_module_t*) btl_base);
     assert(frag->md_h != PTL_INVALID_HANDLE);
 
@@ -79,7 +87,7 @@ mca_btl_portals_get(struct mca_btl_base_module_t* btl_base,
                  *((mca_btl_base_endpoint_t*) btl_peer),
                  OMPI_BTL_PORTALS_RDMA_TABLE_ID,
                  0, /* ac_index - not used*/
-                 frag->base.des_dst[0].seg_key.key64, /* match bits */
+                 frag->base.des_src[0].seg_key.key64, /* match bits */
                  0); /* remote offset - not used */
     if (ret != PTL_OK) {
         opal_output(mca_btl_portals_component.portals_output,

ompi/mca/btl/portals/btl_portals_send.c

@@ -61,6 +61,8 @@ mca_btl_portals_send(struct mca_btl_base_module_t* btl_base,
     } else {
         int ret;
         ptl_handle_md_t md_h;
+        OPAL_OUTPUT_VERBOSE((90, mca_btl_portals_component.portals_output,
+                             "PtlPut (send) fragment %x", frag));
 
         /* setup the send */
         if (1 == frag->base.des_src_cnt) {