openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3033 - cpu/arm/olpc
by repository service 03 Jul '12

03 Jul '12

Author: wmb Date: Tue Jul 3 08:17:12 2012 New Revision: 3033 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3033 Log: OLPC XO-1.75 - more support rearrangement of GPIOs for new test board. Modified: cpu/arm/olpc/build-fw.fth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Tue Jul 3 08:14:26 2012 (r3032) +++ cpu/arm/olpc/build-fw.fth Tue Jul 3 08:17:12 2012 (r3033) @@ -338,7 +338,12 @@ [then] fload ${BP}/cpu/arm/olpc/sdhci.fth -\- cl2-a1 fload ${BP}/cpu/arm/olpc/emmc.fth + +[ifndef] cl2-a1 +: clx-touch? ( -- ) board-revision h# 3a18 >= ; +: boot-dev-gpio# ( -- n ) clx-touch? if 2 else d# 56 then ; +fload ${BP}/cpu/arm/olpc/emmc.fth +[then] devalias int /sd/sdhci@d4281000/disk devalias ext /sd/sdhci@d4280000/disk

1 0

[commit] r3032 - cpu/arm/olpc
by repository service 03 Jul '12

03 Jul '12

Author: wmb Date: Tue Jul 3 08:14:26 2012 New Revision: 3032 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3032 Log: OLPC XO-1.75 - support rearrangement of GPIOs for new test board. Modified: cpu/arm/olpc/emmc.fth Modified: cpu/arm/olpc/emmc.fth ============================================================================== --- cpu/arm/olpc/emmc.fth Tue Jul 3 07:27:26 2012 (r3031) +++ cpu/arm/olpc/emmc.fth Tue Jul 3 08:14:26 2012 (r3032) @@ -47,7 +47,7 @@ \ Says RESET - is CMD stand-init: - d# 56 gpio-pin@ if + boot-dev-gpio# gpio-pin@ if select-emmc else select-internal-sd

1 0

[commit] r3031 - forth/lib
by repository service 03 Jul '12

03 Jul '12

Author: wmb Date: Tue Jul 3 07:27:26 2012 New Revision: 3031 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3031 Log: Checked in intel hex file support. Added: forth/lib/intelhex.fth Added: forth/lib/intelhex.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ forth/lib/intelhex.fth Tue Jul 3 07:27:26 2012 (r3031) @@ -0,0 +1,64 @@ +\ See license at end of file +purpose: Intel hex format decoder + +\ Defines: +\ parse-ihex-record ( adr len -- data-adr data-len offset type ) + +variable ihex-sum + +: ihex-char ( adr len -- adr' len' char ) + dup 0= abort" Unexpected end of ihex line" + over c@ >r 1 /string r> +; +: ihex-nibble ( adr len -- adr' len' nibble ) + ihex-char h# 10 digit 0= abort" Bad hex character in ihex data" +; +: ihex-byte ( adr len -- adr' len' byte ) + ihex-nibble >r ihex-nibble r> 4 lshift or + dup ihex-sum +! +; +: ihex-address ( adr len -- adr' len' word ) + ihex-byte >r ihex-byte r> bwjoin +; + +h# 20 buffer: ihex-data +: parse-ihex-record ( adr len -- data-adr data-len offset type ) + ihex-char [char] : <> abort" Bad start character in ihex file" + + ihex-sum off ( adr len ) + ihex-byte >r ( adr len r: datalen ) + ihex-address -rot ( offset adr len r: datalen ) + ihex-byte -rot ( offset type adr len r: datalen ) + r@ h# 20 > abort" Ihex record too long" + r@ 0 ?do ( offset type adr len r: datalen ) + ihex-byte ihex-data i + c! ( offset type adr len r: datalen ) + loop ( offset type adr len r: datalen ) + ihex-byte drop ( offset type adr len r: datalen ) + ihex-sum @ h# ff and abort" Bad ihex checksum" + 2drop ( offset type r: datalen ) + ihex-data r> 2swap ( data-adr data-len offset type ) +; + +\ LICENSE_BEGIN +\ Copyright (c) 2012 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

1 0

[commit] r3030 - cpu/arm/olpc
by repository service 03 Jul '12

03 Jul '12

