anchor.diff:  %%
   
   -module(distribution_SUITE).
  --compile(r13).
  +-compile(r15).
  +
  +-define(VERSION_MAGIC,       131).
  +
  +-define(ATOM_EXT,            100).
  +-define(REFERENCE_EXT,       101).
  +-define(PORT_EXT,            102).
  +-define(PID_EXT,             103).
  +-define(NEW_REFERENCE_EXT,   114).
  +-define(ATOM_UTF8_EXT,       118).
  +-define(SMALL_ATOM_UTF8_EXT, 119).
   
   %% Tests distribution and the tcp driver.
   
  
positive.code: 	  bor ((B2 band 16#3F) bsl 6)
  	  bor (B3 band 16#3F))
       | utf8_list_to_string(Bs)].
  
negative.code:     Fun(),
      repeat(Fun, N-1).
  
  string_to_atom_ext(String) ->
      Utf8List = string_to_utf8_list(String),
      Len = length(Utf8List),
      case Len < 256 of
  	true ->
  	    [?SMALL_ATOM_UTF8_EXT, Len | Utf8List];
  	false ->
  	    [?ATOM_UTF8_EXT, Len bsr 8, Len band 16#ff | Utf8List]
      end.
  
  string_to_atom(String) ->
      binary_to_term(list_to_binary([?VERSION_MAGIC
  				   | string_to_atom_ext(String)])).
  
  string_to_utf8_list([]) ->
      [];
  