Lines Matching refs:vn
1283 p_setbit(value vi, type ti, value vn, type tn, value v, type t) /* argument order because of overflow handler */
1289 if (vn.nint < 0)
1295 if (vn.nint < BITS_PER_WORD-1)
1297 Make_Integer(&result, vi.nint | ((word)1 << vn.nint));
1310 err = tag_desc[TagType(ti)].arith_op[ARITH_SETBIT](vi, vn, &result);
1314 return binary_arith_op(vi, ti, vn, tn, v, t, ARITH_SETBIT);
1321 p_clrbit(value vi, type ti, value vn, type tn, value v, type t)
1327 if (vn.nint < 0)
1333 if (vn.nint < BITS_PER_WORD-1)
1335 Make_Integer(&result, vi.nint & ~((word)1 << vn.nint));
1348 err = tag_desc[TagType(ti)].arith_op[ARITH_CLRBIT](vi, vn, &result);
1352 return binary_arith_op(vi, ti, vn, tn, v, t, ARITH_CLRBIT);
1359 p_getbit(value vi, type ti, value vn, type tn, value v, type t)
1365 if (vn.nint < 0)
1372 vn.nint < BITS_PER_WORD ?
1373 ((uword) vi.nint >> vn.nint) & 1 :
1378 err = tag_desc[TagType(ti)].arith_op[ARITH_GETBIT](vi, vn, &result);
1382 return binary_arith_op(vi, ti, vn, tn, v, t, ARITH_GETBIT);