30 lines
1.5 KiB
C
30 lines
1.5 KiB
C
/* Test various logical operations. */
|
|
|
|
TYPE arg1 (TYPE p, TYPE q) { return p & q; } /* AND */
|
|
TYPE arg2 (TYPE p, TYPE q) { return p | q; } /* OR */
|
|
TYPE arg3 (TYPE p, TYPE q) { return p ^ q; } /* XOR */
|
|
TYPE arg4 (TYPE p) { return ~ p; } /* NOR */
|
|
TYPE arg5 (TYPE p, TYPE q) { return ~(p & q); } /* NAND */
|
|
TYPE arg6 (TYPE p, TYPE q) { return ~(p | q); } /* NOR */
|
|
TYPE arg7 (TYPE p, TYPE q) { return ~(p ^ q); } /* EQV */
|
|
TYPE arg8 (TYPE p, TYPE q) { return (~p) & q; } /* ANDC */
|
|
TYPE arg9 (TYPE p, TYPE q) { return (~p) | q; } /* ORC */
|
|
TYPE arg10(TYPE p, TYPE q) { return (~p) ^ q; } /* EQV */
|
|
TYPE arg11(TYPE p, TYPE q) { return p & (~q); } /* ANDC */
|
|
TYPE arg12(TYPE p, TYPE q) { return p | (~q); } /* ORC */
|
|
TYPE arg13(TYPE p, TYPE q) { return p ^ (~q); } /* EQV */
|
|
|
|
void ptr1 (TYPE *p) { p[0] = p[1] & p[2]; } /* AND */
|
|
void ptr2 (TYPE *p) { p[0] = p[1] | p[2]; } /* OR */
|
|
void ptr3 (TYPE *p) { p[0] = p[1] ^ p[2]; } /* XOR */
|
|
void ptr4 (TYPE *p) { p[0] = ~p[1]; } /* NOR */
|
|
void ptr5 (TYPE *p) { p[0] = ~(p[1] & p[2]); } /* NAND */
|
|
void ptr6 (TYPE *p) { p[0] = ~(p[1] | p[2]); } /* NOR */
|
|
void ptr7 (TYPE *p) { p[0] = ~(p[1] ^ p[2]); } /* EQV */
|
|
void ptr8 (TYPE *p) { p[0] = ~(p[1]) & p[2]; } /* ANDC */
|
|
void ptr9 (TYPE *p) { p[0] = (~p[1]) | p[2]; } /* ORC */
|
|
void ptr10(TYPE *p) { p[0] = (~p[1]) ^ p[2]; } /* EQV */
|
|
void ptr11(TYPE *p) { p[0] = p[1] & (~p[2]); } /* ANDC */
|
|
void ptr12(TYPE *p) { p[0] = p[1] | (~p[2]); } /* ORC */
|
|
void ptr13(TYPE *p) { p[0] = p[1] ^ (~p[2]); } /* EQV */
|