openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3003 - cpu/arm/olpc
by repository service 07 Jun '12

07 Jun '12

Author: quozl Date: Thu Jun 7 02:04:14 2012 New Revision: 3003 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3003 Log: OLPC XO-1.75 - trim the null properly, #11848 Modified: cpu/arm/olpc/banner.fth Modified: cpu/arm/olpc/banner.fth ============================================================================== --- cpu/arm/olpc/banner.fth Thu Jun 7 01:49:48 2012 (r3002) +++ cpu/arm/olpc/banner.fth Thu Jun 7 02:04:14 2012 (r3003) @@ -135,7 +135,7 @@ ; : check-tags ( -- ) - " TS" find-tag ?-null if " SHIP" $= if exit then + " TS" find-tag if ?-null " SHIP" $= if exit then red-letters ." WARNING! TS tag is not SHIP" cr cancel

1 0

[commit] r3002 - cpu/arm/olpc
by repository service 06 Jun '12

06 Jun '12

Author: quozl Date: Thu Jun 7 01:49:48 2012 New Revision: 3002 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3002 Log: OLPC XO-1.75 - trim the null, #11848 Modified: cpu/arm/olpc/banner.fth Modified: cpu/arm/olpc/banner.fth ============================================================================== --- cpu/arm/olpc/banner.fth Thu Jun 7 01:38:42 2012 (r3001) +++ cpu/arm/olpc/banner.fth Thu Jun 7 01:49:48 2012 (r3002) @@ -135,7 +135,7 @@ ; : check-tags ( -- ) - " TS" find-tag if " SHIP" $= if exit then + " TS" find-tag ?-null if " SHIP" $= if exit then red-letters ." WARNING! TS tag is not SHIP" cr cancel

1 0

[commit] r3001 - cpu/arm/olpc/1.75
by repository service 06 Jun '12

06 Jun '12

Author: quozl Date: Thu Jun 7 01:38:42 2012 New Revision: 3001 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3001 Log: Q4D16 Modified: cpu/arm/olpc/1.75/fw-version.fth Modified: cpu/arm/olpc/1.75/fw-version.fth ============================================================================== --- cpu/arm/olpc/1.75/fw-version.fth Wed Jun 6 12:03:10 2012 (r3000) +++ cpu/arm/olpc/1.75/fw-version.fth Thu Jun 7 01:38:42 2012 (r3001) @@ -1,4 +1,4 @@ \ The overall firmware revision macro: FW_PREFIX Q4 macro: FW_MAJOR D -macro: FW_MINOR 15 +macro: FW_MINOR 16

1 0

[commit] r3000 - cpu/arm/olpc
by repository service 06 Jun '12

06 Jun '12

Author: quozl Date: Wed Jun 6 12:03:10 2012 New Revision: 3000 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3000 Log: OLPC XO-1.75 - warn on boot if TS tag is not SHIP, for boards such as spares that do not pass through final testing at factory, #11848 Modified: cpu/arm/olpc/banner.fth Modified: cpu/arm/olpc/banner.fth ============================================================================== --- cpu/arm/olpc/banner.fth Mon Jun 4 10:53:17 2012 (r2999) +++ cpu/arm/olpc/banner.fth Wed Jun 6 12:03:10 2012 (r3000) @@ -134,12 +134,21 @@ .d type ." memory" ( ) ; +: check-tags ( -- ) + " TS" find-tag if " SHIP" $= if exit then + red-letters + ." WARNING! TS tag is not SHIP" cr + cancel + then +; + : (xbanner-basics) ( -- ) ?spaces cpu-model type ." , " .cpu-speed ." , " .memory-brief ." , " .storage ." , S/N " " SN" find-tag if type else ." Unknown" then cr ?spaces .rom ." " .ec ." " .clock check-internal-partitions + check-tags ; ' (xbanner-basics) to banner-basics

1 0

[commit] r2999 - cpu/x86/pc/olpc/via
by repository service 04 Jun '12

04 Jun '12

