openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3261 - cpu/arm/olpc
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 02:22:54 2012 New Revision: 3261 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3261 Log: Fixed a commentary typo in the previous checkin. Modified: cpu/arm/olpc/gpio-i2c.fth Modified: cpu/arm/olpc/gpio-i2c.fth ============================================================================== --- cpu/arm/olpc/gpio-i2c.fth Fri Aug 31 02:22:06 2012 (r3260) +++ cpu/arm/olpc/gpio-i2c.fth Fri Aug 31 02:22:54 2012 (r3261) @@ -49,8 +49,8 @@ cam-sda-gpio# to smb-data-gpio# slave-address to smb-slave ; - \ Since this I2C bus is dedicated to the DCON, we save space by - \ implementing only the methods that the DCON uses + \ Since this I2C bus is dedicated to the camera sensor, we save space by + \ implementing only the methods that the sensor uses : reg-b@ ( reg# -- b ) smb-setup smb-byte@ ; : reg-b! ( b reg# -- ) smb-setup smb-byte! ; : open ( -- flag ) true ;

1 0

[commit] r3260 - cpu/arm/olpc dev/olpc/dcon
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 02:22:06 2012 New Revision: 3260 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3260 Log: OLPC ARM - Converted the MMP2 DCON driver to call it's I2C parent bus for I2C services, instead of using the bit-banged SMBUS driver directly. Also added I2C methods to the parent node for the image sensor, paving the way for later conversion of that driver. Modified: cpu/arm/olpc/build-fw.fth cpu/arm/olpc/gpio-i2c.fth dev/olpc/dcon/mmp2dcon.fth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Fri Aug 31 01:52:44 2012 (r3259) +++ cpu/arm/olpc/build-fw.fth Fri Aug 31 02:22:06 2012 (r3260) @@ -101,6 +101,8 @@ fload ${BP}/cpu/arm/mmp2/watchdog.fth \ reset-all using watchdog timer +fload ${BP}/cpu/arm/olpc/smbus.fth \ Bit-banged SMBUS (I2C) using GPIOs + fload ${BP}/cpu/arm/olpc/gpio-i2c.fth fload ${BP}/cpu/arm/olpc/twsi-i2c.fth @@ -134,8 +136,6 @@ \needs md5init fload ${BP}/ofw/ppp/md5.fth \ MD5 hash -fload ${BP}/cpu/arm/olpc/smbus.fth \ Bit-banged SMBUS (I2C) using GPIOs - fload ${BP}/dev/olpc/spiflash/flashif.fth \ Generic FLASH interface fload ${BP}/dev/olpc/spiflash/spiif.fth \ Generic low-level SPI bus access Modified: cpu/arm/olpc/gpio-i2c.fth ============================================================================== --- cpu/arm/olpc/gpio-i2c.fth Fri Aug 31 01:52:44 2012 (r3259) +++ cpu/arm/olpc/gpio-i2c.fth Fri Aug 31 02:22:06 2012 (r3260) @@ -36,14 +36,26 @@ 1 " #size-cells" integer-property : encode-unit ( phys.. -- str ) push-hex (u.) pop-base ; : decode-unit ( str -- phys.. ) push-hex $number if 0 then pop-base ; - : open ( -- flag ) true ; - : close ( -- ) ; 0 0 encode-bytes cam-sda-gpio# 0 encode-gpio cam-scl-gpio# 0 encode-gpio " gpios" property + 0 instance value slave-address + : set-address ( slave -- ) to slave-address ; + : smb-setup + 1 to smb-dly-us cam-scl-gpio# to smb-clock-gpio# + cam-sda-gpio# to smb-data-gpio# + slave-address to smb-slave + ; + \ Since this I2C bus is dedicated to the DCON, we save space by + \ implementing only the methods that the DCON uses + : reg-b@ ( reg# -- b ) smb-setup smb-byte@ ; + : reg-b! ( b reg# -- ) smb-setup smb-byte! ; + : open ( -- flag ) true ; + : close ( -- ) ; + new-device " image-sensor" device-name @@ -56,7 +68,6 @@ cam-pwr-gpio# 0 encode-gpio cam-rst-gpio# 0 encode-gpio " gpios" property - finish-device finish-device @@ -67,12 +78,30 @@ 1 " #size-cells" integer-property : encode-unit ( phys.. -- str ) push-hex (u.) pop-base ; : decode-unit ( str -- phys.. ) push-hex $number if 0 then pop-base ; - : open ( -- flag ) true ; - : close ( -- ) ; 0 0 encode-bytes dcon-sda-gpio# 0 encode-gpio dcon-scl-gpio# 0 encode-gpio " gpios" property + + 0 instance value slave-address + : set-address ( slave -- ) to slave-address ; + : smb-setup ( -- ) + dcon-scl-gpio# to smb-clock-gpio# + dcon-sda-gpio# to smb-data-gpio# + slave-address to smb-slave + ; + + \ Since this I2C bus is dedicated to the DCON, we save space by + \ implementing only the methods that the DCON uses + + : reg-w@ ( reg# -- w ) smb-setup smb-word@ ; + : reg-w! ( w reg# -- ) smb-setup smb-word! ; + + : bus-reset ( -- ) smb-setup smb-stop 1 ms smb-off 1 ms smb-on ; + : bus-init ( -- ) smb-setup smb-on smb-pulses ; + + : open ( -- flag ) true ; + : close ( -- ) ; finish-device device-end Modified: dev/olpc/dcon/mmp2dcon.fth ============================================================================== --- dev/olpc/dcon/mmp2dcon.fth Fri Aug 31 01:52:44 2012 (r3259) +++ dev/olpc/dcon/mmp2dcon.fth Fri Aug 31 02:22:06 2012 (r3260) @@ -53,18 +53,11 @@ \ h# 4000 constant DM_DEBUG \ h# 8000 constant DM_SELFTEST -: set-dcon-slave ( -- ) - dcon-scl-gpio# to smb-clock-gpio# - dcon-sda-gpio# to smb-data-gpio# +: bus-init ( -- ) " bus-init" $call-parent ; +: bus-reset ( -- ) " bus-reset" $call-parent ; - h# 0d to smb-slave -; - -: smb-init ( -- ) set-dcon-slave smb-on smb-pulses ; -: smb-reset ( -- ) smb-stop 1 ms smb-off 1 ms smb-on ; - -: dcon@ ( reg# -- word ) set-dcon-slave smb-word@ ; -: dcon! ( word reg# -- ) set-dcon-slave smb-word! ; +: dcon@ ( reg# -- word ) " reg-w@" $call-parent ; +: dcon! ( word reg# -- ) " reg-w!" $call-parent ; : dcon-load ( -- ) dcon-load-gpio# gpio-set ; : dcon-unload ( -- ) dcon-load-gpio# gpio-clr ; @@ -134,7 +127,7 @@ \ gx_configure_tft(info); : try-dcon! ( w reg# -- ) - ['] dcon! catch if 2drop smb-reset then + ['] dcon! catch if 2drop bus-reset then ; : mode@ ( -- mode ) 1 dcon@ ; @@ -171,14 +164,14 @@ ; \ Setup so it can be called by execute-device-method -: dcon-off ( -- ) smb-init h# 12 ['] mode! catch if drop then ; +: dcon-off ( -- ) bus-init h# 12 ['] mode! catch if drop then ; : dcon2? ( -- flag ) 5 0 do 0 ['] dcon@ catch 0= if ( x ) h# dc02 = unloop exit then ( x ) - drop d# 50 ms smb-init ( ) + drop d# 50 ms bus-init ( ) loop false ; @@ -217,7 +210,7 @@ [ifdef] old-way : init-dcon ( -- ) - smb-init + bus-init \ Unnecessary because CForth has already done it \ dcon-load dcon-enable ( maybe-set-cmos ) @@ -226,7 +219,8 @@ ' init-dcon to init-panel [else] : open ( -- flag ) - smb-init + my-unit " set-address" $call-parent + bus-init \ Unnecessary because CForth has already done it \ dcon-load dcon-enable ( maybe-set-cmos ) \ dcon-enable leaves mode set to 69 - 40:antialias, 20:swizzle, 8:backlight on, 1:passthru off

