anchor.diff:  	      [Name,Elapsed/1000,Mem]),
       Val.
   
  -run_eprof({Name,Fun}, Name, St) ->
  +run_eprof({Name,Fun}, Code, Name, St) ->
       io:format("~p: Running eprof\n", [Name]),
       c:appcall(tools, eprof, start_profiling, [[self()]]),
  -    Val = (catch Fun(St)),
  +    Val = (catch Fun(Code, St)),
       c:appcall(tools, eprof, stop_profiling, []),
       c:appcall(tools, eprof, analyze, []),
       Val;
  -run_eprof({_,Fun}, _, St) ->
  -    catch Fun(St).
  -
  -comp_ret_ok(#compile{code=Code,warnings=Warn0,module=Mod,options=Opts}=St) ->
  +run_eprof({_,Fun}, Code, _, St) ->
  +    catch Fun(Code, St).
  +
  +comp_ret_ok(Code, #compile{warnings=Warn0,module=Mod,options=Opts}=St) ->
       case werror(St) of
           true ->
               case member(report_warnings, Opts) of
  
positive.code: 	    St
      end.
  
  lint_module(St) ->
      case erl_lint:module(St#compile.code,
  			 St#compile.ifile, St#compile.options) of
  	{ok,Ws} ->
  	    %% Insert name of module as base name, if needed. This is
  	    %% for compile:forms to work with listing files.
  	    St1 = add_default_base(St, St#compile.code),
  	    {ok,St1#compile{warnings=St1#compile.warnings ++ Ws}};
  	{error,Es,Ws} ->
  	    {error,St#compile{warnings=St#compile.warnings ++ Ws,
  			      errors=St#compile.errors ++ Es}}
      end.
  
  core_lint_module(St) ->
      case core_lint:module(St#compile.code, St#compile.options) of
  	{ok,Ws} ->
  	    {ok,St#compile{warnings=St#compile.warnings ++ Ws}};
  	{error,Es,Ws} ->
  	    {error,St#compile{warnings=St#compile.warnings ++ Ws,
  			      errors=St#compile.errors ++ Es}}
      end.
  
  makedep(#compile{code=Code,options=Opts}=St) ->
      Ifile = St#compile.ifile,
      Ofile = St#compile.ofile,
  
      %% Get the target of the Makefile rule.
      Target0 =
  
negative.code:     %% List the dependencies (includes) for this target.
      {MainRule,PhonyRules} = makedep_add_headers(
        Ifile,          % The input file name.
        Code0,          % The parsed source.
        [],             % The list of dependencies already added.
        length(Target), % The current line length.
        Target,         % The target.
  