From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d15a4f8fdf13426b,start
X-Google-Attributes: gid103376,public
From: hainque@news.enst.fr (Olivier Hainque)
Subject: Problem with GNAT 3.09 and gnatbind -n
Date: 1997/02/27
Message-ID: <5f4mkf$isd@enst.enst.fr>#1/1
X-Deja-AN: 221882198
Organization: ENST, France
Newsgroups: comp.lang.ada
Date: 1997-02-27T00:00:00+00:00
List-Id: <comp.lang.ada>


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