August 2011 - openfirmware - mail.coreboot.org

[commit] r2475 - cpu/x86/pc/olpc/via
by repository service Aug. 22, 2011

Aug. 22, 2011

Author: quozl Date: Mon Aug 22 12:20:17 2011 New Revision: 2475 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2475 Log: OLPC XO-1.5 - autorun-mfg-tests was not starting, regression introduced in svn 2447, fixed by copying code from the alex target equivalent. Modified: cpu/x86/pc/olpc/via/mfgtest.fth Modified: cpu/x86/pc/olpc/via/mfgtest.fth ============================================================================== --- cpu/x86/pc/olpc/via/mfgtest.fth Mon Aug 22 07:35:17 2011 (r2474) +++ cpu/x86/pc/olpc/via/mfgtest.fth Mon Aug 22 12:20:17 2011 (r2475) @@ -102,9 +102,10 @@ ; d# 15 value #mfgtests +d# 5 value #mfgcols : mfg-test-autorunner ( -- ) \ Unattended autorun of all tests - 5 #mfgtests + 5 ?do + #mfgcols #mfgtests + #mfgcols ?do i set-current-sq refresh d# 1000 ms @@ -114,7 +115,7 @@ ; : play-item ( -- ) \ Interactive autorun of all tests - 5 #mfgtests + 5 ?do + #mfgcols #mfgtests + #mfgcols ?do i set-current-sq refresh d# 200 0 do @@ -124,7 +125,8 @@ pass? 0= if unloop exit then loop all-tests-passed -; +; + : quit-item ( -- ) menu-done ; : cpu-item ( -- ) " /cpu" mfg-test-dev ; : battery-item ( -- ) " /battery" mfg-test-dev ; @@ -199,13 +201,17 @@ ['] switch-item ebook.icon 3 4 install-icon ; -: full-menu ( -- ) +: init-menu ( -- ) d# 4 to rows - d# 5 to cols + #mfgcols to cols d# 180 to sq-size d# 128 to image-size d# 128 to icon-size + cursor-off +; +: full-menu ( -- ) + init-menu olpc-menu-items " Run all non-interactive tests. (Press a key between tests to stop.)" @@ -219,9 +225,12 @@ ' noop to do-title : autorun-mfg-tests ( -- ) + init-menu + ['] run-menu behavior >r ['] mfg-test-autorunner to run-menu \ Run menu automatically true to diag-switch? ['] olpc-menu-items ['] nest-menu catch drop + r> to run-menu false to diag-switch? restore-scroller ;

1 0

[commit] r2474 - cpu/x86/pc/olpc/via
by repository service Aug. 21, 2011

Aug. 21, 2011

Author: quozl Date: Mon Aug 22 07:35:17 2011 New Revision: 2474 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2474 Log: Q3B17 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Mon Aug 22 07:30:38 2011 (r2473) +++ cpu/x86/pc/olpc/via/fw-version.fth Mon Aug 22 07:35:17 2011 (r2474) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR B -macro: FW_MINOR 16 +macro: FW_MINOR 17

1 0

[commit] r2473 - cpu/x86
by repository service Aug. 21, 2011

Aug. 21, 2011

Author: quozl Date: Mon Aug 22 07:30:38 2011 New Revision: 2473 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2473 Log: OLPC XO-1.5 - increase user-size, Q3B16 had only 764 bytes free. Modified: cpu/x86/target.fth Modified: cpu/x86/target.fth ============================================================================== --- cpu/x86/target.fth Fri Aug 19 07:03:43 2011 (r2472) +++ cpu/x86/target.fth Mon Aug 22 07:30:38 2011 (r2473) @@ -35,7 +35,7 @@ [ifdef] big-endian-t \ reloc code uses 300 in both cases. should we????? /n-t th 600 * constant user-size-t [else] -/n-t th c00 * constant user-size-t +/n-t th 1000 * constant user-size-t [then] [then] /n-t th 200 * constant ps-size-t

1 0

