anchor.diff:  	    end
       end.
   
  -embed_native_code(St, {Architecture,NativeCode}) ->
  -    {ok, _, Chunks0} = beam_lib:all_chunks(St#compile.code),
  +embed_native_code(Code, {Architecture,NativeCode}) ->
  +    {ok, _, Chunks0} = beam_lib:all_chunks(Code),
       ChunkName = hipe_unified_loader:chunk_name(Architecture),
       Chunks1 = lists:keydelete(ChunkName, 1, Chunks0),
       Chunks = Chunks1 ++ [{ChunkName,NativeCode}],
  -    {ok, BeamPlusNative} = beam_lib:build_module(Chunks),
  -    St#compile{code=BeamPlusNative}.
  +    {ok,BeamPlusNative} = beam_lib:build_module(Chunks),
  +    BeamPlusNative.
   
   %% effects_code_generation(Option) -> true|false.
   %%  Determine whether the option could have any effect on the
  
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: 	_ -> false
      end.
  
  parse_module(_Code, St0) ->
      case do_parse_module(utf8, St0) of
  	{ok,_,_}=Ret ->
  	    Ret;
  	{error,_}=Ret ->
  	    Ret;
  	{invalid_unicode,File,Line} ->
  	    case do_parse_module(latin1, St0) of
  		{ok,Code,St} ->
  		    Es = [{File,[{Line,?MODULE,reparsing_invalid_unicode}]}],
  		    {ok,Code,St#compile{warnings=Es++St#compile.warnings}};
  		{error,St} ->
  		    Es = [{File,[{Line,?MODULE,reparsing_invalid_unicode}]}],
  		    {error,St#compile{errors=Es++St#compile.errors}}
  