Merge branch 'qgen_fix_adacore' into 'feature_buster'

Qgen fix adacore

See merge request !62

templates/glue/language_wrappers/vm_if-body/function.tmplt

@@ -54,10 +54,14 @@ void init_@_LOWER:Name_@(void)
 {
    if (0 == @_LOWER:Name_@_initialized) {
       @_LOWER:Name_@_initialized = 1;
-@@IF@@ @_Language_@ /= "Ada" and @_Language_@ /= "QGenAda" and @_Language_@ /= "QGenC" and @_Language_@ /= "SDL"
+@@IF@@ @_Language_@ /= "Ada" and @_Language_@ /= "SDL" and @_Language_@ /= "QGenAda"
       // Call user code startup function
+      @@IF@@ @_Language_@ = "QGenC"
+      @_LOWER:Name_@_PI_@_List_Of_PIs_@_startup();
+      @@ELSE@@
       extern void @_LOWER:Name_@_startup(void);
       @_LOWER:Name_@_startup();
+      @@END_IF@@
 @@ELSIF@@ @_Language_@ = Ada or @_Language_@ = SDL
 @@IF@@ @_SDL_Target_Language_@ = "Ada"
       // Initialize Ada runtime to call elaboration functions