anchor.diff:  
   
   \ Device nodes.
  +
  +false VALUE debug-find-component?
   
   VARIABLE device-tree
   VARIABLE current-node
  
positive.code: \ XXX This is an old hack that allows wildcard nodes to work
  \     by not having a #address-cells in the parent and no
  \     decode unit. This should be removed.
  : set-instance-unit  ( unitaddr len -- )
     dup 0= IF 2drop  0 to user-instance-#units  EXIT THEN
     2dup 0 -rot bounds ?DO
  
negative.code: 
  : $cat-instance-unit
     dup parent 0= IF drop EXIT THEN
     \ No instance unit, use node unit
     dup instance>#units @ 0= IF
        ihandle>phandle $cat-unit
        EXIT
     THEN
     dup >r push-my-self
     ['] my-unit CATCH IF pop-my-self r> drop EXIT THEN
     pop-my-self
  