openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3627 - ofw/tokenizer
by repository service 25 Mar '13

25 Mar '13

Author: wmb Date: Mon Mar 25 23:56:58 2013 New Revision: 3627 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3627 Log: Tokenizer - added some aliases that are useful for debugging and testing. Modified: ofw/tokenizer/tokenize.fth Modified: ofw/tokenizer/tokenize.fth ============================================================================== --- ofw/tokenizer/tokenize.fth Mon Mar 25 23:55:11 2013 (r3626) +++ ofw/tokenizer/tokenize.fth Mon Mar 25 23:56:58 2013 (r3627) @@ -401,6 +401,11 @@ alias [then] [then] alias [else] [else] +\ These next three are useful for testing +alias interact interact +alias resume resume +alias bye bye + tokenizer definitions \ Init search path during execution

1 0

[commit] r3626 - ofw/fs/ext2fs
by repository service 25 Mar '13

25 Mar '13

Author: wmb Date: Mon Mar 25 23:55:11 2013 New Revision: 3626 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3626 Log: EXT2 filesystem - added sb-filetype? to test for yet another incompatible extension. Modified: ofw/fs/ext2fs/sb.fth Modified: ofw/fs/ext2fs/sb.fth ============================================================================== --- ofw/fs/ext2fs/sb.fth Mon Mar 25 23:53:09 2013 (r3625) +++ ofw/fs/ext2fs/sb.fth Mon Mar 25 23:55:11 2013 (r3626) @@ -54,6 +54,7 @@ : incompat-flags ( -- mask ) 24 +sbl ; : ro-flags ( -- mask ) 25 +sbl ; +: sb-filetype? ( -- flag ) incompat-flags 2 and 0<> ; : sb-64bit? ( -- flag ) incompat-flags h# 80 and 0<> ; : sb-extents? ( -- flag ) incompat-flags h# 40 and 0<> ; : sb-gd-csum? ( -- flag ) ro-flags h# 10 and 0<> ;

1 0

[commit] r3625 - dev/geode/ac97
by repository service 25 Mar '13

25 Mar '13

Author: wmb Date: Mon Mar 25 23:53:09 2013 New Revision: 3625 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3625 Log: Audio selftest - trivial refactoring to make interactive testing easier. Modified: dev/geode/ac97/selftest.fth Modified: dev/geode/ac97/selftest.fth ============================================================================== --- dev/geode/ac97/selftest.fth Mon Mar 25 23:50:45 2013 (r3624) +++ dev/geode/ac97/selftest.fth Mon Mar 25 23:53:09 2013 (r3625) @@ -148,14 +148,20 @@ d# -3 set-volume play ; +: alloc-test-buf ( -- ) + record-len la1+ " dma-alloc" $call-parent to record-base +; +: free-test-buf ( -- ) + record-base record-len la1+ " dma-free" $call-parent +; 0 value skip-sweep? : selftest ( -- error? ) open 0= if ." Failed to open /audio" cr true exit then wav-test - record-len la1+ " dma-alloc" $call-parent to record-base + alloc-test-buf skip-sweep? 0= if sweep-test then mic-test - record-base record-len la1+ " dma-free" $call-parent + free-test-buf close false ;

1 0

[commit] r3624 - cpu/arm
by repository service 25 Mar '13

25 Mar '13

Author: wmb Date: Mon Mar 25 23:50:45 2013 New Revision: 3624 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3624 Log: ARM - added mp-id@ word to get the processor ID in a multiprocessor. Modified: cpu/arm/scc.fth Modified: cpu/arm/scc.fth ============================================================================== --- cpu/arm/scc.fth Mon Mar 25 23:36:14 2013 (r3623) +++ cpu/arm/scc.fth Mon Mar 25 23:50:45 2013 (r3624) @@ -5,6 +5,7 @@ code scc-id@ ( -- n ) psh tos,sp mrc p15,0,tos,cr0,cr0,0 c; code cache-type@ ( -- n ) psh tos,sp mrc p15,0,tos,cr0,cr0,1 c; code tlb-type@ ( -- n ) psh tos,sp mrc p15,0,tos,cr0,cr0,3 c; +code mp-id@ ( -- n ) psh tos,sp mrc p15,0,tos,cr0,cr0,5 c; code control@ ( -- n ) psh tos,sp mrc p15,0,tos,cr1,cr0,0 c; code aux-control@ ( -- n ) psh tos,sp mrc p15,0,tos,cr1,cr0,1 c; code coprocessor-access@ ( -- n ) psh tos,sp mrc p15,0,tos,cr1,cr0,2 c;