1 0

[commit] r3259 - cpu/arm/olpc
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 01:52:44 2012 New Revision: 3259 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3259 Log: OLPC ARM - Now that all TWSI child devices have been converted to use the new factoring, removed the old top-level /twsi node from the device tree and removed the global TWSI driver code. The only global references to twsi are now in the suspend/resume code (to be fixed) and an incidental one in MFPR pin attributes. Modified: cpu/arm/olpc/build-fw.fth cpu/arm/olpc/prefw.fth cpu/arm/olpc/twsi-i2c.fth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Fri Aug 31 01:42:31 2012 (r3258) +++ cpu/arm/olpc/build-fw.fth Fri Aug 31 01:52:44 2012 (r3259) @@ -10,7 +10,6 @@ : init-stuff acgr-clocks-on init-timers - init-twsi ; warning @ warning off : stand-init-io Modified: cpu/arm/olpc/prefw.fth ============================================================================== --- cpu/arm/olpc/prefw.fth Fri Aug 31 01:42:31 2012 (r3258) +++ cpu/arm/olpc/prefw.fth Fri Aug 31 01:52:44 2012 (r3259) @@ -229,7 +229,6 @@ fload ${BP}/cpu/arm/mmp2/irq.fth fload ${BP}/cpu/arm/mmp2/timer.fth fload ${BP}/cpu/arm/mmp2/gpio.fth -fload ${BP}/cpu/arm/mmp2/twsi.fth fload ${BP}/cpu/arm/mmp2/mfpr.fth fload ${BP}/cpu/arm/mmp2/twsi-package.fth Modified: cpu/arm/olpc/twsi-i2c.fth ============================================================================== --- cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 01:42:31 2012 (r3258) +++ cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 01:52:44 2012 (r3259) @@ -1,14 +1,16 @@ purpose: Device tree nodes for board-specific I2C buses implemented by TWSI hardware -: make-twsi-node " ${BP}/cpu/arm/mmp2/twsi-node.fth" included ; +\ We omit nodes for unconnected TWSI channels +\ The unit# properties are chosen so that GPIO I2C nodes get lower addresses. +\ Some Linux drivers expect to find devices on specific I2C bus numbers. \ baseadr clk irq mux? fast? unit# - h# d4011000 1 7 false true 2 make-twsi-node \ TWSI1 - h# d4031000 2 0 true true 3 make-twsi-node \ TWSI2 -\ h# d4032000 3 1 true true N make-twsi-node \ TWSI3 - h# d4033000 4 2 true true 5 make-twsi-node \ TWSI4 -\ h# d4038000 d# 30 3 true true N make-twsi-node \ TWSI5 - h# d4034000 d# 31 4 true true 4 make-twsi-node \ TWSI6 + h# d4011000 1 7 false true 2 fload ${BP}/cpu/arm/mmp2/twsi-node.fth \ TWSI1 + h# d4031000 2 0 true true 3 fload ${BP}/cpu/arm/mmp2/twsi-node.fth \ TWSI2 +\ h# d4032000 3 1 true true N fload ${BP}/cpu/arm/mmp2/twsi-node.fth \ TWSI3 + h# d4033000 4 2 true true 5 fload ${BP}/cpu/arm/mmp2/twsi-node.fth \ TWSI4 +\ h# d4038000 d# 30 3 true true N fload ${BP}/cpu/arm/mmp2/twsi-node.fth \ TWSI5 + h# d4034000 d# 31 4 true true 4 fload ${BP}/cpu/arm/mmp2/twsi-node.fth \ TWSI6 [ifdef] soon-olpc-cl2 \ this breaks cl4-a1 boards, which ofw calls cl2. dev /i2c@d4033000 \ TWSI4

1 0

