<> <> <> <> DIRECTORY Basics USING [bitsPerWord]; GreenBay: CEDAR DEFINITIONS ~ BEGIN Pack: UNSAFE PROC [ wordPointer: LONG POINTER TO WORD, -- Pointer to the destination (one element per word) bitsPerElement: (0..Basics.bitsPerWord], base: LONG POINTER, -- Pointer to the source (elements may cross word boundaries) start: NAT, -- Index of starting element count: NAT -- Number of elements ]; UnPack: UNSAFE PROC [ wordPointer: LONG POINTER TO WORD, -- Pointer to the source (one element per word) bitsPerElement: (0..Basics.bitsPerWord], base: LONG POINTER, start: NAT, count: NAT ]; END.