openfirmware January 2012

openfirmware@openfirmware.info

1 participants
55 discussions

[commit] r2850 - cpu/arm/olpc/1.75
by repository service 24 Jan '12

24 Jan '12

Author: quozl Date: Tue Jan 24 23:11:27 2012 New Revision: 2850 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2850 Log: Q4D02 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 Jan 24 23:05:39 2012 (r2849) +++ cpu/arm/olpc/1.75/fw-version.fth Tue Jan 24 23:11:27 2012 (r2850) @@ -1,4 +1,4 @@ \ The overall firmware revision macro: FW_PREFIX Q4 macro: FW_MAJOR D -macro: FW_MINOR 01 +macro: FW_MINOR 02 \ No newline at end of file

1 0

[commit] r2849 - cpu/arm/olpc/1.75
by repository service 24 Jan '12

24 Jan '12

Author: pgf Date: Tue Jan 24 23:05:39 2012 New Revision: 2849 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2849 Log: include 1.75 EC 4_0_4_02 Modified: cpu/arm/olpc/1.75/ec-version.fth Modified: cpu/arm/olpc/1.75/ec-version.fth ============================================================================== --- cpu/arm/olpc/1.75/ec-version.fth Tue Jan 24 20:05:07 2012 (r2848) +++ cpu/arm/olpc/1.75/ec-version.fth Tue Jan 24 23:05:39 2012 (r2849) @@ -1,6 +1,6 @@ \ The EC microcode macro: EC_PLATFORM cl2 -macro: EC_VERSION 4_0_4_00 +macro: EC_VERSION 4_0_4_02 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r2848 - cpu/arm
by repository service 24 Jan '12

24 Jan '12

Author: wmb Date: Tue Jan 24 20:05:07 2012 New Revision: 2848 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2848 Log: ARM kernel - fixed bugs in ilimit and jlimit - they were completely broken. Modified: cpu/arm/kerncode.fth Modified: cpu/arm/kerncode.fth ============================================================================== --- cpu/arm/kerncode.fth Mon Jan 23 18:56:23 2012 (r2847) +++ cpu/arm/kerncode.fth Tue Jan 24 20:05:07 2012 (r2848) @@ -286,7 +286,7 @@ c; code ilimit ( -- n ) psh tos,sp - ldr tos,[rp],1cell + ldr tos,[rp,1cell] inc tos,#0x80000000 c; code j ( -- n ) @@ -297,7 +297,7 @@ c; code jlimit ( -- n ) psh tos,sp - ldr tos,[rp],4cells + ldr tos,[rp,4cells] inc tos,#0x80000000 c;

1 0

[commit] r2847 - forth/kernel
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:56:23 2012 New Revision: 2847 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2847 Log: Kernel - in "including", ensure that include-exit-hook is called if an abort happens during the file loading operation. Modified: forth/kernel/kernel.fth Modified: forth/kernel/kernel.fth ============================================================================== --- forth/kernel/kernel.fth Mon Jan 23 18:56:19 2012 (r2846) +++ forth/kernel/kernel.fth Mon Jan 23 18:56:23 2012 (r2847) @@ -3021,13 +3021,17 @@ : $abort-include ( error# filename$ -- ) 2drop throw ; ' $abort-include is $open-error -: included ( adr len -- ) - include-hook +: (included) ( adr len -- ) r/o open-file ?dup if opened-filename 2@ $open-error then ( fid ) include-file - include-exit-hook +; +: included ( adr len -- ) + include-hook ( adr len ) + ['] (included) catch ( error# ) + include-exit-hook ( error# ) + throw ; : including ( "name" -- ) safe-parse-word included ; : fl ( "name" -- ) including ;

1 0

[commit] r2846 - cpu/x86
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:56:19 2012 New Revision: 2846 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2846 Log: x86 - debugger support for relative-addressed version. Modified: cpu/x86/debugm.fth Modified: cpu/x86/debugm.fth ============================================================================== --- cpu/x86/debugm.fth Mon Jan 23 18:56:16 2012 (r2845) +++ cpu/x86/debugm.fth Mon Jan 23 18:56:19 2012 (r2846) @@ -31,13 +31,17 @@ _flush_cache #) call c; -\ Change all the next routines in the indicated range to perform the -\ in-line next routine +\ Fix the NEXT routine in the user area to use the non-debug code. code fast-next ( high low -- ) ax pop ax pop _disable_cache #) call - h# 9020ffad # ax mov \ ax lods 0 [ax] jmp nop - ax 0 [up] mov + +\+ rel h# 8bf801ad # ax mov ax 0 [up] mov \ ax lods up w add +\+ rel h# fffb0118 # ax mov ax 4 [up] mov \ 0 [w] bx mov up bx add +\+ rel h# 909090e3 # ax mov ax 8 [up] mov \ bx jmp nop nop nop + +\- rel h# 9020ffad # ax mov ax 0 [up] mov \ ax lods 0 [w] jmp nop + _flush_cache #) call c; @@ -45,7 +49,8 @@ \ We have to expand the code for NEXT in-line here, because if \ we let the assembler macro do it, we'll end up with a jump right back \ to this routine - ax lods 0 [ax] jmp +\+ rel ax lods up w add 0 [w] bx mov up bx add bx jmp +\- rel ax lods 0 [w] jmp end-code label debnext @@ -62,26 +67,32 @@ ax 'user cnt mov \ normal-next #) ax lea make-even \ word-align address - normal-next dup #) ax lea - -4 allot token, \ relocate address +\- rel normal-next dup #) ax lea +\- rel -4 allot token, \ relocate address + +\+ rel normal-next origin - # ax mov +\+ rel up ax add ax 'user debug-next mov + 'user 'debug w mov - 0 [w] jmp +\+ rel up w add 0 [w] bx mov up bx add bx jmp +\- rel 0 [w] jmp then then then \ We have to expand the code for NEXT in-line here, because if \ we let the assembler macro do it, we'll end up with a jump right back \ to this routine - ax lods 0 [ax] jmp \ Next +\+ rel ax lods up w add 0 [w] bx mov up bx add bx jmp +\- rel ax lods 0 [w] jmp \ Next end-code \ Fix the next routine to use the debug version -: pnext (s -- ) debnext debug-next a! ; +: pnext (s -- ) debnext debug-next ! ; \ Turn off debugging -: unbug (s -- ) normal-next debug-next a! ; +: unbug (s -- ) normal-next debug-next ! ; forth definitions unbug

1 0

[commit] r2845 - cpu/arm/build
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:56:16 2012 New Revision: 2845 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2845 Log: git ignore Added: cpu/arm/build/.gitignore Added: cpu/arm/build/.gitignore ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/build/.gitignore Mon Jan 23 18:56:16 2012 (r2845) @@ -0,0 +1,3 @@ +armforth +forth +build

1 0

[commit] r2844 - cpu/x86 forth/kernel
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:56:12 2012 New Revision: 2844 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2844 Log: x86 - increased max-kernel size to 128K so builds won't fail if the kernel size creeps over 64K. Modified: cpu/x86/target.fth forth/kernel/swapmap.fth Modified: cpu/x86/target.fth ============================================================================== --- cpu/x86/target.fth Mon Jan 23 18:56:08 2012 (r2843) +++ cpu/x86/target.fth Mon Jan 23 18:56:12 2012 (r2844) @@ -43,7 +43,7 @@ \t16-t /w-t constant /user#-t \t32-t /l-t constant /user#-t -user-size-t th 10000 + constant max-kernel-t +user-size-t h# 20000 + constant max-kernel-t \ 32 bit host Forth compiling 32-bit target Forth : l->n-t ; immediate Modified: forth/kernel/swapmap.fth ============================================================================== --- forth/kernel/swapmap.fth Mon Jan 23 18:56:08 2012 (r2843) +++ forth/kernel/swapmap.fth Mon Jan 23 18:56:12 2012 (r2844) @@ -4,7 +4,7 @@ decimal only forth also meta also definitions -h# 10000 constant max-kernel-t +h# 20000 constant max-kernel-t \ The swap map has one bit for every 32-bit word, since we assume \ that relocated longwords must start on a 32-bit boundary

1 0

[commit] r2843 - in cpu/x86/pc/neptune: . build
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:56:08 2012 New Revision: 2843 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2843 Log: Minor cleanup of neptune build to reflect changes in common code. Added: cpu/x86/pc/neptune/build/.gitignore Modified: cpu/x86/pc/neptune/build/Makefile cpu/x86/pc/neptune/devices.fth cpu/x86/pc/neptune/fw.bth cpu/x86/pc/neptune/neptune.bth Added: cpu/x86/pc/neptune/build/.gitignore ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/neptune/build/.gitignore Mon Jan 23 18:56:08 2012 (r2843) @@ -0,0 +1 @@ +build Modified: cpu/x86/pc/neptune/build/Makefile ============================================================================== --- cpu/x86/pc/neptune/build/Makefile Mon Jan 23 18:56:03 2012 (r2842) +++ cpu/x86/pc/neptune/build/Makefile Mon Jan 23 18:56:08 2012 (r2843) @@ -21,7 +21,7 @@ @make -C ../../../build inflate.bin ${CLIENTDIR}/memtest86/memtest: - @make -C ${CLIENTDIR}/memtest86 memtest + @VARIANT=OLPCGEODE make -C ${CLIENTDIR}/memtest86 memtest build: ../../../${OS}/forth @ln -sf ../../../${OS}/forth build Modified: cpu/x86/pc/neptune/devices.fth ============================================================================== --- cpu/x86/pc/neptune/devices.fth Mon Jan 23 18:56:03 2012 (r2842) +++ cpu/x86/pc/neptune/devices.fth Mon Jan 23 18:56:08 2012 (r2843) @@ -198,11 +198,6 @@ ; [then] -fload ${BP}/forth/lib/pattern.fth \ Text string pattern matching -fload ${BP}/forth/lib/tofile.fth \ to-file and append-to-file -\ XXX remove the OS file commands from tools.dic -fload ${BP}/ofw/core/filecmds.fth \ File commands: dir, del, ren, etc. - fload ${BP}/cpu/x86/pc/olpc/cmos.fth \ CMOS RAM indices are 1f..ff , above RTC devalias nand /nandflash @@ -281,6 +276,11 @@ h# 3f8 is uart-base fload ${BP}/forth/lib/sysuart.fth \ Use UART for key and emit +0 value keyboard-ih +0 value screen-ih + +fload ${BP}/ofw/core/muxdev.fth \ I/O collection/distribution device + [ifndef] save-flash : save-flash ; : restore-flash ; @@ -313,8 +313,6 @@ false config-int tft-mode? -fload ${BP}/cpu/x86/fb16-ops.fth -fload ${BP}/ofw/termemu/fb16.fth 0 0 " 1,1" " /pci" begin-package fload ${BP}/dev/geode/display/loadpkg.fth \ Geode display Modified: cpu/x86/pc/neptune/fw.bth ============================================================================== --- cpu/x86/pc/neptune/fw.bth Mon Jan 23 18:56:03 2012 (r2842) +++ cpu/x86/pc/neptune/fw.bth Mon Jan 23 18:56:08 2012 (r2843) @@ -123,6 +123,7 @@ [ifdef] linux-support \needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation +\needs ($crc16) fload ${BP}/forth/lib/crc16.fth support-package: ext2-file-system fload ${BP}/ofw/fs/ext2fs/ext2fs.fth \ Linux file system end-support-package @@ -275,7 +276,7 @@ [then] then ; -\ warning ! +warning ! [then] : (.firmware) ( -- ) Modified: cpu/x86/pc/neptune/neptune.bth ============================================================================== --- cpu/x86/pc/neptune/neptune.bth Mon Jan 23 18:56:03 2012 (r2842) +++ cpu/x86/pc/neptune/neptune.bth Mon Jan 23 18:56:08 2012 (r2843) @@ -6,7 +6,6 @@ in: ${BP}/cpu/x86/pc/neptune/build/rmstart.img in: ${BP}/cpu/x86/pc/neptune/build/paging.di in: ${BP}/cpu/x86/pc/neptune/build/fw.dic -in: ${BP}/dev/geode/nandflash/build/nandflash.fc in: ${BP}/dev/geode/ac97/build/ac97.fc in: ${BP}/dev/usb2/hcd/ohci/build/ohci.fc in: ${BP}/dev/usb2/hcd/ehci/build/ehci.fc @@ -17,7 +16,7 @@ in: ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc in: ${BP}/dev/pci/build/pcibridg.fc in: ${BP}/dev/dnet/build/dnet.fc -\ in: ${BP}/clients/memtest86/memtest +in: ${BP}/clients/memtest86/memtest in: vme.elf build-now

1 0

[commit] r2842 - forth/lib
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:56:03 2012 New Revision: 2842 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2842 Log: Tags - added instructions in forth/lib/toctags for using the Forth tag files with EMACS Modified: forth/lib/toctags Modified: forth/lib/toctags ============================================================================== --- forth/lib/toctags Mon Jan 23 18:55:59 2012 (r2841) +++ forth/lib/toctags Mon Jan 23 18:56:03 2012 (r2842) @@ -16,3 +16,23 @@ sed -e "s,\${BP},${homedir}," $* | LC_ALL=C sort | uniq | cat tags.hdr - >tags rm tags.hdr +# To use the tags file from EMACS: +# a) Get vtags.el per http://www.gnu.org/software/vtags/ and arrange for it to be loaded +# b) If you use gforth.el, modify it as follows: +# +#--- gforth.el.orig 2012-01-18 23:04:28.420686187 -1000 +#+++ gforth.el 2012-01-18 23:05:20.560177102 -1000 +#@@ -1125,6 +1126,4 @@ +# (unless (or regexp-p next-p) +#- (setq tagname (concat "\$^\\|\\s-+\$\$" (regexp-quote tagname) +#- "\$\\s-*\x7f"))) +#- (switch-to-buffer +#- (find-tag-noselect tagname next-p t))) +#+ (setq tagname (concat tagname "\t"))) +#+ (find-tag tagname t)) +# +# To tell EMACS which tags table to use, +# M-x customize-variable tags-table-list +# Then, if use gforth.el, you can use M-. from a Forth mode buffer to find a tag. +# In any case, you can use M-t from anywhere to find a tag, but the matching won't +# be as precise as with M-. -- you may have to select from a disambiguation list.

1 0

[commit] r2841 - in forth: kernel lib
by repository service 23 Jan '12

23 Jan '12

Author: wmb Date: Mon Jan 23 18:55:59 2012 New Revision: 2841 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2841 Log: Fixed tag file by adding header so that vtags.el can recognize it, and in the kernel, write the tag when the word is really defined, instead of at the first (possibly forward) reference. Modified: forth/kernel/meta1.fth forth/kernel/metacompile.fth forth/lib/toctags Modified: forth/kernel/meta1.fth ============================================================================== --- forth/kernel/meta1.fth Mon Jan 23 18:55:53 2012 (r2840) +++ forth/kernel/meta1.fth Mon Jan 23 18:55:59 2012 (r2841) @@ -59,7 +59,7 @@ context link@ >r current link@ >r warning @ >r context link! definitions warning off - tag-file @ >r meta-tag-file @ tag-file ! + tag-file @ >r tag-file off $create r> tag-file ! r> warning ! r> current link! r> context link! Modified: forth/kernel/metacompile.fth ============================================================================== --- forth/kernel/metacompile.fth Mon Jan 23 18:55:53 2012 (r2840) +++ forth/kernel/metacompile.fth Mon Jan 23 18:55:59 2012 (r2841) @@ -374,7 +374,10 @@ : $header-t (s name$ cf$ -- ) \ Make a header in the target area 2>r 2dup last-header$ 2! + tag-file @ >r meta-tag-file @ tag-file ! + 2dup $tagout 2dup $create-s \ symbol table entry + r> tag-file ! \ Make header unless headerless make-header? if 2dup $really-header-t then \Tags $header-t-hook Modified: forth/lib/toctags ============================================================================== --- forth/lib/toctags Mon Jan 23 18:55:53 2012 (r2840) +++ forth/lib/toctags Mon Jan 23 18:55:59 2012 (r2841) @@ -6,5 +6,13 @@ homedir=$1 shift -sed -e "s,\${BP},${homedir}," $* | LC_ALL=C sort >tags +cat >tags.hdr <<EOF +!_TAG_FILE_FORMAT 1 +!_TAG_FILE_SORTED 1 +!_TAG_PROGRAM_NAME OpenFirmwareBuilder +!_TAG_PROGRAM_VERSION 1 +EOF + +sed -e "s,\${BP},${homedir}," $* | LC_ALL=C sort | uniq | cat tags.hdr - >tags +rm tags.hdr

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware January 2012