← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/hipe/misc/hipe_data_pp.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/misc/hipe_data_pp.erl
9
9
%%  History  :  * 2001-02-25 Erik Johansson (happi@csd.uu.se): 
10
10
%%               Created.
11
11
%%  CVS      :
12
 
%%              $Author: richardc $
13
 
%%              $Date: 2002/10/01 12:30:04 $
14
 
%%              $Revision: 1.4 $
 
12
%%              $Author: kostis $
 
13
%%              $Date: 2005/12/12 23:20:16 $
 
14
%%              $Revision: 1.6 $
15
15
%% ====================================================================
16
16
%%  Exports  :
17
17
%%
32
32
            [{L,hipe_consttab:lookup(L, Table)} || L <- Ls]).
33
33
 
34
34
pp_element(Dev, Name, Element, CodeType, Prefix) ->
35
 
  
36
35
  %% Alignment
37
36
  case hipe_consttab:const_align(Element) of
38
37
    4 -> ok; %% Wordalignment is assumed
121
120
    rtl ->
122
121
      io:format(Dev, "      ;; ~s\n   ",[Data]);
123
122
    _ -> ok
124
 
  end;
125
 
pp_block(Dev, {dword, Data}, CodeType, _Prefix) ->
126
 
  case CodeType of 
127
 
    rtl ->
128
 
      io:format(Dev, ".dword\n",[]);
129
 
    sparc ->
130
 
      io:format(Dev, ".dword\n",[]);
131
 
    _ -> 
132
 
      ok
133
 
  end,
134
 
  pp_dwordlist(Dev, Data, CodeType).
135
 
 
 
123
  end.
136
124
  
137
125
pp_wordlist(Dev, [{label,L}|Rest], CodeType, Prefix) ->
138
126
  case CodeType of 
173
161
  pp_bytelist(Dev, Rest, CodeType);
174
162
pp_bytelist(Dev, [], _CodeType) ->
175
163
  io:format(Dev, "\n",[]).
176
 
 
177
 
pp_dwordlist(Dev, [D|Rest], CodeType) ->
178
 
  case CodeType of 
179
 
    rtl ->
180
 
      io:format(Dev, "      ~w\n",[D]);
181
 
    _ -> 
182
 
      io:format(Dev, "      ~w\n",[D])
183
 
  end,
184
 
  pp_dwordlist(Dev, Rest, CodeType);
185
 
pp_dwordlist(_Dev, [], _CodeType) ->
186
 
  ok.