anchor.diff:  	true ->
   	    ok
       end,
  -    case {(A =:= B), (B =:= C),(C =:= D)} of
  -	{true,true,true} ->
  +    case {(A =:= B), (B =:= C)} of
  +	{true,true} ->
   	    true;
   	_ ->
   	    io:format("Failed to match ~p (needle) against ~s (haystack)~n",
   		      [N,H]),
  -	    io:format("A:~p,~nB:~p,~n,C:~p,~n,D:~p.~n",
  -		      [A,B,C,D]),
  +	    io:format("A:~p,~nB:~p,~n,C:~p,~n",
  +		      [A,B,C]),
   	    exit(mismatch)
       end.
   
  
positive.code: 
  do_match_comp(N,H) ->
      A = ?MASK_ERROR(binref:match(H,N)),
      B = ?MASK_ERROR(binref:match(H,binref:compile_pattern([N]))),
      C = ?MASK_ERROR(binary:match(make_unaligned(H),N)),
      D = ?MASK_ERROR(binary:match(H,binary:compile_pattern([N]))),
      E = ?MASK_ERROR(binary:match(H,binary:compile_pattern(make_unaligned(N)))),
      if
  	A =/= nomatch ->
  	    put(success_counter,get(success_counter)+1);
  	true ->
  	    ok
      end,
      case {(A =:= B), (B =:= C),(C =:= D),(D =:= E)} of
  	{true,true,true,true} ->
  	    true;
  	_ ->
  	    io:format("Failed to match ~s (needle) against ~s (haystack)~n",
  		      [N,H]),
  	    io:format("A:~p,~nB:~p,~n,C:~p,~n,D:~p,E:~p.~n",
  		      [A,B,C,D,E]),
  	    exit(mismatch)
      end.
  
  do_match_comp3(N,H) ->
      A = ?MASK_ERROR(binref:match(H,N)),
      B = ?MASK_ERROR(binref:match(H,binref:compile_pattern(N))),
      C = ?MASK_ERROR(binary:match(H,N)),
      D = ?MASK_ERROR(binary:match(H,binary:compile_pattern(N))),
      if
  	A =/= nomatch ->
  	    put(success_counter,get(success_counter)+1);
  
negative.code: 		      [N,H]),
  	    io:format("A:~p,~nB:~p,~n,C:~p,~n,D:~p.~n",
  		      [A,B,C,D]),
  	    exit(mismatch)
      end.
  
  do_match_comp3(N,H) ->
      A = ?MASK_ERROR(binref:match(H,N)),
      B = ?MASK_ERROR(binary:match(H,N)),
      C = ?MASK_ERROR(binary:match(H,binary:compile_pattern(N))),
      if
  	A =/= nomatch ->
  	    put(success_counter,get(success_counter)+1);
  	true ->
  	    ok
      end,
      case {(A =:= B),(B =:= C)} of
  	{true,true} ->
  	    true;
  	_ ->
  	    io:format("Failed to match ~s (needle) against ~s (haystack)~n",
  		      [N,H]),
  	    io:format("A:~p,~nB:~p,~n,C:~p.~n",
  		      [A,B,C]),
  	    exit(mismatch)
      end.
  
  