home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / a000021.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  869 b   |  19 lines
  1. package REMOTE_GLOBAL is  -- for explicit control of optimization
  2.  
  3.   A_ONE : INTEGER; --        a constant 1 that can not be optimized away
  4. --                           A_ONE is intentionally visible. DO NOT CHANGE IT
  5. --
  6.   GLOBAL : INTEGER := 1 ; -- global object can not be optimized away
  7. --                           GLOBAL is changed by measurement programs
  8. --                           the initialization to 1 is used in the body
  9. --                           but could be changed by elaboration order
  10. --
  11.   procedure REMOTE; --       do to calls to this procedure, no compiler
  12. --                           can optimize away the computation an GLOBAL
  13. --
  14.   procedure CHECK_TIME ( TEST_DURATION : in DURATION ) ;
  15. --  Just print message if TEST_DURATION less then
  16. --                           100 * SYSTEM.TICK  or DURATION'SMALL
  17. --
  18. end REMOTE_GLOBAL;
  19.