anchor.diff:      CD.
   
   dump(Node,DataDir,Rel,DumpName) ->
  -    case Rel of
  -	_ when Rel<r15b, Rel=/=current ->
  -	    rpc:call(Node,os,putenv,["ERL_CRASH_DUMP_SECONDS","600"]);
  -	_ ->
  -	    ok
  -    end,
       rpc:call(Node,erlang,halt,[DumpName]),
       Crashdump0 = filename:join(filename:dirname(code:which(?t)),
   			       "erl_crash_dump.n1"),
  
positive.code: init_per_suite(Config) when is_list(Config) ->
      delete_saved(Config),
      DataDir = ?config(data_dir,Config),
      Rels = [R || R <- [r15b,r16b], ?t:is_release_available(R)] ++ [current],
      io:format("Creating crash dumps for the following releases: ~p", [Rels]),
      AllDumps = create_dumps(DataDir,Rels),
      [{dumps,AllDumps}|Config].
  
negative.code: 
  rel_opt(Rel) ->
      case Rel of
  	r16b -> [{erl,[{release,"r16b_latest"}]}];
  	'17' -> [{erl,[{release,"17_latest"}]}];
  	current -> []
      end.
  
  dump_prefix(Rel) ->
      case Rel of
  	r16b -> "r16b_dump.";
  	'17' -> "r17_dump.";
  	current -> "r18_dump."
      end.
  
  compat_rel(Rel) ->
      case Rel of
  	r16b -> "+R16 ";
  	'17' -> "+R17 ";
  	current -> ""
      end.
  