openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3351 - dev/olpc
by repository service 03 Oct '12

03 Oct '12

Author: wmb Date: Wed Oct 3 23:59:11 2012 New Revision: 3351 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3351 Log: OLPC x86 - fixed build regression for old platforms where there is no camera sensor node underneath an i2c node. Modified: dev/olpc/ov7670.fth dev/olpc/seti.fth Modified: dev/olpc/ov7670.fth ============================================================================== --- dev/olpc/ov7670.fth Wed Oct 3 23:50:56 2012 (r3350) +++ dev/olpc/ov7670.fth Wed Oct 3 23:59:11 2012 (r3351) @@ -166,7 +166,9 @@ then ( ) " OV7670" " sensor" string-property +[ifdef] set-sensor-properties " omnivision,ov7670" camera-smb-slave set-sensor-properties +[then] ['] ov7670-set-mirrored to set-mirrored ['] ov7670-config to camera-config Modified: dev/olpc/seti.fth ============================================================================== --- dev/olpc/seti.fth Wed Oct 3 23:50:56 2012 (r3350) +++ dev/olpc/seti.fth Wed Oct 3 23:59:11 2012 (r3351) @@ -306,7 +306,9 @@ h# 12 <> if false exit then ( ) " SETi,SIV120D" " sensor" string-property +[ifdef] set-sensor-properties " seti,siv120d" camera-smb-slave set-sensor-properties +[then] ['] seti-set-mirrored to set-mirrored ['] seti-config to camera-config

1 0

[commit] r3350 - cpu/arm/olpc/1.75 forth/lib
by repository service 03 Oct '12

03 Oct '12

Author: wmb Date: Wed Oct 3 23:50:56 2012 New Revision: 3350 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3350 Log: OLPC XO-1.75 - support old OS releases from OFW with new device tree layout. Added: cpu/arm/olpc/1.75/dtcompat.fth Modified: cpu/arm/olpc/1.75/fw.bth forth/lib/substrin.fth Added: cpu/arm/olpc/1.75/dtcompat.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/dtcompat.fth Wed Oct 3 23:50:56 2012 (r3350) @@ -0,0 +1,34 @@ +purpose: Hack to make old kernels boot with new device tree layout + +\ The problem this solves is that older OS releases for XO-1.75 +\ a) Require ATAGS info instead of flattened device tree (kernel), and +\ b) Require MMC pathnames of the form /sd@d4280000/disk@N instead of +\ the new form /sd/sdhci@d428nnnn/disk (initrd). +\ In order to boot those old OS releases, when we detect an old release, +\ we use ATAGS and rewrite the "bootpath" property in /chosen to the old +\ form. + + +\ If "bootpath" (whose underlying storage is load-path) matches newpath$, +\ replace it with oldpath$ . +: $replaced? ( oldpath$ newpath$ -- flag ) + load-path cscount substring? if ( oldpath$ ) + load-path place-cstr ( ) + true ( flag ) + else ( oldpath$ ) + 2drop false ( flag ) + then ( flag ) +; + +: fixup-bootpath ( -- ) + disable-interrupts + /ramdisk 0= if exit then + " $bootpath in"n"t"t/sd@" ramdisk-adr /ramdisk $sindex nip if ( ) + false to use-fdt? + " /sd@d4280000/disk@1:/" " /sd/sdhci@d4280000/disk" $replaced? ?exit + " /sd@d4280000/disk@2:/" " /sd/sdhci@d4280800/disk" $replaced? ?exit + " /sd@d4280000/disk@3:/" " /sd/sdhci@d4281000/disk" $replaced? ?exit + then +; + +patch fixup-bootpath disable-interrupts linux-fixup Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Wed Oct 3 23:40:57 2012 (r3349) +++ cpu/arm/olpc/1.75/fw.bth Wed Oct 3 23:50:56 2012 (r3350) @@ -31,5 +31,6 @@ fload ${BP}/cpu/arm/olpc/1.75/testinstructions.fth fload ${BP}/cpu/arm/olpc/gpio-gamekeys.fth fload ${BP}/cpu/arm/olpc/test-tweaks.fth +fload ${BP}/cpu/arm/olpc/1.75/dtcompat.fth fload ${BP}/cpu/arm/olpc/save-fw.fth Modified: forth/lib/substrin.fth ============================================================================== --- forth/lib/substrin.fth Wed Oct 3 23:40:57 2012 (r3349) +++ forth/lib/substrin.fth Wed Oct 3 23:50:56 2012 (r3350) @@ -31,6 +31,20 @@ r> 1+ >r again ; + +\ This version is faster (due to bscan being a code word) and arguably more convenient than sindex +: $sindex ( small$ big$ -- rem$ ) + 2 pick 0= if 4drop 0 then \ Null string is initial substring of anything + 3 pick c@ >r ( small$ big$ r: firstchar ) + begin r@ bscan dup while ( small$ rem$ r: firstchar ) + 4dup substring? if ( small$ rem$ r: firstchar ) + 2swap r> 3drop exit ( -- rem$ ) + then ( small$ rem$ r: firstchar ) + 1 /string ( small$ rem$' r: firstchar ) + repeat ( small$ rem$ r: firstchar ) + 2swap r> 3drop ( rem$ ) +; + only forth also definitions \ LICENSE_BEGIN

