home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / a000044.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  867 b   |  25 lines
  1. -- This is one of a number of optional PIWG_IO bodies.
  2. -- This body is for systems that DO NOT have TEXT_IO 
  3. --   the results are saved in memory, use debugger or other
  4. --   method to read out.
  5. --
  6. --   Note : some other references to TEXT_IO may have to be removed.
  7. --
  8.  
  9. package body PIWG_IO is -- A000044.ADA
  10.  
  11.   procedure PIWG_OUTPUT ( TESTNAME : in STRING ;
  12.                           CLASSNAME : in STRING ;
  13.                           CPU_DELTA : in DURATION ;
  14.                           WALL_DELTA : in DURATION ;
  15.                           NUM_OF_ITERATIONS : in INTEGER ;
  16.                           TEST_DESC_1 : in STRING ;
  17.                           TEST_DESC_2 : in STRING ;
  18.                           TEST_DESC_3 : in STRING ) is
  19.   begin
  20.     SAVE_CPU_TIME := CPU_DELTA ;
  21.     SAVE_WALL_TIME := WALL_DELTA ;
  22.   end PIWG_OUTPUT ;
  23.  
  24. end PIWG_IO ;
  25.