anchor.diff:      decode-int dup fdt-create-dec fdt-create-enc 2drop
     THEN
   
  +  fdt-update-from-fdt
  +
     finish-device  
   ;
   
  
positive.code:     THEN
  ;
  
  : fdt-fix-cas-node ( start -- )
      0 to fdt-cas-pass dup (fdt-fix-cas-node) drop \ Add phandles
      1 to fdt-cas-pass dup (fdt-fix-cas-node) drop \ Patch+add other properties
      2 to fdt-cas-pass dup (fdt-fix-cas-node) drop \ Delete phandles from pass 0
      drop
  
negative.code: 0 VALUE fdt-debug
  TRUE VALUE fdt-cas-fix?
  0 VALUE fdt-cas-pass
  0 VALUE fdt-generation#
  
  : fdt-update-from-fdt ( -- )
    fdt-generation# encode-int s" slof,from-fdt" property
  ;
  
  \ Bail out if no fdt
  fdt-start 0 = IF -1 throw THEN
  