<> <> <> <> <> <<>> DIRECTORY BcdDefs: TYPE USING [IMPIndex], PrincOps: TYPE USING [GFTIndex], Symbols: TYPE USING [CXIndex], Tree: TYPE USING [Link]; BcdBindDefs: DEFINITIONS={ RelocType: TYPE~{outer, inner, file}; Relocations: TYPE~RECORD [ link: RelocHandle, type: RelocType, firstgfi, originalfirstdummy: PrincOps.GFTIndex, dummygfi: CARDINAL, lastgfi: PrincOps.GFTIndex, import, module, config: CARDINAL, importLimit: BcdDefs.IMPIndex, context, parentcx: Symbols.CXIndex, textIndex: CARDINAL, parameters: Tree.Link]; RelocHandle: TYPE~REF Relocations; }.