anchor.diff:  	{ok, Skipped, Chars2} ->
   	    compile_file(C, LineNo,  Chars2, erl, NumChars + Skipped, Ack,Es);
   	false ->
  +	    ?Debug("Gen: ~s", [Chars]),
   	    io:format(C#comp.outfd, "~s", [Chars]),
   	    compile_file(C, LineNo+1, line(C), erl, NumChars + 
   			 length(Chars), Ack,Es)
  
positive.code: %% This code is so that we get the \r in the line
  %% when we're parsing msdos files.
  
  get_line_init(Fd) ->
      case file:read(Fd, 1024) of
  	{ok, Chars} ->
  	    put(file_data, Chars),
  	    get_line(Fd);
  	eof ->
  	    eof
      end.
  
  file_open(Fname) ->
      file:open(Fname, [read, raw]).
  get_line(Fd) ->
      case get (file_data) of
  	undefined ->
  	    get_line_init(Fd);
  	[] ->
  	    get_line_init(Fd);
  	Chars ->
  	    case get_line_from_chars(Chars, []) of
  		{ok, Line, Tail} ->
  		    put (file_data, Tail),
  		    Line;
  		need_more ->
  		    case file:read(Fd, 1024) of
  			eof ->
  			    erase(file_data),
  			    Chars;
  			{ok, Chars2} ->
  			    put(file_data, Chars ++ Chars2),
  			    get_line(Fd)
  		    end
  	    end
      end.
  
  
negative.code: get_line_from_chars([$\n | Tail], Line) ->
      {ok, lists:reverse([$\n|Line]), Tail};
  
  get_line_from_chars([], Line) ->
      need_more;
  get_line_from_chars([H|T], Line) ->
      get_line_from_chars(T, [H|Line]).
  