projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
date and time created 80/10/31 14:45:07 by mckusick
[unix-history]
/
usr
/
src
/
usr.bin
/
pascal
/
libpc
/
RELTGT.c
/* Copyright (c) 1979 Regents of the University of California */
static char
sccsid
[] =
"@(#)RELTGT.c 1.1 %G%"
;
#include
"h00vars.h"
RELTGT
(
bytecnt
,
left
,
right
)
int
bytecnt
;
register
long
*
left
;
register
long
*
right
;
{
register
int
longcnt
;
longcnt
=
bytecnt
>>
2
;
do
{
if
((*
right
& ~*
left
) !=
0
)
return
FALSE
;
if
((*
left
++ & ~*
right
++) !=
0
)
goto
geq
;
}
while
(--
longcnt
);
return
FALSE
;
geq
:
while
(--
longcnt
) {
if
((*
right
++ & ~*
left
++) !=
0
)
return
FALSE
;
}
return
TRUE
;
}