-- Copyright (C) 1986  by Xerox Corporation. All rights reserved. 
-- BucketAlloc.mesa
-- MEW		28-Feb-86 18:27:43

BucketAlloc: DEFINITIONS =
  BEGIN

  BucketInfo: TYPE = RECORD [
    nodeSize: CARDINAL, maxBucketSize: CARDINAL, initialBucketSize: CARDINAL];

  Alloc: PROCEDURE [size: CARDINAL] RETURNS [LONG POINTER];
  Free: PROCEDURE [p: LONG POINTER TO LONG POINTER, size: CARDINAL];

  Initialize: PROCEDURE [
    z: UNCOUNTED ZONE, buckets: LONG DESCRIPTOR FOR ARRAY OF BucketInfo];
  Reset: PROCEDURE;
  Destroy: PROCEDURE;

  END...