anchor.diff:      end.
   do_matches_comp(N,H) ->
       A = ?MASK_ERROR(binref:matches(H,N)),
  -    B = ?MASK_ERROR(binref:matches(H,binref:compile_pattern(N))),
  -    C = ?MASK_ERROR(binary:matches(H,N)),
  -    D = ?MASK_ERROR(binary:matches(make_unaligned(H),
  +    B = ?MASK_ERROR(binary:matches(H,N)),
  +    C = ?MASK_ERROR(binary:matches(make_unaligned(H),
   				   binary:compile_pattern([make_unaligned2(X) || X <- N]))),
       if
   	A =/= nomatch ->
  
positive.code: 		      [N,H]),
  	    io:format("A:~p,~nB:~p,~n,C:~p,~n,D:~p.~n",
  		      [A,B,C,D]),
  	    exit(mismatch)
      end.
  
  
negative.code: 
  do_match_comp(N,H) ->
      A = ?MASK_ERROR(binref:match(H,N)),
      B = ?MASK_ERROR(binary:match(make_unaligned(H),N)),
      C = ?MASK_ERROR(binary:match(H,binary:compile_pattern([N]))),
      D = ?MASK_ERROR(binary:match(H,binary:compile_pattern(make_unaligned(N)))),
      if
  	A =/= nomatch ->
  	    put(success_counter,get(success_counter)+1);
  