runtime/src/common/RTModule.m3


Copyright (C) 1994, Digital Equipment Corp.

UNSAFE MODULE RTModule;

IMPORT RT0, RT0u, RTMisc;

PROCEDURE Count (): CARDINAL =
  BEGIN
    RETURN RT0u.nModules;
  END Count;

PROCEDURE Get (m: CARDINAL): RT0.ModulePtr =
  VAR p := RT0u.modules;
  BEGIN
    IF (m >= RT0u.nModules) THEN
      RTMisc.FatalErrorI ("improper module index: ", m);
    END;
    p := p + m * ADRSIZE (RT0.ModulePtr);
    RETURN p^;
  END Get;

BEGIN
END RTModule.

interface RT0u is in: