openfirmware October 2011

openfirmware@openfirmware.info

1 participants
103 discussions

[commit] r2628 - cpu/arm/olpc/1.75
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:39:50 2011 New Revision: 2628 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2628 Log: OLPC XO-1.75 - Shorten memory test in SMT mode per Quanta's request. Modified: cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Sat Oct 22 05:39:37 2011 (r2627) +++ cpu/arm/olpc/1.75/fw.bth Sat Oct 22 05:39:50 2011 (r2628) @@ -193,17 +193,18 @@ \ Suppress long memory test at final test stage dev /memory -defer old-diagnostic-mode? +0 value old-diag-switch? : not-final-test? ( -- flag ) final-test? if false exit then - old-diagnostic-mode? + smt-test? if false exit then + old-diag-switch? ; warning @ warning off : selftest ( -- error? ) - ['] (diagnostic-mode?) behavior to old-diagnostic-mode? - ['] not-final-test? to (diagnostic-mode?) + diag-switch? to old-diag-switch? + not-final-test? to diag-switch? selftest - ['] old-diagnostic-mode? behavior to (diagnostic-mode?) + old-diag-switch? to diag-switch? ; warning ! device-end

1 0

[commit] r2627 -
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:39:37 2011 New Revision: 2627 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2627 Log: .gitignore Added: .gitignore3 Added: .gitignore3 ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ .gitignore3 Sat Oct 22 05:39:37 2011 (r2627) @@ -0,0 +1,210 @@ + +# /clients/emacs/arm/ +/clients/emacs/arm/emacs.elf +/clients/emacs/arm/emacs + +# /clients/emacs/x86/ +/clients/emacs/x86/emacs.nm +/clients/emacs/x86/emacs.obp +/clients/emacs/x86/emacs + +# /clients/lib/arm/ +/clients/lib/arm/libobp.a + +# /clients/lib/x86/ +/clients/lib/x86/*.elf +/clients/lib/x86/*.syms +/clients/lib/x86/*.a +/clients/lib/x86/hello + +# /clients/memtest86/ +/clients/memtest86/memtest +/clients/memtest86/memtest_shared.bin +/clients/memtest86/memtest_shared +/clients/memtest86/*.s +/clients/memtest86/*.bin + +# /cpu/arm/Linux/ +/cpu/arm/Linux/armforth +/cpu/arm/Linux/forth + +# /cpu/arm/beagle/build/ +/cpu/arm/beagle/build/build +/cpu/arm/beagle/build/tags +/cpu/arm/beagle/build/*.rom +/cpu/arm/beagle/build/*.tag + +# /cpu/arm/build/ +/cpu/arm/build/armbuild +/cpu/arm/build/build +/cpu/arm/build/*.tag +/cpu/arm/build/core + +# /cpu/arm/mmp2/build/ +/cpu/arm/mmp2/build/*.rom +/cpu/arm/mmp2/build/*.tag +/cpu/arm/mmp2/build/tags +/cpu/arm/mmp2/build/build + +# /cpu/arm/olpc/1.75/build/ +/cpu/arm/olpc/1.75/build/*.tag +/cpu/arm/olpc/1.75/build/*.rom +/cpu/arm/olpc/1.75/build/*.txt +/cpu/arm/olpc/1.75/build/*.bin +/cpu/arm/olpc/1.75/build/tags +/cpu/arm/olpc/1.75/build/*.public +/cpu/arm/olpc/1.75/build/*.version +/cpu/arm/olpc/1.75/build/build +/cpu/arm/olpc/1.75/build/builton.fth +/cpu/arm/olpc/1.75/build/sourceurl +/cpu/arm/olpc/1.75/build/multicast-nand +/cpu/arm/olpc/1.75/build/armforth +/cpu/arm/olpc/1.75/build/testicons + +# /cpu/arm/openmoko/build/ +/cpu/arm/openmoko/build/*.tag +/cpu/arm/openmoko/build/*.rom +/cpu/arm/openmoko/build/*. +/cpu/arm/openmoko/build/tags +/cpu/arm/openmoko/build/build + +# /cpu/arm/pxa3xx/build/ +/cpu/arm/pxa3xx/build/*.tag +/cpu/arm/pxa3xx/build/*.rom +/cpu/arm/pxa3xx/build/tags +/cpu/arm/pxa3xx/build/build + +# /cpu/arm/versatilepb/build/ +/cpu/arm/versatilepb/build/*.rom +/cpu/arm/versatilepb/build/*.tag +/cpu/arm/versatilepb/build/tags +/cpu/arm/versatilepb/build/core +/cpu/arm/versatilepb/build/build + +# /cpu/i8051/build/ +/cpu/i8051/build/*.hex +/cpu/i8051/build/build + +# /cpu/ppc/Linux/ +/cpu/ppc/Linux/ppcforth.trace +/cpu/ppc/Linux/ppcforth +/cpu/ppc/Linux/forth + +# /cpu/ppc/build/ +/cpu/ppc/build/ppcforth +/cpu/ppc/build/build +/cpu/ppc/build/*.tag + +# /cpu/ppc/olpc/build/ +/cpu/ppc/olpc/build/*.rom +/cpu/ppc/olpc/build/ppcforth +/cpu/ppc/olpc/build/builton.fth +/cpu/ppc/olpc/build/sourceurl +/cpu/ppc/olpc/build/inflate.bin + +# /cpu/x86/Linux/ +/cpu/x86/Linux/forth +/cpu/x86/Linux/x86forth +/cpu/x86/Linux/ppcforth +/cpu/x86/Linux/*.tag +/cpu/x86/Linux/armforth.trace +/cpu/x86/Linux/armforth + +# /cpu/x86/build/ +/cpu/x86/build/inflate.bin +/cpu/x86/build/build +/cpu/x86/build/*.tag +/cpu/x86/build/tags + +# /cpu/x86/pc/alex/build/ +/cpu/x86/pc/alex/build/*.tag +/cpu/x86/pc/alex/build/builton.fth +/cpu/x86/pc/alex/build/*.elf +/cpu/x86/pc/alex/build/build +/cpu/x86/pc/alex/build/tags + +# /cpu/x86/pc/biosload/build/ +/cpu/x86/pc/biosload/build/build +/cpu/x86/pc/biosload/build/builton.fth +/cpu/x86/pc/biosload/build/ofw.c32 +/cpu/x86/pc/biosload/build/*.elf +/cpu/x86/pc/biosload/build/sd8686.bin +/cpu/x86/pc/biosload/build/*.version +/cpu/x86/pc/biosload/build/sd8686_helper.bin + +# /cpu/x86/pc/emu/build/ +/cpu/x86/pc/emu/build/build +/cpu/x86/pc/emu/build/builton.fth +/cpu/x86/pc/emu/build/emuofw.rom + +# /cpu/x86/pc/lxdevel/build/ +/cpu/x86/pc/lxdevel/build/*.rom +/cpu/x86/pc/lxdevel/build/build +/cpu/x86/pc/lxdevel/build/builton.fth +/cpu/x86/pc/lxdevel/build/*.bin +/cpu/x86/pc/lxdevel/build/libertas.version +/cpu/x86/pc/lxdevel/build/*.version + +# /cpu/x86/pc/neptune/build/ +/cpu/x86/pc/neptune/build/build +/cpu/x86/pc/neptune/build/ofw.elf +/cpu/x86/pc/neptune/build/builton.fth +/cpu/x86/pc/neptune/build/*.rom +/cpu/x86/pc/neptune/build/*.bin +/cpu/x86/pc/neptune/build/*.version +/cpu/x86/pc/neptune/build/forth +/cpu/x86/pc/neptune/build/sourceurl +/cpu/x86/pc/neptune/build/*.tag +/cpu/x86/pc/neptune/build/tags +/cpu/x86/pc/neptune/build/*.elf + +# /cpu/x86/pc/olpc/ +/cpu/x86/pc/olpc/*.public + +# /cpu/x86/pc/olpc/build/ +/cpu/x86/pc/olpc/build/build +/cpu/x86/pc/olpc/build/ofw.elf +/cpu/x86/pc/olpc/build/builton.fth +/cpu/x86/pc/olpc/build/*.rom +/cpu/x86/pc/olpc/build/*.bin +/cpu/x86/pc/olpc/build/*.version +/cpu/x86/pc/olpc/build/forth +/cpu/x86/pc/olpc/build/sourceurl +/cpu/x86/pc/olpc/build/*.md5 +/cpu/x86/pc/olpc/build/*.public +/cpu/x86/pc/olpc/build/*.stamp +/cpu/x86/pc/olpc/build/*.aml +/cpu/x86/pc/olpc/build/*.dsl +/cpu/x86/pc/olpc/build/multicast-nand +/cpu/x86/pc/olpc/build/users +/cpu/x86/pc/olpc/build/tags +/cpu/x86/pc/olpc/build/fw.tag +/cpu/x86/pc/olpc/build/memtest + +# /cpu/x86/pc/olpc/sdtools/ +/cpu/x86/pc/olpc/sdtools/*.tgz +/cpu/x86/pc/olpc/sdtools/sdkit + +# /cpu/x86/pc/olpc/via/ +/cpu/x86/pc/olpc/via/testicons + +# /cpu/x86/pc/olpc/via/build/ +/cpu/x86/pc/olpc/via/build/*.txt +/cpu/x86/pc/olpc/via/build/*.public +/cpu/x86/pc/olpc/via/build/*.rom +/cpu/x86/pc/olpc/via/build/*.version +/cpu/x86/pc/olpc/via/build/tags +/cpu/x86/pc/olpc/via/build/sourceurl +/cpu/x86/pc/olpc/via/build/*.tag +/cpu/x86/pc/olpc/via/build/build +/cpu/x86/pc/olpc/via/build/builton.fth +/cpu/x86/pc/olpc/via/build/VIA.ROM +/cpu/x86/pc/olpc/via/build/*.bin +/cpu/x86/pc/olpc/via/build/memtest +/cpu/x86/pc/olpc/via/build/*.aml +/cpu/x86/pc/olpc/via/build/*.stamp +/cpu/x86/pc/olpc/via/build/forth +/cpu/x86/pc/olpc/via/build/testicons + +# /dev/geode/nandflash/build/ +/dev/geode/nandflash/build/nandflash.fc

