sysclock.mod 308 B

1234567891011121314151617181920
  1. IMPLEMENTATION MODULE SysClock;
  2. (* Binds the shim time routines directly. *)
  3. PROCEDURE m2time() : LONGINT;
  4. EXTERNAL;
  5. PROCEDURE m2clock() : LONGINT;
  6. EXTERNAL;
  7. PROCEDURE Time() : LONGINT;
  8. BEGIN
  9. RETURN m2time()
  10. END Time;
  11. PROCEDURE Clock() : LONGINT;
  12. BEGIN
  13. RETURN m2clock()
  14. END Clock;
  15. END SysClock.