| 1234567891011121314151617181920 |
- IMPLEMENTATION MODULE SysClock;
- (* Binds the shim time routines directly. *)
- PROCEDURE m2time() : LONGINT;
- EXTERNAL;
- PROCEDURE m2clock() : LONGINT;
- EXTERNAL;
- PROCEDURE Time() : LONGINT;
- BEGIN
- RETURN m2time()
- END Time;
- PROCEDURE Clock() : LONGINT;
- BEGIN
- RETURN m2clock()
- END Clock;
- END SysClock.
|