openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r2943 - ofw/disklabel
by repository service 13 Apr '12

13 Apr '12

Author: quozl Date: Fri Apr 13 07:01:36 2012 New Revision: 2943 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2943 Log: disklabel - file spec parsing, avoid treating a-h as partition letter if UFS partition support is disabled. Modified: ofw/disklabel/methods.fth Modified: ofw/disklabel/methods.fth ============================================================================== --- ofw/disklabel/methods.fth Fri Apr 13 01:28:34 2012 (r2942) +++ ofw/disklabel/methods.fth Fri Apr 13 07:01:36 2012 (r2943) @@ -200,12 +200,14 @@ dup 0= if exit then ( adr len ) then +[ifdef] ufs-support \ If the first character is "a".."h", it's a UFS partition letter over c@ lcc ascii a ascii h between if ( adr len ) over c@ to ufs-partition ( adr len ) 1 /string ( adr' len' ) dup 0= if exit then ( adr len ) then ( adr len ) +[then] ; : parse-partition ( -- ) null$ to filename null$ to partition-name$ -1 to #part 0 to ufs-partition

1 0

[commit] r2942 - cpu/arm/olpc
by repository service 12 Apr '12

12 Apr '12

Author: wmb Date: Fri Apr 13 01:28:34 2012 New Revision: 2942 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2942 Log: OLPC XO-1.75 and XO-3 - changed EDI (SPI interface to EC) timing to account for rise time issue on MISO. Modified: cpu/arm/olpc/bbedi.fth Modified: cpu/arm/olpc/bbedi.fth ============================================================================== --- cpu/arm/olpc/bbedi.fth Mon Apr 9 05:10:42 2012 (r2941) +++ cpu/arm/olpc/bbedi.fth Fri Apr 13 01:28:34 2012 (r2942) @@ -103,7 +103,7 @@ loop ( b ) ; [else] -code edi-out0 ( byte -- ) +code edi-out ( byte -- ) mov r2,#8 mov r0,#0x200 \ MOSI mask set r1,`h# 19100 +io #` \ GPIO register address @@ -112,7 +112,9 @@ ands r3,tos,#0x80 \ Test bit strne r0,[r1,#0x18] \ Set MOSI if bit is non0 + strne r0,[r1,#0x18] \ Set MOSI if bit is non0 \ Twice for delay - setup time to CLK streq r0,[r1,#0x24] \ Clr MOSI if bit is 0 + streq r0,[r1,#0x24] \ Clr MOSI if bit is 0 \ Twice for delay - setup time to CLK str r4,[r1,#0x18] \ Set CLK str r4,[r1,#0x24] \ Clr CLK @@ -123,7 +125,7 @@ pop tos,sp c; -code edi-out ( byte -- ) +code edi-out1 ( byte -- ) mov r2,#8 mov r0,#0x200 \ MOSI mask set r1,`h# 19100 +io #` \ GPIO register address @@ -158,7 +160,7 @@ \ This delay is necessary to let the MMP2 GPIO pin clock in the \ data value. Without the delay, bit values get lost. - mov r7,#0x160 \ Delay spins + mov r7,#0x400 \ Delay spins begin decs r7,#1 0= until @@ -166,6 +168,11 @@ ldr r0,[r1] \ Read pin register str r0,[r3],#4 str r4,[r1,#0x24] \ Clr CLK + mov r7,#0x400 \ Delay spins + begin + decs r7,#1 + 0= until + ands r0,r0,#0x80 \ Test MISO bit incne tos,1 \ Set bit in byte

1 0

[commit] r2941 - cpu/x86/pc/olpc/via
by repository service 09 Apr '12

09 Apr '12

Author: quozl Date: Mon Apr 9 05:10:42 2012 New Revision: 2941 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2941 Log: Q3C05 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Mon Apr 9 02:47:49 2012 (r2940) +++ cpu/x86/pc/olpc/via/fw-version.fth Mon Apr 9 05:10:42 2012 (r2941) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR C -macro: FW_MINOR 04 +macro: FW_MINOR 05

1 0

[commit] r2940 - cpu/arm/olpc/1.75
by repository service 09 Apr '12

09 Apr '12

Author: quozl Date: Mon Apr 9 02:47:49 2012 New Revision: 2940 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2940 Log: Q4D09 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 Sat Apr 7 01:05:35 2012 (r2939) +++ cpu/arm/olpc/1.75/fw-version.fth Mon Apr 9 02:47:49 2012 (r2940) @@ -1,4 +1,4 @@ \ The overall firmware revision macro: FW_PREFIX Q4 macro: FW_MAJOR D -macro: FW_MINOR 08 +macro: FW_MINOR 09

1 0

[commit] r2939 - forth/lib ofw/fs/ext2fs
by repository service 06 Apr '12

