memory insanity

[Steve Langstaff]

Just out of interest... does it leak by (sizeof(.beam) x number of file reads) ?

--
Steve L.

On 14 September 2001 09:08, Matthias Lang [SMTP:matthias@REDACTED] wrote:
> Hi,
> 
> Using R7B-3, this program bloats at a rate of about 100k per second on
> my intel linux box. It does similar things on my PPC board. I've
> watched it go up to 20Mb (using 'top') before stopping it.
> 
> I'd much appreciate it if a few people could confirm this result, a
> result from a commercial solaris version would be interesting too.
> 
> Run it in the same directory as the .beam (it reads the .beam file):
> 
>   leaky:go().
> 
> Matthias
> 
> ----------------------------------------------------------------------
> -module(leaky).
> -author('matthias@REDACTED').
> 
> -compile(export_all).
> -record(state, {eth_curr, eth_prev}).
> 
> go() -> loop(#state{}).
> 
> loop(State) ->
>     State1 = update_ethernet(State), 
>     erlang:garbage_collect(),
>     loop(State1).
> 
> update_ethernet(State) ->
>     Bin = grab_eth(),
>     Prev = State#state.eth_curr,
>     State#state{eth_curr = {now(), Bin}, eth_prev = Prev}.
> 
> grab_eth() ->
>     {ok, IF} = file:open("leaky.beam", [raw, binary, read]),
>     {ok, Bin} = file:read(IF, 2000),
>     ok = file:close(IF),
>     Bin.