Commit dfe9cd5b authored by Maxime Perrotin's avatar Maxime Perrotin

Disable Ada skeleton generation for instances

parent c9decad7
......@@ -376,6 +376,15 @@ void GW_Ada_Backend(FV * fv)
if (fv->system_ast->context->onlycv)
return;
/* For instance of components (SDL only), disable the overwriting of the
* ads file, as it is handled by OpenGEODE, and the content is different
* than for normal functions - it instantiates the generic package, etc.
*/
if (NULL != fv->instance_of) {
return;
}
if (ada == fv->language || qgenada == fv->language) {
/* Create the files and add headers */
......
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