1 0

[commit] r3623 - cpu/arm/olpc cpu/x86/pc/olpc/via dev/hdaudio forth/lib
by repository service 25 Mar '13

25 Mar '13

Author: wmb Date: Mon Mar 25 23:36:14 2013 New Revision: 3623 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3623 Log: OLPC XO-4 - improved the reliability of the audio test: a) Instead of the real random number generator, use a LFSR-based PRNG, with a polynomial that happens to give a good spectrum for acoustic testing with OLPC speakers. In addition to working around a unit- dependent problem with the MMP3's hardware RNG, this also speeds up the test because the LFSR is faster than the hardware RNG. b) Store 16-bit "random" values in the audio buffer instead of using 32-bit random numbers and hoping that the top and bottom halves are uncorrelated. This seems to give better decorrelation of left and right signals. c) Hard-reset the audio subsystem by powering off/on the audio island between the acoustic and loopback tests, thus making the loopback test more repeatable. Added: forth/lib/lfsr-memtest.fth Modified: cpu/arm/olpc/build-fw.fth cpu/arm/olpc/sound.fth cpu/x86/pc/olpc/via/fw.bth dev/hdaudio/noiseburst.fth dev/hdaudio/test.fth forth/lib/lfsr.fth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Thu Mar 21 07:33:20 2013 (r3622) +++ cpu/arm/olpc/build-fw.fth Mon Mar 25 23:36:14 2013 (r3623) @@ -741,6 +741,15 @@ fload ${BP}/cpu/arm/saverom.fth \ Save the dictionary for standalone startup +fload ${BP}/forth/lib/lfsr.fth +0 value lfsr-state +: init-audio-noise ( -- ) + random-long to lfsr-state + \ Use a polynomial with a 32-bit period + lfsr-polynomials d# 32 na+ @ to lfsr-poly +; +: audio-noise ( -- n ) lfsr-state lfsr-step dup to lfsr-state ; + fload ${BP}/dev/hdaudio/noiseburst.fth \ audio-test support package \ Because visible doesn't work sometimes when calling back from Linux Modified: cpu/arm/olpc/sound.fth ============================================================================== --- cpu/arm/olpc/sound.fth Thu Mar 21 07:33:20 2013 (r3622) +++ cpu/arm/olpc/sound.fth Mon Mar 25 23:36:14 2013 (r3623) @@ -182,6 +182,14 @@ then false ; +\ This is a grotesque workaround for a hardware problem. The audio +\ subsystem (SSPA + ADMA) works reasonably reliably right after the +\ audio island is powered on, but subsequent tries tend to get +\ confused about which channel is which, and possibly about the +\ initial SSPA FIFO contents. Resetting between test phases makes +\ the test work more reliably. Attempts to get help from the vendor, +\ over a long period of time, were unsuccessful. +: reset-audio ( -- ) audio-clock-off d# 50 ms audio-clock-on drop ; : reset-rx ( -- ) h# 8000.0002 h# 0c sspa! ; Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Thu Mar 21 07:33:20 2013 (r3622) +++ cpu/x86/pc/olpc/via/fw.bth Mon Mar 25 23:36:14 2013 (r3623) @@ -479,6 +479,8 @@ fload ${BP}/forth/lib/selstr.fth fload ${BP}/cpu/x86/pc/olpc/via/padlock.fth \ Via security engine +alias init-audio-noise noop +alias audio-noise random-long fload ${BP}/dev/hdaudio/noiseburst.fth \ audio-test support package fload ${BP}/ofw/inet/loadtcp.fth Modified: dev/hdaudio/noiseburst.fth ============================================================================== --- dev/hdaudio/noiseburst.fth Thu Mar 21 07:33:20 2013 (r3622) +++ dev/hdaudio/noiseburst.fth Mon Mar 25 23:36:14 2013 (r3623) @@ -620,14 +620,18 @@ [then] : prepare-signal ( -- out-adr, len in-adr,len ) + init-audio-noise + \ Doing the noise 16 bits at a time does a better job + \ of decorrelating the channels compared to storing + \ a 32-bit "random" number [ifdef] debug-analyzer? debug-analyzer? if pb /pb d# 1000 d# 48000 make-2tones else - pb /pb bounds do random-long i l! /l +loop + pb /pb bounds do audio-noise i w! /w +loop then [else] - pb /pb bounds do random-long i l! /l +loop + pb /pb bounds do audio-noise i w! /w +loop [then] pb /pb -stereo-wmean pb wa1+ /pb -stereo-wmean Modified: dev/hdaudio/test.fth ============================================================================== --- dev/hdaudio/test.fth Thu Mar 21 07:33:20 2013 (r3622) +++ dev/hdaudio/test.fth Mon Mar 25 23:36:14 2013 (r3623) @@ -227,6 +227,7 @@ : automatic-test ( -- ) analysis-parameters " set-analysis-parameters" $call-analyzer acoustic-test + [ifdef] reset-audio reset-audio [then] loopback-test ; : selftest ( -- error? ) Added: forth/lib/lfsr-memtest.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ forth/lib/lfsr-memtest.fth Mon Mar 25 23:36:14 2013 (r3623) @@ -0,0 +1,143 @@ +\ See license at end of file +purpose: Linear feedback shift register memory tests + +[ifdef] arm-assembler +code lfsr-fill ( adr seed polynomial -- adr' ) + \ tos:polynomial + ldmia sp!,{r0,r1} \ r0:seed r1:adr + mov r2,r0 \ r2:lfsr + begin + str r2,[r1],#4 + movs r2,r2,lsr #1 + eorcs r2,r2,tos + cmp r2,r0 + = until + mov tos,r1 +c; +code random-fill ( adr len data index polynomial -- ) + ldmia sp!,{r1,r2,r3,r4} \ tos:poly r1:index r2:data r3:len r4:adr + + movs r3,r3,lsr #2 \ Convert to longword count + nxteq + + sub r0,r3,#1 \ r0:remaining count + + \ r3:address-lfsr r4:data-lfsr r5:data-poly + set r5,#0x80200003 \ 32-bit polynomial + + begin + \ Compute new data value with an LFSR step + movs r2,r2,lsr #1 + eorcs r2,r2,r5 + + \ Compute new address index, discarding values >= len + begin + movs r1,r1,lsr #1 + eorcs r1,r1,tos + cmp r1,r3 + u< until + + \ Write the "random" value to the "random" address (adr[index]) + str r2,[r4,r1,lsl #2] + + decs r0,#1 + 0= until + + pop tos,sp +c; +code random-check ( adr len data index remain polynomial -- false | adr len data index remain true ) + ldmia sp!,{r0,r1,r2,r3,r4} \ tos:poly r0:remain r1:index r2:data r3:len r4:adr + + cmp r0,#0 + moveq tos,#0 \ Return false + nxteq + + mov r7,r3,lsr #2 \ Convert to longword count + + set r5,#0x80200003 \ 32-bit polynomial + + begin + \ Compute new data value with an LFSR step + movs r2,r2,lsr #1 + eorcs r2,r2,r5 + + \ Compute new address index, discarding values >= len + begin + movs r1,r1,lsr #1 + eorcs r1,r1,tos + cmp r1,r7 + u< until + + \ Read the value at the "random" address (adr[index]) + ldr r6,[r4,r1,lsl #2] + + \ Compare it to the calculated value + cmp r6,r2 + + decne r0,#1 + stmnedb sp!,{r0,r1,r2,r3,r4} \ Push results + mvnne tos,#0 \ True on top of stack + nxtne + + decs r0,#1 + 0= until + + mov tos,#0 +c; +[then] +: round-up-log2 ( n -- log2 ) + dup log2 ( n log2 ) + tuck 1 swap lshift ( log2 n 2^log2 ) + > - ( log2' ) +; + +defer .lfsr-mem-error +: (.lfsr-mem-error) ( adr len data index remain -- adr len data index remain ) + push-hex + ." 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 + pop-base +; +' (.lfsr-mem-error) to .lfsr-mem-error + +: random-test ( adr len -- ) + dup /l <= if 2drop exit then ( adr len #bits ) + dup /l / round-up-log2 ( adr len #bits ) + polynomials swap la+ l@ ( adr len polynomial ) + + 3dup 1 1 rot random-fill ( adr len polynomial ) + + >r ( adr len r: polynomial ) + 1 1 third /l / 1- ( adr len data index remain r: polynomial ) + begin ( adr len data index remain r: polynomial ) + r@ random-check ( false | adr len data index remain true r: polynomial ) + while ( adr len data index remain r: polynomial ) + .lfsr-mem-error ( adr len data index remain r: polynomial ) + repeat ( r: polynomial ) + r> drop +; + +\ LICENSE_BEGIN +\ Copyright (c) 2010 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: forth/lib/lfsr.fth ============================================================================== --- forth/lib/lfsr.fth Thu Mar 21 07:33:20 2013 (r3622) +++ forth/lib/lfsr.fth Mon Mar 25 23:36:14 2013 (r3623) @@ -1,12 +1,7 @@ \ See license at end of file purpose: Linear feedback shift register code and related memory tests -0 value lfsr-state - 0 value lfsr-poly -: lfsr-step ( state -- state' ) - dup 2/ swap 1 and if lfsr-poly xor then -; [ifdef] arm-assembler code lfsr-step ( state -- state' ) @@ -17,89 +12,6 @@ eor tos,tos,r0 then c; -code lfsr-fill ( adr seed polynomial -- adr' ) - \ tos:polynomial - ldmia sp!,{r0,r1} \ r0:seed r1:adr - mov r2,r0 \ r2:lfsr - begin - str r2,[r1],#4 - movs r2,r2,lsr #1 - eorcs r2,r2,tos - cmp r2,r0 - = until - mov tos,r1 -c; -code random-fill ( adr len data index polynomial -- ) - ldmia sp!,{r1,r2,r3,r4} \ tos:poly r1:index r2:data r3:len r4:adr - - movs r3,r3,lsr #2 \ Convert to longword count - nxteq - - sub r0,r3,#1 \ r0:remaining count - - \ r3:address-lfsr r4:data-lfsr r5:data-poly - set r5,#0x80200003 \ 32-bit polynomial - - begin - \ Compute new data value with an LFSR step - movs r2,r2,lsr #1 - eorcs r2,r2,r5 - - \ Compute new address index, discarding values >= len - begin - movs r1,r1,lsr #1 - eorcs r1,r1,tos - cmp r1,r3 - u< until - - \ Write the "random" value to the "random" address (adr[index]) - str r2,[r4,r1,lsl #2] - - decs r0,#1 - 0= until - - pop tos,sp -c; -code random-check ( adr len data index remain polynomial -- false | adr len data index remain true ) - ldmia sp!,{r0,r1,r2,r3,r4} \ tos:poly r0:remain r1:index r2:data r3:len r4:adr - - cmp r0,#0 - moveq tos,#0 \ Return false - nxteq - - mov r7,r3,lsr #2 \ Convert to longword count - - set r5,#0x80200003 \ 32-bit polynomial - - begin - \ Compute new data value with an LFSR step - movs r2,r2,lsr #1 - eorcs r2,r2,r5 - - \ Compute new address index, discarding values >= len - begin - movs r1,r1,lsr #1 - eorcs r1,r1,tos - cmp r1,r7 - u< until - - \ Read the value at the "random" address (adr[index]) - ldr r6,[r4,r1,lsl #2] - - \ Compare it to the calculated value - cmp r6,r2 - - decne r0,#1 - stmnedb sp!,{r0,r1,r2,r3,r4} \ Push results - mvnne tos,#0 \ True on top of stack - nxtne - - decs r0,#1 - 0= until - - mov tos,#0 -c; -[then] 0 [if] \ This is for testing the period of various polynomials code lfsr-period ( polynomial -- period ) \ tos:polynomial @@ -127,6 +39,11 @@ ax push c; [then] +[ifndef] lfsr-step +: lfsr-step ( state -- state' ) + dup 2/ swap 1 and if lfsr-poly xor then +; +[then] 0 [if] \ Given a list of bit numbers for the polynomial taps, compute the mask value @@ -146,7 +63,8 @@ \ 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 -create polynomials \ #bits period +create lfsr-polynomials + \ #bits period h# 0 , \ 0 0 h# 1 , \ 1 1 h# 3 , \ 2 3 @@ -181,38 +99,6 @@ h# 48000000 , \ 31 7fffffff h# 80200003 , \ 32 ffffffff -: round-up-log2 ( n -- log2 ) - dup log2 ( n log2 ) - tuck 1 swap lshift ( log2 n 2^log2 ) - > - ( log2' ) -; - -defer .lfsr-mem-error -: (.lfsr-mem-error) ( adr len data index remain -- adr len data index remain ) - push-hex - ." 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 - pop-base -; -' (.lfsr-mem-error) to .lfsr-mem-error -: random-test ( adr len -- ) - dup /l <= if 2drop exit then ( adr len #bits ) - dup /l / round-up-log2 ( adr len #bits ) - polynomials swap la+ l@ ( adr len polynomial ) - - 3dup 1 1 rot random-fill ( adr len polynomial ) - - >r ( adr len r: polynomial ) - 1 1 third /l / 1- ( adr len data index remain r: polynomial ) - begin ( adr len data index remain r: polynomial ) - r@ random-check ( false | adr len data index remain true r: polynomial ) - while ( adr len data index remain r: polynomial ) - .lfsr-mem-error ( adr len data index remain r: polynomial ) - repeat ( r: polynomial ) - r> drop -; - \ LICENSE_BEGIN \ Copyright (c) 2010 FirmWorks \

