anchor.diff:  ;
   
   \ Encode fdt property to OF property
  -: fdt-encode-prop  ( addr len -- )
  +: fdt-encode-prop  ( addr len -- pa ps )
      2dup fdt-prop-is-string? IF
         1- encode-string
      ELSE
  
positive.code: 	false to fdt-cas-fix?
  	EXIT
      THEN drop
      fdt-fetch-unit
      dup 0 = IF drop drop " /" THEN
      40 left-parse-string
      2swap ?dup 0 <> IF
  
negative.code: ;
  
  \ Lookup a string by index
  : fdt-fetch-string ( index -- str-addr str-len )
    fdt-strings + dup from-cstring
  ;
  
  