Commit 5eb6de10 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Merge branch 'qgen_fix_adacore' into 'feature_buster'

Qgen fix adacore

See merge request !62
parents 79b5aa7b 6fda3939
......@@ -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
......
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