1 files changed, 131 insertions, 0 deletions
diff --git a/lib/hipe/util/hipe_timing.erl b/lib/hipe/util/hipe_timing.erl
new file mode 100644
index 0000000000..191db497e2
--- /dev/null
+++ b/lib/hipe/util/hipe_timing.erl
@@ -0,0 +1,131 @@
+%% -*- erlang-indent-level: 2 -*-
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2001-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+%%====================================================================
+%% Note: Uses the process keys:
+%%  hipe_time       - Indicates what to time.
+%%  hipe_timers     - A stack of timers.
+%%  {hipe_timer,T}  - Delata times for named timers. 
+%%  T               - Acc times for all named timers T.
+%%====================================================================
+
+-module(hipe_timing).
+-export([start/2, stop/2,
+	 %% start_timer/0, stop_timer/1,
+	 %% get_hipe_timer_val/1, set_hipe_timer_val/2,
+	 %% start_hipe_timer/1, stop_hipe_timer/1,
+	 start_optional_timer/2, stop_optional_timer/2]).
+
+-include("../main/hipe.hrl").
+
+%%=====================================================================
+
+-spec start(string(), atom()) -> 'ok'.
+
+start(Text, Mod) when is_atom(Mod) ->
+  Timers = 
+    case get(hipe_timers) of
+      undefined -> [];
+      Ts -> Ts
+    end,
+  Space = [$| || _ <- Timers],
+  Total = start_timer(),
+  put(hipe_timers, [Total|Timers]),
+  ?msg("[@~7w]" ++ Space ++ "> ~s~n", [Total,Text]).
+
+-spec stop(string(), atom()) -> 'ok'.
+
+stop(Text, Mod) when is_atom(Mod) ->
+  {Total,_Last} = erlang:statistics(runtime),
+  case get(hipe_timers) of
+    [StartTime|Timers] -> 
+      Space = [$| || _ <- Timers],
+      put(hipe_timers,Timers),
+      ?msg("[@~7w]" ++ Space ++ "< ~s: ~w~n", [Total, Text, Total-StartTime]);
+    _ ->
+      put(hipe_timers, []),
+      ?msg("[@~7w]< ~s: ~w~n", [Total, Text, Total])
+  end.
+
+-spec start_optional_timer(string(), atom()) -> 'ok'.
+
+start_optional_timer(Text, Mod) ->
+  case get(hipe_time) of 
+    true -> start(Text, Mod);
+    all -> start(Text, Mod);
+    Mod -> start(Text, Mod);
+    List when is_list(List) ->
+      case lists:member(Mod, List) of
+	true -> start(Text, Mod);
+	false -> ok
+      end;
+    _ -> ok
+  end.
+
+-spec stop_optional_timer(string(), atom()) -> 'ok'.
+
+stop_optional_timer(Text, Mod) ->
+  case get(hipe_time) of
+    true -> stop(Text, Mod);
+    all -> stop(Text, Mod);
+    Mod -> stop(Text, Mod);
+    List when is_list(List) ->
+      case lists:member(Mod, List) of
+	true -> stop(Text, Mod);
+	false -> ok
+      end;
+    _ -> ok
+  end.
+
+-spec start_timer() -> non_neg_integer().
+
+start_timer() ->
+  {Total, _Last} = erlang:statistics(runtime),
+  Total.
+
+%% stop_timer(T) ->
+%%   {Total, _Last} = erlang:statistics(runtime),
+%%   Total - T.
+%% 
+%% start_hipe_timer(Timer) ->
+%%   Time = erlang:statistics(runtime),
+%%   put({hipe_timer,Timer}, Time).
+%% 
+%% stop_hipe_timer(Timer) ->
+%%   {T2, _} = erlang:statistics(runtime),
+%%   T1 =
+%%     case get({hipe_timer,Timer}) of
+%%       {T0, _} -> T0;
+%%       _ -> 0
+%%     end,
+%%   AccT = 
+%%     case get(Timer) of
+%%       T when is_integer(T) -> T;
+%%       _ -> 0
+%%     end,
+%%   put(Timer,AccT+T2-T1).
+%% 
+%% get_hipe_timer_val(Timer) ->
+%%   case get(Timer) of
+%%     T when is_integer(T) -> T;
+%%     _ -> 0
+%%   end.
+%% 
+%% set_hipe_timer_val(Timer, Val) ->
+%%   put(Timer, Val).