Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/a000011.ada

Text File | 1988-05-03 | 375 b | 17 lines

-- This is a universal Ada function to get CPU time in seconds
-- of type DURATION on non time_sharring systems where a
-- tailored CPU_TIME_CLOCK is not reasonable
-- Do not cross a midnight boundry

with CALENDAR ; use CALENDAR ;

function CPU_TIME_CLOCK return DURATION is

      NOW : TIME := CLOCK ;
begin

  return SECONDS ( NOW ) ;

end CPU_TIME_CLOCK ;