anchor.diff:  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
  
positive.code:     swap			( newnode? a1 )
  
      fdt-debug IF ." Current  now: " pwd  get-node ."  = " . cr THEN
      BEGIN
  	fdt-next-tag dup OF_DT_END_NODE <>
      WHILE
  
negative.code:     decode-int dup fdt-create-dec fdt-create-enc 2drop
    THEN
  
    fdt-update-from-fdt
  
    finish-device  
  ;
  
  