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