Check for allocator bucket overflow

        Ensure requested memory size can be accommodated by the current number
        of memory allocator buckets

        Code review comments, change fprintfs to opal_show_help()

Signed-off-by: William P. LePera <lepera@us.ibm.com>
(cherry picked from commit ad9fe7a)

Author: wlepera

opal/mca/allocator/bucket/Makefile.am

@@ -18,6 +18,8 @@
 # $HEADER$
 #
 
+dist_opaldata_DATA = help-mca-allocator-bucket.txt
+
 sources = \
         allocator_bucket.c \
         allocator_bucket_alloc.c \

opal/mca/allocator/bucket/allocator_bucket_alloc.c

@@ -20,6 +20,8 @@
 #include "opal_config.h"
 #include "opal/mca/allocator/bucket/allocator_bucket_alloc.h"
 #include "opal/constants.h"
+#include "opal/util/show_help.h"
+
 /**
  * The define controls the size in bytes of the 1st bucket and hence every one
  * afterwards.
@@ -31,6 +33,8 @@
  */
 #define MCA_ALLOCATOR_BUCKET_1_BITSHIFTS 3
 
+static int max_bucket_idx;
+
 /*
  * Initializes the mca_allocator_bucket_options_t data structure for the passed
  * parameters.
@@ -47,6 +51,9 @@ mca_allocator_bucket_init(mca_allocator_base_module_t *mem, int num_buckets,
     if (num_buckets <= 0) {
         num_buckets = 30;
     }
+
+    max_bucket_idx = num_buckets - 1;
+
     /* initialize the array of buckets */
     size = sizeof(mca_allocator_bucket_bucket_t) * num_buckets;
     mem_options->buckets = (mca_allocator_bucket_bucket_t *) malloc(size);
@@ -89,6 +96,13 @@ void *mca_allocator_bucket_alloc(mca_allocator_base_module_t *mem, size_t size)
         bucket_size <<= 1;
     }
 
+    if( bucket_num > max_bucket_idx ) {
+        size_t sz_bucket = MCA_ALLOCATOR_BUCKET_1_SIZE;
+        opal_show_help ("help-mca-allocator-bucket.txt", "buffer too large", size, sz_bucket << max_bucket_idx,
+                        "allocator_bucket_num_buckets", bucket_num + 1);
+        return (NULL);
+    }
+
     /* now that we know what bucket it will come from, we must get the lock */
     OPAL_THREAD_LOCK(&(mem_options->buckets[bucket_num].lock));
     /* see if there is already a free chunk */
@@ -191,6 +205,14 @@ void *mca_allocator_bucket_alloc_align(mca_allocator_base_module_t *mem, size_t
         bucket_size >>= 1;
         bucket_num++;
     }
+
+    if( bucket_num > max_bucket_idx ) {
+        size_t sz_bucket = MCA_ALLOCATOR_BUCKET_1_SIZE;
+        opal_show_help ("help-mca-allocator-bucket.txt", "aligned buffer too large", allocated_size, sz_bucket << max_bucket_idx,
+                        "allocator_bucket_num_buckets", bucket_num + 1);
+        return (NULL);
+    }
+
     bucket_size = 1;
     bucket_size <<= MCA_ALLOCATOR_BUCKET_1_BITSHIFTS + bucket_num;
 

opal/mca/allocator/bucket/help-mca-allocator-bucket.txt

@@ -0,0 +1,19 @@
+# -*- text -*-
+#
+# Copyright (c) 2021      IBM Corporation.  All rights reserved
+# $COPYRIGHT$
+#
+# Additional copyrights may follow
+#
+# $HEADER$
+#
+# This is the US/English help file for Open MPI's allocator bucket support
+#
+[buffer too large]
+ERROR: Requested buffer size %zu exceeds limit of %zu
+Consider setting "%s" to %d
+#
+[aligned buffer too large]
+ERROR: Requested aligned buffer size %zu exceeds limit of %zu
+Consider setting "%s" to %d
+#