# 2.11BSD#431 - /usr/src/ucb/pascal/px/pcttot.c

##### Functions

    pcttot            X

       1: #
       2: #include "0x.h"
       3: #include "E.h"
       4:
       5: /*
       6:  * Constant set constructor (yechh!)
       7:  */
       8: pcttot(uprbp, lwrb, n, av)
       9: {
      10:     register *set;
      11:     register l;
      12:     int *ap, h;
      13:
      14:     ap = &av;
      15:     set = &ap[2 * n];
      16:     while(--n >= 0) {
      17:         if ((l = *ap++ - lwrb) < 0 || l > uprbp ||
      18:             (h = *ap++ - lwrb) < 0 || h > uprbp)
      19:             error(ECTTOT);
      20:         while (l <= h) {
      21:             set[l >> 4] |= 1 << (l & 017);
      22:             l++;
      23:         }
      24:     }
      25:     return(set);
      26: }

#### Defined functions

pcttot defined in line 8; used 2 times

- in /usr/src/ucb/pascal/px/00int.s line 6
- in /usr/src/ucb/pascal/px/25set.s line 97

Last modified: 1986-05-31 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 818 |