From a0bade02177bc2837fa69ac3cf77e51cb057f860 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 3 May 1989 01:04:27 +0000 Subject: [PATCH] Don't use _toupper() since it doesn't exist in non-HP OS. --- v7/src/microcode/findprim.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c index 46764a818..c7dacddf8 100644 --- a/v7/src/microcode/findprim.c +++ b/v7/src/microcode/findprim.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.38 1989/04/15 19:49:52 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/findprim.c,v 9.39 1989/05/03 01:04:27 cph Exp $ Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology @@ -1219,8 +1219,8 @@ strcmp_ci (s1, s2) { register int c1 = (*s1++); register int c2 = (*s2++); - if (islower (c1)) c1 = (_toupper (c1)); - if (islower (c2)) c2 = (_toupper (c2)); + if (islower (c1)) c1 = (toupper (c1)); + if (islower (c2)) c2 = (toupper (c2)); if (c1 < c2) return (-1); if (c1 > c2) return (1); } -- 2.25.1