anchor.diff:  
   compile(File, Config, Options) -> compile_all([File], Config, Options).
   
  -compile_all(Files, Config, Options) ->
  +compile_all(Files, Config, Options0) ->
       DataDir = proplists:get_value(data_dir, Config),
       CaseDir = proplists:get_value(case_dir, Config),
  -    [compile_file(filename:join(DataDir, F), [{outdir, CaseDir},
  -					      debug_info|Options])
  -         || F <- Files],
  +    Options = [{outdir,CaseDir},debug_info|Options0],
  +
  +    Comp = fun(F) ->
  +		   compile_file(filename:join(DataDir, F), Options)
  +	   end,
  +    p_run(Comp, Files),
  +
       dialyze(Files, Options),
       ok.
   
  
positive.code: ber_get_len(<<1:1,Octets:7,T0/binary>>) ->
      <<L:Octets/unit:8,T/binary>> = T0,
      {L,T}.
  
negative.code:     try
          ok = asn1ct:compile(File, [warnings_as_errors|Options])
      catch
          _:Reason ->
  	    ct:print("Failed to compile ~s\n~p", [File,Reason]),
              error
      end.
  
  compile_erlang(Mod, Config, Options) ->
  