06 Apr '12

Author: wmb Date: Sat Apr 7 01:05:35 2012 New Revision: 2939 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2939 Log: Ext2/3/4 file system journal recovery - OLPC trac 11762 - Fixed list management problem that could result in missing list nodes in the journal overlay and revocation lists. Modified: forth/lib/linklist.fth ofw/fs/ext2fs/recovery.fth Modified: forth/lib/linklist.fth ============================================================================== --- forth/lib/linklist.fth Fri Apr 6 11:32:55 2012 (r2938) +++ forth/lib/linklist.fth Sat Apr 7 01:05:35 2012 (r2939) @@ -45,6 +45,11 @@ \ for each node in the list. Returns the node for which "acf" \ returned "true", and also the preceding node. See the comments \ in the code for more information. +\ +\ find-node? ( ??? list acf -- ??? false | ??? node true ) +\ Searches the linked list "list", executing the procedure "acf" +\ for each node in the list. Returns the node and true if found, +\ or false if not found. alias list: variable @@ -58,6 +63,8 @@ alias >next-node @ ( node-adr -- next-node-adr ) +: list-end? ( node-adr -- flag ) >next-node @ 0= ; + \ Inserts "new-node" into a linked list after "prev-node" (and before \ the node which was the successor of "prev-node"). @@ -112,6 +119,14 @@ r> r> r> drop ( ??? prev-node this-node ) ; +: find-node? ( ??? list acf -- ??? false | ??? node true ) + find-node ?dup if ( ??? prev-node this-node ) + nip true ( ??? node true ) + else ( ??? prev-node ) + drop false ( ??? false ) + then ( ??? false | ??? node true ) +; + \ Here's how "find-node" could be used to locate the insertion point \ for a list sorted in ascending order of the second field. Modified: ofw/fs/ext2fs/recovery.fth ============================================================================== --- ofw/fs/ext2fs/recovery.fth Fri Apr 6 11:32:55 2012 (r2938) +++ ofw/fs/ext2fs/recovery.fth Sat Apr 7 01:05:35 2012 (r2939) @@ -160,7 +160,8 @@ /n field >r_sequence nodetype: revoke-node -list: revoke-list +instance variable revoke-list +revoke-list off : free-revoke-list ( -- ) begin revoke-list >next-node while ( ) @@ -169,44 +170,40 @@ repeat ( ) ; -: block#> ( d.block# 'node -- d.block# flag ) - >r_block# 2@ 2over d< +\ Worker function for find-node? +: block#= ( d.block# 'node -- d.block# flag ) + >r_block# 2@ 2over d= ; \ node is either the found one or the insertion point -: find-revoked ( d.block# -- d.block# node found? ) - revoke-list ['] block#> find-node if ( d.block# node ) - 3dup >r_block# 2@ d= ( d.block# node found? ) - else ( d.block# node ) - false ( d.block# node found? ) - then ( d.block# node found? ) +: find-revoked? ( d.block# -- d.block# false | d.block# node found? ) + revoke-list ['] block#= find-node? ; 0 value next-commit-id : revoked? ( d.block# -- revoked? ) - find-revoked if ( d.block# node ) - nip nip ( node ) - >r_sequence @ ( sequence# ) - next-commit-id = ( revoked? ) - else ( d.block# node ) - 3drop false ( revoked? ) - then ( revoked? ) + find-revoked? if ( d.block# node ) + nip nip ( node ) + >r_sequence @ ( sequence# ) + next-commit-id = ( revoked? ) + else ( d.block# ) + 2drop false ( revoked? ) + then ( revoked? ) ; : set-revoke ( d.block# -- ) - find-revoked if ( d.block# node ) + find-revoked? if ( d.block# node ) nip nip ( node ) next-commit-id over >r_sequence @ - 0>= if ( node ) next-commit-id over >r_sequence ! ( node ) then ( node ) drop ( ) - else ( d.block# node ) - -rot ( node d.block# ) - revoke-node allocate-node >r ( node d.block# r: newnode ) - r@ >r_block# 2! ( node r: newnode ) - next-commit-id r@ >r_sequence ! ( node r: newnode ) - r> swap insert-after ( ) + else ( d.block# ) + revoke-node allocate-node >r ( d.block# r: newnode ) + r@ >r_block# 2! ( r: newnode ) + next-commit-id r@ >r_sequence ! ( r: newnode ) + r> revoke-list insert-after ( ) then ( ) ; @@ -216,7 +213,8 @@ /n field >o_escaped? nodetype: overlay-node -list: overlay-list +instance variable overlay-list +overlay-list off : free-overlay-list ( -- ) begin overlay-list >next-node while ( ) @@ -225,13 +223,8 @@ repeat ( ) ; -\ node is either the found one or the insertion point -: find-overlay? ( d.block# -- d.block# node found? ) - overlay-list ['] block#> find-node if ( d.block# node ) - 3dup >r_block# 2@ d= ( d.block# node found? ) - else ( d.block# node ) - false ( d.block# node found? ) - then ( d.block# node found? ) +: find-overlay? ( d.block# -- d.block# false | d.block# node true ) + overlay-list ['] block#= find-node? ; : j-read-file-block ( adr lblk# -- ) @@ -245,8 +238,7 @@ else ( adr ) drop ( ) then ( ) - else ( adr d.pblk# node ) - drop ( adr d.pblk# ) + else ( adr d.pblk# ) d.block swap bsize move ( ) then ( ) else ( adr ) @@ -266,11 +258,10 @@ : note-jblock ( d.block# escaped? log-blk# -- ) 2swap find-overlay? if ( escaped? log-blk# d.block# node ) set-overlay-node ( ) - else ( escaped? log-blk# d.block# node ) - >r ( escaped? log-blk# d.block# r: prev-node ) - >r overlay-node allocate-node ( d.block# escaped? log-blk# newnode r: prevnode ) - dup >r set-overlay-node ( r: prevnode newnode ) - r> r> insert-after ( ) + else ( escaped? log-blk# d.block# ) + overlay-node allocate-node >r ( d.block# escaped? log-blk# r: newnode ) + r@ set-overlay-node ( r: newnode ) + r> overlay-list insert-after ( ) then ; @@ -408,6 +399,7 @@ then ; : commit-journal ( -- ) + j-read-only? if exit then jsb >s_sequence dup be-l@ 1+ swap be-l! 0 jsb >s_start be-l! jsb 0 write-file-block @@ -416,7 +408,10 @@ : process-journal ( -- ) read-journal if exit then -." Recovering from journal ... " + ." Recovering from journal " + j-read-only? if ." (read-only)" then + ." ... " + 0 to end-transaction 0 ['] one-pass catch ?dup if @@ -443,4 +438,3 @@ free-journal cr ; -\ XXX need to do free-overlay-list in close

