Copyright (C) 1994, Digital Equipment Corp.
INTERFACEused to store info about expected replies from the X server after XShmPutImage'sCompl ; IMPORT BasicCtypes, Completion;
CONST Brand = "Compl"; TYPE T = OBJECT serial : BasicCtypes.unsigned_long_int; completion: Completion.T; END;free list management
PROCEDURE Get (): T; PROCEDURE Free (t: T); END Compl.