From 4ca772143d61287c4728b68dc35818fcf61bf692 Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Thu, 30 Oct 1980 08:35:16 -0800 Subject: [PATCH] date and time created 80/10/30 00:35:16 by mckusick SCCS-vsn: usr.bin/pascal/libpc/RELTLT.c 1.1 --- usr/src/usr.bin/pascal/libpc/RELTLT.c | 29 +++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 usr/src/usr.bin/pascal/libpc/RELTLT.c 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; +} -- 2.20.1