1 0

[commit] r2938 - ofw/fs/ext2fs
by repository service 06 Apr '12

06 Apr '12

Author: quozl Date: Fri Apr 6 11:32:55 2012 New Revision: 2938 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2938 Log: ext2 - fix Divide Error on x86 when accessing ext2 filesystems. OLPC #11762 Modified: ofw/fs/ext2fs/recovery.fth Modified: ofw/fs/ext2fs/recovery.fth ============================================================================== --- ofw/fs/ext2fs/recovery.fth Wed Apr 4 08:25:06 2012 (r2937) +++ ofw/fs/ext2fs/recovery.fth Fri Apr 6 11:32:55 2012 (r2938) @@ -175,8 +175,11 @@ \ node is either the found one or the insertion point : find-revoked ( d.block# -- d.block# node found? ) - revoke-list ['] block#> find-node drop ( d.block# node ) - 3dup >r_block# 2@ d= ( d.block# node ) + revoke-list ['] block#> find-node if ( d.block# node ) + 3dup >r_block# 2@ d= ( d.block# node found? ) + else ( d.block# node ) + false ( d.block# node found? ) + then ( d.block# node found? ) ; 0 value next-commit-id @@ -224,8 +227,11 @@ \ node is either the found one or the insertion point : find-overlay? ( d.block# -- d.block# node found? ) - revoke-list ['] block#> find-node drop ( d.block# node ) - 3dup >r_block# 2@ d= ( d.block# node ) + overlay-list ['] block#> find-node if ( d.block# node ) + 3dup >r_block# 2@ d= ( d.block# node found? ) + else ( d.block# node ) + false ( d.block# node found? ) + then ( d.block# node found? ) ; : j-read-file-block ( adr lblk# -- )

1 0

[commit] r2937 - in cpu: arm/olpc x86/pc/olpc/via
by repository service 04 Apr '12

04 Apr '12

