Changeset 3258


Ignore:
Timestamp:
Aug 31, 2012, 1:42:31 AM (20 months ago)
Author:
wmb
Message:

OLPC ARM - Converted the RTC driver to use the new TWSI factoring, at the same time changing all occurrences of the method names "byte@" and "byte!" to "reg-b@" and "reg-b!".

Location:
cpu/arm
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/mmp2/twsi-node.fth

    r3255 r3258  
    5858: get  ( #bytes -- bytes ... )  0 swap  bytes-out-in  ; 
    5959 
    60 : byte@  ( -- )  " byte@" $call-twsi  ; 
    61 : byte!  ( -- )  " byte!" $call-twsi  ; 
     60: reg-b@  ( reg# -- b )  " reg-b@" $call-twsi  ; 
     61: reg-b!  ( b reg# -- )  " reg-b!" $call-twsi  ; 
    6262: bytes-out  ( byte .. #bytes -- )  " bytes-out" $call-twsi  ; 
    6363 
  • cpu/arm/mmp2/twsi-package.fth

    r3255 r3258  
    137137; 
    138138 
    139 : byte@  ( reg -- byte )  1 1 bytes-out-in  ; 
    140 : byte!  ( byte reg -- )  2 bytes-out  ; 
     139: reg-b@  ( reg -- byte )  1 1 bytes-out-in  ; 
     140: reg-b!  ( byte reg -- )  2 bytes-out  ; 
    141141 
    142142: set-bus-standard  cr-set  h# 18000 invert and              to cr-set  ; 
  • cpu/arm/olpc/accelerometer.fth

    r3255 r3258  
    1010 
    1111\ We could call this just once in open if we had a TWSI parent node 
    12 : acc-reg@  ( reg# -- b )  " byte@" $call-parent  ; 
    13 : acc-reg!  ( b reg# -- )  " byte!" $call-parent  ; 
     12: acc-reg@  ( reg# -- b )  " reg-b@" $call-parent  ; 
     13: acc-reg!  ( b reg# -- )  " reg-b!" $call-parent  ; 
    1414: ctl1!  ( b -- )  h# 20 acc-reg!  ; 
    1515: ctl4!  ( b -- )  h# 23 acc-reg!  ; 
  • cpu/arm/olpc/rtc.fth

    r3255 r3258  
    33dev /i2c@d4031000  \ TWSI2 
    44new-device 
    5    " rtc" name 
    6    " idt,idt1338-rtc" +compatible 
    7    h# 68 1 reg 
    85 
    9 [ifdef] cl2-a1 
    10 : set-address  ( -- ) 
    11    rtc-scl-gpio# to smb-clock-gpio# 
    12    rtc-sda-gpio# to smb-data-gpio# 
    13    h# 68 to smb-slave 
    14 ; 
    15 : rtc@  ( reg# -- byte )  set-address  smb-byte@  ; 
    16 : rtc!  ( byte reg# -- )  set-address  smb-byte!  ; 
    17 [else] 
    18 : set-address  ( -- )   h# 68 2 set-twsi-target  ; 
    19 : rtc@  ( reg# -- byte )  set-address  twsi-b@  ; 
    20 : rtc!  ( byte reg# -- )  set-address  twsi-b!  ; 
    21 [then] 
     6" rtc" name 
     7" idt,idt1338-rtc" +compatible 
     8h# 68 1 reg 
     9 
     10: rtc@  ( reg# -- byte )  " reg-b@" $call-parent  ; 
     11: rtc!  ( byte reg# -- )  " reg-b!" $call-parent  ; 
    2212 
    2313headerless 
     
    3424headers 
    3525: open  ( -- okay ) 
     26   my-unit " set-address" $call-parent 
     27 
    3628   0 ['] rtc@ catch  if        ( x ) 
    3729      drop false  exit         ( -- false ) 
     
    5951 
    6052: bcd-time&date  ( -- s m h d m y century ) 
    61    set-address 
    62 [ifdef] cl2-a1 
    63    9 0 smb-read-n  ( s m h dow d m y control c ) 
    64 [else] 
    65    0 1 9 twsi-get  ( s m h dow d m y control c ) 
    66 [then] 
     53   0 1 9 " bytes-out-in" $call-parent  ( s m h dow d m y control c ) 
    6754   nip             ( s m h dow d m y c ) 
    6855   4 roll drop     ( s m h d m y c ) 
Note: See TracChangeset for help on using the changeset viewer.