anchor.diff:  cover(Config) when is_list(Config) ->
       io:format("~p\n", [compile:options()]),
       ok.
  -
  -do_listing(Source, TargetDir, Type) ->
  -    do_listing(Source, TargetDir, Type, "." ++ atom_to_list(Type)).
   
   do_listing(Source, TargetDir, Type, Ext) ->
       io:format("Source: ~p TargetDir: ~p\n  Type: ~p Ext: ~p\n",
  
positive.code: listings_big(Config) when is_list(Config) ->
      {Big,Target} = get_files(Config, big, listings_big),
      TargetDir = filename:dirname(Target),
      do_listing(Big, TargetDir, 'S'),
      do_listing(Big, TargetDir, 'E'),
      do_listing(Big, TargetDir, 'P'),
      do_listing(Big, TargetDir, dkern, ".kernel"),
      do_listing(Big, TargetDir, dssa, ".ssa"),
      do_listing(Big, TargetDir, dssaopt, ".ssaopt"),
      do_listing(Big, TargetDir, dprecg, ".precodegen"),
      do_listing(Big, TargetDir, to_dis, ".dis"),
  
      TargetNoext = filename:rootname(Target, code:objfile_extension()),
      {ok,big} = compile:file(TargetNoext, [from_asm,{outdir,TargetDir}]),
  
      %% Cleanup.
      ok = file:delete(Target),
      lists:foreach(fun(F) -> ok = file:delete(F) end,
  		  filelib:wildcard(filename:join(TargetDir, "*"))),
      ok = file:del_dir(TargetDir),
      ok.
  
  other_output(Config) when is_list(Config) ->
      {Simple,_Target} = get_files(Config, simple, "other_output"),
  
negative.code:     TargetDir = filename:join(PrivDir, listings),
      ok = file:make_dir(TargetDir),
  
      List = [{'S',".S"},
              {'E',".E"},
              {'P',".P"},
              {dpp, ".pp"},
              {dabstr, ".abstr"},
              {dexp, ".expand"},
              {dcore, ".core"},
              {doldinline, ".oldinline"},
              {dinline, ".inline"},
              {dcore, ".core"},
              {dcopt, ".copt"},
              {dcbsm, ".core_bsm"},
              {dsetel, ".dsetel"},
              {dkern, ".kernel"},
              {dssa, ".ssa"},
              {dssaopt, ".ssaopt"},
              {dprecg, ".precodegen"},
              {dcg, ".codegen"},
              {dblk, ".block"},
              {dexcept, ".except"},
              {djmp, ".jump"},
              {dclean, ".clean"},
              {dpeep, ".peep"},
              {dopt, ".optimize"},
              {diffable, ".S"}],
      p_listings(List, Simple, TargetDir),
  
      %% Test options that produce a listing file if 'binary' is not given.
      do_listing(Simple, TargetDir, to_pp, ".P"),
      do_listing(Simple, TargetDir, to_exp, ".E"),
      do_listing(Simple, TargetDir, to_core0, ".core"),
      Listings = filename:join(PrivDir, listings),
      ok = file:delete(filename:join(Listings, File ++ ".core")),
      do_listing(Simple, TargetDir, to_core, ".core"),
      do_listing(Simple, TargetDir, to_kernel, ".kernel"),
  