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,83d7c4caadb45100
X-Google-Attributes: gid103376,public
From: Ken Garlington <garlingtonke@lmtas.lmco.com>
Subject: Re: DECAda/VMS - calling GETJPI
Date: 1996/06/04
Message-ID: <31B40A7F.552A@lmtas.lmco.com>#1/1
X-Deja-AN: 158437562
references: <31B2AF74.668E@dial.eunet.ch> <4ouo97$pe8@gcsin3.geccs.gecm.com>
 <4ouuuv$6hd@linus.mitre.org> <dewar.833818928@schonberg>
content-type: text/plain; charset=us-ascii
organization: Lockheed Martin Tactical Aircraft Systems
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.01 (Macintosh; I; 68K)
Date: 1996-06-04T00:00:00+00:00
List-Id: <comp.lang.ada>


Robert Dewar wrote:
> 
> IN fact the proper solution in this case is trivial:
> 
> procedure z is
>   type unsigned_longword is mod 2 ** 64;
>   x: unsigned_longword := -1;
> begin
>    null;
> end;
> 

I thought the original post required a solution compatible with DEC Ada
hosted on VAX/VMS. I don't think this solution is going to fly in that
environment :)

On the other hand, I _did_ compile my solution before posting it, so there!

-- 
LMTAS - "Our Brand Means Quality"