home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / c / bitop.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  555 b   |  46 lines
  1.  
  2. #include "include.h"
  3. get_mark_bit()
  4. {error("get_mark_bit called");}
  5. set_mark_bit()
  6. {error("set_mark_bit called");}
  7. get_set_mark_bit()
  8. {error("get_set_mark_bit called");}
  9.  
  10.  
  11. /*
  12.   These have all been replaced by macros
  13.  
  14. extern int *mark_table;
  15.  
  16. get_mark_bit(x)
  17. int x;
  18. {
  19.     int y;
  20.  
  21.     y = (*(mark_table+(x/4/32)) >> (x/4%32)) & 1;
  22.     return(y);
  23. }
  24.  
  25. set_mark_bit(x)
  26. int x;
  27. {
  28.     int y;
  29.  
  30.     y = 1 << (x/4%32);
  31.     y = (*(mark_table+(x/4/32))) | y;
  32.     *(mark_table+ (x/4/32))=y;
  33. }
  34.  
  35. get_set_mark_bit(x)
  36. int x;
  37. {
  38.     int y;
  39.  
  40.     y = get_mark_bit(x);
  41.     set_mark_bit(x);
  42.     return(y);
  43. }
  44.  
  45. */
  46.