December 2009 - openfirmware - mail.coreboot.org

r1531 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info Dec. 2, 2009

Dec. 2, 2009

Author: wmb Date: 2009-12-02 13:13:46 +0100 (Wed, 02 Dec 2009) New Revision: 1531 Modified: cpu/x86/pc/olpc/via/versions.fth Log: Q3A17 Modified: cpu/x86/pc/olpc/via/versions.fth =================================================================== --- cpu/x86/pc/olpc/via/versions.fth 2009-12-02 07:45:08 UTC (rev 1530) +++ cpu/x86/pc/olpc/via/versions.fth 2009-12-02 12:13:46 UTC (rev 1531) @@ -2,15 +2,15 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 16f +macro: FW_MINOR 17 \ The EC microcode -macro: EC_VERSION 1_9_14 +macro: EC_VERSION 1_9_15 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary \ macro: GET_EC cp ~rsmith/olpc/ec/ec-code15/image/ecimage.bin ec.img -\ macro: GET_EC wget -q http://dev.laptop.org/pub/ec/ec_test.img -O ec.img +macro: GET_EC wget -q http://dev.laptop.org/pub/ec/ec_test.img -O ec.img macro: KEYS mpkeys \ macro: KEYS testkeys

1 0

r1530 - dev/hdaudio
by svn＠openfirmware.info Dec. 2, 2009

Dec. 2, 2009

Author: wmb Date: 2009-12-02 08:45:08 +0100 (Wed, 02 Dec 2009) New Revision: 1530 Modified: dev/hdaudio/core.fth Log: OLPC trac 9783 - fixed silence of test /audio . Modified: dev/hdaudio/core.fth =================================================================== --- dev/hdaudio/core.fth 2009-12-02 07:13:30 UTC (rev 1529) +++ dev/hdaudio/core.fth 2009-12-02 07:45:08 UTC (rev 1530) @@ -449,11 +449,12 @@ upsampling? if sound-buffer /sound-buffer dma-free then ; -: write-done ( -- ) +: (write-done) ( -- ) stop-stream free-bdl release-sound-buffer ; +: write-done ( -- ) wait-stream-done (write-done) ; : write ( adr len -- actual ) 4 to sd# audio-out install-playback-alarm true to playing? @@ -462,7 +463,7 @@ false value stop-lock : stop-sound ( -- ) true to stop-lock - playing? if write-done false to playing? then + playing? if (write-done) false to playing? then false to stop-lock ; @@ -471,7 +472,7 @@ stop-lock if exit then playing? if sd# 4 to sd# ( sd# ) - stream-done? if write-done false to playing? then ( sd# ) + stream-done? if (write-done) false to playing? then ( sd# ) to sd# ( ) then ;

1 0

r1529 - cpu/x86/pc/olpc/via dev/usb2/hcd/ehci
by svn＠openfirmware.info Dec. 2, 2009

Dec. 2, 2009