1 0

[commit] r3349 - in cpu: arm/olpc arm/olpc/1.75 arm/olpc/3.0 arm/olpc/4.0 arm/olpc/cl4 x86/pc/olpc x86/pc/olpc/via
by repository service 03 Oct '12

03 Oct '12

Author: wmb Date: Wed Oct 3 23:40:57 2012 New Revision: 3349 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3349 Log: OLPC trac 12129 - Changed the search order for .zip bundles to look for the platform-specific suffix first, falling back to the generic name. Modified: cpu/arm/olpc/1.75/config.fth cpu/arm/olpc/3.0/config.fth cpu/arm/olpc/4.0/config.fth cpu/arm/olpc/build-fw.fth cpu/arm/olpc/cl4/config.fth cpu/x86/pc/olpc/config.fth cpu/x86/pc/olpc/security.fth cpu/x86/pc/olpc/via/config.fth cpu/x86/pc/olpc/via/fw.bth Modified: cpu/arm/olpc/1.75/config.fth ============================================================================== --- cpu/arm/olpc/1.75/config.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/arm/olpc/1.75/config.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -26,6 +26,7 @@ : model$ " olpc,XO-1.75" ; : compatible$ " olpc,xo-1.75" ; : ec-platform$ ( -- adr len ) " 4" ; +: bundle-suffix$ ( -- adr len ) " 4" ; d# 9999 constant machine-type \ Backwards compatibility with non-device-tree kernel Modified: cpu/arm/olpc/3.0/config.fth ============================================================================== --- cpu/arm/olpc/3.0/config.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/arm/olpc/3.0/config.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -25,6 +25,7 @@ : model$ " olpcXO-3.0" ; : compatible$ " olpcxo-3.0" ; : ec-platform$ ( -- adr len ) " 5" ; +: bundle-suffix$ ( -- adr len ) " 3" ; d# 10000 constant machine-type \ Backwards compatibility with non-device-tree kernel Modified: cpu/arm/olpc/4.0/config.fth ============================================================================== --- cpu/arm/olpc/4.0/config.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/arm/olpc/4.0/config.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -23,6 +23,7 @@ : model$ " olpc,XO-4.0" ; : compatible$ " olpc,xo-cl4" ; : ec-platform$ ( -- adr len ) " 7" ; +: bundle-suffix$ ( -- adr len ) " 5" ; d# 10001 constant machine-type \ Backwards compatibility with non-device-tree kernel Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/arm/olpc/build-fw.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -668,7 +668,6 @@ fload ${BP}/cpu/x86/pc/olpc/sound.fth fload ${BP}/cpu/x86/pc/olpc/guardrtc.fth fload ${BP}/cpu/x86/pc/olpc/security.fth -[ifdef] olpc-cl4 4 [else] 2 [then] to bundle-suffix stand-init: xid h# 83 cmos@ dup 1+ h# 83 cmos! ( n ) Modified: cpu/arm/olpc/cl4/config.fth ============================================================================== --- cpu/arm/olpc/cl4/config.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/arm/olpc/cl4/config.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -22,6 +22,7 @@ : model$ " olpc,XO-CL4" ; : compatible$ " olpc,xo-cl4" ; : ec-platform$ ( -- adr len ) " 7" ; +: bundle-suffix$ ( -- adr len ) " 4" ; d# 10001 constant machine-type \ Backwards compatibility with non-device-tree kernel Modified: cpu/x86/pc/olpc/config.fth ============================================================================== --- cpu/x86/pc/olpc/config.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/x86/pc/olpc/config.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -40,6 +40,7 @@ create machine-signature ," CL1" : signature$ machine-signature count ; +: bundle-suffix$ ( -- adr len ) " 0" ; fload ${BP}/cpu/x86/pc/olpc/addrs.fth Modified: cpu/x86/pc/olpc/security.fth ============================================================================== --- cpu/x86/pc/olpc/security.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/x86/pc/olpc/security.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -441,27 +441,21 @@ : .trying ( name$ -- name$ ) " Trying " ?lease-debug 2dup ?lease-debug-cr ; -0 value bundle-suffix -: bundle-present? ( fn$ -- flag ) - fn-buf place - - \ unadorned names not supported from XO-4 onwards - bundle-suffix 4 < if - \ Try the unadorned name first - bundle-name$ .trying - ['] (boot-read) catch 0= if true exit then ( x x ) - 2drop ( ) - then - - \ Unadorned name not present; try again with architecture-dependent numeric suffix - bundle-suffix push-decimal (.) pop-base ( adr len ) - fn-buf $cat ( ) +: $try-name ( basename$ suffix$ -- found? ) + 2swap fn-buf place fn-buf $cat bundle-name$ .trying - ['] (boot-read) catch 0= if true exit then ( x x ) - 2drop ( ) + ['] (boot-read) catch if 2drop false else true then +; + +: bundle-present? ( fn$ -- found? ) + \ Try first with architecture-dependent numeric suffix + 2dup bundle-suffix$ $try-name if ( fn$ ) + 2drop true exit ( -- true ) + then ( fn$ ) - false + \ Failing that, try the unadorned name + " " $try-name ; \ exp-hashname$ remembers the most recently used hashname to guard against Modified: cpu/x86/pc/olpc/via/config.fth ============================================================================== --- cpu/x86/pc/olpc/via/config.fth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/x86/pc/olpc/via/config.fth Wed Oct 3 23:40:57 2012 (r3349) @@ -52,6 +52,7 @@ create machine-signature ," CL1" : signature$ machine-signature count ; +: bundle-suffix$ ( -- adr len ) " 1" ; fload ${BP}/cpu/x86/pc/olpc/via/addrs.fth Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Tue Oct 2 03:48:06 2012 (r3348) +++ cpu/x86/pc/olpc/via/fw.bth Wed Oct 3 23:40:57 2012 (r3349) @@ -431,7 +431,6 @@ fload ${BP}/cpu/x86/pc/olpc/via/sound.fth fload ${BP}/cpu/x86/pc/olpc/guardrtc.fth fload ${BP}/cpu/x86/pc/olpc/security.fth -1 to bundle-suffix fload ${BP}/cpu/x86/pc/olpc/xpsecure.fth fload ${BP}/ofw/gui/ofpong.fth fload ${BP}/cpu/x86/pc/olpc/life.fth

