merge in onyx changes

[unix-history] / usr / src / usr.bin / pascal / libpc / RELSGT.c

diff --git a/usr/src/usr.bin/pascal/libpc/RELSGT.c b/usr/src/usr.bin/pascal/libpc/RELSGT.c
index 78aebae..492ccae 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELSGT.c
+++ b/usr/src/usr.bin/pascal/libpc/RELSGT.c
@@ -1,15 +1,18 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)RELSGT.c 1.1 %G%";
+static char sccsid[] = "@(#)RELSGT.c 1.2 %G%";

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

-RELSGT(size, str1, str2)
+bool
+RELSGT(siz, str1, str2)

 
 

-       register int    size;
+       long            siz;

        register char   *str1;
        register char   *str2;
 {
        register char   *str1;
        register char   *str2;
 {

+       register int size = siz;
+

        while (*str1++ == *str2++ && --size)
                /* void */;
        if ((size == 0) || (*--str1 <= *--str2))
        while (*str1++ == *str2++ && --size)
                /* void */;
        if ((size == 0) || (*--str1 <= *--str2))