Author: quozl Date: Wed Apr 4 08:25:06 2012 New Revision: 2937 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2937 Log: OLPC XO-1.5 XO-1.75 XO-3 - fs-save, for image copy of internal storage to a single large file on USB, SD, NFS, or CIFS. #11753 Added: cpu/x86/pc/olpc/via/fssave.fth Modified: cpu/arm/olpc/build-fw.fth cpu/x86/pc/olpc/via/fw.bth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Wed Apr 4 02:57:51 2012 (r2936) +++ cpu/arm/olpc/build-fw.fth Wed Apr 4 08:25:06 2012 (r2937) @@ -823,6 +823,7 @@ alias fast-hash crypto-hash \ fast-hash uses acceleration when available fload ${BP}/cpu/x86/pc/olpc/via/fsupdate.fth fload ${BP}/cpu/x86/pc/olpc/via/fsverify.fth +fload ${BP}/cpu/x86/pc/olpc/via/fssave.fth devalias fsdisk int:0 \ create pong-use-touchscreen Added: cpu/x86/pc/olpc/via/fssave.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/fssave.fth Wed Apr 4 08:25:06 2012 (r2937) @@ -0,0 +1,50 @@ +\ Write blocks to a file +[ifndef] fs-save +vocabulary fs-save-commands +also fs-save-commands definitions + +0 value data-buffer + +h# ff 0 0 rgb>565 constant saved-color \ red + +: (fs-save-chunk) ( #bytes -- ) + data-buffer over " read" $call-nand ( #bytes #read ) + over <> " Read failure" ?nand-abort ( #bytes ) + data-buffer swap filefd fputs ( ) +; + +: (fs-save) ( -- ) + load-base to data-buffer + " size" $call-nand /nand-block um/mod ( #left-over-bytes #blocks ) + dup show-init + 0 do + /nand-block (fs-save-chunk) ( #left-over-bytes ) + i dup show-eblock# saved-color show-state ( #left-over-bytes ) + loop ( #left-over-bytes ) + ?dup if ( #left-over-bytes ) + (fs-save-chunk) ( ) + then ( ) +; + +previous definitions + +: $fs-save ( file$ -- ) + open-nand ( file$ ) + r/w open-file ( fd error? ) + " Can't open file" ?nand-abort ( fd ) + to filefd ( ) + t-hms( + [ also fs-save-commands ] + ['] (fs-save) catch ( 0 | x error# ) + [ previous ] + show-done + close-nand-ihs + )t-hms + throw ( ) +; + +: fs-save ( "fs.img" -- ) \ write blocks to a file + safe-parse-word $fs-save +; + +[then] Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Wed Apr 4 02:57:51 2012 (r2936) +++ cpu/x86/pc/olpc/via/fw.bth Wed Apr 4 08:25:06 2012 (r2937) @@ -522,6 +522,7 @@ ; fload ${BP}/cpu/x86/pc/olpc/via/fsupdate.fth fload ${BP}/cpu/x86/pc/olpc/via/fsverify.fth +fload ${BP}/cpu/x86/pc/olpc/via/fssave.fth devalias fsdisk int:0 fload ${BP}/ofw/inet/sntp.fth

1 0

[commit] r2936 - cpu/x86/pc/olpc/via
by repository service 04 Apr '12

04 Apr '12

Author: quozl Date: Wed Apr 4 02:57:51 2012 New Revision: 2936 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2936 Log: Q3C04 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Wed Apr 4 02:40:52 2012 (r2935) +++ cpu/x86/pc/olpc/via/fw-version.fth Wed Apr 4 02:57:51 2012 (r2936) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR C -macro: FW_MINOR 03 +macro: FW_MINOR 04

1 0

[commit] r2935 - cpu/x86/pc/olpc
by repository service 04 Apr '12

04 Apr '12

Author: quozl Date: Wed Apr 4 02:40:52 2012 New Revision: 2935 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2935 Log: Q2F09 Modified: cpu/x86/pc/olpc/versions.fth Modified: cpu/x86/pc/olpc/versions.fth ============================================================================== --- cpu/x86/pc/olpc/versions.fth Sat Mar 31 22:42:00 2012 (r2934) +++ cpu/x86/pc/olpc/versions.fth Wed Apr 4 02:40:52 2012 (r2935) @@ -2,7 +2,7 @@ \ The overall firmware revision macro: FW_MAJOR F -macro: FW_MINOR 08 +macro: FW_MINOR 09 \ The EC microcode macro: EC_VERSION 1_2_1

1 0

[commit] r2934 - cpu/x86/pc/olpc/via
by repository service 31 Mar '12

31 Mar '12

Author: wmb Date: Sat Mar 31 22:42:00 2012 New Revision: 2934 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2934 Log: OLPC XO-1.5 - free wav buffer before closing audio device to prevent page faults if sound-end is later executed. Modified: cpu/x86/pc/olpc/via/sound.fth Modified: cpu/x86/pc/olpc/via/sound.fth ============================================================================== --- cpu/x86/pc/olpc/via/sound.fth Sat Mar 31 22:32:59 2012 (r2933) +++ cpu/x86/pc/olpc/via/sound.fth Sat Mar 31 22:42:00 2012 (r2934) @@ -6,7 +6,7 @@ ; : audio-quiet ( -- ) [ ' go-hook behavior compile, ] \ Chain to old behavior - close-audio + free-wav close-audio ; ' audio-quiet to go-hook : xp-wait-audio ( -- )

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware