- Source code:
foo(X, Y) ->
case X =:= $T orelse X =:= $\s of
true -> {ok, Y};
_ -> error
end.
colorBlur(#we{es=Etab}=We) -> | |
L0 = array:sparse_foldl( | |
fun(E, #edge{vs=Va,ve=Vb}, A) -> | |
Left0 = wings_va:edge_attrs(E, left, We), | |
Right0 = wings_va:edge_attrs(E, right, We), | |
Left = def_color(wings_va:attr(color, Left0)), | |
Right = def_color(wings_va:attr(color, Right0)), | |
[{Va,Left},{Va,Right},{Vb,Left},{Vb,Right}|A] | |
end, [], Etab), | |
[{V,Color}|L] = lists:sort(L0), |
#!/usr/bin/env escript | |
%% -*- erlang -*- | |
-mode(compile). | |
-import(lists, [foreach/2]). | |
main([Old,New]) -> | |
Wc = filename:join(Old, "*.S"), | |
Files0 = filelib:wildcard(Wc), | |
Files = [filename:basename(F) || F <- Files0], | |
F = fun(Name) -> |
#!/usr/bin/env escript | |
%% -*- erlang -*- | |
-mode(compile). | |
main(Args) -> | |
case Args of | |
[] -> | |
do_compile("asm"); | |
[OutDir] -> | |
do_compile(OutDir); |
#!/usr/bin/perl -w | |
use strict; | |
# Analyse beam_emu.s and try to find out the registers | |
# used for the important variables in process_main(). | |
# | |
# Works for .s files from clang or gcc. For gcc, the -fverbose-asm | |
# option must be used. | |
# | |
# Example: |
Demonstrating the bug. | |
The hipe_bug.S file was generated using the new SSA-based compiler. | |
Erlang/OTP 21 [erts-10.0] [source] [64-bit] [smp:4:4] [ds:4:4:10] [async-threads:1] [hipe] | |
Eshell V10.0 (abort with ^G) | |
1> c(hipe_bug, [from_asm,native]), hipe_bug:run(). | |
** exception error: {badmap,{cons,{arg,0},nil}} | |
in function hipe_bug:dig_out_fc/1 |
-module(same_line). | |
-export([core_transform/2]). | |
%% | |
%% erlc -pa . '+{core_transform,same_line}' <filename>.erl | |
%% | |
core_transform(Core, _Options) -> | |
F = fun(Node) -> | |
case cerl:get_ann(Node) of |
Demonstrating the bug. | |
Erlang/OTP 21 [erts-10.0] [source] [64-bit] [smp:4:4] [ds:4:4:10] [async-threads:1] [hipe] | |
Eshell V10.0 (abort with ^G) | |
1> c(hipe_bug, [from_asm,native]). | |
{ok,hipe_bug} | |
2> hipe_bug:run(). | |
size_object: matchstate term not allowedAborted (core dumped) |
-module(pt_benchmark). | |
-compile([export_all,nowarn_export_all]). | |
b() -> | |
%% run(fun pt_imm/1, fun pdict_imm/1), | |
%% run(fun pt/1, fun pdict/1), | |
%% run(fun pt_striped/1, fun pdict_striped/1), | |
%% run(fun pt_record/1, fun pdict_record/1), | |
run(fun ets_imm/1, fun pt_imm/1), | |
run(fun ets/1, fun pt/1), |