1 0

[commit] r3622 - cpu/x86/pc/olpc/via
by repository service 21 Mar '13

21 Mar '13

Author: quozl Date: Thu Mar 21 07:33:20 2013 New Revision: 3622 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3622 Log: OLPC XO-1.5 - SPI FLASH recovery tools, add support for XO-4 as target. Modified: cpu/x86/pc/olpc/via/recover.fth Modified: cpu/x86/pc/olpc/via/recover.fth ============================================================================== --- cpu/x86/pc/olpc/via/recover.fth Wed Mar 20 01:39:58 2013 (r3621) +++ cpu/x86/pc/olpc/via/recover.fth Thu Mar 21 07:33:20 2013 (r3622) @@ -32,3 +32,13 @@ flash-write-disable use-local-ec ; + +: use-layout-xo-4 + h# 20.0000 to /flash + /flash h# 1.0000 - to mfg-data-offset + /flash to mfg-data-end-offset + mfg-data-offset h# 30 - to crc-offset + mfg-data-offset h# 40 - to signature-offset + " "(03)"CL4" machine-signature swap cmove + \ ." WARNING: do not use local SPI FLASH access without reboot" cr +;

1 0

[commit] r3621 - cpu/x86/pc/olpc/via
by repository service 20 Mar '13

20 Mar '13