Author: quozl Date: Mon Jun 4 10:53:17 2012 New Revision: 2999 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2999 Log: OLPC - keep menu active and display results after all tests completed. #11847 Modified: cpu/x86/pc/olpc/via/mfgtest.fth Modified: cpu/x86/pc/olpc/via/mfgtest.fth ============================================================================== --- cpu/x86/pc/olpc/via/mfgtest.fth Sat Jun 2 12:02:39 2012 (r2998) +++ cpu/x86/pc/olpc/via/mfgtest.fth Mon Jun 4 10:53:17 2012 (r2999) @@ -49,7 +49,7 @@ again ; -: mfg-test-result ( error? -- ) +: mfg-test-result ( return-code true | false -- ) if ( return-code ) ?dup if ( return-code ) ??cr ." Selftest failed. Return code = " .d cr @@ -77,41 +77,26 @@ cursor-off scroller-off gui-alerts refresh flush-keyboard ; -: (mfg-test-dev) ( $ -- error? ) +: (mfg-test-dev) ( $ -- return-code true | false ) 2dup locate-device if ( $ ) ." Can't find device node " type cr exit ( -- ) else ( $ phandle ) drop ( $ ) then ( $ ) - " selftest" execute-device-method ( error? ) + " selftest" execute-device-method ( return-code true | false ) ; : mfg-test-dev ( $ -- ) scroller-on ??cr ." Testing " 2dup type cr ( $ ) - (mfg-test-dev) + (mfg-test-dev) ( return-code true | false ) mfg-test-result ; : gfx-test-dev ( $ -- ) - (mfg-test-dev) - scroller-on + (mfg-test-dev) ( return-code true | false ) + scroller-on ( return-code true | false ) mfg-test-result ; -: overall ( -- ) - restore-scroller-bg - clear-screen - overall-fail? if - ." Some tests failed." cr cr cr - red-screen - else - ." All automatic tests passed successfully." cr cr cr - green-screen - then - wait-return - cursor-off scroller-off gui-alerts refresh - flush-keyboard -; - 0 value #mfgtests 0 value #mfgcols 0 value #mfgrows @@ -158,8 +143,13 @@ run-menu-item stop? if unloop exit then loop - 0 3 rc>sq set-current-sq \ quit-item - overall + overall-fail? if + 0 1 \ play-item + else + 0 3 \ quit-item + then + set-default-selection + refresh ; false value quit? @@ -231,8 +221,7 @@ play-item stop? if menu-interact exit then quit? if exit then - 0 3 rc>sq set-current-sq \ quit-item - pause-to-interact + menu-interact ; : gamekey-auto-menu ( -- )

1 0

[commit] r2998 - cpu/x86/pc/olpc/via
by repository service 02 Jun '12

02 Jun '12

Author: quozl Date: Sat Jun 2 12:02:39 2012 New Revision: 2998 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2998 Log: OLPC - test menu, automatic tests; maintain an overall failure state and report it at the end, handle any escape request from the hold message, make the quit item the default afterwards, and provide the timed menu again. #11847. Modified: cpu/x86/pc/olpc/via/mfgtest.fth Modified: cpu/x86/pc/olpc/via/mfgtest.fth ============================================================================== --- cpu/x86/pc/olpc/via/mfgtest.fth Fri Jun 1 20:57:38 2012 (r2997) +++ cpu/x86/pc/olpc/via/mfgtest.fth Sat Jun 2 12:02:39 2012 (r2998) @@ -31,6 +31,8 @@ warning on 0 value pass? +0 value overall-fail? +0 value stop? : mfg-wait-return ( -- ) ." ... Press any key to proceed ... " @@ -52,7 +54,7 @@ ?dup if ( return-code ) ??cr ." Selftest failed. Return code = " .d cr mfg-color-red sq-border! - false to pass? + false to pass? true to overall-fail? red-screen flush-keyboard mfg-wait-return @@ -62,12 +64,12 @@ cancel mfg-color-green sq-border! true to pass? - d# 2000 hold-message drop + d# 2000 hold-message if true to stop? then then else ??cr ." Selftest failed due to abort" cr mfg-color-red sq-border! - false to pass? + false to pass? true to overall-fail? red-screen flush-keyboard mfg-wait-return @@ -95,11 +97,16 @@ mfg-test-result ; -: all-tests-passed ( -- ) +: overall ( -- ) restore-scroller-bg clear-screen - ." All automatic tests passed successfully." cr cr cr - green-screen + overall-fail? if + ." Some tests failed." cr cr cr + red-screen + else + ." All automatic tests passed successfully." cr cr cr + green-screen + then wait-return cursor-off scroller-off gui-alerts refresh flush-keyboard @@ -140,6 +147,8 @@ icon: quit.icon rom:quit.565 : play-item ( -- ) \ Interactive autorun of all tests + false to overall-fail? + false to stop? #mfgcols #mfgtests + #mfgcols ?do i set-current-sq refresh @@ -147,12 +156,14 @@ d# 10 ms key? if unloop unloop exit then loop run-menu-item - pass? 0= if unloop exit then + stop? if unloop exit then loop - all-tests-passed + 0 3 rc>sq set-current-sq \ quit-item + overall ; -: quit-item ( -- ) menu-done ; +false value quit? +: quit-item ( -- ) true to quit? menu-done ; : init-menu ( -- ) ?open-screen ?open-pointer @@ -196,8 +207,8 @@ restore-scroller-bg ; -: autorun-from-gamekey ( -- ) - default-selection set-current-sq refresh +: pause-to-interact + refresh (cr kill-line 0 d# 30 do i d# 10 mod 0= if (cr i d# 10 / .d then @@ -205,12 +216,25 @@ key? or if ( ) drop ( ) menu-interact ( ) + true to quit? unloop exit ( -- ) then ( ) d# 100 ms ( ) -1 +loop +; + +: autorun-from-gamekey ( -- ) + false to quit? + default-selection set-current-sq + pause-to-interact + quit? if exit then play-item + stop? if menu-interact exit then + quit? if exit then + 0 3 rc>sq set-current-sq \ quit-item + pause-to-interact ; + : gamekey-auto-menu ( -- ) ['] run-menu behavior >r ['] autorun-from-gamekey to run-menu \ Run menu automatically after a timeout

