Commit da83a4e1 authored by Maxime Perrotin's avatar Maxime Perrotin

In ads file (ada skeletons) generate RI with two names

Opengeode RI use a prefix RI<sep>RIname to avoid compilation name
clashes. However legacy TASTE systems using Ada are not expecting it.
Both must be supported.
parent 44dc769f
Pipeline #1014 skipped
......@@ -318,19 +318,26 @@ void add_RI_to_Ada_gw(Interface * i)
);
if (NULL != ada_params) {
fprintf(ads, "(");
fprintf(ads, "%s", ada_params);
fprintf(ads, ")");
fprintf(ads, "(%s)", ada_params);
}
free(ada_params);
ada_params = NULL;
fprintf(ads, ";\n");
fprintf(ads, "\tpragma import(C, %s, \"%s_RI_%s\");\n\n", i->name,
fprintf(ads, "\tpragma import(C, %s, \"%s_RI_%s\");\n", i->name,
i->parent_fv->name, i->name);
fprintf(ads, "\tprocedure RI%s", i->name);
if (NULL != ada_params) {
fprintf(ads, "(%s)", ada_params);
}
fprintf(ads, " renames %s;\n\n", i->name);
free(ada_params);
ada_params = NULL;
}
/* Add timer declarations to the Ada code skeletons */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment