openfirmware February 2010

openfirmware@openfirmware.info

2 participants
33 discussions

[commit] r1739 - ofw/fs/ext2fs
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:52:26 2010 New Revision: 1739 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1739 Log: OLPC trac 9972 - ext2 filesystem package - fixed a bug in the calculation of backup group descriptor block numbers when the block size is not 1K. Modified: ofw/fs/ext2fs/bitmap.fth ofw/fs/ext2fs/sb.fth Modified: ofw/fs/ext2fs/bitmap.fth ============================================================================== --- ofw/fs/ext2fs/bitmap.fth Sat Feb 13 06:50:43 2010 (r1738) +++ ofw/fs/ext2fs/bitmap.fth Sat Feb 13 06:52:26 2010 (r1739) @@ -169,7 +169,7 @@ \ the block bitmap number in the group descriptor. If it is larger than \ the calculated block number, do the backup. #groups 1 do - i bpg * 2+ ( possible-gn ) + i bpg * gds-fs-block# + ( possible-gn ) dup i block-bitmap < if ( possible-gn ) block ( gdn-adr ) 0 group-desc ( gdn-adr gd0-adr ) Modified: ofw/fs/ext2fs/sb.fth ============================================================================== --- ofw/fs/ext2fs/sb.fth Sat Feb 13 06:50:43 2010 (r1738) +++ ofw/fs/ext2fs/sb.fth Sat Feb 13 06:52:26 2010 (r1739) @@ -90,7 +90,7 @@ ; : gds-fs-block# ( -- fs-block# ) - bsize d# 1024 = if 2 else 1 then ( logical block# ) + datablock0 1+ ( logical-block# ) ; : gds-block# ( -- dev-block# ) gds-fs-block# bsize ublock / * ( dev-block# )

1 0

