732   const char *suffix;  in write_object_renaming()  local
760   suffix = strstr (expr, "___XE");  in write_object_renaming()
761   if (suffix == NULL)  in write_object_renaming()
764   name = (char *) obstack_alloc (&temp_parse_space, suffix - expr + 1);  in write_object_renaming()
765   strncpy (name, expr, suffix-expr);  in write_object_renaming()
766   name[suffix-expr] = '\000';  in write_object_renaming()
775   suffix += 5;  in write_object_renaming()
777   while (*suffix == 'X')  in write_object_renaming()
779       suffix += 1;  in write_object_renaming()
781       switch (*suffix) {  in write_object_renaming()
783         suffix += 1;  in write_object_renaming()
789 	suffix += 1;  in write_object_renaming()
790 	if (isdigit (*suffix))  in write_object_renaming()
793 	    long val = strtol (suffix, &next, 10);  in write_object_renaming()
794 	    if (next == suffix)  in write_object_renaming()
796 	    suffix = next;  in write_object_renaming()
809 	    end = strchr (suffix, 'X');  in write_object_renaming()
811 	      end = suffix + strlen (suffix);  in write_object_renaming()
813 	    index_len = simple_tail - qualification + 2 + (suffix - end) + 1;  in write_object_renaming()
819 	    strncat (index_name, suffix, suffix-end);  in write_object_renaming()
820 	    suffix = end;  in write_object_renaming()
847 	  suffix += 1;  in write_object_renaming()
851 	  end = strchr (suffix, 'X');  in write_object_renaming()
853 	    end = suffix + strlen (suffix);  in write_object_renaming()
854 	  field_name.length = end - suffix;  in write_object_renaming()
855 	  field_name.ptr = xmalloc (end - suffix + 1);  in write_object_renaming()
856 	  strncpy (field_name.ptr, suffix, end - suffix);  in write_object_renaming()
857 	  field_name.ptr[end - suffix] = '\000';  in write_object_renaming()
858 	  suffix = end;  in write_object_renaming()