[commit] r2472 - cpu/x86/pc/olpc/via
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Fri Aug 19 07:03:43 2011 New Revision: 2472 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2472 Log: Q3B16 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Fri Aug 19 07:02:58 2011 (r2471) +++ cpu/x86/pc/olpc/via/fw-version.fth Fri Aug 19 07:03:43 2011 (r2472) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR B -macro: FW_MINOR 15 +macro: FW_MINOR 16

1 0

[commit] r2471 - in dev: . olpc/touchpad
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Fri Aug 19 07:02:58 2011 New Revision: 2471 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2471 Log: OLPC XO-1.5 - removed last vestiges of the use of remote-mode for mouse tracking. stream-mode is it from now on. Modified: dev/olpc/touchpad/syntpad.fth dev/olpc/touchpad/touchpad.fth dev/ps2mouse.fth Modified: dev/olpc/touchpad/syntpad.fth ============================================================================== --- dev/olpc/touchpad/syntpad.fth Thu Aug 18 23:13:25 2011 (r2470) +++ dev/olpc/touchpad/syntpad.fth Fri Aug 19 07:02:58 2011 (r2471) @@ -43,12 +43,6 @@ stream-mode ; -\ The normal mouse driver uses remote mode, but this device -\ doesn't support remote mode, so patch the mouse driver -\ "open" routine to substitute "start" for "remote-mode". - -patch start remote-mode open - 0 value hw-cursor? defer move-hw-cursor ( x y -- ) ' 2drop to move-hw-cursor Modified: dev/olpc/touchpad/touchpad.fth ============================================================================== --- dev/olpc/touchpad/touchpad.fth Thu Aug 18 23:13:25 2011 (r2470) +++ dev/olpc/touchpad/touchpad.fth Fri Aug 19 07:02:58 2011 (r2471) @@ -106,15 +106,14 @@ olpc-touchpad? if 0 mode ! advanced-mode stream-on else - remote-mode 3 mode ! + stream-mode 3 mode ! then ; -\ The normal mouse driver uses remote mode, but this device -\ doesn't support remote mode, so patch the mouse driver -\ "open" routine to substitute "noop" for "remote-mode". +\ Substitute "start" for "stream-mode" in the driver's open +\ method, so we can use advance-mode for the ALPS touchpad. -patch start remote-mode open +patch start stream-mode open \ I have been unable to get this to work. The response is always Modified: dev/ps2mouse.fth ============================================================================== --- dev/ps2mouse.fth Thu Aug 18 23:13:25 2011 (r2470) +++ dev/ps2mouse.fth Fri Aug 19 07:02:58 2011 (r2471) @@ -340,7 +340,7 @@ \ Reset the mouse and check the response codes h# ff read2 0<> swap h# aa <> or if false exit then - remote-mode + stream-mode then then

1 0

[commit] r2470 - cpu/x86/pc/olpc/via
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Thu Aug 18 23:13:25 2011 New Revision: 2470 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2470 Log: Q3B15 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Thu Aug 18 22:46:27 2011 (r2469) +++ cpu/x86/pc/olpc/via/fw-version.fth Thu Aug 18 23:13:25 2011 (r2470) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR B -macro: FW_MINOR 14 +macro: FW_MINOR 15

1 0

