~rdoering/ubuntu/karmic/erlang/fix-535090

« back to all changes in this revision

Viewing changes to lib/hipe/icode/hipe_icode_ssa_struct_reuse.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-02-15 16:42:52 UTC
  • mfrom: (3.1.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090215164252-q5x4rcf8a5pbesb1
Tags: 1:12.b.5-dfsg-2
Upload to unstable after lenny is released.

Show diffs side-by-side

added added

removed removed

Lines of Context:
31
31
-define(SR_INSTR_TYPE, sr_instr_type).
32
32
-define(SR_STRUCT_INSTR_TYPE, sr_struct_instr_type).
33
33
 
34
 
-type(struct_type()  :: {?CONS | ?MKTUPLE, icode_term_arg(), any()}).
35
 
-type(struct_elems() :: {icode_var(), non_neg_integer(), icode_term_arg()}).
 
34
-type struct_type()  :: {?CONS | ?MKTUPLE, icode_term_arg(), any()}.
 
35
-type struct_elems() :: {icode_var(), non_neg_integer(), icode_term_arg()}.
36
36
 
37
37
%% DATATYPE AREA
38
38
 
379
379
%%-----------------------------------------------------------------------------
380
380
%% Main function called from the hipe_main module
381
381
 
382
 
-spec(struct_reuse/1 :: (#cfg{}) -> #cfg{}).
 
382
-spec struct_reuse(#cfg{}) -> #cfg{}.
383
383
 
384
384
struct_reuse(CFG) ->
385
385
  %% debug_init_case_count(?SR_INSTR_TYPE),
1352
1352
init_expr_id() ->
1353
1353
  put({struct_reuse, expr_id_count}, 0).
1354
1354
 
1355
 
-spec(new_expr_id/0 :: () -> non_neg_integer()).
 
1355
-spec new_expr_id() -> non_neg_integer().
1356
1356
new_expr_id() ->
1357
1357
  V = get({struct_reuse, expr_id_count}),
1358
1358
  put({struct_reuse, expr_id_count}, V+1),