anchor.diff:    patch_offset(Type, Data, Address, ConstAndZone, Addresses),
     ?debug_msg("Patching done\n",[]),
     patch_all_offsets(Type, Data, Offsets, BaseAddress, ConstAndZone, Addresses);
  -patch_all_offsets(_, _, [], _, _, _) -> true.
  +patch_all_offsets(_, _, [], _, _, _) -> ok.
   
   %%----------------------------------------------------------------
   %% Handle any patch type except 'call_local' or 'call_remote'.
  
positive.code:   hipe_bifs:set_native_address(MFA, Address, IsClosure),
    export_funs(Addresses);
  export_funs([]) ->
    true.
  
  export_funs(Mod, Beam, Addresses, ClosuresToPatch) ->
   Fs = [{F,A,Address} || #fundef{address=Address, mfa={_M,F,A}} <- Addresses],
   code:make_stub_module(Mod, Beam, {Fs,ClosuresToPatch}).
  
  %%========================================================================
  %% Patching 
  %%  @spec patch(refs(), BaseAddress::integer(), ConstAndZone::term(),
  %%              Addresses::term(), TrampolineMap::term()) -> term()
  %%   @type refs()=[{RefType::integer(), Reflist::reflist()} | refs()]
  %%
  %%   @type reflist()=   [{Data::term(), Offsets::offests()}|reflist()]
  
negative.code: %%
  
  patch([{Type,SortedRefs}|Rest], CodeAddress, ConstMap2, Addresses, TrampolineMap) ->
    ?debug_msg("Patching ~w at [~w+offset] with ~w\n",
  	     [Type,CodeAddress,SortedRefs]),
    case ?EXT2PATCH_TYPE(Type) of 
      call_local -> 
  