Copyright Ó 1988 by Xerox Corporation. All rights reserved.

Bill Jackson (bj) July 5, 1988 3:00:33 pm PDT

Basics USING [ UnsafeBlock ],

SunADotOut USING [ Module ],

SunADotOutPrivate USING [ RelocationInfo, Symbol, Segment ];

OPEN SunADotOut, SunADotOutPrivate;

Flavor: TYPE ~ ATOM; -- { text, data, bss };

TargetAddress: TYPE ~ RECORD [ CARD32 ];

UndefinedSymbol: SIGNAL [ info: RelocationInfo ] RETURNS [ s: Symbol ← NIL ];

AllocateProc: TYPE ~ PROC [ flavor: Flavor ← $text, segment: Segment ]
RETURNS [ address: TargetAddress ];

PokeProc: TYPE ~ PROC [ address: TargetAddress, block: Basics.UnsafeBlock ];

Load: PROC [ m: Module, allocate: AllocateProc, poke: PokeProc, chunk: CARD32 ];

}.