Author: wmb Date: Tue Jul 3 07:26:24 2012 New Revision: 3030 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3030 Log: OLPC BSL download code - completed code with "test-msp430" word for testing the initial hardware build. Modified: cpu/arm/olpc/bsl.fth Modified: cpu/arm/olpc/bsl.fth ============================================================================== --- cpu/arm/olpc/bsl.fth Tue Jul 3 07:24:13 2012 (r3029) +++ cpu/arm/olpc/bsl.fth Tue Jul 3 07:26:24 2012 (r3030) @@ -3,7 +3,42 @@ \ devalias bsl /uart@NNNN:9600,8,e,1//bsl-protocol -h# fe016000 value bsl-uart-base \ Virtual address of UART; set later + +\ These constants are correct for XO-1.75 and XO-CL4; they might +\ need to be changed for different hardware. See setup-gpios-hack + +h# 17000 +io constant bsl-uart-base \ UART2 + +d# 98 constant bsl-test-gpio# \ GPIO98 is alternate function 0 (the default) +d# 152 constant bsl-rst-gpio# \ SM_BELn, with GPIO152 as alternate function 1 + +\ This is platform-dependent + +: setup-gpios ( -- ) + 3 d# 55 af! 3 d# 56 af! \ Setup pins for UART2 + 0 bsl-test-gpio# af! \ Set to GPIO function + 1 bsl-rst-gpio# af! \ Set to GPIO function (AF0 is SM_BELn for this pin) +; + +0 [if] +\ This is for the test system on which this code was originally developed +: setup-gpios-hack ( -- ) + \ On the test system, the BSL device is driven from the console UART, + \ not a dedicated UART, so we must disconnect that UART from the console mux + fallback-in-ih ?dup if dup remove-input close-dev 0 to fallback-in-ih then + fallback-out-ih ?dup if dup remove-output close-dev 0 to fallback-out-ih then + + h# 16000 +io to bsl-uart-base \ UART4 + + d# 115 to test-gpio# \ Normally UART3 TXD, but repurposed as a GPIO + d# 116 to rst-gpio# \ Normally UART3 RXD, but repurposed as a GPIO + + 0 bsl-test-gpio# af! \ Set to GPIO function instead of UART3 + 0 bsl-rst-gpio# af! \ Set to GPIO function instead of UART3 +; +[then] + +\ These are MMP2/3 dependent : bsl-baud ( baud-rate -- ) \ 9600,8,e,1 uart-base >r bsl-uart-base to uart-base baud h# 1b 3 uart! r> to uart-base @@ -17,53 +52,41 @@ r> to uart-base ; -0 value rst-gpio# -0 value test-gpio# -\ : bsl-config-test ( -- ) -: init-gpios - fallback-in-ih ?dup if dup remove-input close-dev 0 to fallback-in-ih then - fallback-out-ih ?dup if dup remove-output close-dev 0 to fallback-out-ih then - d# 115 to test-gpio# - d# 116 to rst-gpio# - - test-gpio# 0 swap af! - rst-gpio# 0 swap af! -; +\ After this point the code is largely generic : bsl-open ( -- ) - init-gpios + setup-gpios - rst-gpio# gpio-clr - test-gpio# gpio-clr - rst-gpio# gpio-dir-out - test-gpio# gpio-dir-out - h# 16000 +io to bsl-uart-base + bsl-rst-gpio# gpio-clr + bsl-test-gpio# gpio-clr + bsl-rst-gpio# gpio-dir-out + bsl-test-gpio# gpio-dir-out d# 9600 bsl-baud ; : bsl-close ( -- ) - rst-gpio# gpio-dir-in - test-gpio# gpio-dir-in + bsl-rst-gpio# gpio-dir-in + bsl-test-gpio# gpio-dir-in ; : msp430-off ( -- ) - rst-gpio# gpio-clr - test-gpio# gpio-clr + bsl-rst-gpio# gpio-clr + bsl-test-gpio# gpio-clr ; : dly ( -- ) d# 10 ms ; : start-bsl ( -- ) bsl-open d# 250 ms - test-gpio# gpio-set + bsl-test-gpio# gpio-set dly - test-gpio# gpio-clr + bsl-test-gpio# gpio-clr dly - test-gpio# gpio-set + bsl-test-gpio# gpio-set dly - rst-gpio# gpio-set + bsl-rst-gpio# gpio-set dly - test-gpio# gpio-clr + bsl-test-gpio# gpio-clr ; : flush-bsl ( -- ) begin receive? while drop repeat ; : rst-bsl ( -- ) msp430-off start-bsl flush-bsl ; @@ -238,6 +261,16 @@ r> 3drop ; +: force-erase ( -- ) + ." Resetting/erasing" cr + rst-bsl + ['] 00-password catch drop + rst-bsl + ff-password +; + +\ Decoder for TI TXT file format + 0 value next-address 0 value line-#bytes d# 50 buffer: binary-buf @@ -269,7 +302,7 @@ loop ( adr len ) true abort" TI TXT Line too long!" ; -: handle-line ( adr len -- ) +: ti-txt-handle-line ( adr len -- ) dup 0= if 2drop exit then ( adr len ) over c@ case [char] @ of ( adr len ) @@ -282,25 +315,121 @@ -rot program-bytes ( char ) endcase ( ) ; -: force-erase ( -- ) - ." Resetting/erasing" cr - rst-bsl - ['] 00-password catch drop - rst-bsl - ff-password + +\ Decoder for Intel HEX format file +\needs parse-ihex-record fload ${BP}/forth/lib/intelhex.fth + +0 value ihex-hi-adr +: ihex-handle-line ( adr len -- ) + dup 0= if 2drop exit then ( adr len ) + parse-ihex-record ( data-adr data-len offset type ) + case + 0 of \ Data ( data-adr data-len offset ) + ihex-hi-adr + rx-data-block ( ) + endof + 1 of \ End of file ( data-adr data-len offset ) + 3drop ( ) + endof + 2 of \ Segment address ( data-adr data-len offset ) + 2drop le-w@ 4 lshift to ihex-hi-adr ( ) + endof + 3 of \ Start segment address ( data-adr data-len offset ) + 3drop + endof + 4 of \ Extended linear address ( data-adr data-len offset ) + 2drop le-w@ d# 16 lshift to ihex-hi-adr ( ) + endof + 5 of \ Start address ( data-adr data-len offset ) + 3drop + endof + ( default ) true abort" Bogus ihex record type" + endcase ; + d# 100 buffer: line-buf -: $bsl-ti-text-file ( filename$ -- ) - $read-open ( ) - force-erase ( ) +defer bsl-handle-line + +: set-bsl-file-format ( -- ) + ifd @ fgetc case + [char] : of + ['] ihex-handle-line to bsl-handle-line + endof + [char] @ of + ['] ti-txt-handle-line to bsl-handle-line + endof + ( default ) + ifd @ fclose + true abort" Unsupported file format for BSL programming" + endcase + + 0 ifd @ fseek +; + +d# 100 buffer: line-buf +: $flash-bsl ( filename$ -- ) + $read-open ( ) + set-bsl-file-format ( ) + force-erase ( ) ." Programming" cr - begin ( ) + begin ( ) line-buf d# 100 ifd @ read-line abort" Read line failed" - while ( len ) - line-buf swap handle-line ( ) - repeat ( len ) - drop - ifd @ fclose + while ( len ) + line-buf swap ( adr len ) + ['] bsl-handle-line catch ?dup if ( x x throw-code ) + ifd @ fclose throw ( ?? -- ) + then ( ) + repeat ( len ) + drop ( ) + ifd @ fclose ( ) +; + +\ This is a destructive test in that it erases whatever firmware happens +\ to already be in the device. + + +h# 70 value /bsl-chunk +/bsl-chunk buffer: bsl-buf +: bsl-write ( adr len device-adr -- ) + to next-address ( adr len ) + begin dup while ( adr len ) + dup /bsl-chunk min ( adr len thislen ) + third over next-address rx-data-block ( adr len thislen ) + dup next-address + to next-address ( adr len thislen ) + /string ( adr' len' ) + repeat ( adr 0 ) + 2drop ( ) +; +: bsl-verify ( adr len device-adr -- okay? ) + to next-address ( adr len ) + begin dup while ( adr len ) + dup /bsl-chunk min ( adr len thislen ) + bsl-buf over next-address tx-data-block ( adr len thislen ) + third bsl-buf third comp if ( adr len thislen ) + 3drop false exit ( -- false ) + then ( adr len thislen ) + dup next-address + to next-address ( adr len thislen ) + /string ( adr' len' ) + repeat ( adr 0 ) + 2drop ( ) + true ( true ) +; +h# 3000 constant /bsl-test-buf +/bsl-test-buf buffer: bsl-test-buf +0 value bsl-test-init? +: bsl-test-data ( -- adr len ) + bsl-test-init? 0= if + bsl-test-buf /bsl-test-buf bounds ?do + random-long i l! + /l +loop + true to bsl-test-init? + then + bsl-test-buf /bsl-test-buf +; +: test-msp430 ( -- ) + ." Erasing ..." force-erase cr + ." Writing ..." bsl-test-data h# 8000 bsl-write cr ( ) + ." Verifying ..." bsl-test-data h# 8000 bsl-verify cr ( okay? ) + if ." FAILED!" else ." Good" then cr ; \ LICENSE_BEGIN