[commit] r3258 - in cpu/arm: mmp2 olpc
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 01:42:31 2012 New Revision: 3258 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3258 Log: 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!". Modified: cpu/arm/mmp2/twsi-node.fth cpu/arm/mmp2/twsi-package.fth cpu/arm/olpc/accelerometer.fth cpu/arm/olpc/rtc.fth Modified: cpu/arm/mmp2/twsi-node.fth ============================================================================== --- cpu/arm/mmp2/twsi-node.fth Fri Aug 31 01:28:30 2012 (r3257) +++ cpu/arm/mmp2/twsi-node.fth Fri Aug 31 01:42:31 2012 (r3258) @@ -57,8 +57,8 @@ : get ( #bytes -- bytes ... ) 0 swap bytes-out-in ; -: byte@ ( -- ) " byte@" $call-twsi ; -: byte! ( -- ) " byte!" $call-twsi ; +: reg-b@ ( reg# -- b ) " reg-b@" $call-twsi ; +: reg-b! ( b reg# -- ) " reg-b!" $call-twsi ; : bytes-out ( byte .. #bytes -- ) " bytes-out" $call-twsi ; \ Useful range is 25K .. 400K - 100K and 400K are typical Modified: cpu/arm/mmp2/twsi-package.fth ============================================================================== --- cpu/arm/mmp2/twsi-package.fth Fri Aug 31 01:28:30 2012 (r3257) +++ cpu/arm/mmp2/twsi-package.fth Fri Aug 31 01:42:31 2012 (r3258) @@ -136,8 +136,8 @@ bbu_ICR_STOP twsi-putbyte ( ) ; -: byte@ ( reg -- byte ) 1 1 bytes-out-in ; -: byte! ( byte reg -- ) 2 bytes-out ; +: reg-b@ ( reg -- byte ) 1 1 bytes-out-in ; +: reg-b! ( byte reg -- ) 2 bytes-out ; : set-bus-standard cr-set h# 18000 invert and to cr-set ; : set-bus-fast cr-set h# 18000 invert and h# 8000 or to cr-set ; Modified: cpu/arm/olpc/accelerometer.fth ============================================================================== --- cpu/arm/olpc/accelerometer.fth Fri Aug 31 01:28:30 2012 (r3257) +++ cpu/arm/olpc/accelerometer.fth Fri Aug 31 01:42:31 2012 (r3258) @@ -9,8 +9,8 @@ \ This is for the stand-alone accelerometers LIS3DHTR and LIS33DETR \ We could call this just once in open if we had a TWSI parent node -: acc-reg@ ( reg# -- b ) " byte@" $call-parent ; -: acc-reg! ( b reg# -- ) " byte!" $call-parent ; +: acc-reg@ ( reg# -- b ) " reg-b@" $call-parent ; +: acc-reg! ( b reg# -- ) " reg-b!" $call-parent ; : ctl1! ( b -- ) h# 20 acc-reg! ; : ctl4! ( b -- ) h# 23 acc-reg! ; : accelerometer-on ( -- ) h# 47 ctl1! ; Modified: cpu/arm/olpc/rtc.fth ============================================================================== --- cpu/arm/olpc/rtc.fth Fri Aug 31 01:28:30 2012 (r3257) +++ cpu/arm/olpc/rtc.fth Fri Aug 31 01:42:31 2012 (r3258) @@ -2,23 +2,13 @@ dev /i2c@d4031000 \ TWSI2 new-device - " rtc" name - " idt,idt1338-rtc" +compatible - h# 68 1 reg - -[ifdef] cl2-a1 -: set-address ( -- ) - rtc-scl-gpio# to smb-clock-gpio# - rtc-sda-gpio# to smb-data-gpio# - h# 68 to smb-slave -; -: rtc@ ( reg# -- byte ) set-address smb-byte@ ; -: rtc! ( byte reg# -- ) set-address smb-byte! ; -[else] -: set-address ( -- ) h# 68 2 set-twsi-target ; -: rtc@ ( reg# -- byte ) set-address twsi-b@ ; -: rtc! ( byte reg# -- ) set-address twsi-b! ; -[then] + +" rtc" name +" idt,idt1338-rtc" +compatible +h# 68 1 reg + +: rtc@ ( reg# -- byte ) " reg-b@" $call-parent ; +: rtc! ( byte reg# -- ) " reg-b!" $call-parent ; headerless @@ -33,6 +23,8 @@ headers : open ( -- okay ) + my-unit " set-address" $call-parent + 0 ['] rtc@ catch if ( x ) drop false exit ( -- false ) then ( value ) @@ -58,12 +50,7 @@ : >bcd ( binary -- bcd ) d# 10 /mod 4 << + ; : bcd-time&date ( -- s m h d m y century ) - set-address -[ifdef] cl2-a1 - 9 0 smb-read-n ( s m h dow d m y control c ) -[else] - 0 1 9 twsi-get ( s m h dow d m y control c ) -[then] + 0 1 9 " bytes-out-in" $call-parent ( s m h dow d m y control c ) nip ( s m h dow d m y c ) 4 roll drop ( s m h d m y c ) ;

1 0

