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) ...@@ -318,19 +318,26 @@ void add_RI_to_Ada_gw(Interface * i)
); );
if (NULL != ada_params) { if (NULL != ada_params) {
fprintf(ads, "("); fprintf(ads, "(%s)", ada_params);
fprintf(ads, "%s", ada_params);
fprintf(ads, ")");
} }
ada_params = NULL;
fprintf(ads, ";\n"); 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); 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);
ada_params = NULL;
} }
/* Add timer declarations to the Ada code skeletons */ /* 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