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

Text File | 1988-05-03 | 208 b | 9 lines

-- This is a R1000 function to get CPU time in seconds of type DURATION

with SYSTEM_UTILITIES ;
function CPU_TIME_CLOCK return DURATION is
begin
  return SYSTEM_UTILITIES.CPU ;
end CPU_TIME_CLOCK ;