Author: quozl Date: Wed Mar 20 01:39:58 2013 New Revision: 3621 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3621 Log: OLPC XO-1.5 - SPI FLASH recovery tools, add new command excavate, for reading the target SPI FLASH and writing to a file, for forensic analysis of a target. Modified: cpu/x86/pc/olpc/via/recover.fth Modified: cpu/x86/pc/olpc/via/recover.fth ============================================================================== --- cpu/x86/pc/olpc/via/recover.fth Tue Mar 19 05:24:05 2013 (r3620) +++ cpu/x86/pc/olpc/via/recover.fth Wed Mar 20 01:39:58 2013 (r3621) @@ -7,6 +7,7 @@ \ The commands are: \ ok clone \ Copies this machine's FLASH to the dead one \ ok recover disk:\file.rom \ Copies a ROM file to the dead one +\ ok excavate disk:\the.rom \ Reads the dead ROM and writes to a file : (tethered-flash) ( -- ) use-bb-spi @@ -23,3 +24,11 @@ ; : recover ( "filename" -- ) get-file (tethered-flash) ; + +: excavate ( "filename" -- ) + use-bb-spi + flash-write-enable + read-flash + flash-write-disable + use-local-ec +;

1 0

[commit] r3620 - cpu/arm/olpc
by repository service 19 Mar '13

