From 5be8cfc75f766e746e750ef4d2c16d717f96a453 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 15 Apr 1989 19:49:52 +0000 Subject: [PATCH] Eliminate case sensitivities in the primitive lookup mechanism. --- v7/src/microcode/findprim.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/v7/src/microcode/findprim.c b/v7/src/microcode/findprim.c index c1cf80e11..46764a818 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.37 1989/04/15 19:04:16 cph Exp $ +$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 $ Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology @@ -1208,17 +1208,17 @@ compare_descriptors (d1, d2) int strcmp_ci (s1, s2) - fast char * s1; - fast char * s2; + register char * s1; + register char * s2; { int length1 = (strlen (s1)); int length2 = (strlen (s2)); - fast int length = ((length1 < length2) ? length1 : length2); + register int length = ((length1 < length2) ? length1 : length2); while ((length--) > 0) { - fast int c1 = (*s1++); - fast int c2 = (*s2++); + register int c1 = (*s1++); + register int c2 = (*s2++); if (islower (c1)) c1 = (_toupper (c1)); if (islower (c2)) c2 = (_toupper (c2)); if (c1 < c2) return (-1); -- 2.25.1