Re: DECAda/VMS - calling GETJPI

[dewar@cs.nyu.edu (Robert Dewar)]

George said

"   At last!  An opportunity to nitpick one of the comp.lang.ada
greats.  (Or embarrass myself horribly -- you be the judge.  :-))  I
would certainly hope that the allowable range of values for type x
is 0..9.  ;-)  Otherwise, what about this:

   V1 : constant x := 0;
   V2 : constant x := 10;
   if (V1 = V2) then Text_IO.Put_Line("Zero equals Ten."); end if;"

A correct nitpick indeed :-)
yes, of course I meant 0 .. 9 (to bad there is no way to compile and test
english commentary containing odd bits of Ada :-)

The code snippet above is statically illegal, because 10 is outside he
base range (the type x is mod 10 in this example).

P.S. sorry for missed characters and transposed characters in my posts, my
keyboard is sticking and fighting, but I am finally getting it replaced
next week, so that should help :-)