1 0

[commit] r3029 - cpu/arm/olpc/1.75
by repository service 03 Jul '12

03 Jul '12

Author: wmb Date: Tue Jul 3 07:24:13 2012 New Revision: 3029 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3029 Log: OLPC XO-1.75 build - removed diagnostic redefinition of $add-deflated-dropin introduced in last revision. Modified: cpu/arm/olpc/1.75/olpc.bth Modified: cpu/arm/olpc/1.75/olpc.bth ============================================================================== --- cpu/arm/olpc/1.75/olpc.bth Tue Jul 3 07:21:48 2012 (r3028) +++ cpu/arm/olpc/1.75/olpc.bth Tue Jul 3 07:24:13 2012 (r3029) @@ -60,8 +60,6 @@ h# e.0000 to reserved-start h# f.0000 to reserved-end -: $add-deflated-dropin 2dup type ." - " $add-deflated-dropin ofd @ fsize .x cr ; - .( --- Saving as ) " ${FW_VERSION}.rom" expand$ 2dup lower ( adr len ) 2dup type cr ( adr len )

1 0

[commit] r3028 - cpu/arm/olpc/1.75
by repository service 03 Jul '12

03 Jul '12

Author: wmb Date: Tue Jul 3 07:21:48 2012 New Revision: 3028 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3028 Log: OLPC XO-1.75 build - rearranged the order of dropin modules as a stopgap measure to fix the build. Space is getting short. Modified: cpu/arm/olpc/1.75/olpc.bth Modified: cpu/arm/olpc/1.75/olpc.bth ============================================================================== --- cpu/arm/olpc/1.75/olpc.bth Sat Jun 30 01:42:38 2012 (r3027) +++ cpu/arm/olpc/1.75/olpc.bth Tue Jul 3 07:21:48 2012 (r3028) @@ -60,6 +60,8 @@ h# e.0000 to reserved-start h# f.0000 to reserved-end +: $add-deflated-dropin 2dup type ." - " $add-deflated-dropin ofd @ fsize .x cr ; + .( --- Saving as ) " ${FW_VERSION}.rom" expand$ 2dup lower ( adr len ) 2dup type cr ( adr len ) @@ -75,59 +77,23 @@ \ " fw.img" " firmware" $add-dropin " resetvec.img" " reset" $add-dropin -\ " ${BP}/dev/usb2/hcd/ehci/build/ehci.fc" " class0c0320" $add-deflated-dropin - " ${BP}/dev/usb2/device/hub/build/hub.fc" " usb,class9" $add-deflated-dropin - " ${BP}/dev/usb2/device/generic/build/generic.fc" " usbdevice" $add-deflated-dropin - " ${BP}/dev/usb2/device/net/build/usbnet.fc" " usbnet" $add-deflated-dropin - " ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc" " usb,class3,1,1" $add-deflated-dropin - " ${BP}/dev/usb2/device/mouse/build/usbmouse.fc" " usb,class3,1,2" $add-deflated-dropin - " ${BP}/dev/usb2/device/serial/build/usbserial.fc" " usbserial" $add-deflated-dropin - " ${BP}/dev/usb2/device/storage/build/usbstorage.fc" " usbstorage" $add-deflated-dropin - " sd8686_helper.bin" " helper_sd.bin" $add-deflated-dropin " sd8686.bin" " sd8686.bin" $add-deflated-dropin - " builton.fth" " probe-" $add-dropin - -0 [if] - " ${BP}/clients/emacs/x86/emacs" " emacs" $add-deflated-dropin - " ${BP}/clients/emacs/x86/emacs.rc" " emacs.rc" $add-deflated-dropin - " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin -[then] - - " ${BP}/ofw/inet/telnetd.fth" " telnetd" $add-deflated-dropin - -\ " ${BP}/cpu/x86/pc/olpc/images/warnings.565" " warnings.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/lightdot.565" " lightdot.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/yellowdot.565" " yellowdot.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/darkdot.565" " darkdot.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/lock.565" " lock.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/unlock.565" " unlock.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/plus.565" " plus.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/minus.565" " minus.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/x.565" " x.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/sad.565" " sad.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/bigdot.565" " bigdot.565" $add-deflated-dropin - - " ${BP}/cpu/x86/pc/olpc/images/check.565" " check.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/xogray.565" " xogray.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/ethernet.565" " ethernet.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/usbkey.565" " disk.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/wireless.565" " wlan.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/laptop.565" " int.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/sd.565" " ext.565" $add-deflated-dropin - " verify.img" " verify" $add-deflated-dropin - " os.public" " ospubkey" $add-dropin \ Incompressible - " fw.public" " fwpubkey" $add-dropin \ Incompressible - " fs.public" " fspubkey" $add-dropin \ Incompressible - " lease.public" " leasepubkey" $add-dropin \ Incompressible - " developer.public" " develpubkey" $add-dropin \ Incompressible " sourceurl" " sourceurl" $add-dropin " ${BP}/cpu/x86/pc/olpc/images/Edge1-8k-EQ-Comp-Amp-Short.wav" " splash" $add-deflated-dropin + " ec.img" " ecimage.bin" $add-deflated-dropin + " ${BP}/clients/emacs/x86/emacs.rc" " emacs.rc" $add-deflated-dropin + " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin + " ${BP}/clients/emacs/arm/emacs" " emacs" $add-deflated-dropin + + " nandblaster15_rx.bin" " nb15_rx" $add-deflated-dropin + " nandblaster_tx.bin" " nb_tx" $add-deflated-dropin + \ icons for mfg test gui " testicons/play.565" " play.565" $add-deflated-dropin " testicons/quit.565" " quit.565" $add-deflated-dropin @@ -145,21 +111,52 @@ " testicons/wifi.565" " wifi.565" $add-deflated-dropin " testicons/clock.565" " clock.565" $add-deflated-dropin " testicons/timer.565" " timer.565" $add-deflated-dropin + + " os.public" " ospubkey" $add-dropin \ Incompressible + " fw.public" " fwpubkey" $add-dropin \ Incompressible + " fs.public" " fspubkey" $add-dropin \ Incompressible + " lease.public" " leasepubkey" $add-dropin \ Incompressible + " developer.public" " develpubkey" $add-dropin \ Incompressible + + " builton.fth" " probe-" $add-dropin + +\ " ${BP}/dev/usb2/hcd/ehci/build/ehci.fc" " class0c0320" $add-deflated-dropin + " ${BP}/dev/usb2/device/hub/build/hub.fc" " usb,class9" $add-deflated-dropin + " ${BP}/dev/usb2/device/generic/build/generic.fc" " usbdevice" $add-deflated-dropin + " ${BP}/dev/usb2/device/net/build/usbnet.fc" " usbnet" $add-deflated-dropin + " ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc" " usb,class3,1,1" $add-deflated-dropin + " ${BP}/dev/usb2/device/mouse/build/usbmouse.fc" " usb,class3,1,2" $add-deflated-dropin + " ${BP}/dev/usb2/device/serial/build/usbserial.fc" " usbserial" $add-deflated-dropin + " ${BP}/dev/usb2/device/storage/build/usbstorage.fc" " usbstorage" $add-deflated-dropin + + " ${BP}/ofw/inet/telnetd.fth" " telnetd" $add-deflated-dropin + + " ${BP}/ofw/inet/telnetd.fth" " telnetd" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/bigx.di" $add-file " ${BP}/cpu/x86/pc/olpc/images/bigcheck.di" $add-file " ${BP}/cpu/x86/pc/olpc/images/leds.di" $add-file " ${BP}/cpu/x86/pc/olpc/images/ebook.di" $add-file - " nandblaster15_rx.bin" " nb15_rx" $add-deflated-dropin - " nandblaster_tx.bin" " nb_tx" $add-deflated-dropin -0 [if] - " ${BP}/cpu/x86/pc/olpc/images/tux.565" " tux.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/settings.565" " settings.565" $add-deflated-dropin -[then] - " ec.img" " ecimage.bin" $add-deflated-dropin - " ${BP}/clients/emacs/x86/emacs.rc" " emacs.rc" $add-deflated-dropin - " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin - " ${BP}/clients/emacs/arm/emacs" " emacs" $add-deflated-dropin +\ " ${BP}/cpu/x86/pc/olpc/images/warnings.565" " warnings.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/lightdot.565" " lightdot.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/yellowdot.565" " yellowdot.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/darkdot.565" " darkdot.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/lock.565" " lock.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/unlock.565" " unlock.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/plus.565" " plus.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/minus.565" " minus.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/x.565" " x.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/sad.565" " sad.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/bigdot.565" " bigdot.565" $add-deflated-dropin + + " ${BP}/cpu/x86/pc/olpc/images/check.565" " check.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/xogray.565" " xogray.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/ethernet.565" " ethernet.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/usbkey.565" " disk.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/wireless.565" " wlan.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/laptop.565" " int.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/sd.565" " ext.565" $add-deflated-dropin .( Dropin top is ) ofd @ fsize .x cr

