From: Ken Garlington <garlingtonke@lmtas.lmco.com>
Subject: Re: DECAda/VMS - calling GETJPI
Date: 1996/06/03
Date: 1996-06-03T00:00:00+00:00 [thread overview]
Message-ID: <31B2BC7B.65A3@lmtas.lmco.com> (raw)
In-Reply-To: 31B2AF74.668E@dial.eunet.ch
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"
next prev parent reply other threads:[~1996-06-03 0:00 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-06-03 0:00 DECAda/VMS - calling GETJPI Alan Paterson
1996-06-03 0:00 ` Mats Weber
1996-06-03 0:00 ` Stuart Palin
1996-06-03 0:00 ` Michael F Brenner
1996-06-03 0:00 ` Robert Dewar
1996-06-04 0:00 ` Michael F Brenner
1996-06-04 0:00 ` Robert Dewar
1996-06-04 0:00 ` Michael F Brenner
1996-06-04 0:00 ` Robert Dewar
1996-06-05 0:00 ` Wraparound on modular conversion (was: DECAda/VMS - calling GETJPI) Tucker Taft
1996-06-05 0:00 ` Robert Dewar
1996-06-05 0:00 ` DECAda/VMS - calling GETJPI Robert A Duff
1996-06-05 0:00 ` Robert Dewar
1996-06-05 0:00 ` Fergus Henderson
1996-06-05 0:00 ` Robert A Duff
1996-06-04 0:00 ` Robert Dewar
1996-06-05 0:00 ` Adam Beneschan
1996-06-07 0:00 ` Norman H. Cohen
1996-06-11 0:00 ` Adam Beneschan
1996-06-04 0:00 ` Ken Garlington
1996-06-06 0:00 ` Robert Dewar
1996-06-03 0:00 ` Ken Garlington [this message]
-- strict thread matches above, loose matches on Subject: below --
1996-06-06 0:00 George Haddad
1996-06-07 0:00 ` Robert Dewar
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox