print a more meaningful error message when ibv_create_qp fails

This commit was SVN r25158.

ompi/mca/btl/openib/connect/btl_openib_connect_oob.c

@@ -490,7 +490,11 @@ static int qp_create_one(mca_btl_base_endpoint_t* endpoint, int qp,
     my_qp = ibv_create_qp(openib_btl->device->ib_pd, &init_attr);
 
     if (NULL == my_qp) {
-        BTL_ERROR(("error creating qp errno says %s", strerror(errno)));
+	orte_show_help("help-mpi-btl-openib-cpc-base.txt",
+		       "ibv_create_qp failed", true,
+		       orte_process_info.nodename,
+		       ibv_get_device_name(m->btl->device->ib_dev),
+		       "Reliable connected (RC)");
         return OMPI_ERROR;
     }
     endpoint->qps[qp].qp->lcl_qp = my_qp;

ompi/mca/btl/openib/connect/btl_openib_connect_xoob.c

@@ -413,7 +413,11 @@ static int xoob_send_qp_create (mca_btl_base_endpoint_t* endpoint)
     qp_init_attr.xrc_domain = openib_btl->device->xrc_domain;
     *qp = ibv_create_qp(openib_btl->device->ib_pd, &qp_init_attr);
     if (NULL == *qp) {
-        BTL_ERROR(("Error creating QP, errno says: %s", strerror(errno)));
+	orte_show_help("help-mpi-btl-openib-cpc-base.txt",
+		       "ibv_create_qp failed", true,
+		       orte_process_info.nodename,
+		       ibv_get_device_name(m->btl->device->ib_dev),
+		       "Reliable connected (XRC)");
         return OMPI_ERROR;
     }
 

ompi/mca/btl/openib/connect/help-mpi-btl-openib-cpc-base.txt

@@ -40,3 +40,15 @@ a smaller inline data value than was requested.
   Local port:           %d
   Requested value:      %d
   Value used by device: %d
+#
+[ibv_create_qp failed]
+A process failed to create a queue pair. This usually means either
+the node has run out of registered memory or the OpenFabrics device
+has run out of queue pairs.
+
+Local host:             %s
+Local device:           %s
+Queue pair type:        %s
+
+For more information see the Open MPI FAQs at:
+http://www.open-mpi.org/faq/?category=openfabrics#ib-locked-pages