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

(* Last modified on Fri Feb 28 12:24:20 PST 1992 by kalsow     *)
(*      modified on Mon Nov 18 15:26:22 PST 1991 by muller     *)

UNSAFE MODULE RTLoader;

(* BEWARE!  Init is called before types are registered
   or main bodies are initialized (but after RTParams is ready). *)

(***** NOTE: This module is Multimax specific... *)

IMPORT RTParams, RTMisc;

PROCEDURE Init () =
  VAR overlay := RTParams.RawValue ("overlay");
  BEGIN
    IF (overlay = NIL) THEN RETURN END;
    RTMisc.FatalError (NIL, 0,
                       "dynamic loading is not supported on this platform ",
                       "(see runtime/src/UMAX/RTLoader.m3)");
  END Init;

BEGIN
END RTLoader.