[commit] r3257 - cpu/arm/olpc
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 01:28:30 2012 New Revision: 3257 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3257 Log: OLPC ARM - Converted the nn-touchscreen driver to use the new TWSI factoring. It now has no references to "twsi" - so it doesn't care what kind of I2C hardware implements its system interface. There is now only one "touchscreen" device node. Modified: cpu/arm/olpc/nn-touchscreen.fth cpu/arm/olpc/twsi-i2c.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Fri Aug 31 01:14:17 2012 (r3256) +++ cpu/arm/olpc/nn-touchscreen.fth Fri Aug 31 01:28:30 2012 (r3257) @@ -1,8 +1,19 @@ \ See license at end of file purpose: Driver and diagnostic for Neonode zForce MultiSensing I2C Touchscreen -0 0 " 4,50" " /twsi" begin-package -my-space encode-int my-address encode-int encode+ " reg" property +dev /i2c@d4033000 +new-device + +h# 50 1 reg + +" zforce" +compatible +touch-rst-gpio# 1 " reset-gpios" gpio-property +touch-tck-gpio# 1 " test-gpios" gpio-property +touch-hd-gpio# 1 " hd-gpios" gpio-property +touch-int-gpio# 1 " dr-gpios" gpio-property + +: read-bytes ( adr len -- ) " read-bytes" $call-parent ; +: bytes-out ( byte .. #bytes -- ) " bytes-out" $call-parent ; create nn-os \ open short test create nn-fll \ forced led levels test @@ -50,11 +61,11 @@ : in? ( -- got-data? ) no-data? if false exit then - pbuf 2 twsi-read ( ) + pbuf 2 read-bytes ( ) pbuf 1+ c@ ( len ) dup 2+ to plen ( len ) - pbuf 2+ swap twsi-read ( ) + pbuf 2+ swap read-bytes ( ) pbuf 2+ c@ h# 07 = pbuf 3 + c@ 0= and if ( ) true to configure? @@ -80,18 +91,18 @@ : read-boot-complete ( -- ) h# 07 d# 0 anticipate ; -: initialise ( -- ) h# 01 h# 01 h# ee 3 twsi-out h# 01 d# 20 anticipate ; +: initialise ( -- ) h# 01 h# 01 h# ee 3 bytes-out h# 01 d# 20 anticipate ; : set-resolution ( -- ) set-geometry - screen-h wbsplit swap screen-w wbsplit swap h# 02 h# 05 h# ee 7 twsi-out + screen-h wbsplit swap screen-w wbsplit swap h# 02 h# 05 h# ee 7 bytes-out h# 02 d# 20 anticipate ; -: start ( -- ) h# 04 h# 01 h# ee 3 twsi-out ; +: start ( -- ) h# 04 h# 01 h# ee 3 bytes-out ; : deactivate ( -- ) - h# 00 h# 01 h# ee 3 twsi-out h# 00 d# 20 anticipate + h# 00 h# 01 h# ee 3 bytes-out h# 00 d# 20 anticipate true to configure? ; @@ -106,7 +117,7 @@ : open ( -- okay? ) pbuf-alloc - my-unit set-twsi-target + my-unit " set-address" $call-parent set-gpios no-data? if reset @@ -174,7 +185,7 @@ ; : test-version ( -- ) - h# 1e h# 01 h# ee 3 twsi-out + h# 1e h# 01 h# ee 3 bytes-out h# 1e d# 30 anticipate .version @@ -334,7 +345,7 @@ d# 48 constant /y-os : test-os-axis ( axis -- ) - h# 21 h# 02 h# ee 4 twsi-out + h# 21 h# 02 h# ee 4 bytes-out h# 21 d# 30 anticipate pbuf 2+ c@ h# 21 <> abort" bad response" @@ -394,7 +405,7 @@ d# 1 value fss-min : test-fss-axis ( axis -- ) - d# 64 swap h# 0f h# 03 h# ee 5 twsi-out + d# 64 swap h# 0f h# 03 h# ee 5 bytes-out h# 0f d# 20 anticipate pbuf 2+ c@ h# 0f <> abort" bad response" 8sp @@ -424,7 +435,7 @@ [ifdef] nn-ls \ low signals test : test-ls-axis ( axis -- ) - h# 0d h# 02 h# ee 4 twsi-out + h# 0d h# 02 h# ee 4 bytes-out h# 0d d# 200 anticipate pbuf 2+ c@ h# 0d <> abort" bad response" @@ -481,7 +492,7 @@ ; : test-fll-axis ( axis -- ) - h# 20 h# 02 h# ee 4 twsi-out + h# 20 h# 02 h# ee 4 bytes-out h# 1c d# 200 anticipate pbuf plen cdump cr pbuf 4 + c@ 2/ 0 do @@ -590,7 +601,8 @@ close false ; -end-package +finish-device +device-end \ LICENSE_BEGIN \ Copyright (c) 2012 FirmWorks Modified: cpu/arm/olpc/twsi-i2c.fth ============================================================================== --- cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 01:14:17 2012 (r3256) +++ cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 01:28:30 2012 (r3257) @@ -11,22 +11,11 @@ h# d4034000 d# 31 4 true true 4 make-twsi-node \ TWSI6 [ifdef] soon-olpc-cl2 \ this breaks cl4-a1 boards, which ofw calls cl2. -0 0 " 30" " /i2c@d4033000" begin-package \ TWSI4 - " touchscreen" name - " raydium_ts" +compatible - my-address my-space 1 reg -end-package -[else] dev /i2c@d4033000 \ TWSI4 new-device - h# 50 1 reg + h# 30 1 reg " touchscreen" name - " zforce" +compatible - my-address my-space 1 reg - touch-rst-gpio# 1 " reset-gpios" gpio-property - touch-tck-gpio# 1 " test-gpios" gpio-property - touch-hd-gpio# 1 " hd-gpios" gpio-property - touch-int-gpio# 1 " dr-gpios" gpio-property + " raydium_ts" +compatible finish-device device-end [then]

1 0

[commit] r3256 - cpu/arm/olpc
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 01:14:17 2012 New Revision: 3256 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3256 Log: OLPC ARM - This checkin goes with the previous one, fixing a build failure. Modified: cpu/arm/olpc/twsi-i2c.fth Modified: cpu/arm/olpc/twsi-i2c.fth ============================================================================== --- cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 00:57:10 2012 (r3255) +++ cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 01:14:17 2012 (r3256) @@ -1,6 +1,6 @@ purpose: Device tree nodes for board-specific I2C buses implemented by TWSI hardware -: make-twsi-node " ${BP}/cpu/arm/mmp2/twsi-methods.fth" included ; +: make-twsi-node " ${BP}/cpu/arm/mmp2/twsi-node.fth" included ; \ baseadr clk irq mux? fast? unit# h# d4011000 1 7 false true 2 make-twsi-node \ TWSI1 @@ -17,7 +17,9 @@ my-address my-space 1 reg end-package [else] -0 0 " 50" " /i2c@d4033000" begin-package \ TWSI4 +dev /i2c@d4033000 \ TWSI4 +new-device + h# 50 1 reg " touchscreen" name " zforce" +compatible my-address my-space 1 reg @@ -25,5 +27,6 @@ touch-tck-gpio# 1 " test-gpios" gpio-property touch-hd-gpio# 1 " hd-gpios" gpio-property touch-int-gpio# 1 " dr-gpios" gpio-property -end-package +finish-device +device-end [then]

1 0

[commit] r3255 - in cpu/arm: mmp2 olpc
by repository service 31 Aug '12

31 Aug '12

