diff options
| author | Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> | 2003-01-27 13:16:59 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2003-01-27 13:16:59 +0000 |
| commit | 437026ef889dafb9b725fb51e5c542b6283849fe (patch) | |
| tree | fa64f6cafd780002c7a3e891c0d512ba9cabb532 /gcc | |
| parent | 244d05fb87c29bd539630243bef9b1d0be00fcf2 (diff) | |
| download | gcc-437026ef889dafb9b725fb51e5c542b6283849fe.zip gcc-437026ef889dafb9b725fb51e5c542b6283849fe.tar.gz gcc-437026ef889dafb9b725fb51e5c542b6283849fe.tar.bz2 | |
init.c (__gnat_error_handler): Make msg const.
* init.c (__gnat_error_handler): Make msg const.
* gmem.c (convert_addresses): Move declaration ...
* adaint.h: ... here.
* adaint.c (convert_addresses): Adapt addrs type to match
prototype.
* adaint.c (__gnat_try_lock): Cast pid_t to long, adapt format.
From-SVN: r61887
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/ada/adaint.c | 4 | ||||
| -rw-r--r-- | gcc/ada/adaint.h | 3 | ||||
| -rw-r--r-- | gcc/ada/gmem.c | 2 | ||||
| -rw-r--r-- | gcc/ada/init.c | 2 |
5 files changed, 17 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c2b50ac..60fab08 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,14 @@ +2003-01-27 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> + + * init.c (__gnat_error_handler): Make msg const. + + * gmem.c (convert_addresses): Move declaration ... + * adaint.h: ... here. + * adaint.c (convert_addresses): Adapt addrs type to match + prototype. + + * adaint.c (__gnat_try_lock): Cast pid_t to long, adapt format. + 2003-01-24 Andreas Schwab <schwab@suse.de> * ada-tree.h (SET_TYPE_DIGITS_VALUE): Add intermediate cast to diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 874f091..d820d6d 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -366,7 +366,7 @@ __gnat_try_lock (dir, file) int fd; sprintf (full_path, "%s%c%s", dir, DIR_SEPARATOR, file); - sprintf (temp_file, "%s-%d-%d", dir, getpid(), getppid ()); + sprintf (temp_file, "%s-%ld-%ld", dir, (long) getpid(), (long) getppid ()); /* Create the temporary file and write the process number. */ fd = open (temp_file, O_CREAT | O_WRONLY, 0600); @@ -2257,7 +2257,7 @@ int _flush_cache() void convert_addresses (addrs, n_addr, buf, len) - void *addrs ATTRIBUTE_UNUSED; + char *addrs[] ATTRIBUTE_UNUSED; int n_addr ATTRIBUTE_UNUSED; void *buf ATTRIBUTE_UNUSED; int *len; diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index 2b5f01a..d65be6d 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -134,6 +134,9 @@ extern void __gnat_set_binary_mode PARAMS ((int)); extern void __gnat_set_text_mode PARAMS ((int)); extern char *__gnat_ttyname PARAMS ((int)); +extern void convert_addresses PARAMS ((char *[], int, + void *, int *)); + #ifdef IN_RTS /* Portable definition of strdup, which is not available on all systems. */ #define xstrdup(S) strcpy ((char *) malloc (strlen (S) + 1), S) diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c index 48d1f62..789a76f 100644 --- a/gcc/ada/gmem.c +++ b/gcc/ada/gmem.c @@ -71,8 +71,6 @@ static FILE *gmemfile; static char *tracebk[TB_LEN]; static int cur_tb_len, cur_tb_pos; -extern void convert_addresses PARAMS ((char *[], int, void *, - int *)); static void gmem_read_backtrace PARAMS ((void)); static char *spc2nul PARAMS ((char *)); diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 04b7aea..ce7b36e 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1099,7 +1099,7 @@ __gnat_error_handler (sig, sip) { struct Exception_Data *exception; static int recurse = 0; - char *msg; + const char *msg; /* If this was an explicit signal from a "kill", just resignal it. */ if (SI_FROMUSER (sip)) |