-- 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.