ada-lang.c:ada_find_renaming_symbol minor improvement.