Author: wmb Date: Fri Aug 31 00:57:10 2012 New Revision: 3255 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3255 Log: OLPC ARM - Created a proper device-tree factoring of the OFW TWSI driver with the goal of replacing the present global version. The new version has methods in /i2c@N nodes, delegating the work to code in /packages/twsi . The global version is still present and is still used for RTC and touchscreen. The codec and accelerometer drivers have been converted over to use the new code. This resolves OLPC Trac #12072 (there was a simpler way to fix 12072, by renaming one of the accelerometer nodes, but this refactoring needed to be done eventually.) Added: cpu/arm/mmp2/twsi-node.fth cpu/arm/mmp2/twsi-package.fth Modified: cpu/arm/olpc/accelerometer.fth cpu/arm/olpc/prefw.fth cpu/arm/olpc/rtc.fth cpu/arm/olpc/sound.fth cpu/arm/olpc/twsi-i2c.fth Added: cpu/arm/mmp2/twsi-node.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/twsi-node.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -0,0 +1,92 @@ +\ See license at end of file +purpose: Create a device node for a TWSI device based on stack arguments + +\ Put the following on the stack prior to floading this file: +\ ( phys-addr clk irq mux? fast? linux-unit# ) +\ E.g: h# d4011000 1 7 false true 2 + +root-device +new-device + +" linux,unit#" integer-property ( baseadr clock# irq# muxed-irq? fast? ) +" i2c" name ( baseadr clock# irq# muxed-irq? fast? ) +" mrvl,mmp-twsi" +compatible ( baseadr clock# irq# muxed-irq? fast? ) +[if] 0 0 " mrvl,i2c-fast-mode" property [then] ( baseadr clock# irq# muxed-irq? ) +[if] + " /interrupt-controller/interrupt-controller@158" encode-phandle " interrupt-parent" property +[then] ( baseadr clock# irq# ) +" interrupts" integer-property ( baseadr clock# ) + +" /apbc" encode-phandle rot encode-int encode+ " clocks" property +h# 1000 reg ( ) + +1 " #address-cells" integer-property +1 " #size-cells" integer-property + +: decode-unit ( adr len -- n ) parse-int ; +: encode-unit ( n -- adr len ) push-hex (u.) pop-base ; + +0 instance value twsi +0 instance value my-va + +: $call-twsi ( ? -- ? ) twsi $call-method ; + +: open ( -- okay? ) + my-clock-on + + " " " twsi" $open-package to twsi + twsi 0= if false exit then + + my-unit h# 40 " map-in" $call-parent to my-va + + true +; +: close ( -- ) + my-va h# 40 " map-out" $call-parent + + twsi close-package + my-clock-off +; + +1 " #address-cells" integer-property +1 " #size-cells" integer-property + +: set-address ( target -- ) my-va " set-address" $call-twsi ; + +: bytes-out-in ( out ... #outs #ins -- in ... ) " bytes-out-in" $call-twsi ; + +: get ( #bytes -- bytes ... ) 0 swap bytes-out-in ; + +: byte@ ( -- ) " byte@" $call-twsi ; +: byte! ( -- ) " byte!" $call-twsi ; +: bytes-out ( byte .. #bytes -- ) " bytes-out" $call-twsi ; + +\ Useful range is 25K .. 400K - 100K and 400K are typical +: set-bus-speed ( hz -- ) " set-bus-speed" $call-twsi ; + +finish-device +device-end + +\ LICENSE_BEGIN +\ Copyright (c) 2012 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END Added: cpu/arm/mmp2/twsi-package.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/twsi-package.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -0,0 +1,189 @@ +purpose: Support package driver for Two Wire Serial Interface on Marvell Armada 610 + +support-package: twsi + +0 instance value twsi-chip +0 instance value slave-address + +: dbr@ ( -- n ) twsi-chip h# 08 + rl@ ; +: cr@ ( -- n ) twsi-chip h# 10 + rl@ ; +: sr@ ( -- n ) twsi-chip h# 18 + rl@ ; +: sar@ ( -- n ) twsi-chip h# 20 + rl@ ; +: lcr@ ( -- n ) twsi-chip h# 28 + rl@ ; +: wcr@ ( -- n ) twsi-chip h# 30 + rl@ ; +: dbr! ( n -- ) twsi-chip h# 08 + rl! ; +: cr! ( n -- ) twsi-chip h# 10 + rl! ; +: sr! ( n -- ) twsi-chip h# 18 + rl! ; +: sar! ( n -- ) twsi-chip h# 20 + rl! ; +: lcr! ( n -- ) twsi-chip h# 28 + rl! ; +: wcr! ( -- n ) twsi-chip h# 30 + rl! ; + +\ Bit defines + +h# 4000 constant bbu_ICR_UR \ Unit Reset bit +h# 0040 constant bbu_ICR_IUE \ ICR TWSI Unit enable bit +h# 0020 constant bbu_ICR_SCLE \ ICR TWSI SCL Enable bit +h# 0010 constant bbu_ICR_MA \ ICR Master Abort bit +h# 0008 constant bbu_ICR_TB \ ICR Transfer Byte bit +h# 0004 constant bbu_ICR_ACKNAK \ ICR ACK bit +h# 0002 constant bbu_ICR_STOP \ ICR STOP bit +h# 0001 constant bbu_ICR_START \ ICR START bit +h# 0040 constant bbu_ISR_ITE \ ISR Transmit empty bit +h# 0400 constant bbu_ISR_BED \ Bus Error Detect bit + +h# 1000 constant BBU_TWSI_TimeOut \ TWSI bus timeout loop counter value + +d# 26 constant ftwsi-mhz \ +d# 1400 constant tlow-nsec \ The I2C spec calls for Tlow >= 1300 ns +ftwsi-mhz tlow-nsec d# 1000 */ constant tlow-ticks + +bbu_ICR_IUE bbu_ICR_SCLE or value cr-set \ bits to maintain as set +: twsi-on ( -- ) + cr-set bbu_ICR_UR or cr! \ Reset the unit + cr-set cr! \ Release the reset + 0 sar! \ Set host slave address + 0 cr! \ Disable interrupts + \ The COUNT field of TWSI_WCR establishes a minimum value for the SCL low time. + \ The minimum Tlow is the clock period * (12 + 2*COUNT) + wcr@ h# 1f invert and tlow-ticks d# 12 - 2/ or wcr! \ Setup and hold times +; + +: twsi-run ( extra-flags -- ) + cr-set or bbu_ICR_TB or cr! ( ) + + h# 1000 0 do + cr@ bbu_ICR_TB and 0= if unloop exit then + loop + true abort" TWSI timeout" +; +: twsi-putbyte ( byte extra-flags -- ) + swap dbr! ( extra-flags ) + twsi-run +; +: twsi-getbyte ( extra-flags -- byte ) + twsi-run ( ) + dbr@ ( byte ) + sr@ sr! ( byte ) +; + +: twsi-start ( slave-address -- ) + bbu_ICR_START twsi-putbyte ( ) + sr@ bbu_ISR_BED and if ( ) + bbu_ISR_BED sr! ( ) + cr-set bbu_ICR_MA or cr! ( ) + true abort" TWSI bus error" + then ( ) +; + +external + +: write-bytes ( adr len -- ) + dup 0= if 2drop exit then ( adr len ) + slave-address twsi-start ( adr len ) + + 1- 0 ?do dup c@ 0 twsi-putbyte 1+ loop ( adr' ) + c@ bbu_ICR_STOP twsi-putbyte ( ) +; + +: read-bytes ( adr len -- ) + dup 0= if 2drop exit then ( adr len ) + slave-address 1 or twsi-start ( adr len ) + + 1- 0 ?do 0 twsi-getbyte over c! 1+ loop ( adr' ) + bbu_ICR_STOP bbu_ICR_ACKNAK or twsi-getbyte swap c! ( ) +; + +: set-address ( slave chip -- ) \ Channel numbers range from 1 to 6 + to twsi-chip + 2* to slave-address + twsi-on +; + +: bytes-out-in ( register-address .. #reg-bytes #data-bytes -- data-byte ... ) + >r ( reg-adr .. #regs r: #data-bytes ) + ?dup if ( reg-adr .. #regs slave-address r: #data-bytes ) + slave-address ( reg-adr .. #regs slave-address r: #data-bytes ) + twsi-start ( reg-adr .. #regs r: #data-bytes ) + + \ Send register addresses + 0 ?do 0 twsi-putbyte loop ( r: #data-bytes ) + + \ If no result data requested, quit now + r@ 0= if ( r: #data-bytes ) + r> drop ( ) + cr-set bbu_ICR_STOP or cr! ( ) + exit + then ( r: #data-bytes ) + then ( r: #data-bytes ) + + r> ?dup if ( #data-bytes ) + \ Send the read address with a (or another) start bit + slave-address 1 or bbu_ICR_START twsi-putbyte ( #data-bytes ) + sr@ sr! \ clear ITE and IRF status bits ( #data-bytes ) + \ Bug on line 367 of bbu_TWSI.s - writes SR without first reading it + + 1- 0 ?do 0 twsi-getbyte loop ( bytes ) + + \ Set the stop bit on the final byte + bbu_ICR_STOP bbu_ICR_ACKNAK or twsi-getbyte ( bytes ) + then +; + +: bytes-out ( byte .. #bytes -- ) + slave-address twsi-start ( byte .. #bytes ) + + 1- 0 ?do 0 twsi-putbyte loop ( byte ) + bbu_ICR_STOP twsi-putbyte ( ) +; + +: byte@ ( reg -- byte ) 1 1 bytes-out-in ; +: byte! ( byte reg -- ) 2 bytes-out ; + +: set-bus-standard cr-set h# 18000 invert and to cr-set ; +: set-bus-fast cr-set h# 18000 invert and h# 8000 or to cr-set ; + +: set-bus-speed ( hz -- ) \ Useful range is 25K .. 400K - 100K and 400K are typical + ftwsi-mhz d# 1,000,000 2 pick */ ( hz ticks ) + swap d# 100,000 <= if ( ticks ) + \ In slow mode, Thi = Tclk * (8+slv), Tlow = Tclk * (1+slv) + 9 - 2/ 1+ ( slv ) + lcr@ h# 1ff invert and or lcr! ( ) + set-bus-standard ( ) + else ( ticks ) + \ (The information below is poorly documented and was determined empirically) + \ In fast mode, Thi = Tclk * (10+flv), Tlo = Tclk * max(1+flv, tlow_ticks)) + dup d# 11 - 2/ 1+ tlow-ticks max ( ticks ticks-low ) + - d# 10 - ( flv ) + 9 lshift lcr@ h# 3.fe00 invert and or lcr! ( ) + set-bus-fast ( ) + then ( ) +; + +: open ( -- okay? ) true ; +: close ( -- ) ; + +end-support-package + +\ LICENSE_BEGIN +\ Copyright (c) 2012 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END Modified: cpu/arm/olpc/accelerometer.fth ============================================================================== --- cpu/arm/olpc/accelerometer.fth Fri Aug 31 00:10:06 2012 (r3254) +++ cpu/arm/olpc/accelerometer.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -1,15 +1,16 @@ -hex -0 0 " " " /twsi" begin-package +dev /i2c@d4034000 \ TWSI6 +new-device + " accelerometer" name +" lis3lv02d" +compatible \ reg is set dynamically by probing to find which chip is present -\ my-address my-space encode-phys " reg" property \ This is for the stand-alone accelerometers LIS3DHTR and LIS33DETR \ We could call this just once in open if we had a TWSI parent node -: acc-reg@ ( reg# -- b ) 1 1 " smbus-out-in" $call-parent ; -: acc-reg! ( b reg# -- ) 2 0 " smbus-out-in" $call-parent ; +: acc-reg@ ( reg# -- b ) " byte@" $call-parent ; +: acc-reg! ( b reg# -- ) " byte!" $call-parent ; : ctl1! ( b -- ) h# 20 acc-reg! ; : ctl4! ( b -- ) h# 23 acc-reg! ; : accelerometer-on ( -- ) h# 47 ctl1! ; @@ -17,7 +18,7 @@ : wext ( b -- n ) dup h# 8000 and if h# ffff0000 or then ; : acceleration@ ( -- x y z ) begin h# 27 acc-reg@ h# 08 and until \ wait for data available - h# 0a8 1 6 " smbus-out-in" $call-parent ( xl xh yl yh zl zh ) + h# 0a8 1 6 " bytes-out-in" $call-parent ( xl xh yl yh zl zh ) bwjoin wext 5 >>a ( xl xh yl yh z ) >r ( xl xh yl yh r: z ) bwjoin wext 5 >>a ( xl xh y r: z ) @@ -142,7 +143,7 @@ ; : probe ( -- ) - h# 3a 6 " set-address" $call-parent + h# 1d " set-address" $call-parent d# 25,000 " set-bus-speed" $call-parent \ XO-1.75 B1 lacks pullups SCL SDA ['] accelerometer-on catch if \ The attempt to talk at the old address failed, so we assume the new chip @@ -150,7 +151,7 @@ d# 400,000 to bus-speed d# 50 to min-x d# 50 to min-y d# 50 to min-z d# 150 to max-x d# 150 to max-y d# 450 to max-z - h# 19 6 encode-phys " reg" property + h# 19 1 reg ['] lis3dhtr-selftest to lis-selftest else accelerometer-off @@ -159,12 +160,13 @@ d# 25,000 to bus-speed d# 20 to min-x d# 20 to min-y d# 20 to min-z d# 400 to max-x d# 400 to max-y d# 400 to max-z - h# 1d 6 encode-phys " reg" property + h# 1d 1 reg ['] lis33de-selftest to lis-selftest then ; -end-package +finish-device +device-end stand-init: Accelerometer " /accelerometer" " probe" execute-device-method drop Modified: cpu/arm/olpc/prefw.fth ============================================================================== --- cpu/arm/olpc/prefw.fth Fri Aug 31 00:10:06 2012 (r3254) +++ cpu/arm/olpc/prefw.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -232,6 +232,8 @@ fload ${BP}/cpu/arm/mmp2/twsi.fth fload ${BP}/cpu/arm/mmp2/mfpr.fth +fload ${BP}/cpu/arm/mmp2/twsi-package.fth + \ Uninstall the diag menu from the general user interface vector \ so exiting from emacs doesn't invoke the diag menu. ' quit to user-interface Modified: cpu/arm/olpc/rtc.fth ============================================================================== --- cpu/arm/olpc/rtc.fth Fri Aug 31 00:10:06 2012 (r3254) +++ cpu/arm/olpc/rtc.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -1,9 +1,10 @@ purpose: Driver for external IDT1388 RTC chip on XO-1.75 -0 0 " 68" " /i2c@d4031000" begin-package \ TWSI2 +dev /i2c@d4031000 \ TWSI2 +new-device " rtc" name " idt,idt1338-rtc" +compatible - my-address my-space 1 reg + h# 68 1 reg [ifdef] cl2-a1 : set-address ( -- ) @@ -91,4 +92,5 @@ close ; -end-package +finish-device +device-end Modified: cpu/arm/olpc/sound.fth ============================================================================== --- cpu/arm/olpc/sound.fth Fri Aug 31 00:10:06 2012 (r3254) +++ cpu/arm/olpc/sound.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -1,10 +1,16 @@ -0 0 " 1a" " /i2c@d4011000" begin-package \ TWSI1 +dev /i2c@d4011000 +new-device " audio-codec" name " realtek,alc5631" +compatible " realtek,rt5631" +compatible - my-address my-space 1 reg + h# 1a 1 reg " rt5631-hifi" " dai-name" string-property \ snd_soc_dai_link.codec_dai_name -end-package + : open ( -- true ) my-unit " set-address" $call-parent true ; + : close ( -- ) ; + : codec@ ( reg# -- w ) 1 2 " bytes-out-in" $call-parent swap bwjoin ; + : codec! ( w reg# -- ) >r wbsplit r> 3 " bytes-out" $call-parent ; +finish-device +device-end : +audio ( offset -- address ) [ifdef] mmp3 h# c0ffd000 [else] h# d42a0000 [then] + @@ -288,17 +294,15 @@ my-in-desc 3 la+ l@ to my-in-desc ; -[ifdef] cl2-a1 -: choose-smbus ( -- ) h# 18 1 set-twsi-target ; -[else] -: choose-smbus ( -- ) h# 1a 1 set-twsi-target ; -[then] - \ Reset is unconnected on current boards \ : audio-reset ( -- ) audio-reset-gpio# gpio-clr ; \ : audio-unreset ( -- ) audio-reset-gpio# gpio-set ; -: codec@ ( reg# -- w ) choose-smbus 1 2 twsi-get swap bwjoin ; -: codec! ( w reg# -- ) choose-smbus >r wbsplit r> 3 twsi-out ; +0 value codec-ih +: $call-codec ( ? -- ? ) codec-ih $call-method ; + +: codec@ ( reg# -- w ) " codec@" $call-codec ; +: codec! ( w reg# -- ) " codec!" $call-codec ; + : codec-i@ ( index# -- w ) h# 6a codec! h# 6c codec@ ; : codec-i! ( w index# -- ) h# 6a codec! h# 6c codec! ; @@ -635,12 +639,15 @@ sspa-base h# 100 " map-out" $call-parent 0 to adma-base 0 to sspa-base ; + 0 value open-count : open ( -- flag ) open-count 0= if my-unit h# 400 - h# 100 " map-in" $call-parent to adma-base my-unit h# 100 " map-in" $call-parent to sspa-base audio-clock-on if (close) false exit then + " /audio-codec" open-dev to codec-ih + codec-ih 0= if (close) false exit then init-codec then open-count 1+ to open-count @@ -649,6 +656,7 @@ : close ( -- ) open-count 1 = if uninstall-playback-alarm codec-off + codec-ih close-dev (close) then open-count 1- 0 max to open-count Modified: cpu/arm/olpc/twsi-i2c.fth ============================================================================== --- cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 00:10:06 2012 (r3254) +++ cpu/arm/olpc/twsi-i2c.fth Fri Aug 31 00:57:10 2012 (r3255) @@ -1,27 +1,6 @@ purpose: Device tree nodes for board-specific I2C buses implemented by TWSI hardware -: make-twsi-node ( baseadr clock# irq# muxed-irq? fast? unit# -- ) - root-device - new-device - " linux,unit#" integer-property - " i2c" name - " mrvl,mmp-twsi" +compatible ( baseadr clock# irq# muxed-irq? fast? ) - if 0 0 " mrvl,i2c-fast-mode" property then ( baseadr clock# irq# muxed-irq? ) - if - " /interrupt-controller/interrupt-controller@158" encode-phandle " interrupt-parent" property - then ( baseadr clock# irq# ) - " interrupts" integer-property ( baseadr clock# ) - " /apbc" encode-phandle rot encode-int encode+ " clocks" property - - h# 1000 reg ( ) - 1 " #address-cells" integer-property - 1 " #size-cells" integer-property - " : open true ; : close ;" evaluate - " : encode-unit ( phys.. -- str ) push-hex (u.) pop-base ;" evaluate - " : decode-unit ( str -- phys.. ) push-hex $number if 0 then pop-base ;" evaluate - finish-device - device-end -; +: make-twsi-node " ${BP}/cpu/arm/mmp2/twsi-methods.fth" included ; \ baseadr clk irq mux? fast? unit# h# d4011000 1 7 false true 2 make-twsi-node \ TWSI1 @@ -31,7 +10,6 @@ \ h# d4038000 d# 30 3 true true N make-twsi-node \ TWSI5 h# d4034000 d# 31 4 true true 4 make-twsi-node \ TWSI6 - [ifdef] soon-olpc-cl2 \ this breaks cl4-a1 boards, which ofw calls cl2. 0 0 " 30" " /i2c@d4033000" begin-package \ TWSI4 " touchscreen" name @@ -49,9 +27,3 @@ touch-int-gpio# 1 " dr-gpios" gpio-property end-package [then] - -0 0 " 19" " /i2c@d4034000" begin-package \ TWSI6 - " accelerometer" name - " lis3lv02d" +compatible - my-address my-space 1 reg -end-package

