home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-PROF.ADS < prev    next >
Text File  |  1996-07-18  |  3KB  |  73 lines
  1.  
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package  SYSTEM.PROF                                       ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║             Profile   support    of os/2 api functions            ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.Prof is
  21. pragma Preelaborate (Prof);
  22.  
  23. --** DosProfile API support --
  24.  
  25.    --** Perfview API support --
  26.  
  27. function DosTmrQueryFreq(pulTmrFreq:PULONG )return apiret;
  28. pragma Import(c,DosTmrQueryFreq, Link_name=>"_DosTmrQueryFreq");
  29.  
  30. function DosTmrQueryTime(pqwTmrTime:PQWORD )return apiret;
  31. pragma Import(c,DosTmrQueryTime, Link_name=>"_DosTmrQueryTime");
  32.  
  33. function DosRegisterPerfCtrs(pbDataBlk:PBYTE ;
  34.                              pbTextBlk:PBYTE ;
  35.                              flFlags  :ULONG )return apiret;
  36. pragma Import(c,DosRegisterPerfCtrs, Link_name=>"_DosRegisterPerfCtrs");--
  37.  
  38.  -- DosProfile ordinal number
  39.  
  40.   PROF_ORDINAL :constant Long:=       133 ;
  41.  
  42.  -- DosProfile usType --
  43.  
  44.   PROF_SYSTEM  :constant Long:=          0 ;
  45.   PROF_USER    :constant Long:=          1 ;
  46.   PROF_USEDD   :constant Long:=          2 ;
  47.   PROF_KERNEL  :constant Long:=          4 ;
  48.   PROF_VERBOSE :constant Long:=          8 ;
  49.   PROF_ENABLE  :constant Long:=         16 ;
  50.  
  51.  -- DosProfile usFunc --
  52.  
  53.   PROF_ALLOC   :constant Long:=          0 ;
  54.   PROF_CLEAR   :constant Long:=          1 ;
  55.   PROF_ON      :constant Long:=          2 ;
  56.   PROF_OFF     :constant Long:=          3 ;
  57.   PROF_DUMP    :constant Long:=          4 ;
  58.   PROF_FREE    :constant Long:=          5 ;
  59.  
  60.  -- DosProfile tic count granularity (DWORD)
  61.  
  62.   PROF_SHIFT   :constant Long:=          2 ;
  63.  
  64.  -- DosProfile module name string length
  65.  
  66.   PROF_MOD_NAME_SIZE :constant Long:=   10 ;
  67.  
  68.  -- DosProfile error code for end of data
  69.  
  70.   PROF_END_OF_DATA  :constant Long:=    13 ;
  71.  
  72. end Os2.Prof;
  73.