-/**
- * gras_cbps_block_begin:
- *
- * End the current block, and go back to the upper one.
- */
-void
-gras_cbps_block_end(gras_cbps_t *ps) {
-
- gras_dynar_t *frame = NULL;
- int cursor = 0;
- char *name = NULL;
-
- gras_assert0(gras_dynar_length(ps->frames),
- "More block_end than block_begin");
- gras_dynar_pop(ps->frames, &frame);
-
- gras_dynar_foreach(frame, cursor, name) {
-
- gras_dynar_t *varstack = NULL;
- gras_cbps_elm_t *var = NULL;
-
- DEBUG2("Get ride of %s (%p)",name,name);
- gras_dict_get(ps->space, name, (void **)&varstack);
- gras_dynar_pop(varstack, &var);
-
- if (!gras_dynar_length(varstack)) {
- gras_dict_remove(ps->space, name);
- gras_dynar_free_container(varstack); /*already empty, save a test ;) */
+/** \brief End the current block, and go back to the upper one. */
+void gras_cbps_block_end(gras_cbps_t ps)
+{
+
+ xbt_dynar_t frame = NULL;
+ unsigned int cursor = 0;
+ char *name = NULL;
+
+ xbt_assert0(xbt_dynar_length(ps->frames),
+ "More block_end than block_begin");
+ xbt_dynar_pop(ps->frames, &frame);
+
+ xbt_dynar_foreach(frame, cursor, name) {
+
+ xbt_dynar_t varstack = NULL;
+ gras_cbps_elm_t var = NULL;
+
+ XBT_DEBUG("Get ride of %s (%p)", name, (void *) name);
+ varstack = xbt_dict_get(ps->space, name);
+ xbt_dynar_pop(varstack, &var);
+
+ if (!xbt_dynar_length(varstack)) {
+ xbt_dict_remove(ps->space, name);
+ xbt_dynar_free_container(&varstack); /*already empty, save a test ;) */