XBT_OUT;
}
-static void add_free_f(xbt_dynar_t dynar,void_f_pvoid_t* free_f) {
+static void add_free_f(xbt_dynar_t dynar,void_f_pvoid_t free_f) {
s_identifier_t former,ref;
memset(&ref,0,sizeof(ref));
if (!storage)
PARSE_ERROR1("value for free_f annotation of field %s is not a known constant",identifier.name);
if (identifier.tm.is_matrix == -1) {
- add_free_f(identifiers,*(void_f_pvoid_t**)storage);
+ add_free_f(identifiers,*(void_f_pvoid_t*)storage);
identifier.tm.is_matrix = 0;
} else if (identifier.tm.is_dynar == -1) {
- add_free_f(identifiers,*(void_f_pvoid_t**)storage);
+ add_free_f(identifiers,*(void_f_pvoid_t*)storage);
identifier.tm.is_dynar = 0;
} else {
PARSE_ERROR1("free_f annotation only accepted for dynars and matrices which subtype is already declared (field %s)",
xbt_dynar_t identifiers;
s_identifier_t field;
- int i;
+ unsigned int iter;
int done;
xbt_dynar_t fields_to_push;
DEBUG1("This statement contained %lu identifiers",xbt_dynar_length(identifiers));
/* append the identifiers we've found */
- xbt_dynar_foreach(identifiers,i, field) {
+ xbt_dynar_foreach(identifiers,iter, field) {
if (field.tm.is_ref)
PARSE_ERROR2("Not enough GRAS_ANNOTATE to deal with all dereferencing levels of %s (%d '*' left)",
field.name,field.tm.is_ref);
DEBUG1("struct_type=%p",(void*)struct_type);
/* Make sure that all fields declaring a size push it into the cbps */
- xbt_dynar_foreach(fields_to_push,i, name) {
+ xbt_dynar_foreach(fields_to_push,iter, name) {
DEBUG1("struct_type=%p",(void*)struct_type);
if (name[0] == '*') {
VERB2("Push field '%s' as a multiplier into size stack of %p",