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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,4ba141e02a508f3e
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-09-13 04:56:37 PST
Path: 
 supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!news.tele.dk!194.42.224.136!diablo.netcom.net.uk!netcom.net.uk!tank.news.pipex.net!pipex!do.de.uu.net!frankfurt.de.uu.net!newsfeed.siemens.de!news.mch.sbs.de!not-for-mail
From: Alfred Hilscher <Alfred.Hilscher@icn.siemens.de>
Newsgroups: comp.lang.ada
Subject: abort task on WinNT
Date: Wed, 13 Sep 2000 13:56:36 +0200
Organization: Siemens AG
Message-ID: <39BF6B74.786B4219@icn.siemens.de>
NNTP-Posting-Host: 139.21.122.158
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 4.5 [en] (WinNT; I)
X-Accept-Language: en
Xref: supernews.google.com comp.lang.ada:626
Date: 2000-09-13T13:56:36+02:00
List-Id: <comp.lang.ada>

Hello,

I have a program consisting of a main procedure, handling user-input and
a local, free-running task. It looks like follows (schematic):

procedure p is
  task t is
  end t;

  task body t is
  begin
    loop
      null;
    end loop;
  end t;
begin
  null;
end p;

The problem I have is, the program must terminate immediately when the
user request termination. But due to the task running in a loop, it
doesn't (it waits for the task termination I think). I tried to insert
an "abort t;" at the end of "p", but it still doesn't terminate. In the
final solution, task t shall do remote communication (via serial or
TCP/IP). So maybe it waits for data transmission and will not be ready
for a rendevzous saying "shutdown". 
So my question is: how can I force immediate programm termination ?

I work on Windows NT 4.0