1 0

[commit] r3348 - cpu/arm/olpc/4.0
by repository service 02 Oct '12

02 Oct '12

Author: wmb Date: Tue Oct 2 03:48:06 2012 New Revision: 3348 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3348 Log: Q7B02 redux - reverted the 8787 WLAN version from 14.66.09.p96, which doesn't work with OFW, to 14.66.09.p80, which does work. The problem is that the data write port ready never gets set. Modified: cpu/arm/olpc/4.0/wlan-version.fth Modified: cpu/arm/olpc/4.0/wlan-version.fth ============================================================================== --- cpu/arm/olpc/4.0/wlan-version.fth Tue Oct 2 03:05:18 2012 (r3347) +++ cpu/arm/olpc/4.0/wlan-version.fth Tue Oct 2 03:48:06 2012 (r3348) @@ -5,7 +5,11 @@ macro: WLAN_PREFIX lbtf_sdio- macro: WLAN_VERSION 9.0.7.p2 -macro: WLAN_8787_VERSION dd7193bc187a5182a6236cb6337699d2229c54b0 +\ dd7193bc is 14.66.09.p96 . The OFW driver doesn't work with it yet +\ macro: WLAN_8787_VERSION dd7193bc187a5182a6236cb6337699d2229c54b0 + +\ 7a28e074 is 14.66.09.p80 +macro: WLAN_8787_VERSION 7a28e074 \ Non-thin version \ macro: WLAN_SUBDIR

1 0

[commit] r3347 - cpu/arm/olpc/4.0
by repository service 02 Oct '12

02 Oct '12

Author: wmb Date: Tue Oct 2 03:05:18 2012 New Revision: 3347 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3347 Log: Q7B02 Modified: cpu/arm/olpc/4.0/fw-version.fth Modified: cpu/arm/olpc/4.0/fw-version.fth ============================================================================== --- cpu/arm/olpc/4.0/fw-version.fth Tue Oct 2 02:59:50 2012 (r3346) +++ cpu/arm/olpc/4.0/fw-version.fth Tue Oct 2 03:05:18 2012 (r3347) @@ -1,7 +1,7 @@ \ The overall firmware revision macro: FW_PREFIX Q7 macro: FW_MAJOR B -macro: FW_MINOR 01 +macro: FW_MINOR 02 \ Create a 2-character build/fw-suffix file to personalize your test builds " fw-suffix" $file-exists? [if]

