wrong value returned by ada-lang.c:compare_names