[commit] r1738 - in ofw: disklabel fs/cdfs
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:50:43 2010 New Revision: 1738 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1738 Log: disk-label package - support unpartitioned disk layout where an ext2/3 filesystem occupies the entire device. Modified: ofw/disklabel/common.fth ofw/disklabel/methods.fth ofw/fs/cdfs/partition.fth Modified: ofw/disklabel/common.fth ============================================================================== --- ofw/disklabel/common.fth Sat Feb 13 06:48:48 2010 (r1737) +++ ofw/disklabel/common.fth Sat Feb 13 06:50:43 2010 (r1738) @@ -17,10 +17,17 @@ 0 instance value sector-offset -: read-sector ( sector# -- ) +\ For ISO-9660 CD-ROMs +: read-hw-sector ( sector# -- ) sector-offset + /sector um* " seek" $call-parent abort" Seek failed" sector-buf /sector " read" $call-parent /sector <> abort" Read failed" ; +\ For everything else +: read-sector ( sector# -- ) + sector-offset + h# 200 um* " seek" $call-parent abort" Seek failed" + sector-buf h# 200 " read" $call-parent h# 200 <> abort" Read failed" +; + \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks \ Modified: ofw/disklabel/methods.fth ============================================================================== --- ofw/disklabel/methods.fth Sat Feb 13 06:48:48 2010 (r1737) +++ ofw/disklabel/methods.fth Sat Feb 13 06:50:43 2010 (r1738) @@ -98,6 +98,11 @@ then [then] + 2 read-sector ext2? if + ext2fs-type to partition-type + get-disk-size exit + then + \ Nothing we tried worked. abort ; Modified: ofw/fs/cdfs/partition.fth ============================================================================== --- ofw/fs/cdfs/partition.fth Sat Feb 13 06:48:48 2010 (r1737) +++ ofw/fs/cdfs/partition.fth Sat Feb 13 06:50:43 2010 (r1738) @@ -4,7 +4,7 @@ \ Returns true if the disk or partition is an ISO 9660 file \ system volume, as determined by reading the primary volume descriptor. : iso-9660? ( -- flag ) - d# 16 ['] read-sector catch if drop false exit then + d# 16 ['] read-hw-sector catch if drop false exit then sector-buf c@ 1 = sector-buf 1+ 5 " CD001" $= and dup if ( flag ) iso-type to partition-type

1 0

[commit] r1737 - forth/lib
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:48:48 2010 New Revision: 1737 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1737 Log: sprintf - fixed egregious bug in the handling of backslash escapes. Modified: forth/lib/printf.fth Modified: forth/lib/printf.fth ============================================================================== --- forth/lib/printf.fth Sat Feb 13 06:48:07 2010 (r1736) +++ forth/lib/printf.fth Sat Feb 13 06:48:48 2010 (r1737) @@ -38,13 +38,13 @@ : replace\ ( ... tail$ -- ... tail$' ) \ Handle backslash escapes 1/string ( ... tail$ char ) case - [char] n of newline +spchar then - [char] r of carret +spchar then - [char] t of control i +spchar then - [char] f of control l +spchar then - [char] l of linefeed +spchar then - [char] b of control h +spchar then - [char] ! of bell +spchar then + [char] n of newline +spchar endof + [char] r of carret +spchar endof + [char] t of control i +spchar endof + [char] f of control l +spchar endof + [char] l of linefeed +spchar endof + [char] b of control h +spchar endof + [char] ! of bell +spchar endof ( default ) dup +spchar endcase ;

1 0

[commit] r1736 - dev/usb2/device/wlan
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:48:07 2010 New Revision: 1736 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1736 Log: OLPC XO-1.0 - fixed regression in wireless open routine - new USB set-config scheme was improperly applied to the wireless driver. Modified: dev/usb2/device/wlan/usb8388.fth Modified: dev/usb2/device/wlan/usb8388.fth ============================================================================== --- dev/usb2/device/wlan/usb8388.fth Sat Feb 13 06:47:01 2010 (r1735) +++ dev/usb2/device/wlan/usb8388.fth Sat Feb 13 06:48:07 2010 (r1736) @@ -61,6 +61,13 @@ : set-parent-channel ( -- ) set-device device set-target ; : setup-bus-io ( /inbuf /outbuf -- error? ) + reset? if + configuration set-config if + ." Failed to set USB configuration for wireless" cr + true exit + then + bulk-in-pipe bulk-out-pipe reset-bulk-toggles + then 4 bulk-out-pipe " begin-out-ring" $call-parent ( /inbuf ) h# 40 bulk-in-pipe " begin-in-ring" $call-parent false

1 0

[commit] r1735 - dev/usb2/device/wlan
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:47:01 2010 New Revision: 1735 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1735 Log: OLPC XO-1.0 - fixed regression in wireless firmware download result checking. Modified: dev/usb2/device/wlan/fw8388.fth Modified: dev/usb2/device/wlan/fw8388.fth ============================================================================== --- dev/usb2/device/wlan/fw8388.fth Sat Feb 13 06:45:40 2010 (r1734) +++ dev/usb2/device/wlan/fw8388.fth Sat Feb 13 06:47:01 2010 (r1735) @@ -28,8 +28,9 @@ constant /boot-ack \ >cmd-ack-status -0 constant boot-ack-ok \ Download ok -1 constant boot-ack-fail \ Download failed +1 constant boot-ack-ok \ Download ok +\ 0 constant boot-ack-fail \ Download failed +\ 2 constant boot-ack-unsupported \ Unsupported command \ USB image download request structure struct @@ -73,11 +74,12 @@ " Bad command status length" vtype false exit then ( adr ) - >boot-magic le-l@ case ( ) - 0 of false exit endof \ BOOT_CMD_RESP_FAIL - 1 of true exit endof \ BOOT_CMD_RESP_OK - 2 of false exit endof \ BOOT_CMD_RESP_NOT_SUPPORTED - endcase + dup >boot-magic le-l@ boot-magic <> if ( adr ) + drop ( ) + " Bad magic number in boot response" vtype ( ) + false exit + then ( adr ) + >cmd-status c@ boot-ack-ok = ( ok? ) ; : wait-cmd-fw-dl-ack ( -- acked? )

1 0

[commit] r1734 - dev
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:45:40 2010 New Revision: 1734 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1734 Log: Added adhoc-start to Libertas wireless driver. Modified: dev/libertas.fth Modified: dev/libertas.fth ============================================================================== --- dev/libertas.fth Sat Feb 13 06:44:37 2010 (r1733) +++ dev/libertas.fth Sat Feb 13 06:45:40 2010 (r1734) @@ -687,7 +687,7 @@ outbuf-wait ; -: set-mac-control ( -- error? ) +: set-mac-control ( -- ) (set-mac-control) if (set-mac-control) drop then @@ -1033,6 +1033,50 @@ 4 pick to channel ; +: adhoc-start ( ch ssid$ -- ok? ) + set-mac-control + + h# 2b ( CMD_802_11_AD_HOC_START ) start-cmd + resp-wait-long to resp-wait + + ( ssid$ ) tuck +x$ \ SSID + ( ssid-len ) d# 32 swap - +x \ 32 bytes of SSID (zero-padded because buffer is pre-erased) + 2 +xb \ BssType: BSS_INDEPENDENT + d# 100 +xw \ Beacon period + 0 +xb \ DTIM period (only for versions < 9) + + \ IBSS param set + 6 +xb \ Elem ID = IBSS param set + 2 +xb \ Length + atim +xw \ ATIM window + 4 +x \ Reserved bytes + + \ DS param set + 3 +xb \ Elem ID = DS param set + 1 +xb \ Length + ( channel ) +xb \ Channel + 4 +x \ Reserved bytes + + 0 +xw \ Probe delay in uS (only for versions < 9) + + 2 +xw \ Capability info: IBSS (WEP/WPA would add h# 10) + + \ XXX 14 bytes for 802.11g, 8 bytes for 802.11b + supported-rates$ +x$ \ Common supported data rates + + d# 100 +x \ Padding as present in libertas Linux driver + + finish-cmd outbuf-wait if ." Failed to start adhoc network" cr false exit then + \ We could get the bssid from offsets 3..8 of the response buf if we needed it + true + ds-associated set-driver-state +; +: adhoc-stop ( -- ) + h# 40 ( CMD_802_11_AD_HOC_STOP ) start-cmd + finish-cmd outbuf-wait if ." Failed to stop adhoc network" cr then + ds-associated reset-driver-state +; + : (join) ( ch ssid$ target-mac$ -- ok? ) save-associate-params h# 2c ( CMD_802_11_AD_HOC_JOIN ) start-cmd @@ -1040,7 +1084,7 @@ ( target-mac$ ) +x$ \ Peer MAC address ( ssid$ ) tuck +x$ \ SSID - ( ssid-len ) d# 32 swap - +x \ 32 bytes of SSID + ( ssid-len ) d# 32 swap - +x \ 32 bytes of SSID (zero-padded because buffer is pre-erased) bss-type-adhoc +xb \ BSS type d# 100 +xw \ Beacon period 1 +xb \ DTIM period @@ -1065,7 +1109,7 @@ \ XXX 14 bytes for 802.11g, 8 bytes for 802.11b common-rates #rates +x$ \ Common supported data rates d# 255 +xw \ Association timeout - 0 +xw \ Probe delay time + 0 +xw \ Probe delay time finish-cmd outbuf-wait if ." Failed to join adhoc network" cr false exit then true @@ -1299,7 +1343,7 @@ 2drop 2drop mesh-start 0= ( ok? ) dup if mesh-default-modes then exit - then + then ( ch ssid$ target-mac$ ) ?set-wep \ Set WEP keys again, if ktype is WEP set-mac-control 2dup authenticate

1 0

[commit] r1733 - cpu/x86/pc/olpc/via
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:44:37 2010 New Revision: 1733 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1733 Log: OLPC XO 1.5 - Removed unused icons from dropin list. Modified: cpu/x86/pc/olpc/via/olpc.bth Modified: cpu/x86/pc/olpc/via/olpc.bth ============================================================================== --- cpu/x86/pc/olpc/via/olpc.bth Sat Feb 13 06:44:02 2010 (r1732) +++ cpu/x86/pc/olpc/via/olpc.bth Sat Feb 13 06:44:37 2010 (r1733) @@ -136,12 +136,9 @@ " ${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/laptop.565" " nand.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/laptop.565" " fastnand.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/xo.565" " xo.565" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/images/sd.565" " sd.565" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/DisplayEDID.raw" " edid" $add-deflated-dropin

1 0

[commit] r1732 - cpu/x86/pc/olpc/via
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:44:02 2010 New Revision: 1732 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1732 Log: OLPC XO 1.5 - Fixed bug in enable-serial - wrong number base caused wrong value to be written to wrong register. Modified: cpu/x86/pc/olpc/via/fw.bth Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Sat Feb 13 06:42:37 2010 (r1731) +++ cpu/x86/pc/olpc/via/fw.bth Sat Feb 13 06:44:02 2010 (r1732) @@ -744,7 +744,7 @@ : enable-serial ( -- ) serial-enabled? if exit then - 40 8846 config-b! + h# 40 h# 8846 config-b! " com1" open-dev add-input " com1" open-dev add-output ;

1 0

[commit] r1731 - cpu/x86/pc/olpc
by repository service 13 Feb '10

13 Feb '10

Author: wmb Date: Sat Feb 13 06:42:37 2010 New Revision: 1731 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1731 Log: Removed unused definitions in OLPC GUI - for obsolete boot progress reporting mechanism. Modified: cpu/x86/pc/olpc/gui.fth Modified: cpu/x86/pc/olpc/gui.fth ============================================================================== --- cpu/x86/pc/olpc/gui.fth Mon Feb 8 22:18:43 2010 (r1730) +++ cpu/x86/pc/olpc/gui.fth Sat Feb 13 06:42:37 2010 (r1731) @@ -65,8 +65,6 @@ : advance ( -- ) icon-xy image-width 0 d+ to icon-xy ; -: $show&advance ( filename$ -- ) $show advance ; - : fix-cursor ( -- ) cursor-on ['] user-ok to (ok) user-ok ; : .mem ( -- ) memory-size .d ." MB SDRAM" ; @@ -288,8 +286,6 @@ : error-banner ( -- ) error-shown? if exit then true to error-shown? - " error" $show&advance - .sysinfo ; : visual-error ( error# -- ) @@ -328,13 +324,6 @@ 0 to image-width 0 to image-height \ In case $show-bmp fails -[ifdef] old-way -\ The graphical boot sequence display at the top of the screen -\ has been superseded by the new secure pretty-boot scheme . - avoid-logo - " olpc" $show&advance -[then] - icon-xy to first-icon-xy show-sysinfo? if .sysinfo then @@ -359,15 +348,6 @@ device-end [then] -: show-nand ( -- ) " nandflash" $show&advance ; -: show-disk ( -- ) " disk" $show&advance ; -: show-xo ( -- ) " xo" $show&advance ; - -: simple-load-started ( -- ) - screen-ih if ['] show-xo to load-done then -; -['] simple-load-started to load-started - h# 32 buffer: icon-name : show-icon ( basename$ -- ) @@ -375,31 +355,6 @@ $show ( ) ; -: ?show-package-icon ( adr len -- ) - locate-device if exit then ( phandle ) - - " icon" 2 pick get-package-property 0= if ( phandle prop$ ) - $prep&draw advance ( phandle ) - drop exit - then ( phandle ) - - " iconname" 2 pick get-package-property 0= if ( phandle prop$ ) - get-encoded-string show-icon advance ( phandle ) - drop exit - then ( phandle ) - - " name" 2 pick get-package-property 0= if ( phandle prop$ ) - get-encoded-string show-icon advance ( phandle ) - drop exit - then ( phandle ) - - drop -; -: (?show-device) ( adr len -- adr len ) - screen-ih if 2dup ?show-package-icon then -; -' (?show-device) to ?show-device - : frozen? ( -- flag ) " vga?" $call-screen 0= ; : dcon-freeze ( -- ) 0 " set-source" $call-screen d# 30 ms ; : dcon-unfreeze ( -- ) 1 " set-source" $call-screen d# 30 ms ;

1 0

Porting to the Renesas SH7723
by Andrew Holt (SE) 11 Feb '10

11 Feb '10

Hi, I guess the subject says it all. Has anybody ported openfirmware to a SuperH (SH7723) processor from Renesas ? Thanks, Andrew ============================= Andrew Holt Email: andrew.holt(a)electrans.com Phone: 0151 347 2264 Mobile: 07841 340608 De Omnibus Dubitandum =============================

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware February 2010