1 0

[commit] r3254 - cpu/arm/mmp3
by repository service 31 Aug '12

31 Aug '12

Author: pgf Date: Fri Aug 31 00:10:06 2012 New Revision: 3254 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3254 Log: thermal.fth: add device-tree support for thermal driver Modified: cpu/arm/mmp3/thermal.fth Modified: cpu/arm/mmp3/thermal.fth ============================================================================== --- cpu/arm/mmp3/thermal.fth Fri Aug 31 00:10:03 2012 (r3253) +++ cpu/arm/mmp3/thermal.fth Fri Aug 31 00:10:06 2012 (r3254) @@ -1,6 +1,30 @@ \ See license at end of file purpose: Driver for the MMP3 thermal sensor +0 0 " d403b000" " /" begin-package + " thermal" name + " marvell,mmp3-thermal" +compatible + my-address my-space h# 1000 reg + + d# 11 encode-int " interrupts" property + " /interrupt-controller/interrupt-controller@188" encode-phandle " interrupt-parent" property + + " /apbc" encode-phandle + 34 encode-int encode+ + " /apbc" encode-phandle encode+ + 36 encode-int encode+ + " /apbc" encode-phandle encode+ + 37 encode-int encode+ + " /apbc" encode-phandle encode+ + 38 encode-int encode+ " clocks" property + + " THSENS1" encode-string + " THSENS2" encode-string encode+ + " THSENS3" encode-string encode+ + " THSENS4" encode-string encode+ " clock-names" property + +end-package + \ FIXME: characterise the observations using an IR thermometer, \ because the datasheet and the registers manual disagree on \ interpretation of these gray code values.