[commit] r2469 - cpu/arm
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Thu Aug 18 22:46:27 2011 New Revision: 2469 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2469 Log: ARM memory test - minor formatting change to align code with x86 version. Modified: cpu/arm/memtest.fth Modified: cpu/arm/memtest.fth ============================================================================== --- cpu/arm/memtest.fth Thu Aug 18 22:45:29 2011 (r2468) +++ cpu/arm/memtest.fth Thu Aug 18 22:46:27 2011 (r2469) @@ -89,6 +89,7 @@ 2dup afill mask @ masked-atest ; + code random-fill ( adr len data index polynomial -- ) ldmia sp!,{r1,r2,r3,r4} \ tos:poly r1:index r2:data r3:len r4:adr @@ -159,6 +160,7 @@ mov tos,#0 c; + \ Polynomials for maximal length LFSRs for different bit lengths \ The values come from the Wikipedia article for Linear Feedback Shift Register and from \ http://www.xilinx.com/support/documentation/application_notes/xapp052.pdf @@ -206,6 +208,7 @@ defer .lfsr-mem-error : (.lfsr-mem-error) ( adr len data index remain -- adr len data index remain ) push-hex + ??cr ." Error at address " 4 pick 2 pick la+ dup 8 u.r ( adr len data index remain err-adr ) ." - expected " 3 pick 8 u.r ( adr len data index remain err-adr ) ." got " l@ 8 u.r cr @@ -232,6 +235,7 @@ repeat ( r: polynomial ) r> drop ; + \ Not truly random - uses LFSR sequences : random-test ( adr len -- error? ) " Random address and data test" show-status

1 0

