-- file:  WeaveProcArray.mesa
-- Last Edited by: Ramshaw, October 27, 1983 5:27 pm
-- Written by hand for Tangle by Lyle Ramshaw, changed by Pavel for Weave
-- Last changed by Pavel on September 11, 1984 10:20:48 pm PDT
-- implements the largest arrays of Weave as procArrays to avoid tickling a Mesa 
-- compiler bug.

DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  WeaveVars;

WeaveProcArray: DEFINITIONS =
BEGIN OPEN PascalBasic, PascalWizardFiles, WeaveVars;


ByteMemA: LONG POINTER TO ARRAY PascalInteger[0..MaxBytes] OF AsciiCode;
ByteMemB: LONG POINTER TO ARRAY PascalInteger[0..MaxBytes] OF AsciiCode;

ByteMem:  PROCEDURE [First: PascalInteger[0..1], Second: PascalInteger[0..MaxBytes]]
   RETURNS [LONG POINTER TO AsciiCode]= INLINE
    {SELECT First FROM
      =0 => RETURN[@ByteMemA[Second]];
      =1 => RETURN[@ByteMemB[Second]];
      ENDCASE => ERROR}; 
 
END.