← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/hipe/regalloc/hipe_vectors_wrapper.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/regalloc/hipe_vectors_wrapper.erl
1
 
%% This is a wrapper for hipe_vectors
2
 
%%  It shifts all elements up one step so that key 0 can be used.
3
 
 
4
 
-module(hipe_vectors_wrapper).
5
 
-export([empty/2,set/3,get/2,init/1,vector_to_list/1, init/2,vsize/1, list/1]).
6
 
 
7
 
 
8
 
empty(Size ,InitialElement) -> hipe_vectors:empty(Size ,InitialElement).
9
 
set( Vector, Element, Value) -> hipe_vectors:set( Vector, Element+1, Value).
10
 
get( Vector, Element ) -> hipe_vectors:get( Vector, Element+1 ).
11
 
init(Size) -> hipe_vectors:init(Size).
12
 
vector_to_list(Vector) -> hipe_vectors:vector_to_list(Vector).
13
 
init(Size,Val) -> hipe_vectors:init(Size,Val).
14
 
vsize(Vector) ->  hipe_vectors:vsize(Vector).
15
 
list(Vector) ->  [{N-1,V} || {N,V} <- hipe_vectors:list(Vector)].
16