19 Mar '13

Author: quozl Date: Tue Mar 19 05:24:05 2013 New Revision: 3620 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3620 Log: OLPC XO-4 - touchscreen, remove timeout return stack trace Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Sat Mar 16 01:40:21 2013 (r3619) +++ cpu/arm/olpc/nn-touchscreen.fth Tue Mar 19 05:24:05 2013 (r3620) @@ -116,7 +116,7 @@ until ( id limit ) drop ( id ) ." timeout waiting for " 2u.x cr ( ) - r> rstrace >r + \ r> rstrace >r pbuf /pbuf erase ;

1 0

[commit] r3619 - cpu/x86/pc/olpc
by repository service 16 Mar '13

16 Mar '13

Author: quozl Date: Sat Mar 16 01:40:21 2013 New Revision: 3619 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3619 Log: Q2F16 Modified: cpu/x86/pc/olpc/versions.fth Modified: cpu/x86/pc/olpc/versions.fth ============================================================================== --- cpu/x86/pc/olpc/versions.fth Sat Mar 16 01:27:46 2013 (r3618) +++ cpu/x86/pc/olpc/versions.fth Sat Mar 16 01:40:21 2013 (r3619) @@ -2,7 +2,7 @@ \ The overall firmware revision macro: FW_MAJOR F -macro: FW_MINOR 15 +macro: FW_MINOR 16 \ Create a 2-character build/fw-suffix file to personalize your test builds " fw-suffix" $file-exists? [if]

