From 3e26bde6dbc9a8a46d5a1a694e6810e689cbd25a Mon Sep 17 00:00:00 2001 From: Paul Smith Date: Fri, 15 Oct 1999 07:00:58 +0000 Subject: * Fix PR/1394. * Apply changes from Paul Eggert. * Many other cleanups (index/rindex --> strchr/strrchr, etc.) --- arscan.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'arscan.c') diff --git a/arscan.c b/arscan.c index 25e739a..6ff2715 100644 --- a/arscan.c +++ b/arscan.c @@ -37,8 +37,6 @@ USA. */ #include #endif -#define uppercasify(str) {char *str1; for (str1 = str; *str1; str1++) *str1 = _toupper(*str1);} - static void *VMS_lib_idx; static char *VMS_saved_memname; @@ -83,7 +81,7 @@ VMS_get_member_info (module, rfa) val = decc$fix_time (&mhd->mhd$l_datim); for (i = 0; i < module->dsc$w_length; i++) - filename[i] = _tolower (module->dsc$a_pointer[i]); + filename[i] = _tolower ((unsigned char)module->dsc$a_pointer[i]); filename[i] = '\0'; @@ -172,7 +170,7 @@ ar_scan (archive, function, arg) /* For comparison, delete .obj from arg name. */ - p = rindex (VMS_saved_memname, '.'); + p = strrchr (VMS_saved_memname, '.'); if (p) *p = '\0'; @@ -698,7 +696,7 @@ ar_name_equal (name, mem, truncated) { char *p; - p = rindex (name, '/'); + p = strrchr (name, '/'); if (p != 0) name = p + 1; -- cgit v1.2.3