anchor.diff:  
   : $cat-instance-unit
      dup parent 0= IF drop EXIT THEN
  -   dup instance>#units 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
  
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: 
  
  \ Device nodes.
  
  false VALUE debug-find-component?
  
  VARIABLE device-tree
  VARIABLE current-node
  