<>Mesaport>compiler>Cmplr6Defs4.mesa
Created on 29-Apr-87 15:31:55
MW 29-Apr-87 15:31:55
INLINE procedures
Cmplr6Defs4:
DEFINITIONS =
BEGIN
NotInTable: SIGNAL;
N: CARDINAL = 100;
Table: ARRAY [0..N) OF INTEGER;
Defs4Proc2: PROCEDURE [i: CARDINAL] = INLINE BEGIN Table[i] ¬ -i; END;
Defs4Proc3:
PROCEDURE [i:
CARDINAL]
RETURNS [
INTEGER] =
INLINE
BEGIN IF ~(i IN [0..N)) THEN ERROR NotInTable; RETURN[Table[i]]; END;
END...