← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/hipe/tools/hipe_ceach.erl

  • Committer: Bazaar Package Importer
  • Author(s): Erlang Packagers, Sergei Golovan
  • Date: 2006-12-03 17:07:44 UTC
  • mfrom: (2.1.11 feisty)
  • Revision ID: james.westby@ubuntu.com-20061203170744-rghjwupacqlzs6kv
Tags: 1:11.b.2-4
[ Sergei Golovan ]
Fixed erlang-base and erlang-base-hipe prerm scripts.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/hipe/tools/hipe_ceach.erl
6
6
%%  Module   :  hipe_ceach
7
7
%%  Purpose  :  Compile each function in a module, possibly
8
8
%%              applying a fun between each compilation.
9
 
%%              Usefull for bug-hunting by pinpointing a function 
 
9
%%              Useful for bug-hunting by pinpointing a function 
10
10
%%              that when compiled causes a bug.
11
11
%%
12
12
%%  Notes    : 
13
13
%%  History  :  * 2001-12-11 Erik Johansson (happi@csd.uu.se): 
14
14
%%               Created.
15
15
%%  CVS      :
16
 
%%              $Author: happi $
17
 
%%              $Date: 2002/10/10 06:18:30 $
18
 
%%              $Revision: 1.3 $
 
16
%%              $Author: kostis $
 
17
%%              $Date: 2003/12/07 23:18:49 $
 
18
%%              $Revision: 1.4 $
19
19
%% ====================================================================
20
20
%%  Exports  :
21
21
%%
25
25
-export([c/2,c/1,c/3]).
26
26
 
27
27
c(Mod) ->
28
 
  [comp(Mod,F,A)
29
 
   || {F,A} <- Mod:module_info(functions)].
 
28
  [comp(Mod,F,A) || {F,A} <- Mod:module_info(functions)].
30
29
 
31
30
c(Mod,O) ->
32
 
  [comp(Mod,F,A,O)
33
 
   || {F,A} <- Mod:module_info(functions)].
 
31
  [comp(Mod,F,A,O) || {F,A} <- Mod:module_info(functions)].
34
32
 
35
33
c(Mod,O,Fn) ->
36
 
  [{comp(Mod,F,A,O),Fn()}
37
 
   || {F,A} <- Mod:module_info(functions)].
 
34
  [{comp(Mod,F,A,O),Fn()} || {F,A} <- Mod:module_info(functions)].
38
35
 
39
36
comp(Mod,F,A) ->
40
37
  io:format("~w:~w/~w...",[Mod,F,A]),