Compiler crash using abstract modules

[Richard Carlsson]

Mark Scandariato wrote:
> Compiling:
> 
> -module(foo, [A]).
> -export([bar/1]).
> -record(s, {a}).
> bar(S) when S#s.a == 0 -> any_term.
> 
> Produces:
> 
> 4> c(foo).
> ./foo.erl:none: internal error in expand_module;
> crash reason: {function_clause,[{sys_expand_pmod,

There had been some code rot in the expansion module,
due to changes in other parts of the compiler. The
attached file (lib/compiler/src/sys_expand_pmod.erl)
should fix this, as well as some other problems I
found when going over the code.

	/Richard
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: sys_expand_pmod.erl
URL: <http://erlang.org/pipermail/erlang-bugs/attachments/20041114/fb109880/attachment.ksh>