anchor.diff:  	Other -> Other
       end.
   
  +-spec compile_asm(file:filename(), _, #options{}) -> 'ok' | 'error'.
  +
   compile_asm(File0, _OutFile, Opts) ->
       File = shorten_filename(File0),
       case file(File, [from_asm|make_erl_options(Opts)]) of
   	{ok,_Mod} -> ok;
   	Other -> Other
       end.
  +
  +-spec compile_core(file:filename(), _, #options{}) -> 'ok' | 'error'.
   
   compile_core(File0, _OutFile, Opts) ->
       File = shorten_filename(File0),
  
positive.code: %% tmpfile(ObjFile) -> TmpFile
  %%  Work out the correct input and output file names.
  
  iofile(File) when is_atom(File) ->
      iofile(atom_to_list(File));
  iofile(File) ->
  
negative.code: format_error_reason(Reason) ->
      io_lib:format("~tp", [Reason]).
  
  -type err_warn_info() :: tuple().
  
  %% The compile state record.
  -record(compile, {filename="" :: file:filename(),
  		  dir=""      :: file:filename(),
  		  base=""     :: file:filename(),
  		  ifile=""    :: file:filename(),
  		  ofile=""    :: file:filename(),
  		  module=[]   :: module() | [],
  		  core_code=[] :: cerl:c_module() | [],
  		  abstract_code=[] :: binary() | [], %Abstract code for debugger.
  		  options=[]  :: [option()],  %Options for compilation
  		  mod_options=[]  :: [option()], %Options for module_info
                    encoding=none :: none | epp:source_encoding(),
  		  errors=[]     :: [err_warn_info()],
  		  warnings=[]   :: [err_warn_info()]}).
  
  internal({forms,Forms}, Opts0) ->
      {_,Ps} = passes(forms, Opts0),
  