home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / collector / check.inline < prev    next >
Text File  |  1995-03-31  |  507b  |  17 lines
  1. (* === Check * (this, elem : CollectorS.ElementP === *)
  2.  
  3.   IF   (this # NIL)
  4.      & (this.ecFlags * SHORTSET{ CollectorS.Root
  5.                                , CollectorS.black
  6.                                , CollectorS.Grey
  7.                                } # SHORTSET{})
  8.      & (elem # NIL)
  9.      & (elem.ecFlags * SHORTSET{ CollectorS.black
  10.                                , CollectorS.Grey
  11.                                } # SHORTSET{})
  12.   THEN
  13.     INCL(elem.ecFlags, CollectorS.Grey);
  14.   END;
  15.  
  16. (* ====== *)
  17.