1 0

[commit] r3027 - cpu/arm/olpc
by repository service 29 Jun '12

29 Jun '12

Author: wmb Date: Sat Jun 30 01:42:38 2012 New Revision: 3027 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3027 Log: OLPC ARM - fixed build problem for XO-3 introduced by recent change to build-fw.fth Modified: cpu/arm/olpc/build-fw.fth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Sat Jun 30 00:08:07 2012 (r3026) +++ cpu/arm/olpc/build-fw.fth Sat Jun 30 01:42:38 2012 (r3027) @@ -762,8 +762,13 @@ ; [then] -defined? olpc-cl2 defined? olpc-cl4 or [if] +[ifdef] olpc-cl3 +: game-key@ ( -- n ) + 0 +; +[then] +[ifndef] game-key@ [ifdef] use_mmp2_keypad_control : game-key@ ( -- n ) 0 ( n )

1 0

[commit] r3026 - dev/mmc/sdhci
by repository service 29 Jun '12

29 Jun '12

Author: wmb Date: Sat Jun 30 00:08:07 2012 New Revision: 3026 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3026 Log: Checked in "slot.fth" file needed by previous checkin. Added: dev/mmc/sdhci/slot.fth Added: dev/mmc/sdhci/slot.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/mmc/sdhci/slot.fth Sat Jun 30 00:08:07 2012 (r3026) @@ -0,0 +1,29 @@ +" sdhci" name + +0 " #address-cells" integer-property +0 " #size-cells" integer-property +: open true ; +: close ; + +: r/w-blocks " r/w-blocks" $call-parent ; +: erase-blocks " erase-blocks" $call-parent ; +: fresh-write-blocks-start " fresh-write-blocks-start" $call-parent ; +: r/w-blocks-end " r/w-blocks-end" $call-parent ; +: dma-alloc " dma-alloc" $call-parent ; +: dma-free " dma-free" $call-parent ; +: set-address ( rca -- ) my-unit " set-address" $call-parent ; +: get-address " get-address" $call-parent ; +: attach-card " attach-card" $call-parent ; +: detach-card " detach-card" $call-parent ; +: size " size" $call-parent ; +: show-cid " show-cid" $call-parent ; +: /block " /block" $call-parent ; +: write-protected? " write-protected?" $call-parent ; +: card-inserted? " card-inserted?" $call-parent ; + +: attach-sdio-card " attach-sdio-card" $call-parent ; +: detach-sdio-card " detach-sdio-card" $call-parent ; +: r/w-ioblocks " r/w-ioblocks" $call-parent ; +: io-b@ " io-b@" $call-parent ; +: io-b! " io-b!" $call-parent ; +: io-b!@ " io-b!@" $call-parent ;

