Changeset 3258


Ignore:
Timestamp:
Aug 31, 2012, 1:42:31 AM (3 years 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.