diff options
| author | Ian Roxborough <irox@redhat.com> | 2001-09-09 22:40:53 +0000 |
|---|---|---|
| committer | Ian Roxborough <irox@redhat.com> | 2001-09-09 22:40:53 +0000 |
| commit | a850c17c374d03259483e799b09326d255e17487 (patch) | |
| tree | f1d024951a993f0453aa49d4ba808d6c38fa4321 /tcl/unix/tclLoadAix.c | |
| parent | 57e8350a3895a1579b77cc134d6d7d49b056678e (diff) | |
| download | gdb-a850c17c374d03259483e799b09326d255e17487.tar.gz | |
Tcl 8.3 upgradeTCL_8_3
Diffstat (limited to 'tcl/unix/tclLoadAix.c')
| -rw-r--r-- | tcl/unix/tclLoadAix.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tcl/unix/tclLoadAix.c b/tcl/unix/tclLoadAix.c index 5d55f5a474e..c46424132a4 100644 --- a/tcl/unix/tclLoadAix.c +++ b/tcl/unix/tclLoadAix.c @@ -213,7 +213,7 @@ static void caterr(char *s) while (*p >= '0' && *p <= '9') p++; - switch(atoi(s)) { + switch(atoi(s)) { /* INTL: "C", UTF safe. */ case L_ERROR_TOOMANY: strcat(errbuf, "to many errors"); break; @@ -234,7 +234,7 @@ static void caterr(char *s) strcat(errbuf, p); break; case L_ERROR_ERRNO: - strcat(errbuf, strerror(atoi(++p))); + strcat(errbuf, strerror(atoi(++p))); /* INTL: "C", UTF safe. */ break; default: strcat(errbuf, s); @@ -547,3 +547,4 @@ static void * findMain(void) return ret; } + |