1 0

[commit] r3025 - forth/kernel
by repository service 29 Jun '12

29 Jun '12

Author: wmb Date: Fri Jun 29 23:15:23 2012 New Revision: 3025 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3025 Log: Kernel - Increased the depth of the search order from 16 to 32 vocs, just in case. Modified: forth/kernel/kernel.fth Modified: forth/kernel/kernel.fth ============================================================================== --- forth/kernel/kernel.fth Fri Jun 29 23:09:12 2012 (r3024) +++ forth/kernel/kernel.fth Fri Jun 29 23:15:23 2012 (r3025) @@ -1683,7 +1683,7 @@ \ searched while interpreting Forth code. decimal -16 equ nvocs +32 equ nvocs nvocs constant #vocs \ The # of vocabularies that can be in the search path nvocs /token-t * ualloc-t user context \ vocabulary searched first

1 0

[commit] r3024 - cpu/x86 forth/kernel ofw/disklabel
by repository service 29 Jun '12

29 Jun '12

Author: wmb Date: Fri Jun 29 23:09:12 2012 New Revision: 3024 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3024 Log: Moved the definition of "du*" into the kernel. Modified: cpu/x86/acpitimer.fth forth/kernel/double.fth ofw/disklabel/gpttools.fth Modified: cpu/x86/acpitimer.fth ============================================================================== --- cpu/x86/acpitimer.fth Fri Jun 29 23:04:07 2012 (r3023) +++ cpu/x86/acpitimer.fth Fri Jun 29 23:09:12 2012 (r3024) @@ -55,13 +55,8 @@ 1+ dup to timer-high ( timer.low timer.high' ) then ( timer.low timer.high ) ; -: du* ( ud.lo ud.hi u -- res.lo res.mid res.hi ) \ Ignores overflow to third cell - tuck um* 2>r ( ud.lo u r: res.mid0 res.hi0 ) - um* ( res.lo res.mid1 r: res.mid0 res.hi0 ) - 0 2r> d+ ( res.lo res.mid res.hi ) -; : acpi-ticks>usecs ( d.ticks -- usec ) - d# 50 du* drop ( d.product ) \ The scale factor is 1000/3580 == 50/179 + d# 50 du* ( d.product ) \ The scale factor is 1000/3580 == 50/179 d# 179 um/mod nip ( usecs ) ; Modified: forth/kernel/double.fth ============================================================================== --- forth/kernel/double.fth Fri Jun 29 23:04:07 2012 (r3023) +++ forth/kernel/double.fth Fri Jun 29 23:09:12 2012 (r3024) @@ -65,6 +65,15 @@ -rot >>a or ( low2 r: high2 ) r> ( d2 ) ; +: du* ( d1 u -- d2 ) \ Double result + tuck u* >r ( d1.lo u r: d2.hi ) + um* r> + ( d2 ) +; +: du*t ( ud.lo ud.hi u -- res.lo res.mid res.hi ) \ Triple result + tuck um* 2>r ( ud.lo u r: res.mid0 res.hi0 ) + um* ( res.lo res.mid1 r: res.mid0 res.hi0 ) + 0 2r> d+ ( res.lo res.mid res.hi ) +; \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks Modified: ofw/disklabel/gpttools.fth ============================================================================== --- ofw/disklabel/gpttools.fth Fri Jun 29 23:04:07 2012 (r3023) +++ ofw/disklabel/gpttools.fth Fri Jun 29 23:09:12 2012 (r3024) @@ -8,10 +8,6 @@ 32\ alias x- d- 32\ alias xswap 2swap 32\ : onex 1. ; -: du* ( d1 u -- d2 ) - tuck u* >r ( d1.lo u r: d2.hi ) - um* 0 r> d+ ( d2 ) -; 32\ : xu*d ( x u -- d ) du* ; 64\ alias xu*d um*

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware