
     /* check parent block */
     if  ( 
             blk[BN]->pt.parent < 1 || 
             blk[blk[BN]->pt.parent] == NULL ||
                ( 
                (int) blk[blk[BN]->pt.parent]->u.fn < FN_XCLASS &&
                (int) blk[BN]->pt.mode != 0 &&
                (int) blk[blk[BN]->pt.parent]->u.mode != 0 &&
                (int) blk[BN]->pt.mode !=
                    (int) blk[blk[BN]->pt.parent]->u.mode)
                )
          ) 
          {
          del = TRUE:
          }

