openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r2953 - ofw/fs/ext2fs
by repository service 25 Apr '12

25 Apr '12

Author: quozl Date: Wed Apr 25 06:53:43 2012 New Revision: 2953 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2953 Log: ext2fs - interpret a zero physical block in the block list of an inode as meaning the block does not exist, OLPC trac #11812 Modified: ofw/fs/ext2fs/layout.fth Modified: ofw/fs/ext2fs/layout.fth ============================================================================== --- ofw/fs/ext2fs/layout.fth Wed Apr 25 01:31:11 2012 (r2952) +++ ofw/fs/ext2fs/layout.fth Wed Apr 25 06:53:43 2012 (r2953) @@ -71,7 +71,9 @@ >pblk-adr dup 0= if ( 0 ) exit ( -- false ) then ( adr ) - int@ u>d true ( d.physical-block# true ) + int@ dup 0<> if ( u.physical-block# ) + u>d true ( -- d.physical-block# true ) + then ( -- false ) \ there is no physical block ;

1 0

[commit] r2952 - cpu/arm/olpc/1.75
by repository service 24 Apr '12

24 Apr '12

Author: quozl Date: Wed Apr 25 01:31:11 2012 New Revision: 2952 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2952 Log: Q4D11 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 Apr 25 01:29:57 2012 (r2951) +++ cpu/arm/olpc/1.75/fw-version.fth Wed Apr 25 01:31:11 2012 (r2952) @@ -1,4 +1,4 @@ \ The overall firmware revision macro: FW_PREFIX Q4 macro: FW_MAJOR D -macro: FW_MINOR 10 +macro: FW_MINOR 11

1 0

[commit] r2951 - ofw/fs/ext2fs
by repository service 24 Apr '12

24 Apr '12

