Changeset 3262


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