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=2.9 required=5.0 tests=BAYES_50,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,12caea720d8d4b4e,start
X-Google-Attributes: gid103376,public
From: Duncan Woodward <doig@mwangi.demon.co.uk>
Subject: Ada-Trivial Problem
Date: 1997/02/28
Message-ID: <3317329D.167E@mwangi.demon.co.uk>#1/1
X-Deja-AN: 222135554
X-NNTP-Posting-Host: mwangi.demon.co.uk
Organization: Home
Reply-To: doig@mwangi.demon.co.uk
Newsgroups: comp.lang.ada
Date: 1997-02-28T00:00:00+00:00
List-Id: <comp.lang.ada>


Im a first year comp sci student in glasgow scotland.
what i would like help on is a example prog that shows two procedures
running concurrently using tasking.
The procedures are sorts, however whilst they work they dont run
concurrently....why?


with list_operations; use
list_operations;                                        
procedure SORT(LIST: in ARRAY_OF_INTEGER) is
procedure Insertion_Sort (List : in out ARRAY_OF_INTEGER);  
procedure Selection_Sort (List : in out ARRAY_OF_INTEGER);

   task SORT1;    
   task SORT2;
         task body SORT1 is  
                        max:integer:=45;      
                        Data:array_of_integer(1..Max):=List;       
                  begin
                    INSERTION_SORT(Data);
                  end SORT1;
 
         task body SORT2 is  
                        max:integer:=45;      
                        Data:array_of_integer(1..Max):=List;       
                  begin
                    SELECTION_SORT(Data);
                  end SORT2;
                            ----------------------  

   procedure swap (left, right : in out INTEGER) is
     --statements--
     end swap;
                            -------------------

     procedure Insertion_Sort (List : in out ARRAY_OF_INTEGER) is
   -- statements--
     end Insertion_Sort;   
 
                           ----------------------

      procedure Selection_Sort (List : in out ARRAY_OF_INTEGER) is
        --statements--
      end Selection_Sort;    

                          -----------------------  
          

      begin

        
LIST_OPERATIONS.DISPLAY("drdw",23);                                          
       end SORT;
                
---------------------------