前篇文章http://mryufeng.javaeye.com/blog/428845 講述瞭如何啟用erlang hipe支援，但是使用者程式大量依賴的標準庫如stdlib, kernel等預設都不是native模式的， 所以我們的程式雖然啟用了hipe,但是隻是部分啟用了。用oprofile等工具可以看到我們的程式還是在process_main（虛擬機器的程式碼解釋 在這裡）裡面打轉。 我們來個極致的，通通hipe化。

有2個方案可以解決：
1. 在編譯otp_src的時候 export ERL_COMPILE_FLAGS=’+native +”{hipe, [o3]}”‘ 但是這個方案有個問題就是
native方式是和beam的模式有關的 如beam和beam.smp它的程式碼是不同的，但是所有的beam又公用一套庫，這樣只能捨棄一個了。所以這個方案就比較麻煩。

# erl
Erlang R13B01 (erts-5.7.2)  [64-bit] [smp:8:8] [rq:8] [async-threads:0] [hipe] [kernel-poll:false]
Eshell V5.7.2  (abort with ^G)
1>  %%沒問題

#erl -smp disable
<HiPE (v 3.7.2)> Warning: not loading native code for module fib: it was compiled for an incompatible runtime system; please regenerate native code for this runtime system
....
Erlang R13B01 (erts-5.7.2)  [64-bit] [rq:1] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.7.2  (abort with ^G)
1&gt;

這個也可以通過修改 alias erl=erl -smp disable 以便欺騙編譯器生成單cpu模式的beam
去繞過去

2. 動態編譯, 等系統執行起來以後，動態把相關的模組編譯一遍，這個思路看起來最簡單。

我做了個原型 證明這樣是可行的。。。

# cat hi.erl

-module(hi).
-export([do/0]).

do()->
[ turn(M, P)|| {M, P} <-code:all_loaded(), P=/=preloaded].

turn(M, P) ->
P1 = binary_to_list(iolist_to_binary(re:replace(filename:join(filename:dirname(P), filename:basename(P, ".beam")), "ebin", "src"))),
L = M:module_info(),
COpts = get_compile_options(L),

COpts1 = lists:foldr(fun({K, V}, Acc) when is_list(V) and is_integer(hd(V)) ->[{K, tr(V)}] ++ Acc ; (Skip, Acc) -> Acc ++ [Skip] end, [], COpts),
c:c(P1, COpts1 ++ [native, "{hipe, [o3]}"]).

tr(P)->
binary_to_list(iolist_to_binary(re:replace(P, "/net/isildur/ldisk/daily_build/otp_prebuild_r13b01.2009-06-07_20/", "/home/yufeng/"))).  %%%這個地方要根據實際情況調整 具體的參看 m(lists).

get_compile_options(L) ->
case get_compile_info(L, options) of
{ok,Val} -> Val;
error -> []
end.

get_compile_info(L, Tag) ->
case lists:keysearch(compile, 1, L) of
{value, {compile, I}} ->
case lists:keysearch(Tag, 1, I) of
{value, {Tag, Val}} -> {ok,Val};
false -> error
end;
false -> error
end.

#erl -nostick
Erlang R13B01 (erts-5.7.2) [/source] [64-bit] [smp:8:8] [rq:8] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.7.2  (abort with ^G)
1> mnesia:start().  %啟動我們的應用程式
ok
2> hi:do().
[{ok,io},
{ok,erl_distribution},
{ok,edlin},
{ok,error_handler},
{ok,io_lib},
{ok,hi},
{ok,filename},
{ok,orddict},
{ok,gb_sets},
{ok,inet_db},
{ok,inet},
{ok,ordsets},
{ok,group},
{ok,gen},
{ok,erl_scan},
{ok,kernel},
{ok,erl_eval},
{ok,ets},
{ok,lists},
{ok,sets},
{ok,inet_udp},
{ok,code},
{ok,ram_file},
{ok,dict},
{ok,packages},
{ok,gen_event},
{ok,heart},
{ok,...},
{...}|...]

3> m(dict).
Module dict compiled: Date: August 23 2009, Time: 17.20
Compiler options:  [{cwd,"/home/yufeng/otp_src_R13B01/lib/stdlib/src"},
{outdir,"/home/yufeng/otp_src_R13B01/lib/stdlib/src/../ebin"},
{i,"/home/yufeng/otp_src_R13B01/lib/stdlib/src/../include"},
{i,"/home/yufeng/otp_src_R13B01/lib/stdlib/src/../../kernel/include"},
debug_info,<span style="color: red;">native,"{hipe, [o3]}"</span>]
Object file: /home/yufeng/otp_src_R13B01/lib/stdlib/src/../ebin/dict.beam

。。。

看到了是用native模式編譯的哦。。。

不過編譯過程中有幾個模組是有點問題， 得改進下。

Post Footer automatically generated by wp-posturl plugin for wordpress.

No related posts.