Home | History | Annotate | Download | only in fortran

Lines Matching refs:current_file

57 static gfc_file *file_head, *current_file;
1864 			       current_file->line);
1867 				 current_file->line);
1957 			       "of line %d", i + 1, current_file->line);
2056   f->up = current_file;
2057   if (current_file != NULL)
2058     f->inclusion_line = current_file->line;
2092       current_file->line = line;
2173       current_file = f;
2178       if (!current_file->up
2179 	  || filename_cmp (current_file->up->filename, filename) != 0)
2181 current_file->line, 80);
2187 	  current_file->line++;
2195       current_file = current_file->up;
2196       linemap_add (line_table, LC_RENAME, false, current_file->filename,
2197 		   current_file->line);
2203   if (filename_cmp (current_file->filename, filename) != 0)
2208       current_file->filename = xstrdup (filename);
2211 	 changing current_file is insufficient.  */
2212       linemap_add (line_table, LC_RENAME, false, current_file->filename, line);
2216   current_file->line = line;
2223   linemap_line_start (line_table, current_file->line, 80);
2228   current_file->line++;
2547   for (f = current_file; f; f = f->up)
2549       fatal_error (linemap_line_start (line_table, current_file->line, 0),
2569 	  /* For -fpre-include file, current_file is NULL.  */
2570 	  if (current_file)
2571 	    fatal_error (linemap_line_start (line_table, current_file->line, 0),
2580 	  if (current_file)
2581 	    fatal_error (linemap_line_start (line_table, current_file->line, 0),
2608   current_file = f;
2609   current_file->line = 1;
2686 	  current_file->line++;
2697 	= linemap_line_start (line_table, current_file->line++, len);
2704       b->file = current_file;
2755     add_file_change (NULL, current_file->inclusion_line + 1);
2756   current_file = current_file->up;