contrib/gcc/read-rtl.c

99   FILE *infile;
141 static void read_constants (FILE *infile, char *tmp_char);
142 static void read_conditions (FILE *infile, char *tmp_char);
184 fatal_with_file_and_line (FILE *infile, const char *msg, ...)
200       c = getc (infile);
220 fatal_expected_char (FILE *infile, int expected_c, int actual_c)
222   fatal_with_file_and_line (infile, "expected character `%c', found `%c'",
229 find_mode (const char *name, FILE *infile)
237   fatal_with_file_and_line (infile, "unknown mode `%s'", name);
255 find_code (const char *name, FILE *infile)
263   fatal_with_file_and_line (infile, "unknown rtx code `%s'", name);
350 		 int value, FILE *infile, const char **unknown)
369 	    PUT_MODE (x, (enum machine_mode) find_mode (v->string, infile));
425 		    struct map_value *mode_maps, FILE *infile,
448     apply_mode_maps (x, mode_maps, macro, value, infile, unknown_mode_attr);
466 					  mode_maps, infile,
478 						      infile,
597 				    mtd->mode_maps, mtd->infile,
621 	     const char *name, FILE *infile)
634     fatal_with_file_and_line (infile, "`%s' already defined", name);
827 read_skip_spaces (FILE *infile)
833       c = getc (infile);
845 	    c = getc (infile);
853 	    c = getc (infile);
855 	      fatal_expected_char (infile, '*', c);
858 	    while ((c = getc (infile)) && c != EOF)
879 read_name (char *str, FILE *infile)
884   c = read_skip_spaces (infile);
894 	  ungetc (c, infile);
898       c = getc (infile);
901     fatal_with_file_and_line (infile, "missing name or number");
930 read_escape (FILE *infile)
932   int c = getc (infile);
983 read_quoted_string (FILE *infile)
989       c = getc (infile); /* Read the string  */
994 	  read_escape (infile);
1011 read_braced_string (FILE *infile)
1020       c = getc (infile); /* Read the string  */
1030 	  read_escape (infile);
1035 	  (infile, "missing closing } for opening brace on line %lu",
1050 read_string (FILE *infile, int star_if_braced)
1056   c = read_skip_spaces (infile);
1060       c = read_skip_spaces (infile);
1065     stringbuf = read_quoted_string (infile);
1070       stringbuf = read_braced_string (infile);
1073     fatal_with_file_and_line (infile, "expected `\"' or `{', found `%c'", c);
1077       c = read_skip_spaces (infile);
1079 	fatal_expected_char (infile, ')', c);
1151 read_constants (FILE *infile, char *tmp_char)
1156   c = read_skip_spaces (infile);
1158     fatal_expected_char (infile, '[', c);
1164   while ( (c = read_skip_spaces (infile)) != ']')
1170 	fatal_expected_char (infile, '(', c);
1173       read_name (tmp_char, infile);
1177       c = read_skip_spaces (infile);
1178       ungetc (c, infile);
1179       read_name (tmp_char, infile);
1189 	    fatal_with_file_and_line (infile,
1193       c = read_skip_spaces (infile);
1195 	fatal_expected_char (infile, ')', c);
1198   c = read_skip_spaces (infile);
1200     fatal_expected_char (infile, ')', c);
1230 read_conditions (FILE *infile, char *tmp_char)
1234   c = read_skip_spaces (infile);
1236     fatal_expected_char (infile, '[', c);
1238   while ( (c = read_skip_spaces (infile)) != ']')
1244 	fatal_expected_char (infile, '(', c);
1246       read_name (tmp_char, infile);
1247       validate_const_int (infile, tmp_char);
1250       c = read_skip_spaces (infile);
1252 	fatal_expected_char (infile, '"', c);
1253       expr = read_quoted_string (infile);
1255       c = read_skip_spaces (infile);
1257 	fatal_expected_char (infile, ')', c);
1261   c = read_skip_spaces (infile);
1263     fatal_expected_char (infile, ')', c);
1267 validate_const_int (FILE *infile, const char *string)
1283     fatal_with_file_and_line (infile, "invalid decimal constant \"%s\"\n", string);
1290 find_macro (struct macro_group *group, const char *name, FILE *infile)
1297   return group->find_builtin (name, infile);
1311 read_mapping (struct macro_group *group, htab_t table, FILE *infile)
1320   read_name (tmp_char, infile);
1321   m = add_mapping (group, table, tmp_char, infile);
1323   c = read_skip_spaces (infile);
1325     fatal_expected_char (infile, '[', c);
1329   c = read_skip_spaces (infile);
1336 	  ungetc (c, infile);
1337 	  read_name (tmp_char, infile);
1343 	  read_name (tmp_char, infile);
1344 	  string = read_string (infile, false);
1345 	  c = read_skip_spaces (infile);
1347 	    fatal_expected_char (infile, ')', c);
1349       number = group->find_builtin (tmp_char, infile);
1351       c = read_skip_spaces (infile);
1355   c = read_skip_spaces (infile);
1357     fatal_expected_char (infile, ')', c);
1366 check_code_macro (struct mapping *macro, FILE *infile)
1374       fatal_with_file_and_line (infile, "code macro `%s' combines "
1391 read_rtx (FILE *infile, rtx *x, int *lineno)
1416       c = read_skip_spaces (infile);
1419       ungetc (c, infile);
1423       from_file = read_rtx_1 (infile, &mode_maps);
1435       mtd.infile = infile;
1440 	fatal_with_file_and_line (infile,
1456 read_rtx_1 (FILE *infile, struct map_value **mode_maps)
1478   c = read_skip_spaces (infile); /* Should be open paren.  */
1484     fatal_expected_char (infile, '(', c);
1486   read_name (tmp_char, infile);
1490       c = read_skip_spaces (infile);
1492 	fatal_expected_char (infile, ')', c);
1497       read_constants (infile, tmp_char);
1502       read_conditions (infile, tmp_char);
1507       read_mapping (&modes, modes.attrs, infile);
1512       read_mapping (&modes, modes.macros, infile);
1517       read_mapping (&codes, codes.attrs, infile);
1522       check_code_macro (read_mapping (&codes, codes.macros, infile), infile);
1525   real_code = (enum rtx_code) find_macro (&codes, tmp_char, infile);
1536   i = read_skip_spaces (infile);
1541       read_name (tmp_char, infile);
1543 	mode = find_macro (&modes, tmp_char, infile);
1548 	fatal_with_file_and_line (infile, "mode too large");
1551     ungetc (i, infile);
1563 	XEXP (return_rtx, i) = read_rtx_1 (infile, mode_maps);
1569 	c = read_skip_spaces (infile);
1570 	ungetc (c, infile);
1585 	  c = read_skip_spaces (infile);
1587 	    fatal_expected_char (infile, '[', c);
1591 	  while ((c = read_skip_spaces (infile)) && c != ']')
1593 	      ungetc (c, infile);
1595 	      obstack_ptr_grow (&vector_stack, read_rtx_1 (infile, mode_maps));
1604 	    fatal_with_file_and_line (infile,
1619 	  c = read_skip_spaces (infile);
1620 	  ungetc (c, infile);
1636 	  stringbuf = read_string (infile, star_if_braced);
1668 	read_name (tmp_char, infile);
1669 	validate_const_int (infile, tmp_char);
1690 	read_name (tmp_char, infile);
1691 	validate_const_int (infile, tmp_char);
1700   c = read_skip_spaces (infile);
1707 	return read_rtx_variadic (infile, mode_maps, return_rtx);
1709 	fatal_expected_char (infile, ')', c);
1722 read_rtx_variadic (FILE *infile, struct map_value **mode_maps, rtx form)
1729       ungetc (c, infile);
1735       XEXP (q, 1) = read_rtx_1 (infile, mode_maps);
1739       c = read_skip_spaces (infile);
1744     fatal_expected_char (infile, ')', c);