Author: wmb Date: 2009-12-02 08:13:30 +0100 (Wed, 02 Dec 2009) New Revision: 1529 Modified: cpu/x86/pc/olpc/via/fw.bth dev/usb2/hcd/ehci/qhtd.fth Log: OLPC trac 9423 and 9769 - added some debugging code to make the trac 9423 problem happen more often, and made it switchable (default off) so it doesn't affect normal users (per trac 9769) but can be turned on for testing. The command to switch on the "fail more often" code is "no-usb-delay". There is also a "null-fsdisk" command that can be used before "fs-update ..." to discard the fs-update output instead of writing it to SD - since fs-update is a very good way to trigger the USB problem. Modified: cpu/x86/pc/olpc/via/fw.bth =================================================================== --- cpu/x86/pc/olpc/via/fw.bth 2009-12-02 07:07:27 UTC (rev 1528) +++ cpu/x86/pc/olpc/via/fw.bth 2009-12-02 07:13:30 UTC (rev 1529) @@ -578,12 +578,8 @@ " TS" find-tag if ( adr len ) ?-null " DL" $= 0= ( in-factory? ) else ( ) - \ Missing TS tag is treated as in factory -[ifdef] Later - true ( in-factory? ) -[else] + \ Missing TS tag is treated as not factory mode false -[then] then ( in-factory? ) if ( ) " /prober /usb/ethernet disk:\boot\olpc.fth int:\boot\olpc.fth /xp ext:\boot\olpc.fth /wlan" @@ -707,6 +703,11 @@ \ " flash http:\\18.85.46.172\new.rom" eval ; : urom " flash! u:\new.rom" eval ; +: no-usb-delay " dev /usb false to delay? dend" evaluate ; +: null-fsdisk + " dev /null : write-blocks-start 3drop ; : write-blocks-finish ; dend" evaluate + " devalias fsdisk //null" evaluate +; \ Fancy battery charge logger. fload ${BP}/cpu/x86/pc/olpc/charge.fth Modified: dev/usb2/hcd/ehci/qhtd.fth =================================================================== --- dev/usb2/hcd/ehci/qhtd.fth 2009-12-02 07:07:27 UTC (rev 1528) +++ dev/usb2/hcd/ehci/qhtd.fth 2009-12-02 07:13:30 UTC (rev 1529) @@ -548,13 +548,17 @@ >hcqh-cur-pqtd le-l@ dup if qtd-done? then ( done? ) ; +true value delay? +: poll-delay ( -- ) d# 100 " us" evaluate ; : done? ( qh -- usberr ) + delay? if poll-delay then begin dup qh-done? 0= while ( qh ) 1 ms dup >qh-timeout ( qh timeout-adr ) dup l@ 1- ( qh timeout-adr timeout' ) dup rot l! ( qh timeout' ) 0= if ( qh ) +delay? 0= if cr 7 emit 7 emit ." TIMEOUT" cr debug-me then " Timeout" USB_ERR_TIMEOUT set-usb-error ( qh ) drop ( ) usb-error ( usberr )

1 0

r1528 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info Dec. 2, 2009

Dec. 2, 2009

Author: wmb Date: 2009-12-02 08:07:27 +0100 (Wed, 02 Dec 2009) New Revision: 1528 Modified: cpu/x86/pc/olpc/via/fsupdate.fth Log: via/fsupdate.fth - deleted unused (commented out) code for clarity. Modified: cpu/x86/pc/olpc/via/fsupdate.fth =================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth 2009-11-29 20:30:35 UTC (rev 1527) +++ cpu/x86/pc/olpc/via/fsupdate.fth 2009-12-02 07:07:27 UTC (rev 1528) @@ -8,59 +8,6 @@ push-hex $number pop-base " Bad number" ?nand-abort ; -0 [if] -0 value partition-map-offset -0 value next-partition-start - -0 value partition# -d# 256 constant /partition-entry -: partition-adr ( -- adr ) partition# /partition-entry * load-base + ; -: max-nand-offset ( -- n ) " usable-page-limit" $call-nand /nand-page * ; - -: add-partition ( name$ #eblocks -- ) - partition# " max#partitions" $call-nand >= abort" Partition map overflow" - - -rot ( #eblocks name$ ) - partition-adr /partition-entry erase ( #eblocks name$ ) - d# 15 min partition-adr swap move ( #eblocks ) - next-partition-start partition-adr d# 16 + l! ( #eblocks ) - - dup -1 = if ( #eblocks ) - drop max-nand-offset ( last-offset ) - next-partition-start - ( #bytes ) - else - /nand-block * ( #bytes ) - then ( #bytes ) - - dup partition-adr d# 24 + l! \ size ( #bytes ) - - next-partition-start + to next-partition-start ( ) - next-partition-start max-nand-offset > abort" NAND size overflow" - - partition# 1+ to partition# -; -: start-partition-map ( -- ) - load-base /nand-block h# ff fill - 0 to partition# -\ 0 to next-partition-start - " partition-map-page#" $call-nand /nand-page * to partition-map-offset - - partition-map-offset to next-partition-start - " FIS directory" 1 add-partition -; -: write-partition-map ( -- ) - partition-map-offset /nand-page / dup " erase-block" $call-nand - load-base swap nand-pages/block " write-pages" $call-nand - nand-pages/block <> abort" Can't write partition map" - " read-partmap" $call-nand -; - -0 value partition-page-offset -: map-eblock# ( block# -- block#' ) partition-page-offset + ; - -\ XXX need to check for overwriting existing partition map -[then] - 0 value last-eblock# : erase-eblock ( eblock# -- ) \ XXX @@ -100,21 +47,6 @@ vocabulary nand-commands also nand-commands definitions -0 [if] -: set-partition: ( "partitionid" -- ) \ partitionid is number or name - safe-parse-word " $set-partition" $call-nand abort" Nonexistent partition#" -; - -: partitions: ( "name" "#eblocks" ... -- ) - start-partition-map - begin parse-word dup while ( name$ ) - get-hex# add-partition ( ) - repeat ( null$ ) - 2drop - write-partition-map -; -[then] - : zblocks: ( "eblock-size" "#eblocks" ... -- ) get-hex# to /nand-block get-hex# to #image-eblocks

1 0