1 0

[commit] r2997 - in cpu: arm/olpc/1.75 x86/pc/olpc x86/pc/olpc/via
by repository service 01 Jun '12

01 Jun '12

Author: wmb Date: Fri Jun 1 20:57:38 2012 New Revision: 2997 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2997 Log: OLPC - use a different commit id for the NANDblaster code, fixing a build dependency problem introduced by the name change from start.s to start.S in the x86 directory of the client library. Modified: cpu/arm/olpc/1.75/mcnand-version.fth cpu/x86/pc/olpc/versions.fth cpu/x86/pc/olpc/via/mcnand-version.fth Modified: cpu/arm/olpc/1.75/mcnand-version.fth ============================================================================== --- cpu/arm/olpc/1.75/mcnand-version.fth Fri Jun 1 20:33:29 2012 (r2996) +++ cpu/arm/olpc/1.75/mcnand-version.fth Fri Jun 1 20:57:38 2012 (r2997) @@ -3,6 +3,6 @@ \ With a specific ID, mcastnand.bth will download a tarball without .git stuff. \ With "test", mcastnand.bth will clone the git head if build/multicast-nand/ \ is not already present, then you can modify the git subtree as needed. -macro: MCNAND_VERSION 732fc96 +macro: MCNAND_VERSION e9c0662 \ macro: MCNAND_VERSION test \ macro: MCNAND_VERSION HEAD Modified: cpu/x86/pc/olpc/versions.fth ============================================================================== --- cpu/x86/pc/olpc/versions.fth Fri Jun 1 20:33:29 2012 (r2996) +++ cpu/x86/pc/olpc/versions.fth Fri Jun 1 20:57:38 2012 (r2997) @@ -2,7 +2,7 @@ \ The overall firmware revision macro: FW_MAJOR F -macro: FW_MINOR 11 +macro: FW_MINOR 11ma \ The EC microcode macro: EC_VERSION 1_2_1 @@ -26,6 +26,6 @@ \ With a specific ID, mcastnand.bth will download a tarball without .git stuff. \ With "test", mcastnand.bth will clone the git head if build/multicast-nand/ \ is not already present, then you can modify the git subtree as needed. -macro: MCNAND_VERSION 732fc96 +macro: MCNAND_VERSION e9c0662 \ macro: MCNAND_VERSION test \ macro: MCNAND_VERSION HEAD Modified: cpu/x86/pc/olpc/via/mcnand-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/mcnand-version.fth Fri Jun 1 20:33:29 2012 (r2996) +++ cpu/x86/pc/olpc/via/mcnand-version.fth Fri Jun 1 20:57:38 2012 (r2997) @@ -3,6 +3,6 @@ \ With a specific ID, mcastnand.bth will download a tarball without .git stuff. \ With "test", mcastnand.bth will clone the git head if build/multicast-nand/ \ is not already present, then you can modify the git subtree as needed. -macro: MCNAND_VERSION 732fc96 +macro: MCNAND_VERSION e9c0662 \ macro: MCNAND_VERSION test \ macro: MCNAND_VERSION HEAD

1 0

[commit] r2996 - ofw/tokenizer
by repository service 01 Jun '12

01 Jun '12

Author: wmb Date: Fri Jun 1 20:33:29 2012 New Revision: 2996 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2996 Log: FCode tokenizer - removed the macro versions of */ and */mod, which do not work correctly (the intermediate result can overflow). If you need to use these functions in an FCode driver, use um* and um/mod to perform the calculations. Modified: ofw/tokenizer/crosslis.fth Modified: ofw/tokenizer/crosslis.fth ============================================================================== --- ofw/tokenizer/crosslis.fth Fri Jun 1 20:31:33 2012 (r2995) +++ ofw/tokenizer/crosslis.fth Fri Jun 1 20:33:29 2012 (r2996) @@ -140,8 +140,10 @@ : 2+ 2 + ; : 2- 2 - ; : <<a << ; -: */mod >r * r> /mod ; -: */ >r * r> / ; +\ These are not correct because the intermediate overflows. +\ If you need these functions, write them explicitly using um* and um/mod +\ : */mod >r * r> /mod ; +\ : */ >r * r> / ; : xu>l ( ux -- ul ) drop ; \ 64 -> 32 : lu>x ( ul -- ux ) 0 ; \ 32 -> 64

1 0

[commit] r2995 - forth/lib
by repository service 01 Jun '12

01 Jun '12

Author: wmb Date: Fri Jun 1 20:31:33 2012 New Revision: 2995 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2995 Log: isin.fth - before svn 2994, the calculation in set-period was using */, which is supposed to use a double-precision intermediate value to avoid overflow. However, */ is not a primitive FCode, so the FCode tokenizer was synthesizing it (incorrectly) using (overflowing) * and /. The correct fix, to retain precision, is to implement "u*/" using (double-precision) um* and um/mod . Modified: forth/lib/isin.fth Modified: forth/lib/isin.fth ============================================================================== --- forth/lib/isin.fth Fri Jun 1 14:21:35 2012 (r2994) +++ forth/lib/isin.fth Fri Jun 1 20:31:33 2012 (r2995) @@ -27,17 +27,17 @@ 2/ dup to #cycle/2 2/ to #cycle/4 ; +: u*/ ( u1 unum udenom -- u2 ) >r um* r> um/mod nip ; : set-period ( cycle/4 -- ) dup to #cycle/4 ( cycle/4 ) 2* dup to #cycle/2 ( cycle/2 ) 2* dup to #cycle ( cycle ) fs over / to freq ( period ) - pi swap / fs * to fstep ( ) + pi fs rot u*/ to fstep ( ) ; \ Multiply two fractional numbers where the scale factor is 2^15 -\ : times ( n1 n2 -- n3 ) d# 32767 */ ; \ Insignificantly more accurate, but slower -: times ( n1 n2 -- n3 ) * d# 15 rshift ; +: times ( n1 n2 -- n3 ) d# 32767 u*/ ; \ Computes (1 - (theta^2 / divisor) * last) : sin-step ( last divisor -- next ) thetasq swap / times one min one swap - ; @@ -48,7 +48,7 @@ \ 1 - (t^2/(1*2)) * (1 - (t^2/(3*4)) * (1 - (t^2/(5*6)) * (1 - (t^2/(7*8)))) : icos ( index -- frac ) - fstep fs 2/ */ to theta + fstep fs 2/ u*/ to theta theta dup times to thetasq one d# 90 cos-step d# 56 cos-step d# 30 cos-step d# 12 cos-step 2 cos-step one min ; @@ -59,7 +59,7 @@ \ theta * (1 - (theta^2/(2*3)) * (1 - (theta^2/(4*5)) * (1 - (theta^2/(6*7)) * (1 - (theta^2/(8*9)))))) \ This is good for the first quadrant only, i.e. 0 <= index <= fs / freq / 4 : calc-sin ( index -- frac ) - fstep fs 2/ */ to theta + fstep fs 2/ u*/ to theta theta dup times to thetasq one d# 72 sin-step d# 42 sin-step d# 20 sin-step 6 sin-step theta times one min ;

1 0

[commit] r2994 - forth/lib
by repository service 01 Jun '12

01 Jun '12

Author: quozl Date: Fri Jun 1 14:21:35 2012 New Revision: 2994 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2994 Log: OLPC XO-1 XO-1.5 - restore normal sweep audio test volume, #11846. A multiply overflowed 32-bits in set-period. Regression introduced in svn 2260. Modified: forth/lib/isin.fth Modified: forth/lib/isin.fth ============================================================================== --- forth/lib/isin.fth Thu May 31 22:07:15 2012 (r2993) +++ forth/lib/isin.fth Fri Jun 1 14:21:35 2012 (r2994) @@ -32,7 +32,7 @@ 2* dup to #cycle/2 ( cycle/2 ) 2* dup to #cycle ( cycle ) fs over / to freq ( period ) - pi fs rot */ to fstep ( ) + pi swap / fs * to fstep ( ) ; \ Multiply two fractional numbers where the scale factor is 2^15

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware