PageRenderTime 34ms CodeModel.GetById 21ms RepoModel.GetById 1ms app.codeStats 0ms

/opensource.apple.com/source/gcc_40/gcc_40-4061/libiberty/getruntime.c

#
C | 141 lines | 100 code | 15 blank | 26 comment | 0 complexity | 146f55695c36c8695010c9cf501e59be MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, GPL-2.0, BSD-3-Clause, GPL-3.0, MPL-2.0, LGPL-2.0, LGPL-2.1, CC-BY-SA-3.0, IPL-1.0, ISC, AGPL-1.0, AGPL-3.0, JSON, Apache-2.0, 0BSD 
    

  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    2. 

  2.     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    3. 

  3. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
    4. 

  4. <head>
    5. 

  5. <title>getruntime.c</title>
    6. 

  6. <style type="text/css">
    7. 

  7. .enscript-comment { font-style: italic; color: rgb(178,34,34); }
    8. 

  8. .enscript-function-name { font-weight: bold; color: rgb(0,0,255); }
    9. 

  9. .enscript-variable-name { font-weight: bold; color: rgb(184,134,11); }
    10. 

  10. .enscript-keyword { font-weight: bold; color: rgb(160,32,240); }
    11. 

  11. .enscript-reference { font-weight: bold; color: rgb(95,158,160); }
    12. 

  12. .enscript-string { font-weight: bold; color: rgb(188,143,143); }
    13. 

  13. .enscript-builtin { font-weight: bold; color: rgb(218,112,214); }
    14. 

  14. .enscript-type { font-weight: bold; color: rgb(34,139,34); }
    15. 

  15. .enscript-highlight { text-decoration: underline; color: 0; }
    16. 

  16. </style>
    17. 

  17. </head>
    18. 

  18. <body id="top">
    19. 

  19. <h1 style="margin:8px;" id="f1">getruntime.c&nbsp;&nbsp;&nbsp;<span style="font-weight: normal; font-size: 0.5em;">[<a href="?txt">plain text</a>]</span></h1>
    20. 

  20. <hr/>
    21. 

  21. <div></div>
    22. 

  22. <pre>
    23. 

  23. <span class="enscript-comment">/* Return time used so far, in microseconds.
    24. 

  24.    Copyright (C) 1994, 1999, 2002 Free Software Foundation, Inc.
    25. 

    26. 

  26. This file is part of the libiberty library.
    27. 

  27. Libiberty is free software; you can redistribute it and/or
    28. 

  28. modify it under the terms of the GNU Library General Public
    29. 

  29. License as published by the Free Software Foundation; either
    30. 

  30. version 2 of the License, or (at your option) any later version.
    31. 

    32. 

  32. Libiberty is distributed in the hope that it will be useful,
    33. 

  33. but WITHOUT ANY WARRANTY; without even the implied warranty of
    34. 

  34. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    35. 

  35. Library General Public License for more details.
    36. 

    37. 

  37. You should have received a copy of the GNU Library General Public
    38. 

  38. License along with libiberty; see the file COPYING.LIB.  If
    39. 

  39. not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    40. 

  40. Boston, MA 02111-1307, USA.  */</span>
    41. 

  41. 

  42. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;config.h&quot;</span>
    43. 

  43. 

  44. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;ansidecl.h&quot;</span>
    45. 

  45. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;libiberty.h&quot;</span>
    46. 

  46. 

  47. <span class="enscript-comment">/* On some systems (such as WindISS), you must include &lt;sys/types.h&gt;
    48. 

  48.    to get the definition of &quot;time_t&quot; before you include &lt;time.h&gt;.  */</span>
    49. 

  49. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/types.h&gt;</span>
    50. 

  50. 

  51. <span class="enscript-comment">/* There are several ways to get elapsed execution time; unfortunately no
    52. 

  52.    single way is available for all host systems, nor are there reliable
    53. 

  53.    ways to find out which way is correct for a given host. */</span>
    54. 

  54. 

  55. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">TIME_WITH_SYS_TIME</span>
    56. 

  56. # <span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/time.h&gt;</span>
    57. 

  57. # <span class="enscript-reference">include</span> <span class="enscript-string">&lt;time.h&gt;</span>
    58. 

  58. #<span class="enscript-reference">else</span>
    59. 

  59. # <span class="enscript-reference">if</span> <span class="enscript-variable-name">HAVE_SYS_TIME_H</span>
    60. 

  60. #  <span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/time.h&gt;</span>
    61. 

  61. # <span class="enscript-reference">else</span>
    62. 

  62. #  <span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_TIME_H</span>
    63. 

  63. #   <span class="enscript-reference">include</span> <span class="enscript-string">&lt;time.h&gt;</span>
    64. 

  64. #  <span class="enscript-reference">endif</span>
    65. 

  65. # <span class="enscript-reference">endif</span>
    66. 

  66. #<span class="enscript-reference">endif</span>
    67. 

  67. 

  68. #<span class="enscript-reference">if</span> <span class="enscript-variable-name">defined</span> (<span class="enscript-variable-name">HAVE_GETRUSAGE</span>) &amp;&amp; <span class="enscript-variable-name">defined</span> (<span class="enscript-variable-name">HAVE_SYS_RESOURCE_H</span>)
    69. 

  69. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/resource.h&gt;</span>
    70. 

  70. #<span class="enscript-reference">endif</span>
    71. 

  71. 

  72. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_TIMES</span>
    73. 

  73. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_SYS_PARAM_H</span>
    74. 

  74. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/param.h&gt;</span>
    75. 

  75. #<span class="enscript-reference">endif</span>
    76. 

  76. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/times.h&gt;</span>
    77. 

  77. #<span class="enscript-reference">endif</span>
    78. 

  78. 

  79. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_UNISTD_H</span>
    80. 

  80. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;unistd.h&gt;</span>
    81. 

  81. #<span class="enscript-reference">endif</span>
    82. 

  82. 

  83. <span class="enscript-comment">/* This is a fallback; if wrong, it will likely make obviously wrong
    84. 

  84.    results. */</span>
    85. 

  85. 

  86. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">CLOCKS_PER_SEC</span>
    87. 

  87. #<span class="enscript-reference">define</span> <span class="enscript-variable-name">CLOCKS_PER_SEC</span> 1
    88. 

  88. #<span class="enscript-reference">endif</span>
    89. 

  89. 

  90. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">_SC_CLK_TCK</span>
    91. 

  91. #<span class="enscript-reference">define</span> <span class="enscript-variable-name">GNU_HZ</span>  sysconf(_SC_CLK_TCK)
    92. 

  92. #<span class="enscript-reference">else</span>
    93. 

  93. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HZ</span>
    94. 

  94. #<span class="enscript-reference">define</span> <span class="enscript-variable-name">GNU_HZ</span>  HZ
    95. 

  95. #<span class="enscript-reference">else</span>
    96. 

  96. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">CLOCKS_PER_SEC</span>
    97. 

  97. #<span class="enscript-reference">define</span> <span class="enscript-variable-name">GNU_HZ</span>  CLOCKS_PER_SEC
    98. 

  98. #<span class="enscript-reference">endif</span>
    99. 

  99. #<span class="enscript-reference">endif</span>
    100. 

  100. #<span class="enscript-reference">endif</span>
    101. 

  101. 

  102. <span class="enscript-comment">/*
    103. 

    104. 

  104. @deftypefn Replacement long get_run_time (void)
    105. 

    106. 

  106. Returns the time used so far, in microseconds.  If possible, this is
    107. 

  107. the time used by this process, else it is the elapsed time since the
    108. 

  108. process started.
    109. 

    110. 

  110. @end deftypefn
    111. 

    112. 

  112. */</span>
    113. 

  113. 

  114. <span class="enscript-type">long</span>
    115. 

  115. <span class="enscript-function-name">get_run_time</span> ()
    116. 

  116. {
    117. 

  117. #<span class="enscript-reference">if</span> <span class="enscript-variable-name">defined</span> (<span class="enscript-variable-name">HAVE_GETRUSAGE</span>) &amp;&amp; <span class="enscript-variable-name">defined</span> (<span class="enscript-variable-name">HAVE_SYS_RESOURCE_H</span>)
    118. 

  118.   <span class="enscript-type">struct</span> rusage rusage;
    119. 

  119. 

  120.   getrusage (0, &amp;rusage);
    121. 

  121.   <span class="enscript-keyword">return</span> (rusage.ru_utime.tv_sec * 1000000 + rusage.ru_utime.tv_usec
    122. 

  122. 	  + rusage.ru_stime.tv_sec * 1000000 + rusage.ru_stime.tv_usec);
    123. 

  123. #<span class="enscript-reference">else</span> <span class="enscript-comment">/* ! HAVE_GETRUSAGE */</span>
    124. 

  124. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_TIMES</span>
    125. 

  125.   <span class="enscript-type">struct</span> tms tms;
    126. 

  126. 

  127.   times (&amp;tms);
    128. 

  128.   <span class="enscript-keyword">return</span> (tms.tms_utime + tms.tms_stime) * (1000000 / GNU_HZ);
    129. 

  129. #<span class="enscript-reference">else</span> <span class="enscript-comment">/* ! HAVE_TIMES */</span>
    130. 

  130.   <span class="enscript-comment">/* Fall back on clock and hope it's correctly implemented. */</span>
    131. 

  131.   <span class="enscript-type">const</span> <span class="enscript-type">long</span> clocks_per_sec = CLOCKS_PER_SEC;
    132. 

  132.   <span class="enscript-keyword">if</span> (clocks_per_sec &lt;= 1000000)
    133. 

  133.     <span class="enscript-keyword">return</span> clock () * (1000000 / clocks_per_sec);
    134. 

  134.   <span class="enscript-keyword">else</span>
    135. 

  135.     <span class="enscript-keyword">return</span> clock () / clocks_per_sec;
    136. 

  136. #<span class="enscript-reference">endif</span>  <span class="enscript-comment">/* HAVE_TIMES */</span>
    137. 

  137. #<span class="enscript-reference">endif</span>  <span class="enscript-comment">/* HAVE_GETRUSAGE */</span>
    138. 

  138. }
    139. 

  139. </pre>
    140. 

  140. <hr />
    141. 

  141. </body></html>
    142.