-- BcdBindDefs.Mesa
-- last edited by Satterthwaite on June 15, 1982 9:04 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;
  
  }.