I killed the compiler

[Ulf Wiger]

While compiling with OTP R7B (compiler-3.0.1.2), I received the
following internal compiler crash:

        erlc   -I
/vobs/AXD30/AXD301/AXD301_AXD30101_1/AXD301_CXA11401/CPS/inc  -I
/vobs/PROJ/Tools/CCviewer_LXA11934/inc  -I
/vobs/PROJ/Tools/CCviewer_LXA11934/out  -W -pz ../out/dbg +trace
-D sys_debug -o /vobs/PROJ/Tools/CCviewer_LXA11934/out/dbg
ccv_erl_pp.erl
/vobs/PROJ/Tools/CCviewer_LXA11934/src/ccv_erl_pp.erl:none:
internal error in v3_core;
crash reason: {{case_clause,{'EXIT',{function_clause,
                                        [{v3_core,
                                             pat_alias,
                                             [{c_atom,[],ok},
                                              {c_tuple,
                                                  [],

[{c_var,[],'NewTs'},

{c_var,[],'NewS'}]}]},
                                         {v3_core,expr,2},
                                         {v3_core,exprs,2},
                                         {v3_core,clause,2},
                                         {lists,mapfoldl,3},
                                         {v3_core,expr,2},
                                         {v3_core,exprs,2},
                                         {v3_core,clause,2}|
                                         more]}}},
               [{compile,'-select_passes/2-fun-2-',2},
                {compile,'-internal_comp/4-fun-1-',2},
                {compile,fold_comp,3},
                {compile,internal_comp,4},
                {compile,internal,3}]}


I'll admit that the module shouldn't have compiled. It was a bad
copy-and-paste on my part:

	    {NewTs, NewS} =
		?dbg,
		case Ts of
		    [H|T] when element(1,H) == comment ->

where I inserted the ?dbg macro in the middle of an "assignment"
operation.

For what it's worth, dbg was defined thus:

-define(dbg, ok=io:format("ccv_erl_pp[~w] X=~w~n", [?LINE,X])).


/Uffe
-- 
Ulf Wiger, Senior Specialist,
   / / /   Architecture & Design of Carrier-Class Software
  / / /    Strategic Product & System Management
 / / /     Ericsson Telecom AB, ATM Multiservice Networks