[commit] r2958 - forth/kernel
by repository service
Author: wmb
Date: Mon Apr 30 19:38:14 2012
New Revision: 2958
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2958
Log:
OLPC trac 11823 - sys-time&date was returning the wrong month. OFW represents month numbers as 1..12, consistent with human usage, while POSIX localtime() represents them as 0..11, more convenient for indexing into C arrays.
Modified:
forth/kernel/sysio.fth
Modified: forth/kernel/sysio.fth
==============================================================================
--- forth/kernel/sysio.fth Mon Apr 30 00:40:54 2012 (r2957)
+++ forth/kernel/sysio.fth Mon Apr 30 19:38:14 2012 (r2958)
@@ -171,8 +171,8 @@
: l@+ ( adr -- l adr' ) dup l@ swap la1+ ;
: sys-time&date ( -- s m h d m y )
- d# 64 syscall retval ( adr )
- l@+ l@+ l@+ l@+ l@+ l@+ drop d# 1900 + ( s m h d m y )
+ d# 64 syscall retval ( adr )
+ l@+ l@+ l@+ l@+ l@+ 1+ l@+ drop d# 1900 + ( s m h d m y )
;
: install-wrapper-alloc ( -- )
7 years, 2 months
[commit] r2957 - dev/olpc/kb3700
by repository service
Author: quozl
Date: Mon Apr 30 00:40:54 2012
New Revision: 2957
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2957
Log:
OLPC XO-1.75 - new EC command for USB power control. Caller should also true to first-usb-probe?
Modified:
dev/olpc/kb3700/eccmds.fth
Modified: dev/olpc/kb3700/eccmds.fth
==============================================================================
--- dev/olpc/kb3700/eccmds.fth Thu Apr 26 01:52:00 2012 (r2956)
+++ dev/olpc/kb3700/eccmds.fth Mon Apr 30 00:40:54 2012 (r2957)
@@ -89,9 +89,12 @@
: ols-assy-mode-on ( -- ) h# 59 ec-cmd ;
: ols-assy-mode-off ( -- ) h# 5a ec-cmd ;
-: ec-min-pwr ( -- ) h# 5d ec-cmd-w@ w->n ;
-: ec-max-pwr ( -- ) h# 5e ec-cmd-w@ w->n ;
-: ec-rst-pwr ( -- ) h# 5f ec-cmd ;
+: ec-min-pwr ( -- n ) h# 5d ec-cmd-w@ w->n ;
+: ec-max-pwr ( -- n ) h# 5e ec-cmd-w@ w->n ;
+: ec-rst-pwr ( -- ) h# 5f ec-cmd ;
+: ec-sus-pwr ( -- n ) h# 6d ec-cmd-w@ w->n ;
+
+: ec-hub-pwr ( b -- ) h# 6e ec-cmd-b! ;
[ifdef] notdef \ These commands are awaiting documentation on their interfaces
7 years, 2 months
[commit] r2956 - cpu/arm/olpc/1.75
by repository service
Author: quozl
Date: Thu Apr 26 01:52:00 2012
New Revision: 2956
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2956
Log:
Q4D12
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 Thu Apr 26 01:51:11 2012 (r2955)
+++ cpu/arm/olpc/1.75/fw-version.fth Thu Apr 26 01:52:00 2012 (r2956)
@@ -1,4 +1,4 @@
\ The overall firmware revision
macro: FW_PREFIX Q4
macro: FW_MAJOR D
-macro: FW_MINOR 11
+macro: FW_MINOR 12
7 years, 2 months
[commit] r2955 - ofw/fs/ext2fs
by repository service
Author: quozl
Date: Thu Apr 26 01:51:11 2012
New Revision: 2955
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2955
Log:
ext2fs - test script, remove parted warning
Modified:
ofw/fs/ext2fs/ext2test.sh
Modified: ofw/fs/ext2fs/ext2test.sh
==============================================================================
--- ofw/fs/ext2fs/ext2test.sh Thu Apr 26 01:40:13 2012 (r2954)
+++ ofw/fs/ext2fs/ext2test.sh Thu Apr 26 01:51:11 2012 (r2955)
@@ -105,8 +105,8 @@
# echo "ok"
echo -n "create new partition ... "
-echo /sbin/parted --script -- ${DEVICE} mkpart primary ext2 0 ${END}
-/sbin/parted --script -- ${DEVICE} mkpart primary ext2 0 ${END} || true
+echo /sbin/parted --script -- ${DEVICE} mkpart primary ext2 1048576B ${END}
+/sbin/parted --script -- ${DEVICE} mkpart primary ext2 1048576B ${END} || true
echo "ok"
if [ -b ${DEVICE} ] ; then
7 years, 2 months
[commit] r2954 - dev/usb2/device/net
by repository service
Author: wmb
Date: Thu Apr 26 01:40:13 2012
New Revision: 2954
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2954
Log:
ASIX USB-LAN driver - fixed error in the previous change to this driver. The problem was that only the first open would work, since the phy init code was in a function that is only called after a reset of the USB port.
Modified:
dev/usb2/device/net/ax8817x.fth
Modified: dev/usb2/device/net/ax8817x.fth
==============================================================================
--- dev/usb2/device/net/ax8817x.fth Wed Apr 25 06:53:43 2012 (r2953)
+++ dev/usb2/device/net/ax8817x.fth Thu Apr 26 01:40:13 2012 (r2954)
@@ -241,6 +241,8 @@
;
: ax-start-phy ( -- )
+ select-phy
+ ax-init-mii
ax-auto-neg-wait
;
: ax-promiscuous ( -- ) rx-ctl@ 1 or rx-ctl! ;
@@ -295,11 +297,9 @@
ax-toggle-gpio
ax-get-phyid
- select-phy
ax-stop-mac
ax-get-mac-address 2drop
ax-set-ipg
- ax-init-mii
;
: ax-loopback{ ( -- )
7 years, 2 months
[commit] r2953 - ofw/fs/ext2fs
by repository service
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
;
7 years, 2 months
[commit] r2952 - cpu/arm/olpc/1.75
by repository service
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
7 years, 2 months
[commit] r2951 - ofw/fs/ext2fs
by repository service
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 <>
;
7 years, 2 months
[commit] r2950 - dev/usb2/device/net
by repository service
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
7 years, 2 months
[commit] r2949 - ofw/fs/ext2fs
by repository service
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
7 years, 2 months