1 0

[commit] r3346 - forth/lib
by repository service 02 Oct '12

02 Oct '12

Author: wmb Date: Tue Oct 2 02:59:50 2012 New Revision: 3346 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3346 Log: Debugger - the "up" keystroke ('U') was not working when debugging inside a do .. loop due to misinterpreting a pointer to the loop end address as a return address. Modified: forth/lib/debug.fth forth/lib/rstrace.fth Modified: forth/lib/debug.fth ============================================================================== --- forth/lib/debug.fth Tue Oct 2 02:26:16 2012 (r3345) +++ forth/lib/debug.fth Tue Oct 2 02:59:50 2012 (r3346) @@ -87,24 +87,28 @@ headerless \ Go up the return stack until we find an interesting caller : up1 ( rp -- ) - begin na1+ dup rp0 @ <> while ( rs-adr ) - dup @ ( rs-adr ip ) - dup in-dictionary? if ( rs-adr ip ) - find-cfa dup indirect-call? if ( rs-adr xt ) - drop ( rs-adr ) - else ( rs-adr xt ) - nip ( rs-adr ) - scrolling-debug? if ( xt ) - cr ." [ Up to " dup .name ." ]" cr - then ( xt ) - (debug ( ) - exit ( -- ) - then ( rs-adr ) - else ( rs-adr ip ) - drop ( rs-adr ) - then ( rs-adr ) - repeat ( rs-adr ) - drop ( ) + begin na1+ dup rp0 @ <> while ( rs-adr ) + dup @ ( rs-adr ip ) + dup in-dictionary? if ( rs-adr ip ) + dup loop-end? if ( rs-adr ip ) + drop ( rs-adr ) + else ( rs-adr ip ) + find-cfa dup indirect-call? if ( rs-adr xt ) + drop ( rs-adr ) + else ( rs-adr xt ) + nip ( rs-adr ) + scrolling-debug? if ( xt ) + cr ." [ Up to " dup .name ." ]" cr + then ( xt ) + (debug ( ) + exit ( -- ) + then ( rs-adr ) + then ( rs-adr ) + else ( rs-adr ) + drop ( rs-adr ) + then ( rs-adr ) + repeat ( rs-adr ) + drop ( ) ; defer to-debug-window ' noop is to-debug-window Modified: forth/lib/rstrace.fth ============================================================================== --- forth/lib/rstrace.fth Tue Oct 2 02:26:16 2012 (r3345) +++ forth/lib/rstrace.fth Tue Oct 2 02:59:50 2012 (r3346) @@ -22,29 +22,32 @@ ." Catch frame - SP: " @+ . ." my-self: " @+ . ." handler: " @+ . ; 1 bits/cell 1- lshift constant minus0 +: loop-end? ( adr -- flag ) + dup reasonable-ip? 0= if ( adr ) + drop false exit ( -- false ) + then ( adr ) + dup @ + ( adr' ) + dup reasonable-ip? 0= if ( adr ) + drop false exit ( -- false ) + then ( adr ) + ip>token -1 na+ token@ ( xt ) + dup ['] (loop) = swap ['] (+loop) = or ( flag ) +; + : .do-or-n ( rs-adr n -- rs-adr' ) over @ reasonable-ip? 0= if ( rs-adr n ) \ The second number is not an IP so it could be a do loop frame - over na1+ @ reasonable-ip? if ( rs-adr n ) - \ The third entry is a reasonable IP so it could be a do loop frame - \ Make sure it points just past a loop end - over na1+ @ dup @ + ( rs-adr n n2 ) - dup reasonable-ip? if ( rs-adr n adr ) - ip>token -1 na+ token@ ( rs-adr n xt ) - dup ['] (loop) = swap ['] (+loop) = or if ( rs-adr n ) - \ The two numbers span the +- boundary, so probably a do loop - ." Do loop frame inside " - over na1+ @ ip>token .current-word ( rs-adr n ) - over @ ( rs-adr n n1 ) - ." i: " tuck + . ( rs-adr n1 ) - ." limit: " minus0 + . ( rs-adr ) - 2 na+ exit - then ( rs-adr n ) - else ( rs-adr n n2 ) - drop ( rs-adr n ) - then ( rs-adr n ) - then ( rs-adr n ) - then ( rs-adr n ) + over na1+ @ ( rs-adr n n2 ) + dup loop-end? if ( rs-adr n n2 ) + ." Do loop frame inside " + ip>token .current-word ( rs-adr n ) + over @ ( rs-adr n n1 ) + ." i: " tuck + . ( rs-adr n1 ) + ." limit: " minus0 + . ( rs-adr ) + 2 na+ exit ( -- rs-adr' ) + then ( rs-adr n n2 ) + drop ( rs-adr n ) + then ( rs-adr n ) 9 u.r ; : .traceline ( ipaddr -- )

1 0

[commit] r3345 - cpu/arm/olpc
by repository service 02 Oct '12

02 Oct '12

Author: wmb Date: Tue Oct 2 02:26:16 2012 New Revision: 3345 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3345 Log: OLPC ARM SDHCI - removed now-redundant SDHCI clock register settings from stand-init. Modified: cpu/arm/olpc/sdhci.fth Modified: cpu/arm/olpc/sdhci.fth ============================================================================== --- cpu/arm/olpc/sdhci.fth Fri Sep 28 23:48:00 2012 (r3344) +++ cpu/arm/olpc/sdhci.fth Tue Oct 2 02:26:16 2012 (r3345) @@ -104,9 +104,5 @@ devalias mmc1 /sd/sdhci@d4280800 stand-init: SDHC clocks - h# 41b h# 282854 io! \ SD0 (external SD) clocks, plus set master clock divisor - h# 1b h# 282858 io! \ SD1 (WLAN) clocks - h# 1b h# 2828e8 io! \ SD2 (internal microSD) clocks - h# 70a h# 200104 io! \ Clock gating - h# 70a h# 201104 io! \ Clock gating + h# 400 h# 54 pmua! \ Master SDH clock divisor ;

1 0

[commit] r3344 - cpu/arm/olpc
by repository service 28 Sep '12

28 Sep '12

Author: pgf Date: Fri Sep 28 23:48:00 2012 New Revision: 3344 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3344 Log: usb.fth: add gpio property for hub reset gpio Modified: cpu/arm/olpc/usb.fth Modified: cpu/arm/olpc/usb.fth ============================================================================== --- cpu/arm/olpc/usb.fth Fri Sep 28 21:17:49 2012 (r3343) +++ cpu/arm/olpc/usb.fth Fri Sep 28 23:48:00 2012 (r3344) @@ -12,6 +12,8 @@ " /pmua" encode-phandle 5 encode-int encode+ " clocks" property d# 44 " interrupts" integer-property + usb-hub-reset-gpio# 1 " usb-hub-reset-gpios" gpio-property + " host" " dr_mode" string-property " utmi" " phy_type" string-property

1 0

[commit] r3343 - cpu/arm/olpc
by repository service 28 Sep '12

28 Sep '12

Author: pgf Date: Fri Sep 28 21:17:49 2012 New Revision: 3343 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3343 Log: usb: add a clock-names property for USBPHYCLK Modified: cpu/arm/olpc/usb.fth Modified: cpu/arm/olpc/usb.fth ============================================================================== --- cpu/arm/olpc/usb.fth Fri Sep 28 21:00:15 2012 (r3342) +++ cpu/arm/olpc/usb.fth Fri Sep 28 21:17:49 2012 (r3343) @@ -8,6 +8,7 @@ my-space swap " map-in" $call-parent h# 100 + ( adr ) ; : my-map-out ( adr len -- ) swap h# 100 - swap " map-out" $call-parent ; + " USBPHYCLK" " clock-names" string-property " /pmua" encode-phandle 5 encode-int encode+ " clocks" property d# 44 " interrupts" integer-property

1 0

[commit] r3342 - ofw/wifi
by repository service 28 Sep '12

28 Sep '12

Author: wmb Date: Fri Sep 28 21:00:15 2012 New Revision: 3342 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3342 Log: WiFi - changed wep and wpa prefix commands to parse the entire line instead of just one word, thus enabling passwords containing spaces. Modified: ofw/wifi/wifi-cfg.fth Modified: ofw/wifi/wifi-cfg.fth ============================================================================== --- ofw/wifi/wifi-cfg.fth Thu Sep 27 23:17:26 2012 (r3341) +++ ofw/wifi/wifi-cfg.fth Fri Sep 28 21:00:15 2012 (r3342) @@ -99,8 +99,8 @@ alias wifi essid alias ssid essid -: wep ( "wep" -- ) parse-word $wep ; -: wpa ( "psk" -- ) parse-word $wpa ; +: wep ( "wep" -- ) 0 parse $wep ; +: wpa ( "psk" -- ) 0 parse $wpa ; \ ===================================================================== \ Scan wireless networks

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware