Changeset 3350


Ignore:
Timestamp:
Oct 3, 2012, 11:50:56 PM (2 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.