home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / a000031.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  981 b   |  29 lines
  1. -- This is the ITERATION_COUNT control package for feature measurements
  2. -- The set of procedures provide the automatic stabilizing of the
  3. -- timing measurement. The measurement CPU time must be greater than:
  4. --  1.0 second,  DURATION'SMALL * 100 ,  SYSTEM.TICK * 100
  5. --
  6. -- Note: If there is no control loop, the START_CONTROL and STOP_CONTROL
  7. --       do not need to be called.
  8.  
  9. package ITERATION is -- A000031.ADA
  10.  
  11.   procedure START_CONTROL ;
  12.  
  13.   procedure STOP_CONTROL ( GLOBAL : INTEGER ;
  14.                            CHECK : INTEGER ) ;
  15.  
  16.   procedure START_TEST ;
  17.  
  18.   procedure STOP_TEST ( GLOBAL : INTEGER ;
  19.                         CHECK : INTEGER ) ;
  20.  
  21.   procedure FEATURE_TIMES ( CPU_TIME : out DURATION ;
  22.                             WALL_TIME : out DURATION ) ;
  23.  
  24.   procedure INITIALIZE ( ITERATION_COUNT : out INTEGER ) ;
  25.  
  26.   procedure TEST_STABLE ( ITERATION_COUNT : in out INTEGER ;
  27.                           STABLE : out BOOLEAN ) ;
  28. end ITERATION ;
  29.