-- BcdBindDefs.Mesa
-- last edited by Satterthwaite on November 23, 1982 9:43 am
-- last edited by Lewis on 15-Dec-80 17:57:01

DIRECTORY
  BcdDefs: TYPE USING [GFTIndex, IMPIndex],
  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.GFTIndex,
    dummygfi: CARDINAL,
    lastgfi: BcdDefs.GFTIndex,
    import, module, config: CARDINAL,
    importLimit: BcdDefs.IMPIndex,
    context, parentcx: Symbols.CXIndex,
    textIndex: CARDINAL,
    parameters: Tree.Link];

  RelocHandle: TYPE~LONG POINTER TO Relocations;
  
  }.