Problem with GNAT 3.09 and gnatbind -n

[hainque@news.enst.fr (Olivier Hainque)]

Hi there,

As part of a simple test I just saw that gnatbind 3.09 generates 
__main_priority differently if invoqued with or without the
"-n" option :

with "-n", I have in b_xxx.c ->  int __main_priority ()  { return -1; }
without,   I have in b_xxx.c ->  int __main_priority = -1; 

I had a look at 7stasini.adb in the source code of the runtime library
of and saw :

Package System.Tasking.Initialization
...
begin
  declare
    Main_Priority : Priority;
    pragma Import (C, Main_Priority, "__main_priority");
  begin
    Init_RTS (Main_Priority);
  end;
end System.Tasking.Initialization;

IMHO, I think that there could be a huge problem in the case in which
__main_priority is a function.

Stated differently, I think that the tasking can have lots of difficulties
to run correctly when gnatbind is used with "-n". Unfortunatly, I was not
able to test this yet, but I will install the whole thing for solaris 2.5
and check. (I just saw that in a cross configuration sparc->m68k).

Anyone knows more about this ?    
It is possible that I make a huge mistake myself.

Thanks in advance.

-- Olivier 

--
Olivier Hainque
E-mail: hainque@inf.enst.fr 

P-mail: Telecom Paris
        46, rue Barrault - 75634 Paris cedex 13