[commit] r2468 - dev/usb2/hcd
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Thu Aug 18 22:45:29 2011 New Revision: 2468 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2468 Log: USB hub - white-space fixup - no semantic change. Modified: dev/usb2/hcd/probehub.fth Modified: dev/usb2/hcd/probehub.fth ============================================================================== --- dev/usb2/hcd/probehub.fth Thu Aug 18 22:44:02 2011 (r2467) +++ dev/usb2/hcd/probehub.fth Thu Aug 18 22:45:29 2011 (r2468) @@ -229,7 +229,7 @@ ascii , left-parse-string ( list$' dev#$ ) base @ >r decimal ( list$' dev#$ ) $number if 0 then ( list$' port# ) - r> base ! ( list$ port# ) + r> base ! ( list$ port# ) (hub-selftest) if drop true exit then ( list$ ) repeat ( list$ ) 2drop ( )

1 0

[commit] r2467 - dev/isa
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Thu Aug 18 22:44:02 2011 New Revision: 2467 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2467 Log: Alex - tweaks to mem-uart-base code. Modified: dev/isa/diaguart.fth Modified: dev/isa/diaguart.fth ============================================================================== --- dev/isa/diaguart.fth Thu Aug 18 22:38:29 2011 (r2466) +++ dev/isa/diaguart.fth Thu Aug 18 22:44:02 2011 (r2467) @@ -2,14 +2,18 @@ purpose: Diagnostic (before console installation) access to serial port headerless +[ifdef] mem-uart-base +d# 64,000,000 constant uart-clock-frequency +[else] d# 1843200 constant uart-clock-frequency - -h# 3f8 value uart-base \ Virtual address of UART; perhaps overridden later +[then] [ifdef] mem-uart-base : uart@ ( reg# -- byte ) mem-uart-base + c@ ; \ Read from a UART register : uart! ( byte reg# -- ) mem-uart-base + c! ; \ Write to a UART register [else] +h# 3f8 value uart-base \ Virtual address of UART; perhaps overridden later + : uart@ ( reg# -- byte ) uart-base + pc@ ; \ Read from a UART register : uart! ( byte reg# -- ) uart-base + pc! ; \ Write to a UART register [then] @@ -25,13 +29,11 @@ ; : inituarts ( -- ) -[ifndef] mem-uart-base 3 3 uart! \ 8 bits, no parity 7 2 uart! \ Clear and enable FIFOs \ d# 38400 baud \ d# 9600 baud d# 115200 baud -[then] ; : ukey? ( -- flag ) 5 uart@ 1 and 0<> ; \ Test for rcv character

1 0

[commit] r2466 - cpu/x86 cpu/x86/pc/olpc/via ofw/fcode
by repository service Aug. 18, 2011

Aug. 18, 2011

Author: wmb Date: Thu Aug 18 22:38:29 2011 New Revision: 2466 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2466 Log: OLPC XO-1.5 - Changed the formatting of "test /memory" output to conform to the more-compact format used for XO-1.75. Also turned off the newly-added random-test so the test takes the same amount of time as before. Modified: cpu/x86/memtest.fth cpu/x86/pc/olpc/via/probemem.fth ofw/fcode/memtest.fth Modified: cpu/x86/memtest.fth ============================================================================== --- cpu/x86/memtest.fth Thu Aug 18 03:20:23 2011 (r2465) +++ cpu/x86/memtest.fth Thu Aug 18 22:38:29 2011 (r2466) @@ -13,7 +13,7 @@ ' type to show-status : bits-run ( adr len pattern -- fail? ) - dup .x ." pattern ... " + " " show-status dup .x ." pattern " 3dup lfill ( adr len pattern ) 3dup lskip ( adr len pattern residue ) dup if ( adr len pattern residue ) @@ -22,12 +22,11 @@ dup l@ .x ." at " .x cr ( ) true else ( adr len pattern residue ) - ." passed" cr ( adr len pattern residue ) + ." passed" ( adr len pattern residue ) 4drop false then ; : mem-bits-test ( membase memsize -- fail-status ) - " Data bits test" show-status 2dup h# aaaaaaaa bits-run if true exit then h# 55555555 bits-run ; @@ -63,7 +62,7 @@ ." FAILED - got " .x ." at " .x cr true else - ." passed" cr + ." passed" false then ; @@ -283,4 +282,4 @@ \ 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 \ No newline at end of file +\ LICENSE_END Modified: cpu/x86/pc/olpc/via/probemem.fth ============================================================================== --- cpu/x86/pc/olpc/via/probemem.fth Thu Aug 18 03:20:23 2011 (r2465) +++ cpu/x86/pc/olpc/via/probemem.fth Thu Aug 18 22:38:29 2011 (r2466) @@ -78,19 +78,34 @@ [ifndef] 8u.h : 8u.h ( n -- ) push-hex (.8) type pop-base ; [then] -: .chunk ( adr len -- ) ." Testing memory at: " swap 8u.h ." size " 8u.h cr ; +: .chunk ( adr len -- ) ." Testing address 0x" swap 8u.h ." length 0x" 8u.h cr ; + defer test-s3 ( -- error? ) ' false is test-s3 +false to do-random-test? \ The random test takes a long time + +: show-line ( adr len -- ) (cr type 3 spaces kill-line ; +' show-line to show-status + : selftest ( -- error? ) - " available" get-my-property if ." No available property" cr true exit then + " available" get-my-property if ( ) + ." No available property in memory node" cr ( ) + true exit ( -- true ) + then ( adr len ) ( adr len ) - begin ?dup while + begin dup while ( rem$ ) 2 decode-ints swap ( rem$ chunk$ ) 2dup .chunk ( rem$ chunk$ ) \ We maintain a 1-1 convenience mapping so explicit mapping is unnecessary - memory-test-suite if 2drop true exit then ( rem$ ) - repeat drop + memory-test-suite if ( rem$ ) + 2drop ( ) + " !!Failed!!" show-status cr ( ) + true exit ( -- true ) + else ( rem$ ) + " Succeeded" show-status cr ( rem$ ) + then ( rem$ ) + repeat 2drop ( ) - test-s3 + test-s3 ( ) ; device-end Modified: ofw/fcode/memtest.fth ============================================================================== --- ofw/fcode/memtest.fth Thu Aug 18 03:20:23 2011 (r2465) +++ ofw/fcode/memtest.fth Thu Aug 18 22:38:29 2011 (r2466) @@ -398,6 +398,7 @@ then ; headers +true value do-random-test? : memory-test-suite ( membase memsize -- status ) suite-failed off @@ -410,7 +411,9 @@ \ Don't do the mats test, because I'm not convinced that it is useful \ 2dup h# a5a5a5a5 mats-test ?suite-failed ( membase memsize ) [ifdef] random-test - 2dup random-test ?suite-failed ( membase memsize ) + do-random-test? if + 2dup random-test ?suite-failed ( membase memsize ) + then [then] then ( membase memsize ) 2drop

1 0