OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(delete_if_ordinary): New function.

Browse Source 
(delete_temp_files, delete_failure_queue): Call it.

From-SVN: r7267
This commit is contained in:
Richard Kenner 1994-05-09 18:32:57 -04:00
parent 5a76b34913
commit d5ea2ac4c7
1 changed files with 31 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
gcc/gcc.c
View File

@ -207,6 +207,12 @@ static char *find_a_file PROTO((struct path_prefix *, char *, int));
static void add_prefix PROTO((struct path_prefix *, char *, int, int, int *));
static char *skip_whitespace PROTO((char *));
static void record_temp_file PROTO((char *, int, int));
static void delete_if_ordinary PROTO((char *));
static void delete_temp_files PROTO((void));
static void delete_failure_queue PROTO((void));
static void clear_failure_queue PROTO((void));
static char *choose_temp_base_try PROTO((char *, char *));
static void choose_temp_base PROTO((void));
static int check_live_switch PROTO((int, int));
static char *handle_braces PROTO((char *));
static char *save_string PROTO((char *, int));
@ -1370,35 +1376,34 @@ record_temp_file (filename, always_delete, fail_delete)
/* Delete all the temporary files whose names we previously recorded. */
static void
delete_if_ordinary (name)
char *name;
{
struct stat st;
#ifdef DEBUG
int i, c;
printf ("Delete %s? (y or n) ", name);
fflush (stdout);
i = getchar ();
if (i != '\n')
while ((c = getchar ()) != '\n' && c != EOF) ;
if (i == 'y' || i == 'Y')
#endif /* DEBUG */
if (stat (name, &st) >= 0 && S_ISREG (st.st_mode))
if (unlink (name) < 0)
if (verbose_flag)
perror_with_name (name);
}
static void
delete_temp_files ()
{
register struct temp_file *temp;
for (temp = always_delete_queue; temp; temp = temp->next)
{
#ifdef DEBUG
int i;
printf ("Delete %s? (y or n) ", temp->name);
fflush (stdout);
i = getchar ();
if (i != '\n')
while (getchar () != '\n') ;
if (i == 'y' || i == 'Y')
#endif /* DEBUG */
{
struct stat st;
if (stat (temp->name, &st) >= 0)
{
/* Delete only ordinary files. */
if (S_ISREG (st.st_mode))
if (unlink (temp->name) < 0)
if (verbose_flag)
perror_with_name (temp->name);
}
}
}
delete_if_ordinary (temp->name);
always_delete_queue = 0;
}
@ -1410,22 +1415,7 @@ delete_failure_queue ()
register struct temp_file *temp;
for (temp = failure_delete_queue; temp; temp = temp->next)
{
#ifdef DEBUG
int i;
printf ("Delete %s? (y or n) ", temp->name);
fflush (stdout);
i = getchar ();
if (i != '\n')
while (getchar () != '\n') ;
if (i == 'y' || i == 'Y')
#endif /* DEBUG */
{
if (unlink (temp->name) < 0)
if (verbose_flag)
perror_with_name (temp->name);
}
}
delete_if_ordinary (temp->name);
}
static void
@ -1439,8 +1429,8 @@ clear_failure_queue ()
static char *
choose_temp_base_try (try, base)
char *try;
char *base;
char *try;
char *base;
{
char *rv;
if (base)