GNAT RTS Creating Hidden Task?

[Greg Bond <bond@ee.ubc.ca>]

I've hacked the GNAT RTS to monitor for particular RTS events (such as 
task creation, destruction, rendezvous stages, protected object access 
stages). In the following code I would expect two tasks to be created: 
the mainline procedure and the declared task. However, the event monitor 
indicates that the mainline procedure creates a task in addition to the 
declared task. What's its purpose? I'm running GNAT 3.03 under SunOS.

procedure Test1 is

   task T1;

   task body T1 is
   begin
      null;
   end T1;

   task T2;

begin
   null;
end;
 
--
* Greg Bond                         * Dept. of Electrical Eng.  
* email: bond@ee.ubc.ca             * Univ. of British Columbia      
* voice: (604) 822 0899             * 2356 Main Mall                 
* fax:   (604) 822 5949             * Vancouver, BC              
* web: http://www.ee.ubc.ca/~bond   * Canada, V6T 1Z4