Changeset 3350


Ignore:
Timestamp:
Oct 3, 2012, 11:50:56 PM (3 years ago)
Author:
wmb
Message:

OLPC XO-1.75 - support old OS releases from OFW with new device tree layout.

Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/1.75/fw.bth

    r3331 r3350  
    3232fload ${BP}/cpu/arm/olpc/gpio-gamekeys.fth
    3333fload ${BP}/cpu/arm/olpc/test-tweaks.fth
     34fload ${BP}/cpu/arm/olpc/1.75/dtcompat.fth
    3435
    3536fload ${BP}/cpu/arm/olpc/save-fw.fth
  • forth/lib/substrin.fth

    r1 r3350  
    3232   again
    3333;
     34
     35\ This version is faster (due to bscan being a code word) and arguably more convenient than sindex
     36: $sindex  ( small$ big$ -- rem$ )
     37   2 pick 0=  if  4drop 0  then  \ Null string is initial substring of anything
     38   3 pick c@  >r                 ( small$ big$  r: firstchar )
     39   begin  r@  bscan  dup while   ( small$ rem$  r: firstchar )
     40      4dup substring?  if        ( small$ rem$  r: firstchar )
     41         2swap r> 3drop  exit    ( -- rem$ )
     42      then                       ( small$ rem$  r: firstchar )
     43      1 /string                  ( small$ rem$'  r: firstchar )
     44   repeat                        ( small$ rem$  r: firstchar )
     45   2swap r> 3drop                ( rem$ )
     46;
     47
    3448only forth also definitions
    3549
Note: See TracChangeset for help on using the changeset viewer.