Changeset 3262


Ignore:
Timestamp:
Aug 31, 2012, 2:32:00 AM (23 months ago)
Author:
wmb
Message:

OLPC ARM - Added "reg-w@" and "reg-w!" to the list of I2C interface methods and used them in the codec driver.

Location:
cpu/arm
Files:
3 edited

Legend:

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

    r3258 r3262  
    6060: reg-b@  ( reg# -- b )  " reg-b@" $call-twsi  ; 
    6161: reg-b!  ( b reg# -- )  " reg-b!" $call-twsi  ; 
     62: reg-w@  ( reg# -- b )  " reg-w@" $call-twsi  ; 
     63: reg-w!  ( b reg# -- )  " reg-w!" $call-twsi  ; 
    6264: bytes-out  ( byte .. #bytes -- )  " bytes-out" $call-twsi  ; 
    6365 
  • cpu/arm/mmp2/twsi-package.fth

    r3258 r3262  
    140140: reg-b!  ( byte reg -- )  2 bytes-out  ; 
    141141 
     142: reg-w@  ( reg -- word )  1 2 bytes-out-in  swap bwjoin  ; 
     143: reg-w!  ( word reg -- )  >r wbsplit r> 3 bytes-out  ; 
     144 
    142145: set-bus-standard  cr-set  h# 18000 invert and              to cr-set  ; 
    143146: set-bus-fast      cr-set  h# 18000 invert and  h# 8000 or  to cr-set  ; 
  • cpu/arm/olpc/sound.fth

    r3255 r3262  
    88   : open  ( -- true )     my-unit " set-address" $call-parent  true  ; 
    99   : close  ( -- )  ; 
    10    : codec@  ( reg# -- w )  1 2 " bytes-out-in" $call-parent  swap bwjoin  ; 
    11    : codec!  ( w reg# -- )  >r wbsplit r>  3 " bytes-out" $call-parent  ; 
     10   : codec@  ( reg# -- w )  " reg-w@" $call-parent  ; 
     11   : codec!  ( w reg# -- )  " reg-w!" $call-parent  ; 
    1212finish-device 
    1313device-end 
Note: See TracChangeset for help on using the changeset viewer.