(* Copyright (C) 1990, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* Last modified on Mon Jun 22 18:46:12 PDT 1992 by muller     *)
(*      modified on Fri Feb 28 12:06:06 PST 1992 by kalsow     *)

UNSAFE MODULE RTStack;

PROCEDURE New (size: INTEGER): T =
  BEGIN
    RETURN NEW (T, size);
  END New;

PROCEDURE Dispose (t: T) =
  BEGIN
    DISPOSE (t);
  END Dispose;

PROCEDURE GetBounds (t: T;  VAR(*OUT*) first, last: ADDRESS) =
  BEGIN
    first := ADR (t[0]);
    last  := ADR (t[0]) + NUMBER (t^) * ADRSIZE (t[0]);
  END GetBounds;

BEGIN
END RTStack.