diff options
| author | Kostis Sagonas <[email protected]> | 2016-05-27 08:47:12 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-05-31 12:19:59 +0200 |
| commit | 1caf07ceebeacf99a50fd3f55490149cc803ee1b (patch) | |
| tree | 069f2374e11ebfc2d28a1669c3c7591085e7516a /lib/hipe/rtl/hipe_rtl.erl | |
| parent | 283b3f64aa566c9bb64493ec6af641e1b78145fa (diff) | |
| download | otp-1caf07ceebeacf99a50fd3f55490149cc803ee1b.tar.gz otp-1caf07ceebeacf99a50fd3f55490149cc803ee1b.tar.bz2 otp-1caf07ceebeacf99a50fd3f55490149cc803ee1b.zip | |
Cosmetic cleanups
Diffstat (limited to 'lib/hipe/rtl/hipe_rtl.erl')
| -rw-r--r-- | lib/hipe/rtl/hipe_rtl.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/hipe/rtl/hipe_rtl.erl b/lib/hipe/rtl/hipe_rtl.erl index 1d627ed024..0726827299 100644 --- a/lib/hipe/rtl/hipe_rtl.erl +++ b/lib/hipe/rtl/hipe_rtl.erl @@ -366,7 +366,7 @@ -export([subst_uses_llvm/2]). --export_type([alub_cond/0]). +-export_type([alub_cond/0, rtl/0]). %% %% RTL @@ -384,6 +384,7 @@ label_range, %% {Min,Max} First and last name used for labels info=[] %% A keylist with arbitrary information. }). +-opaque rtl() :: #rtl{}. mk_rtl(Fun, ArgList, Closure, Leaf, Code, Data, VarRange, LabelRange) -> #rtl{'fun'=Fun, arglist=ArgList, code=Code, @@ -414,7 +415,9 @@ rtl_info_update(Rtl, Info) -> Rtl#rtl{info=Info}. %% move %% -mk_move(Dst, Src) -> false = is_fpreg(Dst), false = is_fpreg(Src), #move{dst=Dst, src=Src}. +mk_move(Dst, Src) -> + false = is_fpreg(Dst), false = is_fpreg(Src), + #move{dst=Dst, src=Src}. move_dst(#move{dst=Dst}) -> Dst. move_dst_update(M, NewDst) -> false = is_fpreg(NewDst), M#move{dst=NewDst}. move_src(#move{src=Src}) -> Src. |