[ivy]<Satterthwaite>Mimosa>SourceMap.mesa!1

SourceMap.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite, June 5, 1986 10:49:41 am PDT
Sweet, October 10, 1985 12:00:10 pm PDT
SourceMap: DEFINITIONS = {
Loc: TYPE[2];
nullLoc: Loc = LOOPHOLE[CARD.LAST];
Init, Reset: PROC;
Cons: PROC[index: INT] RETURNS[Loc];
Val: PROC[loc: Loc] RETURNS[INT];
Down: PROC[loc: Loc] RETURNS[CARD] = INLINE {
RETURN[LOOPHOLE[loc, CARD]]};
Up: PROC[code: CARD] RETURNS[Loc] = INLINE {
RETURN[LOOPHOLE[code, Loc]]};
Delta: PROC[loc1, loc2: Loc] RETURNS[CARD] = INLINE {
RETURN[Down[loc1] - Down[loc2]]};
Incr: PROC[loc: Loc, delta: CARD] RETURNS[Loc] = INLINE {
RETURN[Up[Down[loc]+delta]]};
}.