bjorng

-module(bench). % -*- erlang -*-;
-mode(compile).

%% Based on the benchmark in https://github.com/erlang/otp/issues/5639.

main([]) ->
    Data100B = crypto:strong_rand_bytes(100),
    Data1MB = crypto:strong_rand_bytes(1024 * 1024),
    io:format("== Testing with 100 B ==~n"),
    test_encode(Data100B, 1_000_000),

bjorng

-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),

bjorng

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)

bjorng

TO DO

• Source code:

foo(X, Y) ->
    case X =:= $T orelse X =:= $\s of
        true -> {ok, Y};
        _ -> error
 end.

bjorng

-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

bjorng

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 

bjorng

#!/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:

bjorng

#!/bin/sh
git clean -dxfq
./otp_build autoconf
./configure

# Build the minimum number of applications.
OTP_SMALL_BUILD=true
export OTP_SMALL_BUILD
for app in asn1 hipe ic inets jinterface snmp; do
    echo "Build faster" >lib/$app/SKIP

bjorng

#!/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) ->

bjorng

#!/usr/bin/env escript
%% -*- erlang -*-
-mode(compile).

main(Args) ->
    case Args of
	[] ->
	    do_compile("asm");
	[OutDir] ->
	    do_compile(OutDir);