1 0

[commit] r3618 - in cpu/x86/pc/olpc: . via
by repository service 16 Mar '13

16 Mar '13

Author: quozl Date: Sat Mar 16 01:27:46 2013 New Revision: 3618 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3618 Log: OLPC XO-1.5 - add serial terminal Modified: cpu/x86/pc/olpc/terminal.fth cpu/x86/pc/olpc/via/fw.bth Modified: cpu/x86/pc/olpc/terminal.fth ============================================================================== --- cpu/x86/pc/olpc/terminal.fth Sat Mar 16 01:08:03 2013 (r3617) +++ cpu/x86/pc/olpc/terminal.fth Sat Mar 16 01:27:46 2013 (r3618) @@ -182,6 +182,20 @@ until ( adr len' ) ; +\ +\ FIXME: XO-1, seen only once, ukey? did stop returning true, and ukey +\ therefore hung waiting for ukey? +\ +\ condition was cleared by 0 uart@ despite ukey? returning false +\ +\ when it occurs again, try looking at fifo error summary bit, and +\ line status reg, and consider comment from 16550.fth: +\ +\ "I have seen conditions where a UART will report, via an interrupt, +\ that a character is available, but the line status register won't +\ report it." +\ + : use-uart uart-console-off ['] uart-open to serial-open @@ -200,10 +214,13 @@ : usb-open ( -- ) " /usb/serial" open-dev ?dup if to serial-ih exit then -[ifdef] olpc-cl1 - " /usb@f,4/serial" open-dev ?dup if to serial-ih exit then - " /usb@f,5/serial" open-dev ?dup if to serial-ih exit then -[then] + [ifdef] olpc-cl1 + \ XO-1.5 + " /usb@10/serial" open-dev ?dup if to serial-ih exit then + \ XO-1 + " /usb@f,4/serial" open-dev ?dup if to serial-ih exit then + " /usb@f,5/serial" open-dev ?dup if to serial-ih exit then + [then] true abort" can't open USB serial adapter" ; Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Sat Mar 16 01:08:03 2013 (r3617) +++ cpu/x86/pc/olpc/via/fw.bth Sat Mar 16 01:27:46 2013 (r3618) @@ -743,6 +743,7 @@ fload ${BP}/cpu/x86/pc/olpc/charge.fth \ Fancy battery charge logger fload ${BP}/cpu/x86/pc/olpc/diskspeed.fth \ Mass storage speed test +fload ${BP}/cpu/x86/pc/olpc/terminal.fth \ Serial terminal emulator fload ${BP}/cpu/x86/pc/olpc/apt.fth \ Common developer utilities tag-file @ fclose tag-file off

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware