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/03
Message-ID: <31B2BC7B.65A3@lmtas.lmco.com>#1/1
X-Deja-AN: 158245416
references: <31B2AF74.668E@dial.eunet.ch>
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-03T00:00:00+00:00
List-Id: <comp.lang.ada>


Alan Paterson wrote:
> 
> So, what I now do is the following:
> 
>    PID  : UNSIGNED_LONGWORD;
>    PID0 : INTEGER;
>    for PID0 use at PID'address;
> begin
>    PID0 := -1;
>    loop
>       GetJPI(..., Process_Id => PID, ...);
> 
> This works, but I can't help but wonder if there isn't a more
> elegant way to do it. Does anyone have experience with this?

I tried this on DEC Ada V3.0A-9 on a VAXStation 4000 running VMS 5.5-2.
I can assign -1 to objects of System.Unsigned_Longword just fine, so
long as the "-" operator is visible (e.g., put in a "use System;").

For this version of DEC Ada, System.Unsigned_Longword is defined as
range System.Min_Int .. System_Max_Int, with System.Min_Int = -(2**31).
See the DEC Ada documentation, or read file ADA$PREDEFINED:SYSTEM_.ADC.

If, on your version of DEC Ada, the range has been changed, try this:

  Minus_1 : constant System.Unsigned_Longword := System."not"(0);

-- 
LMTAS - "Our Brand Means Quality"