1 0

[commit] r2626 - cpu/arm/olpc/1.75
by repository service 18 Oct '11

18 Oct '11

Author: quozl Date: Tue Oct 18 07:10:03 2011 New Revision: 2626 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2626 Log: OLPC XO-1.75 - add accelerometer temperature sensor, ADC access, and register dump words behind an [if] Modified: cpu/arm/olpc/1.75/accelerometer.fth Modified: cpu/arm/olpc/1.75/accelerometer.fth ============================================================================== --- cpu/arm/olpc/1.75/accelerometer.fth Tue Oct 18 06:57:25 2011 (r2625) +++ cpu/arm/olpc/1.75/accelerometer.fth Tue Oct 18 07:10:03 2011 (r2626) @@ -4,7 +4,7 @@ \ my-address my-space encode-phys " reg" property -\ This is for the stand-alone accelerometer chip LIS33DETR +\ This is for the stand-alone accelerometers LIS3DHTR and LIS33DETR \ We could call this just once in open if we had a TWSI parent node : acc-reg@ ( reg# -- b ) 1 1 " smbus-out-in" $call-parent ; @@ -14,6 +14,249 @@ : accelerometer-on ( -- ) h# 47 ctl1! ; : accelerometer-off ( -- ) h# 07 ctl1! ; +0 [if] + +: temperature-on ( -- ) h# c0 h# 1f acc-reg! ; +: adc1@ ( -- ) h# 08 acc-reg@ h# 09 acc-reg@ bwjoin wext 5 >>a ; +: adc2@ ( -- ) h# 0a acc-reg@ h# 0b acc-reg@ bwjoin wext 5 >>a ; +: adc3@ ( -- ) h# 0c acc-reg@ h# 0d acc-reg@ bwjoin wext 5 >>a ; + +: .xr ( n -- ) push-hex 2 .r pop-base space ; +: .dr ( n -- ) push-decimal 3 .r pop-base space ; +: .br ( n -- ) + push-binary 0 <# # # # # [char] . hold # # # # #> type pop-base space ; + +: .reg ( register -- value ) + space + dup .xr ." : " ( register ) + acc-reg@ ( value ) + dup .br + dup .xr + dup .dr +; + +: .ureg ( register -- ) + ." " .reg drop +; + +: .regs ( -- ) + h# 07 h# 00 do i .ureg cr loop + + ." STATUS_AUX " h# 07 .reg + dup h# 80 and if ." 321OR " then + dup h# 40 and if ." 3OR " then + dup h# 20 and if ." 2OR " then + dup h# 10 and if ." 1OR " then + dup h# 08 and if ." 321DA " then + dup h# 04 and if ." 3DA " then + dup h# 02 and if ." 2DA " then + dup h# 01 and if ." 1DA " then + drop cr + + ." OUT_1_L " h# 08 .reg cr + ." OUT_1_H " h# 09 .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_2_L " h# 0A .reg cr + ." OUT_2_H " h# 0B .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_3_L " h# 0C .reg cr + ." OUT_3_H " h# 0D .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." INT_COUNTER " h# 0E .reg drop cr + ." WHO_AM_I " h# 0F .reg b# 0011.0011 = if ." ok" else ." bad" then cr + + h# 1f h# 10 do i .ureg cr loop + + ." TEMP_CFG_REG " h# 1F .reg + dup h# 80 and if ." ADC_PD " then + dup h# 40 and if ." TEMP_EN " then + dup h# 3f and if ." mbz " then + drop cr + + ." CTRL_REG1 " h# 20 .reg + dup h# f0 and 4 rshift + dup h# 00 = if ." [power-down] " then + dup h# 01 = if ." [1 Hz] " then + dup h# 02 = if ." [10 Hz] " then + dup h# 03 = if ." [25 Hz] " then + dup h# 04 = if ." [50 Hz] " then + dup h# 05 = if ." [100 Hz] " then + dup h# 06 = if ." [200 Hz] " then + dup h# 07 = if ." [400 Hz] " then + dup h# 08 = if ." [1.6 kHz] " then + dup h# 09 = if ." [1.25 kHz / 5 kHz] " then + drop + dup h# 08 and if ." LPen " then + dup h# 04 and if ." Zen " then + dup h# 02 and if ." Yen " then + dup h# 01 and if ." Xen " then + drop cr + + ." CTRL_REG2 " h# 21 .reg + dup h# 80 and if ." HPM1 " then + dup h# 40 and if ." HPM0 " then + dup h# 20 and if ." HPCF2 " then + dup h# 10 and if ." HPCF1 " then + dup h# 08 and if ." FDS " then + dup h# 04 and if ." HPCLICK " then + dup h# 02 and if ." HPIS2 " then + dup h# 01 and if ." HPIS1 " then + drop cr + + ." CTRL_REG3 " h# 22 .reg + dup h# 80 and if ." I1_CLICK " then + dup h# 40 and if ." I1_AOI1 " then + dup h# 20 and if ." I1_AOI2 " then + dup h# 10 and if ." I1_DRDY1 " then + dup h# 08 and if ." I1_DRDY2 " then + dup h# 04 and if ." I1_WTM " then + dup h# 02 and if ." I1_OVERRUN " then + dup h# 01 and if ." rsvd " then + drop cr + + ." CTRL_REG4 " h# 23 .reg + dup h# 80 and if ." BDU " then + dup h# 40 and if ." BLE " then + dup h# 20 and if ." FS1 " then + dup h# 10 and if ." FS2 " then + dup h# 08 and if ." HR " then + dup h# 04 and if ." ST1 " then + dup h# 02 and if ." ST0 " then + dup h# 01 and if ." SIM " then + drop cr + + ." CTRL_REG5 " h# 24 .reg + dup h# 80 and if ." BOOT " then + dup h# 40 and if ." FIFO_EN " then + dup h# 20 and if ." rsvd " then + dup h# 10 and if ." rsvd " then + dup h# 08 and if ." LIR_INT1 " then + dup h# 04 and if ." D4D_INT1 " then + dup h# 02 and if ." mbz " then + dup h# 01 and if ." mbz " then + drop cr + + ." CTRL_REG6 " h# 25 .reg + dup h# 80 and if ." I2_CLICKen " then + dup h# 40 and if ." I2_INT1 " then + dup h# 20 and if ." mbz " then + dup h# 10 and if ." BOOT_I1 " then + dup h# 08 and if ." mbz " then + dup h# 04 and if ." rsvd " then + dup h# 02 and if ." H_LACTIVE " then + dup h# 01 and if ." rsvd " then + drop cr + + ." REFERENCE " h# 26 .reg drop cr + + ." STATUS_REG " h# 27 .reg + dup h# 80 and if ." ZYXOR " then + dup h# 40 and if ." ZOR " then + dup h# 20 and if ." YOR " then + dup h# 10 and if ." XOR " then + dup h# 08 and if ." ZYXDA " then + dup h# 04 and if ." ZDA " then + dup h# 02 and if ." YDA " then + dup h# 01 and if ." ZDA " then + drop cr + + ." OUT_X_L " h# 28 .reg cr + ." OUT_X_H " h# 29 .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_Y_L " h# 2a .reg cr + ." OUT_Y_H " h# 2b .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_Z_L " h# 2c .reg cr + ." OUT_Z_H " h# 2d .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." FIFO_CTRL_REG" h# 2e .reg + dup h# 80 and if ." FM1 " then + dup h# 40 and if ." FM0 " then + dup h# 20 and if ." TR " then + dup h# 10 and if ." FTH4 " then + dup h# 08 and if ." FTH3 " then + dup h# 04 and if ." FTH2 " then + dup h# 02 and if ." FTH1 " then + dup h# 01 and if ." FTH0 " then + drop cr + + ." FIFO_SRC_REG " h# 2f .reg + dup h# 80 and if ." WTM " then + dup h# 40 and if ." OVRN_FIFO " then + dup h# 20 and if ." EMPTY " then + dup h# 10 and if ." FSS4 " then + dup h# 08 and if ." FSS3 " then + dup h# 04 and if ." FSS2 " then + dup h# 02 and if ." FSS1 " then + dup h# 01 and if ." FSS0 " then + drop cr + + ." INT1_CFG " h# 30 .reg + dup h# 80 and if ." AOI " then + dup h# 40 and if ." 6D " then + dup h# 20 and if ." ZHIE/ZUPE " then + dup h# 10 and if ." ZLIE/ZDOWNE " then + dup h# 08 and if ." YHIE/YUPE " then + dup h# 04 and if ." YLIE/YDOWNE " then + dup h# 02 and if ." XHIE/XUPE " then + dup h# 01 and if ." XLIE/XDOWNE " then + drop cr + + ." INT1_SRC " h# 31 .reg + dup h# 80 and if ." mbz " then + dup h# 40 and if ." IA " then + dup h# 20 and if ." ZH " then + dup h# 10 and if ." ZL " then + dup h# 08 and if ." YH " then + dup h# 04 and if ." YL " then + dup h# 02 and if ." XH " then + dup h# 01 and if ." XL " then + drop cr + + ." INT1_THS " h# 32 .reg drop cr + ." INT1_DURATION" h# 33 .reg drop cr + + h# 38 h# 34 do i .ureg cr loop + + ." CLICK_CFG " h# 38 .reg + dup h# 80 and if ." rsvd " then + dup h# 40 and if ." rsvd " then + dup h# 20 and if ." ZD " then + dup h# 10 and if ." ZS " then + dup h# 08 and if ." YD " then + dup h# 04 and if ." YS " then + dup h# 02 and if ." XD " then + dup h# 01 and if ." XS " then + drop cr + + ." CLICK_SRC " h# 39 .reg + dup h# 80 and if ." rsvd " then + dup h# 40 and if ." IA " then + dup h# 20 and if ." DCLICK " then + dup h# 10 and if ." SCLICK " then + dup h# 08 and if ." Sign " then + dup h# 04 and if ." Z " then + dup h# 02 and if ." Y " then + dup h# 01 and if ." X " then + drop cr + + ." CLICK_THS " h# 3a .reg drop cr + ." TIME_LIMIT " h# 3b .reg drop cr + ." TIME_LATENCY " h# 3c .reg drop cr + ." TIME_WINDOW " h# 3d .reg drop cr + h# 3e .ureg cr + h# 3f .ureg cr + + \ register decode window is 00-7f, then 80-ff is a mirror +; +[then] + : bext ( b -- n ) dup h# 80 and if h# ffffff00 or then ; : wext ( b -- n ) dup h# 8000 and if h# ffff0000 or then ; : acceleration@ ( -- x y z )

1 0

[commit] r2625 - ofw/fs/ext2fs
by repository service 18 Oct '11

18 Oct '11

Author: quozl Date: Tue Oct 18 06:57:25 2011 New Revision: 2625 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2625 Log: OLPC ext2, enhance tests, include a precalculated md5sum file Modified: ofw/fs/ext2fs/ext2test.sh Modified: ofw/fs/ext2fs/ext2test.sh ============================================================================== --- ofw/fs/ext2fs/ext2test.sh Tue Oct 18 06:54:24 2011 (r2624) +++ ofw/fs/ext2fs/ext2test.sh Tue Oct 18 06:57:25 2011 (r2625) @@ -142,6 +142,7 @@ touch touched echo hello > hello echo hello world > hello-world +md5sum hello-world > hello-world.md5 date > date ln -s hello hello-link mkdir directory

1 0

[commit] r2624 - ofw/fs/ext2fs
by repository service 18 Oct '11

18 Oct '11

Author: quozl Date: Tue Oct 18 06:54:24 2011 New Revision: 2624 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2624 Log: OLPC ext2, enhance tests, with md5sum comparison and file content comparison Modified: ofw/fs/ext2fs/ext2test.fth Modified: ofw/fs/ext2fs/ext2test.fth ============================================================================== --- ofw/fs/ext2fs/ext2test.fth Sun Oct 16 03:21:46 2011 (r2623) +++ ofw/fs/ext2fs/ext2test.fth Tue Oct 18 06:54:24 2011 (r2624) @@ -4,25 +4,92 @@ \ Exercises several OFW features on an ext2 filesystem on a USB stick \ see associated test.sh +[ifndef] $md5sum-file +: $md5sum-file ( prefix$ filename$ -- ) + \ Read file into memory and compute its MD5 hash + 2dup $read-file abort" Read error" ( prefix$ filename$ adr len ) + 2dup $md5digest1 ( prefix$ filename$ adr len md5$ ) + 2swap free-mem ( prefix$ filename$ md5$ ) + + \ Write the hash and the filename in the same format as + \ the output of the Linux "md5sum" command. prefix$ should + \ be " *" to match the output of "md5sum -b" and " " + \ to match the output of "md5sum" without -b. + + \ Output MD5 in lower case ASCII hex + push-hex ( prefix$ filename$ md5$ ) + bounds ?do ( prefix$ filename$ ) + i c@ <# u# u# u#> type + loop ( prefix$ filename$ ) + pop-base ( prefix$ filename$ ) + + \ ... followed by " filename" or " *filename" + ." " ( prefix$ filename$ ) + 2swap type ( filename$ ) + type ( ) + cr +; + +: md5sum ( "file" -- ) + " " safe-parse-word $md5sum-file +; +[then] + +0 value a-adr +0 value a-len +0 value b-adr +0 value b-len + +: (read-files) ( "a" "b" -- ) + safe-parse-word $read-file abort" Read error" + to b-len to b-adr + safe-parse-word $read-file abort" Read error" + to a-len to a-adr +; + +: (compare-files) ( -- equal-flag ) + a-len b-len = if + a-adr b-adr b-len comp 0= + else + false + then +; + +: (free-files) + a-adr a-len free-mem + b-adr b-len free-mem +; + +: compare-files + (read-files) (compare-files) (free-files) + if ." files equal" cr else ." files differ" cr then +; + +: compare-md5-files + (read-files) + d# 32 to a-len + d# 32 to b-len + (compare-files) + (free-files) + if ." checksums equal" cr else ." checksums differ" cr then +; + visible no-page -start-logging .( test.fth ticket #6210 ofw ext2 filesystem tests ) cr -show-aborts on - .( test 0001 define u: ) cr volume: u: .( test 0002 reference u: ) cr u: -\ .( test 0003 directory ) cr -\ dir +.( test 0003 directory ) cr +dir -\ .( test 0004 directory by name ) cr -\ dir *.fth +.( test 0004 directory by name ) cr +dir boot\*.fth .( test 0005 chdir down ) cr chdir directory @@ -56,6 +123,7 @@ .( test 0015 copy a file ) cr copy u:\hello-world u:\copy +.( ) compare-files u:\hello-world u:\copy .( test 0016 display the copy ) cr more u:\copy @@ -69,41 +137,61 @@ .( test 0019 delete a non-existent file ) cr del u:\vapour -: load-file ( "devspec" -- adr len ) - safe-parse-word - open-dev dup 0= abort" Can't open it" ( ih ) - >r ( r: ih ) - load-base " load" r@ $call-method ( len r: ih ) - r> close-dev ( len ) - load-base swap -; - -: calculate-md5 ( adr len -- adr len ) - $md5digest1 ; - -: print-md5 ( adr len -- ) - bounds ?do i c@ (.2) type loop space ; - -: md5sum ( "devspec" -- ) load-file calculate-md5 print-md5 ; - .( test 0020 calculate md5sum of a test file ) cr -md5sum u:\hello-world cr +.( ) md5sum u:\hello-world .( test 0021 calculate md5sum of a test file and save to a file ) cr -del u:\hello-world.md5 -load-file u:\hello-world calculate-md5 to-file u:\hello-world.md5 print-md5 +del u:\tmp.md5 +to-file u:\tmp.md5 md5sum u:\hello-world +.( ) compare-md5-files u:\tmp.md5 u:\hello-world.md5 +del u:\tmp.md5 .( test 0022 dump forth dictionary to file ) cr +to-file u:\words.txt words +to-file u:\words.tmp words +.( ) compare-files u:\words.txt u:\words.tmp del u:\words.txt -to-file u:\words.txt words +del u:\words.tmp + +.( test 0023 glob file copy ) cr -\ reference: forth/lib/tofile.fth -\ to-file u:\words words -\ append-to-file u:\words words - -.( done ) cr -save-log u:\ofw.log -stop-logging +.( create input files ... ) +.( a ) to-file u:\a.tst cr +.( b ) to-file u:\b.tst cr +.( c ) to-file u:\c.tst cr +.( d ) to-file u:\d.tst cr +.( e ) to-file u:\e.tst cr +.( f ) to-file u:\f.tst cr +cr + +.( create directory ... ) +mkdir u:\j +.( ok ) cr + +.( copy ... ) +copy u:\*.tst u:\j +.( ok ) cr + +.( delete copies ... ) +.( a ) del u:\j\a.tst +.( b ) del u:\j\b.tst +.( c ) del u:\j\c.tst +.( d ) del u:\j\d.tst +.( e ) del u:\j\e.tst +.( f ) del u:\j\f.tst +.( ok ) cr + +.( delete directory ... ) +rmdir u:\j +.( ok ) cr + +.( delete input files ) +.( a ) del u:\a.tst +.( b ) del u:\b.tst +.( c ) del u:\c.tst +.( d ) del u:\d.tst +.( e ) del u:\e.tst +.( f ) del u:\f.tst +.( ok ) cr -\ .( boot ) cr -\ boot n:\boot\olpc.fth +.( test complete ) cr

1 0

[commit] r2623 - cpu/arm/mmp2
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 03:21:46 2011 New Revision: 2623 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2623 Log: Checked in fast scrolling patch for MMP2 in case we need it later. Added: cpu/arm/mmp2/fast-scroll.patch Added: cpu/arm/mmp2/fast-scroll.patch ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/fast-scroll.patch Sun Oct 16 03:21:46 2011 (r2623) @@ -0,0 +1,72 @@ +Index: cpu/arm/fb8-ops.fth +=================================================================== +--- cpu/arm/fb8-ops.fth (revision 2605) ++++ cpu/arm/fb8-ops.fth (working copy) +@@ -324,7 +324,67 @@ + add r3,r3,r1 + repeat + c; ++0 [if] ++\ This is a (perhaps) faster version of fb-window-move that operates ++\ on 16 bytes in the inner loop, instead of 8. ++code fbx-window-move ( src-start dst-start size bytes/line width -- ) ++ mov r0,tos ++ ldmia sp!,{r1,r2,r3,r4,tos} ++ psh r9,sp ++ \ r0:width r1: bytes/line r2:size r3:dst-start r4:src-start ++ sub r1,r1,r0 \ r1:bytes/line - width ++ add r2,r2,r4 \ r2:end-of-src-copy-region ++ begin ++ cmp r4,r2 ++ < while ++ mov r9,r0 \ r9:loop-width ++ begin ++ decs r9,#16 ++ ldmgeia r4!,{r5,r6,r7,r8} ++ stmgeia r3!,{r5,r6,r7,r8} ++ < until + ++ add r4,r4,r1 ++ add r3,r3,r1 ++ repeat ++ pop r9,sp ++c; ++[then] ++0 [if] ++: foo-dli ( break-hi src-start dst-start size bytes/line width -- break-hi' ) ++ 3drop over h# f4 lcd! over to frame-buffer-adr ( break-hi src dst ) ++ \ Since we have moved the frame buffer address, we have to adjust break-hi, ++ \ which is the address where fb8-delete-lines will begin erasing, by the ++ \ difference ++ - + ( break-hi' ) ++; ++\ XXX this only works for scrolling ++: screen-size ( -- n ) #lines char-height * bytes/line * ; ++: fb-limit ( -- adr ) fb-pa fb-size + ; ++ ++: bytes/row ( -- #bytes ) char-height bytes/line * ; ++: excess-lines ( -- #lines ) fb-size bytes/row / #lines - 1+ ; ++: excess-bytes ( -- #bytes ) excess-lines bytes/row * ; ++: mmp2-delete-lines ( delta-#lines -- ) ++ line# 0<> if fb8-delete-lines exit then ++ dup break-high dup excess-bytes - dup fb-pa >= if ( delta src dst ) ++ bytes/row bytes/line emu-bytes/line fb-window-move ( delta-#lines ) ++ else ( delta src dst ) ++ 2drop ( delta-#lines ) ++ then ( delta-#lines ) ++ ++ window-bottom bytes/row + fb-limit > if ( delta-#lines ) ++ fb-pa ( delta-#lines new-base ) ++ else ( delta-#lines ) ++ dup break-low ( delta-#lines new-base ) ++ then ( delta-#lines ) ++ dup h# f4 lcd! to frame-buffer-adr ( delta-#lines ) ++ window-bottom swap break-high erase-lines ( ) ++; ++' mmp2-delete-lines to delete-lines ++[then] ++ ++ + \ LICENSE_BEGIN + \ Copyright (c) 1997 FirmWorks + \

1 0

[commit] r2622 - cpu/arm/olpc/1.75/sdkit
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 03:19:56 2011 New Revision: 2622 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2622 Log: Checked in sdkit build kit for XO-1.75 Added: cpu/arm/olpc/1.75/sdkit/ (props changed) cpu/arm/olpc/1.75/sdkit/Makefile cpu/arm/olpc/1.75/sdkit/sdkit.fth cpu/arm/olpc/1.75/sdkit/sdkit.sh (contents, props changed) Added: cpu/arm/olpc/1.75/sdkit/Makefile ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/sdkit/Makefile Sun Oct 16 03:19:56 2011 (r2622) @@ -0,0 +1,27 @@ +FTHFILES= \ + ../accelerometer.fth \ + ../../../mmp2/gpio.fth \ + ../../../mmp2/mfpr.fth \ + ../../../mmap.fth \ + ../smbus.fth \ + ../../../mmp2/twsi.fth \ + ./sdkit.fth + +SHFILES= ./sdkit.sh + +DICFILES= ../build/prefw.dic + +WRAPPER=../../../Linux/armforth.static + +D=sdkit-xo175 + +sdkit-xo175.tgz: FORCE + mkdir -p $D + cp $(WRAPPER) $D/forth + cp $(FTHFILES) $D + cp $(DICFILES) $D + cp $(SHFILES) $D + tar cfz $@ $D/forth $D/*.fth $D/*.sh $D/*.dic + rm -rf $D + +FORCE: Added: cpu/arm/olpc/1.75/sdkit/sdkit.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/sdkit/sdkit.fth Sun Oct 16 03:19:56 2011 (r2622) @@ -0,0 +1,13 @@ +fload mmap.fth +0 constant acgr-pa \ Dummy definition +fload mfpr.fth +apb-pa h# 40.0000 mmap to io-va +fload gpio.fth +: us ( n -- ) d# 40 * 0 do loop ; +: ms ( n -- ) 0 ?do d# 1000 us loop ; +fload smbus.fth +fload camera-test.fth +fload twsi.fth +fload accelerometer.fth +.( See http://wiki.laptop.org/go/Forth_Lesson_22) cr +hex Added: cpu/arm/olpc/1.75/sdkit/sdkit.sh ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/sdkit/sdkit.sh Sun Oct 16 03:19:56 2011 (r2622) @@ -0,0 +1,2 @@ +#!/bin/sh +./forth prefw.dic sdkit.fth -

1 0

[commit] r2621 - ofw/core
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:41:16 2011 New Revision: 2621 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2621 Log: osfile.fth - open in read/write mode Modified: ofw/core/osfile.fth Modified: ofw/core/osfile.fth ============================================================================== --- ofw/core/osfile.fth Sun Oct 16 02:38:40 2011 (r2620) +++ ofw/core/osfile.fth Sun Oct 16 02:41:16 2011 (r2621) @@ -73,7 +73,7 @@ i c@ [char] \ = if [char] / i c! then loop ; -: $fopen ( adr len -- fd ) $cstr 0 swap 8 syscall 2drop retval ; +: $fopen ( adr len -- fd ) $cstr 2 swap 8 syscall 2drop retval ; : open ( -- flag ) my-args ( arg$ ) osfile$ dup 0= if ( arg$ null$ )

1 0

[commit] r2620 - cpu/x86/pc/alex
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:38:40 2011 New Revision: 2620 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2620 Log: Checked in alex/coskernel.fth - work in progress. Added: cpu/x86/pc/alex/coskernel.fth Added: cpu/x86/pc/alex/coskernel.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/alex/coskernel.fth Sun Oct 16 02:38:40 2011 (r2620) @@ -0,0 +1,47 @@ + +h# 10000 constant /kbuf +0 value kbuf + +: alloc-kbuf ( -- ) /kbuf alloc-mem to kbuf ; +: free-kbuf ( -- ) kbuf /kbuf free-mem 0 to kbuf ; + +: get-kparams ( name$ -- ) + open-dev ?dup 0= if exit then >r ( r: ih ) + kbuf /kbuf " read" r@ $call-method ( r: ih ) + r> close-dev +; + +: .keydata ( adr len -- ) + over 6 cdump ( adr len ) + ." ... " ( adr len ) + 2dup + 6 - 6 cdump ( adr len ) + nip ." (0x" .x ." bytes)" cr ( ) +; + +: .signature ( adr -- ) + dup x@ x>u ( adr offset ) + over + ( adr sig-adr ) + swap x@ x>u ( sig-adr sig-len ) + .keydata ( ) +; + +string-array algorithm-names +," RSA1024 SHA1" +," RSA1024 SHA256" +," RSA1024 SHA512" +," RSA2048 SHA1" +," RSA2048 SHA256" +," RSA2048 SHA512" +," RSA4096 SHA1" +," RSA4096 SHA256" +," RSA4096 SHA512" +," RSA8192 SHA1" +," RSA8192 SHA256" +," RSA8192 SHA512" +end-string-array + +: .key ( adr -- ) + dup .signature ( adr ) + ." Ver " over h# 18 + x@ x>u .x ( adr ) + h# 10 + x@ x>u algorithm-names count type ( ) +;

1 0

[commit] r2619 - cpu/arm
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:32:50 2011 New Revision: 2619 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2619 Log: Checked in ARM 16bpp to 24bpp conversion function in case we need it later. Added: cpu/arm/rgb566cvt.fth Added: cpu/arm/rgb566cvt.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/rgb566cvt.fth Sun Oct 16 02:32:50 2011 (r2619) @@ -0,0 +1,50 @@ +purpose: Copy from 16bpp to 24bpp frame buffer format + +code copy16>24-line ( src-adr dst-adr #pixels -- ) + mov r2,tos \ #pixels in r2 + ldmia sp!,{r0,r1,tos} \ r0: src, r1: dst, r2: #pixels + begin + ldrh r3,[r0] + inc r3,2 + + mov r4,r3,lsr #8 + and r4,r4,#0xf8 + strb r4,[r1],#1 + + mov r4,r3,lsr #3 + and r4,r4,#0xfc + strb r4,[r1],#1 + + mov r4,r3,lsl #3 + and r4,r4,#0xf8 + strb r4,[r1],#1 + + decs r2,1 + 0= until +c; + +0 value rect-w +0 value rect-h + +0 value dst-base +0 value dst-pitch +0 value dst-x +0 value dst-y + +: dst-base ( -- adr ) dst-y dst-pitch * dst-x + ; + +0 value src-base +0 value src-pitch +0 value src-x +0 value src-y + +: src-base ( -- adr ) dst-y dst-pitch * dst-x + ; + +: copy16>24 ( src-base src-pitch src-x,y dst-x,y w,h -- ) + src-base dst-base ( src-adr dst-adr ) + rect-h 0 ?do ( src-adr dst-adr ) + 2dup rect-w copy16>24-line ( scr-adr dst-adr ) + swap src-pitch + swap dst-pitch + ( scr-adr' dst-adr' ) + loop ( src-adr dst-adr ) + 2drop ( ) +;

1 0

← Newer
1
2
3
4
5
6
7
...
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware October 2011