Re: DECAda/VMS - calling GETJPI

[mfb@mbunix.mitre.org (Michael F Brenner)]

Under Ada 95, assuming that unsigned_longword was defined as 
  type unsigned_longword is mod 2**64;

  or 

  type unsigned_longword is mod 2**32;

you could just assign it:

  integer_minus_1: integer := -1;
  x: unsigned_longword := unsigned_longword (integer_minus_1);

because Ada 95 modular types truncate numbers to their modular range
without giving a constraint_error.

However, if unsigned_longword is defined using one of the Ada-83
workarounds earlier in this thread, then the workarounds earlier in
this thread could be attempted, with appropriate tests to make sure
they are doing what you think they are doing.