This source file includes following definitions.
- unregister_tree_item
- mca_mpool_base_alloc
- mca_mpool_base_free
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 #include "opal_config.h"
27 #include <stdint.h>
28 #include <string.h>
29 #include "opal/mca/mpool/mpool.h"
30 #include "base.h"
31 #include "mpool_base_tree.h"
32 #include "opal/threads/mutex.h"
33 #include "opal/util/info.h"
34
35
36 static void unregister_tree_item(mca_mpool_base_tree_item_t *mpool_tree_item)
37 {
38 mca_mpool_base_module_t *mpool;
39
40 mpool = mpool_tree_item->mpool;
41 mpool->mpool_free(mpool, mpool_tree_item->key);
42 }
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60 void *mca_mpool_base_alloc(size_t size, opal_info_t *info, const char *hints)
61 {
62 mca_mpool_base_tree_item_t *mpool_tree_item = NULL;
63 mca_mpool_base_module_t *mpool;
64 void *mem = NULL;
65 #if defined(TODO_BTL_GB)
66 int flag = 0;
67 #endif
68
69 mpool_tree_item = mca_mpool_base_tree_item_get ();
70 if (!mpool_tree_item) {
71 return NULL;
72 }
73
74 mpool_tree_item->num_bytes = size;
75 mpool_tree_item->count = 0;
76
77 mpool = mca_mpool_base_module_lookup (hints);
78 if (NULL != mpool) {
79 mem = mpool->mpool_alloc (mpool, size, sizeof(void *), 0);
80 }
81
82 if (NULL == mem) {
83
84 mem = malloc(size);
85
86 mca_mpool_base_tree_item_put (mpool_tree_item);
87 } else {
88 mpool_tree_item->mpool = mpool;
89 mpool_tree_item->key = mem;
90 mca_mpool_base_tree_insert (mpool_tree_item);
91 }
92
93 return mem;
94 }
95
96
97
98
99
100
101
102
103
104 int mca_mpool_base_free(void *base)
105 {
106 mca_mpool_base_tree_item_t *mpool_tree_item = NULL;
107 int rc;
108
109 if(!base) {
110 return OPAL_ERROR;
111 }
112
113 mpool_tree_item = mca_mpool_base_tree_find(base);
114
115 if(!mpool_tree_item) {
116
117 free(base);
118 return OPAL_SUCCESS;
119 }
120
121 rc = mca_mpool_base_tree_delete(mpool_tree_item);
122 if(OPAL_SUCCESS == rc) {
123 unregister_tree_item(mpool_tree_item);
124 mca_mpool_base_tree_item_put(mpool_tree_item);
125 }
126
127 return rc;
128 }