From: Kirk McKusick <mckusick@ucbvax.Berkeley.EDU>
Date: Thu, 30 Oct 1980 16:35:16 +0000 (-0800)
Subject: date and time created 80/10/30 00:35:16 by mckusick
X-Git-Tag: BSD-4^3~91
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/4ca772143d61287c4728b68dc35818fcf61bf692

date and time created 80/10/30 00:35:16 by mckusick

SCCS-vsn: usr.bin/pascal/libpc/RELTLT.c 1.1
---

diff --git a/usr/src/usr.bin/pascal/libpc/RELTLT.c b/usr/src/usr.bin/pascal/libpc/RELTLT.c
new file mode 100644
index 0000000000..ebfee11894
--- /dev/null
+++ b/usr/src/usr.bin/pascal/libpc/RELTLT.c
@@ -0,0 +1,29 @@
+/* Copyright (c) 1979 Regents of the University of California */
+
+static char sccsid[] = "@(#)RELTLT.c 1.1 %G%";
+
+#include "h00vars.h"
+
+RELTLT(bytecnt, left, right)
+
+	int		bytecnt;
+	register long	*left;
+	register long	*right;
+{
+	register int	longcnt;
+
+	longcnt = bytecnt >> 2;
+	do	{
+		if ((*left & ~*right) != 0)
+			return FALSE;
+		if ((*right++ & ~*left++) != 0)
+			goto leq;
+	} while (--longcnt);
+	return FALSE;
+leq:
+	while (--longcnt) {
+		if ((*left++ & ~*right++) != 0) 
+			return FALSE;
+	}
+	return TRUE;
+}