1 0

[commit] r3253 - cpu/arm/mmp2
by repository service 31 Aug '12

31 Aug '12

Author: pgf Date: Fri Aug 31 00:10:03 2012 New Revision: 3253 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3253 Log: apbc.fth: add undocumented thermal clocks there are 4 sensors, each with their own clock Modified: cpu/arm/mmp2/apbc.fth Modified: cpu/arm/mmp2/apbc.fth ============================================================================== --- cpu/arm/mmp2/apbc.fth Fri Aug 31 00:05:00 2012 (r3252) +++ cpu/arm/mmp2/apbc.fth Fri Aug 31 00:10:03 2012 (r3253) @@ -45,6 +45,9 @@ " RIPC" +string \ 33 " THSENS1" +string \ 34 " CORESIGHT" +string \ 35 +" THSENS2" +string \ 36 +" THSENS3" +string \ 37 +" THSENS4" +string \ 38 " clock-output-names" property : +int encode-int encode+ ; @@ -87,6 +90,9 @@ h# 8c +int h# 77 +int h# 3 +int d# 26,000,000 +int \ 33 RIPC h# 90 +int h# 77 +int h# 3 +int d# 26,000,000 +int \ 34 THSENS1 h# 94 +int h# 7 +int h# 3 +int d# 26,000,000 +int \ 35 CORESIGHT +h# 98 +int h# 77 +int h# 3 +int d# 26,000,000 +int \ 36 THSENS2 +h# 9c +int h# 77 +int h# 3 +int d# 26,000,000 +int \ 37 THSENS3 +h# a0 +int h# 77 +int h# 3 +int d# 26,000,000 +int \ 38 THSENS4 " clock-enable-registers" property : on/off ( on? clock# -- )

