anchor.diff:  	  write_bytes(Lbls, Address);
   	{Lbls, SortOrder} ->
   	  SortedLbls = [Lbl || {_,Lbl} <- lists:sort(group(Lbls, SortOrder))],
  -	  write_words(SortedLbls, Address);
  +	  write_words(SortedLbls, Address, WriteWord);
   	Lbls ->
   	  write_bytes(Lbls, Address)
         end,
  
positive.code: 
  %%----------------------------------------------------------------
  %%
  mk_trampoline_map([], []) -> []; % archs not using trampolines
  mk_trampoline_map(CalleeMFAs, Trampolines) ->
    SizeofLong =
      case erlang:system_info(hipe_architecture) of
        amd64 -> 8;
        ppc64 -> 8;
        _ -> 4
      end,
    mk_trampoline_map(tuple_size(CalleeMFAs), CalleeMFAs,
  		    Trampolines, SizeofLong, gb_trees:empty()).
  
  
negative.code:     x86 ->        ?HX86_TAG  %% HiPE, x86, (implicit: Unix)
      %% Future:     HSV9      %% HiPE, SPARC, V9 (implicit: 64-bit)
      %%             HW32      %% HiPE, x86, Win32 
    end.
  
  word_size(Architecture) ->
    case Architecture of
      amd64 -> 8;
      ppc64 -> 8;
      _ -> 4
    end.
  
  %%========================================================================
  