free the callback list on gras_process_exit

[simgrid.git] / src / gras / Msg / msg.c

diff --git a/src/gras/Msg/msg.c b/src/gras/Msg/msg.c
index 7390f13..706c52e 100644 (file)
--- a/src/gras/Msg/msg.c
+++ b/src/gras/Msg/msg.c
@@ -400,6 +400,15 @@ gras_msg_handle(double timeOut) {
   return mismatch_error;
 }
 
   return mismatch_error;
 }
 

+void
+gras_cbl_free(void *data){
+  gras_cblist_t *list=*(void**)data;
+  if (list) {
+    gras_dynar_free(list->cbs);
+    free(list);
+  }
+}
+

 gras_error_t
 gras_cb_register(gras_msgtype_t *msgtype,
                 gras_cb_t cb) {
 gras_error_t
 gras_cb_register(gras_msgtype_t *msgtype,
                 gras_cb_t cb) {