1 0

[commit] r3252 - cpu/arm/mmp3
by repository service 31 Aug '12

31 Aug '12

Author: quozl Date: Fri Aug 31 00:05:00 2012 New Revision: 3252 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3252 Log: OLPC XO-4 - disable thermal watchdog until silicon fixed Modified: cpu/arm/mmp3/thermal.fth Modified: cpu/arm/mmp3/thermal.fth ============================================================================== --- cpu/arm/mmp3/thermal.fth Thu Aug 30 18:37:19 2012 (r3251) +++ cpu/arm/mmp3/thermal.fth Fri Aug 31 00:05:00 2012 (r3252) @@ -116,7 +116,7 @@ : init-thermal-sensor ( -- ) ts-clocks 0 ts-range-high - 0 ts-watchdog-enable + \ 0 ts-watchdog-enable \ WDT reset will cause system hang, per errata 472630 1 ts-range-low 2 ts-range-low 3 0 do i ts-auto-read loop @@ -205,21 +205,21 @@ ." THRSENS_WDTR_EN was not set" cr h# 200 mpmu@ 1 7 lshift or h# 200 mpmu! then - 0 ts@ + 1 ts@ 1 d# 27 lshift or \ set the lowrange bit h# 0020.0000 or \ set the autorun bit (undocumented) h# 0400.0000 or \ set the watchdog enable bit h# b h# f and d# 8 lshift or \ set the watchdog temperature (58-60.5C) b# 0101.1111.1010.0000.0000.1111.1111.0000 and \ always write zero to reserved bits - 0 ts! + 1 ts! ." thermal watchdog enabled" cr watch-thermal ; : force-thermal-watchdog h# 200 mpmu@ 1 7 lshift or h# 200 mpmu! \ thrsens_wdtr_en - h# 0c20.0000 h# 03.b000 io! \ lowrange, en_wdog, auto_read_en, wdog_tshld 26C + h# 0c20.0000 h# 03.b004 io! \ lowrange, en_wdog, auto_read_en, wdog_tshld 26C ;

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware