This commit is contained in:
TJIC 2014-08-22 12:19:02 -04:00
commit 341fb08c52
2 changed files with 5 additions and 82 deletions

View File

@ -17,8 +17,11 @@
*/
# define c3_wiseof(x) (((sizeof (x)) + 3) >> 2)
/* Bits in byte.
/* Bit counting.
*/
#if 1
# define c3_bits_word(w) ((w) ? (32 - __builtin_clz(w)) : 0)
#else
#ifdef C3_GLOBAL
c3_y Bts_y[] = {
0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4,
@ -50,6 +53,7 @@
: ((w) >> 8) \
? (8 + Bts_y[(w) >> 8]) \
: Bts_y[(w)] )
#endif
/* Min and max.
*/

View File

@ -1,81 +0,0 @@
/* f/plow.h
**
** This file is in the public domain.
*/
/** Data structures.
**/
/* u2_loom_plow: temporary plow structure.
*/
typedef struct {
/* Set [*type *gene] in repo.
*/
u2_pool fan;
/* Set [*type] in verify.
*/
u2_pool ver;
/* Debug depth.
*/
u2_atom bug;
/* Trap - *(list &[p=*text q=*spot])
*/
u2_noun meb;
/* Book to memoize nest.
*/
u2_book vus;
/* Book to memoize null.
*/
u2_book tyc;
/* Book to memoize orth.
*/
u2_book gam;
/* Book to memoize show.
*/
u2_book hos;
/* Book to memoize play.
*/
u2_book zor;
/* Book to memoize make.
*/
u2_book niq;
/* Book to memoize safe.
*/
u2_book fac;
/* Book to memoize fine.
*/
u2_book vom;
/* Book to memoize open.
*/
u2_book pon;
/* Book to memoize find.
*/
u2_book fin;
/* Book to memoize half.
*/
u2_book huf;
} u2_loom_plow;
# define u2_plow_(wir_r, pat) \
*u2_at(u2_wire_plo_r(wir_r), u2_loom_plow, pat)
/** Functions.
**/
/* u2_pl_boot():
**
** Initialize plow support context.
*/
void
u2_pl_boot(u2_ray wir_r);