anchor.diff:  	end,
       MaxRegs = max_reg(Bef#sr.reg),
       Aft = clear_dead(Int1, Le#l.i, Vdb),
  +
  +    %% Now generate the complete code for constructing the binary.
       Code = cg_binary(PutCode, Target, Temp, Fail, MaxRegs, Le#l.a),
       {Sis++Code,Aft,St};
   set_cg([{var,R}], Con, Le, Vdb, Bef, St) ->
  
positive.code: %%
  %%  put_list for constructing a cons is an atomic instruction
  %%  which can safely resuse one of the source registers as target.
  %%  Also binaries can reuse a source register as target.
  
  set_cg([{var,R}], {cons,Es}, Le, Vdb, Bef, St) ->
      [S1,S2] = cg_reg_args(Es, Bef),
  
negative.code:     cg_bin_opt([{move,S,Dst}|Is]);
  cg_bin_opt([{move,{integer,0},D},{bs_add,Fail,[D,S,U],Dst}|Is]) ->
      cg_bin_opt([{bs_add,Fail,[{integer,0},S,U],Dst}|Is]);
  cg_bin_opt([{move,{integer,Bytes},D},{Op,Fail,D,Extra,Regs,Flags,D}|Is])
    when Op =:= bs_init2; Op =:= bs_init_bits ->
      cg_bin_opt([{Op,Fail,Bytes,Extra,Regs,Flags,D}|Is]);
  cg_bin_opt([{move,Src1,Dst},{bs_add,Fail,[Dst,Src2,U],Dst}|Is]) ->
      cg_bin_opt([{bs_add,Fail,[Src1,Src2,U],Dst}|Is]);
  cg_bin_opt([I|Is]) ->
      [I|cg_bin_opt(Is)];
  cg_bin_opt([]) -> [].
  
  cg_bin_put({bin_seg,[],S0,U,T,Fs,[E0,Next]}, Fail, Bef) ->
      S1 = cg_reg_arg(S0, Bef),
  