Author: quozl Date: Wed Apr 25 01:29:57 2012 New Revision: 2951 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2951 Log: ext2fs - fix debugging mode and a stack comment Modified: ofw/fs/ext2fs/blocks.fth ofw/fs/ext2fs/sb.fth Modified: ofw/fs/ext2fs/blocks.fth ============================================================================== --- ofw/fs/ext2fs/blocks.fth Wed Apr 25 01:26:40 2012 (r2950) +++ ofw/fs/ext2fs/blocks.fth Wed Apr 25 01:29:57 2012 (r2951) @@ -99,7 +99,7 @@ : d.block ( d.block# -- a ) 2dup d.(buffer) if nip nip exit then ( d.block# buffer-adr ) - bbug? if ." r " 2 pick over d. cr then ( d.block# buffer-adr ) + bbug? if ." r " 2 pick 2 pick d. cr then ( d.block# buffer-adr ) dup 2swap d.read-fs-block abort" read error " ( buffer-adr ) ; : block ( block# -- a ) u>d d.block ; Modified: ofw/fs/ext2fs/sb.fth ============================================================================== --- ofw/fs/ext2fs/sb.fth Wed Apr 25 01:26:40 2012 (r2950) +++ ofw/fs/ext2fs/sb.fth Wed Apr 25 01:29:57 2012 (r2951) @@ -113,7 +113,7 @@ super-block /super-block super-block# u>d d.write-ublocks ; -: d.read-ublocks ( adr len dev-block# -- error? ) +: d.read-ublocks ( adr len d.dev-block# -- error? ) ublock du* " seek" $call-parent ?dup if exit then ( adr len ) tuck " read" $call-parent <> ;

1 0

[commit] r2950 - dev/usb2/device/net
by repository service 24 Apr '12

24 Apr '12

Author: wmb Date: Wed Apr 25 01:26:40 2012 New Revision: 2950 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2950 Log: ASIX USB-LAN driver - power off the PHY when closing the device, thus eliminating excess power consumption during S3 selftest in manufacturing. The disadvantage is that subsequent opens take longer. Test case: ok select net unselect alarm-in-3 strp Modified: dev/usb2/device/net/ax8817x.fth dev/usb2/device/net/common.fth dev/usb2/device/net/ethernet.fth Modified: dev/usb2/device/net/ax8817x.fth ============================================================================== --- dev/usb2/device/net/ax8817x.fth Mon Apr 23 08:36:30 2012 (r2949) +++ dev/usb2/device/net/ax8817x.fth Wed Apr 25 01:26:40 2012 (r2950) @@ -179,6 +179,11 @@ d# 10 ms \ Just in case the link status bit isn't ready just yet ; +: ax-stop-phy ( -- ) + ax88772? if + h# 40 ax-sw-reset \ Power off internal PHY, reset external one (08 == 0) + then +; : select-phy ( -- ) ax88772? if \ Linksys USB200M uses the built-in PHY, DLink DUB-E100 uses an external one @@ -316,6 +321,7 @@ ['] ax-link-up? to link-up? ['] ax-start-mac to start-mac ['] ax-start-phy to start-phy + ['] ax-stop-phy to stop-phy ['] ax-stop-mac to stop-mac ['] ax-get-mac-address to get-mac-address ['] ax-mii@ to mii@ Modified: dev/usb2/device/net/common.fth ============================================================================== --- dev/usb2/device/net/common.fth Mon Apr 23 08:36:30 2012 (r2949) +++ dev/usb2/device/net/common.fth Wed Apr 25 01:26:40 2012 (r2950) @@ -23,6 +23,7 @@ defer unwrap-msg ( adr len -- adr' len' ) ' noop to unwrap-msg defer link-up? ( -- up? ) ' true to link-up? defer start-phy ( -- ) ' noop to start-phy +defer stop-phy ( -- ) ' noop to stop-phy defer start-mac ( -- ) ' noop to start-mac defer stop-mac ( -- ) ' noop to stop-mac defer mii{ ( -- ) ' noop to mii{ \ Acquire Modified: dev/usb2/device/net/ethernet.fth ============================================================================== --- dev/usb2/device/net/ethernet.fth Mon Apr 23 08:36:30 2012 (r2949) +++ dev/usb2/device/net/ethernet.fth Wed Apr 25 01:26:40 2012 (r2950) @@ -31,6 +31,7 @@ stop-mac end-bulk-in free-buf + stop-phy ; external @@ -41,7 +42,7 @@ : copy-packet ( adr len -- len' ) dup multi-packet? if 4 + then ( adr len len' ) - /outbuf > if ." USB Ethernet write packet too long" cr stop-mac abort then ( adr len ) + /outbuf > if ." USB Ethernet write packet too long" cr stop-net abort then ( adr len ) multi-packet? if ( adr len ) dup wbsplit ( adr len len.low len.high ) @@ -71,7 +72,7 @@ \ The data format is: \ length.leword ~length.leword data [ pad-to-even ] : extract-packet ( -- data-adr len ) - residue 4 < if ." Short residue from USB Ethernet" cr stop-mac abort then + residue 4 < if ." Short residue from USB Ethernet" cr stop-net abort then pkt-adr dup 4 + swap >r r@ c@ r@ 1+ c@ bwjoin ( data-adr length ) @@ -130,7 +131,7 @@ 0 ( adr 0 ) then ( adr ihandle|0 ) - dup 0= if ." Can't open obp-tftp support package" stop-mac abort then + dup 0= if ." Can't open obp-tftp support package" stop-net abort then ( adr ihandle ) >r @@ -185,6 +186,7 @@ link-up? 0= if ." Network not connected." cr + stop-phy true exit then

1 0

[commit] r2949 - ofw/fs/ext2fs
by repository service 23 Apr '12

23 Apr '12

Author: quozl Date: Mon Apr 23 08:36:30 2012 New Revision: 2949 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2949 Log: ext2fs - avoid duplicate directory creation by mkdir, #11799 Modified: ofw/fs/ext2fs/methods.fth Modified: ofw/fs/ext2fs/methods.fth ============================================================================== --- ofw/fs/ext2fs/methods.fth Mon Apr 23 03:46:26 2012 (r2948) +++ ofw/fs/ext2fs/methods.fth Mon Apr 23 08:36:30 2012 (r2949) @@ -14,6 +14,11 @@ ; : $mkdir ( name$ -- error? ) + dirent-vars 2>r 2>r ( name$ ) + 2dup $find-file ( name$ error? ) + 2r> 2r> restore-dirent ( name$ error? ) + 0= if 2drop true exit then ( name$ ) + o# 40777 ($create) if true exit then dirent-inode@ set-inode

1 0

[commit] r2948 - cpu/x86/pc/olpc
by repository service 23 Apr '12

23 Apr '12

Author: quozl Date: Mon Apr 23 03:46:26 2012 New Revision: 2948 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2948 Log: OLPC XO-1 - change help to track 12.1.0 decision against ubifs. Modified: cpu/x86/pc/olpc/help.fth Modified: cpu/x86/pc/olpc/help.fth ============================================================================== --- cpu/x86/pc/olpc/help.fth Fri Apr 20 09:07:04 2012 (r2947) +++ cpu/x86/pc/olpc/help.fth Mon Apr 23 03:46:26 2012 (r2948) @@ -4,7 +4,8 @@ : help ( -- ) blue-letters ." INSTALLATION:" cancel mcr \ ================================================================================ - ." update-nand u:\os.img Install OS from USB drive to internal storage" mcr + ." copy-nand u:\os.img Install OS from USB drive to internal storage" mcr + ." update-nand u:\os.img Install a partitioned OS to internal storage" mcr ." flash u:\q2f08.rom Install firmware from USB drive" mcr blue-letters ." DIRECTORY LISTING:" cancel mcr ." dir u:\ List USB drive root directory" mcr

1 0

[commit] r2947 - ofw/fs/ext2fs
by repository service 20 Apr '12

20 Apr '12

Author: quozl Date: Fri Apr 20 09:07:04 2012 New Revision: 2947 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2947 Log: ext2fs - fix inode reference count for directories on filesystems without DIR_NLINK, and maintain directory count in group descriptor, #11787 Modified: ofw/fs/ext2fs/bitmap.fth ofw/fs/ext2fs/dir.fth ofw/fs/ext2fs/sb.fth Modified: ofw/fs/ext2fs/bitmap.fth ============================================================================== --- ofw/fs/ext2fs/bitmap.fth Thu Apr 19 21:05:54 2012 (r2946) +++ ofw/fs/ext2fs/bitmap.fth Fri Apr 20 09:07:04 2012 (r2947) @@ -75,11 +75,32 @@ then ( n r: adr ) r> h# 0e + le-w! ( ) ; -: free-inodes+! ( n inode# -- ) +: free-inodes+! ( n group# -- ) tuck free-inodes@ + ( group# n' ) over free-inodes! ( group# ) gd-update ( ) ; +: used-dirs@ ( group# -- n ) + group-desc dup h# 10 + le-w@ ( adr lo ) + desc64? if ( adr lo ) + swap h# 30 + le-w@ wljoin ( n ) + else ( adr lo ) + nip ( n ) + then ( n ) +; +: used-dirs! ( n group# -- ) + group-desc >r ( n r: adr ) + desc64? if ( n r: adr ) + lwsplit ( lo hi r: adr ) + r@ h# 30 + le-w! ( lo r: adr ) + then ( n r: adr ) + r> h# 10 + le-w! ( ) +; +: used-dirs+! ( n group# -- ) + tuck used-dirs@ + ( group# n' ) + over used-dirs! ( group# ) + gd-update ( ) +; [ifdef] 386-assembler code find-low-zero ( n -- bit# ) Modified: ofw/fs/ext2fs/dir.fth ============================================================================== --- ofw/fs/ext2fs/dir.fth Thu Apr 19 21:05:54 2012 (r2946) +++ ofw/fs/ext2fs/dir.fth Fri Apr 20 09:07:04 2012 (r2947) @@ -78,7 +78,7 @@ : +link-count ( increment -- ) \ link-count = 1 means that the directory has more links than can \ be represented in a 16-bit number; don't increment in that case. - dir? if ( increment ) + dir? sb-nlink? and if ( increment ) link-count 1 = if ( increment ) drop exit ( -- ) then ( increment ) @@ -89,7 +89,7 @@ \ If the incremented value exceeds the limit, store 1 \ We should also set the RO_COMPAT_DIR_NLINK bit in the superblock, \ but we assume that OFW won't be used to create enormous directories - dir? if ( link-count ) + dir? sb-nlink? and if ( link-count ) dup d# 65000 >= if ( link-count ) drop 1 ( link-count' ) then ( link-count' ) @@ -106,6 +106,9 @@ dup ctime! ( time ) \ set creation time mtime! ( ) \ set modification time 0 link-count! ( ) \ link count will be incremented by new-dirent + dir? if + 1 inode# 1- ipg / used-dirs+! + then inode# ( inode# ) ; @@ -214,6 +217,10 @@ \ Delete the currently selected inode. Does not affect the directory entry, if any. : idelete ( -- ) + dir? if + -1 inode# 1- ipg / used-dirs+! + then + \ Short symlinks hold no blocks, but have a string in the direct block list, \ so we must not interpret that string as a block list. d.#blks-held d0<> if @@ -276,7 +283,7 @@ new-inode ( name$ inode# ) \ new-inode changed the value of inode#; we must restore it so - \ new-dirent can find info about the containing diretory + \ new-dirent can find info about the containing directory wd-inum set-inode ( name$ inode# ) new-dirent ( error? ) Modified: ofw/fs/ext2fs/sb.fth ============================================================================== --- ofw/fs/ext2fs/sb.fth Thu Apr 19 21:05:54 2012 (r2946) +++ ofw/fs/ext2fs/sb.fth Fri Apr 20 09:07:04 2012 (r2947) @@ -57,6 +57,7 @@ : 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<> ; +: sb-nlink? ( -- flag ) ro-flags h# 20 and 0<> ; \ Don't write to a disk that uses extensions we don't understand : unknown-extensions? ( -- unsafe? )

1 0

[commit] r2946 - ofw/fs/ext2fs
by repository service 19 Apr '12

19 Apr '12

Author: wmb Date: Thu Apr 19 21:05:54 2012 New Revision: 2946 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2946 Log: OLPC trac 11786 - fixed bug with file deletion introduced by svn 2817. Modified: ofw/fs/ext2fs/dir.fth Modified: ofw/fs/ext2fs/dir.fth ============================================================================== --- ofw/fs/ext2fs/dir.fth Thu Apr 19 03:43:07 2012 (r2945) +++ ofw/fs/ext2fs/dir.fth Thu Apr 19 21:05:54 2012 (r2946) @@ -77,15 +77,25 @@ : +link-count ( increment -- ) \ link-count = 1 means that the directory has more links than can - \ be represented in a 16-bit number - link-count 1 = if drop exit then \ Don't increment if already 1 + \ be represented in a 16-bit number; don't increment in that case. + dir? if ( increment ) + link-count 1 = if ( increment ) + drop exit ( -- ) + then ( increment ) + then ( increment ) + + link-count + ( link-count' ) \ If the incremented value exceeds the limit, store 1 \ We should also set the RO_COMPAT_DIR_NLINK bit in the superblock, - \ but we assume that OFW won't really be used to create enormous directories - link-count + dup d# 65000 >= if drop 1 then ( link-count ) + \ but we assume that OFW won't be used to create enormous directories + dir? if ( link-count ) + dup d# 65000 >= if ( link-count ) + drop 1 ( link-count' ) + then ( link-count' ) + then ( link-count ) - link-count! + link-count! ( ) ; : new-inode ( mode -- inode# )

1 0

[commit] r2945 - cpu/arm/olpc/1.75
by repository service 19 Apr '12

19 Apr '12

Author: quozl Date: Thu Apr 19 03:43:07 2012 New Revision: 2945 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2945 Log: Q4D10 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 Tue Apr 17 03:04:04 2012 (r2944) +++ cpu/arm/olpc/1.75/fw-version.fth Thu Apr 19 03:43:07 2012 (r2945) @@ -1,4 +1,4 @@ \ The overall firmware revision macro: FW_PREFIX Q4 macro: FW_MAJOR D -macro: FW_MINOR 09 +macro: FW_MINOR 10

1 0

[commit] r2944 - cpu/arm/mmp2
by repository service 17 Apr '12

17 Apr '12

Author: quozl Date: Tue Apr 17 03:04:04 2012 New Revision: 2944 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2944 Log: OLPC XO-1.75 - restore thermal protection after suspend, #11779 Modified: cpu/arm/mmp2/dramrecal.fth cpu/arm/mmp2/thermal.fth Modified: cpu/arm/mmp2/dramrecal.fth ============================================================================== --- cpu/arm/mmp2/dramrecal.fth Fri Apr 13 07:01:36 2012 (r2943) +++ cpu/arm/mmp2/dramrecal.fth Tue Apr 17 03:04:04 2012 (r2944) @@ -869,6 +869,7 @@ timers-wake resume-usb enable-interrupts + init-thermal-sensor ; : strp ( -- ) ec-rst-pwr str ec-max-pwr .d ." mW " soc .% space ; Modified: cpu/arm/mmp2/thermal.fth ============================================================================== --- cpu/arm/mmp2/thermal.fth Fri Apr 13 07:01:36 2012 (r2943) +++ cpu/arm/mmp2/thermal.fth Tue Apr 17 03:04:04 2012 (r2944) @@ -1,11 +1,25 @@ \ See license at end of file purpose: Driver for the MMP2 thermal sensor +\ See also cforth:src/app/arm-xo-1.75/thermal.fth h# 013200 value thermal-base +: room-temp@ ( -- n ) thermal-base io@ ; +: room-temp! ( n -- ) thermal-base io! ; +thermal-base h# 4 + value wd-thresh +: wd-thresh@ ( -- n ) wd-thresh io@ ; +: wd-thresh! ( n -- ) wd-thresh io! ; +\ thermal-base h# 8 + value lo-thresh +\ thermal-base h# c + value hi-thresh +thermal-base h# 10 + value ts-ctrl +: ts-ctrl! ( n -- ) ts-ctrl io! ; + : init-thermal-sensor ( -- ) thermal-base io@ h# 400 and if exit then 7 h# 90 apbc! 3 h# 90 apbc! \ Enable clocks to thermal sensor - h# 10000 thermal-base io! \ Enable sensing + h# 10000 room-temp! \ Enable sensing + d# 696 wd-thresh! \ Set thermal watchdog threshold to 85C + h# 88 ts-ctrl! \ Clear thermal watchdog reset status + \ Set thermal watchdog reset enable ; \ thermal watchdog is enabled by CForth @@ -46,10 +60,6 @@ wdtpcr io! ; -thermal-base h# 4 + value wd-thresh -: wd-thresh@ ( -- n ) wd-thresh io@ ; -: wd-thresh! ( n -- ) wd-thresh io! ; - : .c ( n -- ) (.) type ." C " ; : .thermal

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware