diff options
author | Fredrik Gustafsson <[email protected]> | 2013-10-14 14:40:04 +0200 |
---|---|---|
committer | Fredrik Gustafsson <[email protected]> | 2013-10-14 14:40:04 +0200 |
commit | c11ef50378fd68d43fe40b21489493f0e9865626 (patch) | |
tree | e581e3e0ab672938766b37c411d4561e2cadf509 /lib/compiler/src/v3_kernel.erl | |
parent | b95bfc6c641a568f6ed5dc4ff9e80a742505744d (diff) | |
parent | 77eba492997f8340425d0828835c2a60cf81550e (diff) | |
download | otp-c11ef50378fd68d43fe40b21489493f0e9865626.tar.gz otp-c11ef50378fd68d43fe40b21489493f0e9865626.tar.bz2 otp-c11ef50378fd68d43fe40b21489493f0e9865626.zip |
Merge branch 'maint'
Diffstat (limited to 'lib/compiler/src/v3_kernel.erl')
-rw-r--r-- | lib/compiler/src/v3_kernel.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/compiler/src/v3_kernel.erl b/lib/compiler/src/v3_kernel.erl index 2b2b8bf550..65f1251099 100644 --- a/lib/compiler/src/v3_kernel.erl +++ b/lib/compiler/src/v3_kernel.erl @@ -160,8 +160,8 @@ function({#c_var{name={F,Arity}=FA},Body}, St0) -> io:fwrite("Function: ~w/~w\n", [F,Arity]), erlang:raise(Class, Error, Stack) end. - - + + %% body(Cexpr, Sub, State) -> {Kexpr,[PreKepxr],State}. %% Do the main sequence of a body. A body ends in an atomic value or %% values. Must check if vector first so do expr. @@ -834,7 +834,7 @@ last([_|T]) -> last(T). first([_]) -> []; first([H|T]) -> [H|first(T)]. - + %% This code implements the algorithm for an optimizing compiler for %% pattern matching given "The Implementation of Functional %% Programming Languages" by Simon Peyton Jones. The code is much @@ -1428,7 +1428,7 @@ arg_val(Arg, C) -> {set_kanno(S, []),U,T,Fs} end end. - + %% ubody_used_vars(Expr, State) -> [UsedVar] %% Return all used variables for the body sequence. Much more %% efficient than using ubody/3 if the body contains nested letrecs. |