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,FREEMAIL_FROM autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: a07f3367d7,3e070dca458e63a6 X-Google-Attributes: gida07f3367d7,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII-7-bit X-Received: by 10.224.110.68 with SMTP id m4mr11150627qap.2.1358798728596; Mon, 21 Jan 2013 12:05:28 -0800 (PST) X-Received: by 10.182.31.46 with SMTP id x14mr465588obh.17.1358798728424; Mon, 21 Jan 2013 12:05:28 -0800 (PST) Path: k2ni1457qap.0!nntp.google.com!p13no3975318qai.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Mon, 21 Jan 2013 12:05:27 -0800 (PST) In-Reply-To: <2e2c2eb7-cc2a-4a23-9cad-2044c704c460@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=134.223.230.201; posting-account=mjE6MAoAAADjsB3NIuKgfHO4u-Elh3cb NNTP-Posting-Host: 134.223.230.201 References: <2e2c2eb7-cc2a-4a23-9cad-2044c704c460@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <0694b2e6-e369-4d96-9f63-d4f5ed292c4b@googlegroups.com> Subject: Re: More Ganssle on Ada From: Marc C Injection-Date: Mon, 21 Jan 2013 20:05:28 +0000 Content-Type: text/plain; charset=ISO-8859-1 Date: 2013-01-21T12:05:27-08:00 List-Id: On Saturday, January 19, 2013 3:17:05 PM UTC-6, sbelm...@gmail.com wrote: > I've had the displeasure of maintaining a lot of legacy code, ostensibly > written in Ada I feel your pain. I was porting a fairly large Ada 83 system where each subsystem had a typical I/O and processing flow: - Task to monitor a socket and put messages on a queue. - Task that implemented the incoming message queue - Task pulling messages off the queue, processing them, and putting any new messages on a queue. - Task implementing the outgoing queue. - Task to monitor the queue and write messages to a socket. Fairly pedestrian architecture, yes? Hard to mess this up, eh? *Every rendezvous was within an accept block.* Essentially you wound up with the World's Most Expensive Procedure Calls (tm). By the time the port was done I had run across only two task types whose instances were actually executing concurrently with other processing. This system is now retired. Marc A. Criley