-- BcdMergeOps.Mesa  Edited by Sandman on June 30, 1980  4:45 PM
-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  BcdOps USING [BcdBase],
  ControlDefs USING [GlobalFrameHandle, GFTIndex],
  LoadStateFormat USING [ConfigIndex, ModuleTable],
  LoadStateOps USING [Map];

BcdMergeOps: DEFINITIONS =
  BEGIN OPEN LoadStateFormat;

  MergeModule: PROCEDURE [
    frame, copied: ControlDefs.GlobalFrameHandle, mt: ModuleTable];

  MergeBcd: PROCEDURE [
    mergee: BcdOps.BcdBase, map: LoadStateOps.Map, config: ConfigIndex,
    mt: ModuleTable, bcdname: STRING];

  Size: PROCEDURE RETURNS [size: CARDINAL];

  Write: PROCEDURE [movewords: PROCEDURE [POINTER, CARDINAL]];

  Initialize: PROCEDURE [
    sizeoftable: CARDINAL, lastrealgfi: ControlDefs.GFTIndex];

  Finalize: PROCEDURE;

  END.