April 2010 - openfirmware - mail.coreboot.org

[commit] r1780 - cpu/x86/pc/olpc/via
by repository service April 6, 2010

April 6, 2010

Author: rsmith Date: Tue Apr 6 19:34:07 2010 New Revision: 1780 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1780 Log: q3a35f pre-release 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 Tue Apr 6 19:34:04 2010 (r1779) +++ cpu/x86/pc/olpc/via/fw-version.fth Tue Apr 6 19:34:07 2010 (r1780) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 35 +macro: FW_MINOR 35f

1 0

[commit] r1779 - dev/olpc/kb3700
by repository service April 6, 2010

April 6, 2010

Author: rsmith Date: Tue Apr 6 19:34:04 2010 New Revision: 1779 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1779 Log: Sync OFW batttery error info with EC Modified: dev/olpc/kb3700/battery.fth Modified: dev/olpc/kb3700/battery.fth ============================================================================== --- dev/olpc/kb3700/battery.fth Mon Apr 5 20:21:48 2010 (r1778) +++ dev/olpc/kb3700/battery.fth Tue Apr 6 19:34:04 2010 (r1779) @@ -68,6 +68,10 @@ ( 10) ," ACR error" ( 11) ," NIMH 0xFF count" ( 12) ," FF count" +( 13) ," Voltage Invalid" +( 14) ," Bank 0 Invalid" +( 15) ," Bank 1 Invalid" +( 16) ," Bank 2 Invalid" end-string-array : .bat-cause ( -- )

1 0

[commit] r1778 - cpu/x86/pc/olpc
by repository service April 5, 2010

April 5, 2010

Author: rsmith Date: Mon Apr 5 22:21:48 2010 New Revision: 1778 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1778 Log: Revert charge-log - This does not seem to have been tested enough. Its broken. Remove it for now to get the pre-release out and fix it later. Modified: cpu/x86/pc/olpc/charge.fth Modified: cpu/x86/pc/olpc/charge.fth ============================================================================== --- cpu/x86/pc/olpc/charge.fth Mon Apr 5 21:44:04 2010 (r1777) +++ cpu/x86/pc/olpc/charge.fth Mon Apr 5 22:21:48 2010 (r1778) @@ -39,20 +39,21 @@ h# 100 buffer: fname-buf : charge-log-append ( adr len -- ) - fname-buf $append-open + fname-buf count $append-open ftype fcr ofd @ fclose ; +[ifdef] notdef : charge-log ( "filename" -- ) \ filename is optional ['] safe-parse-word catch if - fname-buf place + " sd:\charge.log" fname-buf place else - " sd:\charge.log" fname-buf place + fname-buf place then ." Logging to: " fname-buf count type cr - fname-buf $new-file + fname-buf count $new-file ofd @ fclose " chg_log Ver: 1.0" charge-log-append @@ -79,6 +80,7 @@ key? until key drop ; +[then] : watch-charge ( -- ) \ 5 seconds is the default unless the user sets wake-delay

1 0

[commit] r1777 - cpu/x86/pc/olpc/via
by repository service April 5, 2010

April 5, 2010

Author: rsmith Date: Mon Apr 5 21:44:04 2010 New Revision: 1777 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1777 Log: Use EC version 1.9.25 Modified: cpu/x86/pc/olpc/via/ec-version.fth Modified: cpu/x86/pc/olpc/via/ec-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/ec-version.fth Mon Apr 5 21:30:34 2010 (r1776) +++ cpu/x86/pc/olpc/via/ec-version.fth Mon Apr 5 21:44:04 2010 (r1777) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 1_9_24 +macro: EC_VERSION 1_9_25 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r1776 - cpu/x86/pc/olpc cpu/x86/pc/olpc/via dev/olpc/kb3700
by repository service April 5, 2010

April 5, 2010

Author: rsmith Date: Mon Apr 5 21:30:34 2010 New Revision: 1776 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1776 Log: Merge branch 'richard' Modified: cpu/x86/pc/olpc/charge.fth cpu/x86/pc/olpc/via/fw.bth dev/olpc/kb3700/battery.fth Modified: cpu/x86/pc/olpc/charge.fth ============================================================================== --- cpu/x86/pc/olpc/charge.fth Mon Apr 5 05:54:49 2010 (r1775) +++ cpu/x86/pc/olpc/charge.fth Mon Apr 5 21:30:34 2010 (r1776) @@ -2,48 +2,61 @@ \ See license at end of file \ Need the comma to be compatible with olpc-pwr-log stuff - : >sd, - <# " ," hold$ u#s u#> + base @ >r decimal + dup abs <# " ," hold$ u#s swap sign u#> + r> base ! ; : >sd.dd, ( n -- formatted ) base @ >r decimal - dup abs <# " ," hold$ u# u# [char] . hold u#s rot sign u#> + dup abs <# " ," hold$ u# u# [char] . hold u#s swap sign u#> r> base ! ; -: bat-log-append ( adr len -- ) - " sd:\charge.log" $append-open \ hardcode the path for now - ftype - fcr - ofd @ fclose -; +0 value start-acr +d# 60 value (wake-delay) +d# 0 value wake-delay +: setup-rtc-wake ( delay -- ) + 0 acpi-l@ h# 400.0000 or 0 acpi-l! + ['] noop " set-alarm" clock-node @ $call-method +; -0 value start-acr -d# 15 value wake-delay +: finish-rtc-wake ( -- ) 0 acpi-l@ h# 400.0000 invert and 0 acpi-l! ; : bat-charge-dataf@ - base @ >r decimal 0 logstr c! time&date >unix-seconds >sd, logstr $cat soc >sd, logstr $cat - uvolt@ dup >sd, logstr $cat 100 / ( V__.1mV ) - cur@ dup >sd, logstr $cat 100 / ( V_.1mV I__.1mA ) - * drop ( W_mW ) - bat-temp >sd, logstr $cat - bat-acr@ s16>s32 dup >sd, logstr $cat + uvolt@ dup >sd, logstr $cat + cur@ dup >sd, logstr $cat + bat-temp >sd, logstr $cat + bat-acr@ s16>s32 dup >sd, logstr $cat start-acr - bg-acr>mAh >sd.dd, logstr $cat - r> base ! ; -: bat-charge-log ( -- ) - " sd:\charge.log" $new-file \ Make sure the file exists and is empty. +h# 100 buffer: fname-buf + +: charge-log-append ( adr len -- ) + fname-buf $append-open + ftype + fcr + ofd @ fclose +; + +: charge-log ( "filename" -- ) \ filename is optional + ['] safe-parse-word catch if + fname-buf place + else + " sd:\charge.log" fname-buf place + then + ." Logging to: " fname-buf count type cr + fname-buf $new-file ofd @ fclose - " chg_log Ver: 1.0" bat-log-append - " <StartData>" bat-log-append \ This makes us compatible with the processing scripts for use with olpc-pwr-log + " chg_log Ver: 1.0" charge-log-append + " <StartData>" charge-log-append \ This makes us compatible with the processing scripts for use with olpc-pwr-log \ Allow for suspend to be super low power dcon-power-off @@ -53,17 +66,48 @@ bat-acr@ s16>s32 to start-acr begin bat-charge-dataf@ + \ Even though we have no screen still do console output + \ So it shows up on the serial port. logstr count type cr - logstr count bat-log-append - 0 acpi-l@ h# 400.0000 or 0 acpi-l! \ Enable RTC SCI - ['] noop wake-delay " set-alarm" clock-node @ $call-method + logstr count charge-log-append + wake-delay setup-rtc-wake + \ We don't want to do video restore. Only usb + suspend-usb s3 - 0 0 acpi-l! \ Disable RTC SCI + resume-usb + finish-rtc-wake key? until key drop ; +: watch-charge ( -- ) + \ 5 seconds is the default unless the user sets wake-delay + wake-delay 0= if + d# 5 to (wake-delay) + ." Using default delay" cr + ." Set wake-delay fo a different value" cr + else + wake-delay to (wake-delay) + then + (wake-delay) + ." Sampling every " .d ." seconds" cr + sci-wakeup + bat-acr@ s16>s32 to start-acr + begin + bat-charge-dataf@ + logstr count type cr +\ wake-delay setup-rtc-wake +\ s3-suspend +\ finish-rtc-wake + +\ RTC wake seems flaky. +\ use EC for now (only works on 1.5) + (wake-delay) d# 1000 * h# 36 ec-cmd-l! + s3-suspend + key? + until key drop +; \ LICENSE_BEGIN \ Copyright (c) 2007 FirmWorks \ Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Mon Apr 5 05:54:49 2010 (r1775) +++ cpu/x86/pc/olpc/via/fw.bth Mon Apr 5 21:30:34 2010 (r1776) @@ -719,12 +719,25 @@ quit ; +: enable-serial ( -- ) + serial-enabled? if exit then + + h# 40 h# 8846 config-b! + " com1" open-dev dup to fallback-in-ih add-input + " com1" open-dev dup to fallback-out-ih add-output +; +: disable-serial + fallback-in-ih ?dup if remove-input then + fallback-out-ih ?dup if remove-output then +; + : newrom + enable-serial " flash! http:\\10.20.0.14\new.rom" eval \ " wifi media lab 802.11" eval \ " flash http:\\18.85.46.172\new.rom" eval ; -: urom " flash! u:\new.rom" eval ; +: urom enable-serial " flash! u:\new.rom" eval ; : no-usb-delay " dev /usb false to delay? dend" evaluate ; : null-fsdisk " dev /null : write-blocks-start 3drop ; : write-blocks-finish ; dend" evaluate @@ -741,18 +754,6 @@ warning ! previous previous definitions -: enable-serial ( -- ) - serial-enabled? if exit then - - h# 40 h# 8846 config-b! - " com1" open-dev dup to fallback-in-ih add-input - " com1" open-dev dup to fallback-out-ih add-output -; -: disable-serial - fallback-in-ih ?dup if remove-input then - fallback-out-ih ?dup if remove-output then -; - tag-file @ fclose tag-file off .( --- Saving fw.dic ...) Modified: dev/olpc/kb3700/battery.fth ============================================================================== --- dev/olpc/kb3700/battery.fth Mon Apr 5 05:54:49 2010 (r1775) +++ dev/olpc/kb3700/battery.fth Mon Apr 5 21:30:34 2010 (r1776) @@ -110,6 +110,12 @@ dup abs d# 10,000 / <# u# u# [char] . hold u#s swap sign u#> type pop-base ; + +: .mppt-active? + h# 3d ec-cmd-b@ h# d and + if ." MPPT" then +; + \needs 2.d : 2.d ( n -- ) push-decimal <# u# u#s u#> type pop-base ; : .% ( n -- ) 2.d ." %" ; : .bat ( -- ) @@ -133,9 +139,10 @@ dup h# 40 and if ." discharging " then dup h# 80 and if ." trickle " then else - ." No battery" + ." No battery " then drop + .mppt-active? ; : ?enough-power ( ) @@ -157,17 +164,6 @@ \ (stdout off) this will miss some state changes. \ -: .mppt - ec-pwr_limit ec-ram@ ( pwr_limit ) - ec-rambase ec-va2 + ecw@ ( pwr_limit VA2 ) - ." VA2: " .d ." PWM: " . -; - -: watch-mppt ( -- ) - begin (cr .mppt kill-line d# 500 ms key? until - key drop -; - : next-bstate begin f780 ec@ tuck <> @@ -442,6 +438,28 @@ d# 16 << d# 16 >>a ; +: >sd + base @ >r decimal + dup abs <# u#s swap sign u#> + r> base ! +; + +: >sdx + <# " " hold$ u#s " 0x" hold$ u#> +; + +: >sd.ddd ( n -- formatted ) + base @ >r decimal + dup abs <# u# u# u# [char] . hold u# u#s swap sign u#> + r> base ! +; + +: >sd.dd ( n -- formatted ) + base @ >r decimal + dup abs <# u# u# [char] . hold u# u#s swap sign u#> + r> base ! +; + : bat-save ( -- ) " disk:\battery.dmp" 2dup ['] $delete catch if 2drop then ( name$ ) @@ -533,6 +551,42 @@ 1w-reset ; +\ Retrieve the key battery stats in bulk and put it on the stack +\ sign extending the values that are 2's complement. +: bg-charge-info@ + ds-bank-buf 6 h# 0c 1w-read ( ) + ds-bank-buf c@ 8 << ( voltage_msb ) + ds-bank-buf 1 + c@ or s16>s32 ( voltage ) + ds-bank-buf 2 + c@ 8 << ( voltage current_msb ) + ds-bank-buf 3 + c@ or s16>s32 ( voltage current ) + ds-bank-buf 4 + c@ 8 << ( voltage current ACR_msb ) + ds-bank-buf 5 + c@ or s16>s32 ( voltage current ACR ) +; + +: bg-net-addr@ + 1w-reset + h# 33 1w-write-byte + 1w-read-byte + 0 7 bounds ?do 1w-read-byte loop +; + +: bg-acr>mAh ( raw-value -- acr_in_mAh ) + d# 625 ( mV ) * d# 15 ( mOhm ) / +; + +: bg-V>V ( raw-value - V_in_mV ) + d# 488 ( mV ) * 2* d# 100 / 5 >> +; + +: bg-I>mA ( raw-value -- I_in_mA ) + 3 >>a + d# 15625 ( nV ) * d# 15 ( mOhm ) / d# 10 / +; + +: bg-temp>degc ( raw-value -- temp_in_degc ) + d# 125 * d# 10 / 5 >> +; + : .bg-eeprom base @ >r decimal @@ -548,6 +602,40 @@ r> base ! ; +: .bg-acr ( raw_acr_in_s32 -- ) + bg-acr>mAh >sd.dd type +; + +: .bg-current ( raw_I_in_s32 -- ) + bg-I>mA >sd.dd type +; + +: .bg-volt ( raw_V_in_s32 -- ) + bg-V>V >sd.ddd type +; + +: .bg-net-addr ( -- ) + bg-net-addr@ + 0 8 bounds ?do . loop cr +; + +0 value bg-last-acr +0 value bg-v_avg + +: bg-watch ( -- ) + bg-acr@ + begin + bg-charge-info@ + dup to bg-last-acr + ." ACR:" .bg-acr ." I:" .bg-current ." V:" .bg-volt + dup bg-last-acr swap - ." Chg:" .bg-acr + cr + 500 ms + key? + until + drop +; + : bat-set-default-status ( val -- ) ds-bank0 1w-recall ds-default-status 1w-write-start @@ -573,55 +661,7 @@ then ; -\ Retrieve the key battery stats in bulk and put it on the stack -\ sign extending the values that are 2's complement. -: bg-charge-info@ - ds-bank-buf 6 h# 0c 1w-read ( ) - ds-bank-buf c@ 8 << ( voltage_msb ) - ds-bank-buf 1 + c@ or s16>s32 ( voltage ) - ds-bank-buf 2 + c@ 8 << ( voltage current_msb ) - ds-bank-buf 3 + c@ or s16>s32 ( voltage current ) - ds-bank-buf 4 + c@ 8 << ( voltage current ACR_msb ) - ds-bank-buf 5 + c@ or s16>s32 ( voltage current ACR ) -; - -: >sd.ddd ( n -- formatted ) - base @ >r decimal - dup abs <# u# u# u# [char] . hold u# u#s swap sign u#> - r> base ! -; - -: >sd.dd ( n -- formatted ) - base @ >r decimal - dup abs <# u# u# [char] . hold u# u#s swap sign u#> - r> base ! -; - -: bg-acr>mAh ( raw-value -- acr_in_mAh ) - d# 625 ( mV ) * d# 15 ( mOhm ) / -; - -: bg-V>V ( raw-value - V_in_mV ) - d# 488 ( mV ) * 2* d# 100 / 5 >> -; - -: bg-I>mA ( raw-value -- I_in_mA ) - 3 >>a - d# 15625 ( nV ) * d# 15 ( mOhm ) / d# 10 / -; - -: bg-temp>degc ( raw-value -- temp_in_degc ) - d# 125 * d# 10 / 5 >> -; - h# 90 buffer: logstr -: >sd - <# " " hold$ u#s u#> -; - -: >sdx - <# " " hold$ u#s " 0x" hold$ u#> -; \ Read values directly rather than using the ec-cmd @@ -685,35 +725,6 @@ r> base ! ; -: .bg-acr ( raw_acr_in_s32 -- ) - bg-acr>mAh >sd.dd type -; - -: .bg-current ( raw_I_in_s32 -- ) - bg-I>mA >sd.dd type -; - -: .bg-volt ( raw_V_in_s32 -- ) - bg-V>V >sd.ddd type -; - -0 value bg-last-acr -0 value bg-v_avg - -: bg-watch ( -- ) - bg-acr@ - begin - bg-charge-info@ - dup to bg-last-acr - ." ACR:" .bg-acr ." I:" .bg-current ." V:" .bg-volt - dup bg-last-acr swap - ." Chg:" .bg-acr - cr - 500 ms - key? - until - drop -; - : bat-debug begin bat-lfp-dataf@ @@ -737,7 +748,7 @@ ; -: bat-charge ( -- ) +: bat-force-charge ( -- ) batman-init? bat-enable-charge bg-acr@ @@ -774,6 +785,22 @@ h# 10 invert and ec-debugflag4 bat-b! ; +: mppt-off h# 40 ec-cmd ; +: mppt-on h# 41 ec-cmd ; +: mppt-pct 255 * 100 / h# 3f ec-cmd-b! ; + +: .mppt + h# 3e ec-cmd-b@ ( pwr_limit ) + h# 42 ec-cmd-b@ ( pwr_limit VA2 ) + ." Vsa: " d# 14927 * d# 158 / >sd.ddd type ." PWM: " . +; + +: watch-mppt ( -- ) + begin (cr .mppt kill-line d# 500 ms key? until + key drop +; + + dev / new-device " battery" device-name

1 0

[commit] r1775 - cpu/x86/Linux forth/wrapper/zip
by repository service April 5, 2010

April 5, 2010

Author: wmb Date: Mon Apr 5 05:54:49 2010 New Revision: 1775 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1775 Log: Patch from Cortland Setlow to allow the uses of -O3 for compiling the inflater, thus making it run 2.5x faster. Added: cpu/x86/Linux/inflate.ld Modified: cpu/x86/Linux/Makefile forth/wrapper/zip/inflate.c Modified: cpu/x86/Linux/Makefile ============================================================================== --- cpu/x86/Linux/Makefile Thu Mar 18 19:21:33 2010 (r1774) +++ cpu/x86/Linux/Makefile Mon Apr 5 05:54:49 2010 (r1775) @@ -30,11 +30,11 @@ ${CC} -m32 -o $@ ${OBJS} ${LIBS} @ln -sf forth x86forth -# Compile with -O0 because with GCC4, higher optimization levels cause the -# functions to be reordered so the "inflate" entry point is no longer at -# the beginning. -inflate.o: ${ZIPDIR}/inflate.c - ${CC} -c -m32 -O0 -fpic $< -o $@ +inflate.lo: ${ZIPDIR}/inflate.c + ${CC} -c -m32 -Wall -fno-stack-protector -ffreestanding -D_FORTIFY_SOURCE=0 -DNEED_BCOPY -O3 -fpic $< -o $@ + +inflate.o: inflate.lo + ${LD} -T inflate.ld $< -o $@ ../build/inflate.bin: inflate.o objcopy -O binary $< $@ Added: cpu/x86/Linux/inflate.ld ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/Linux/inflate.ld Mon Apr 5 05:54:49 2010 (r1775) @@ -0,0 +1,7 @@ +SECTIONS +{ + . = 0x00000; + .text : { *(.text_inflate) } + .text_spare : { *(.text) } +} + Modified: forth/wrapper/zip/inflate.c ============================================================================== --- forth/wrapper/zip/inflate.c Thu Mar 18 19:21:33 2010 (r1774) +++ forth/wrapper/zip/inflate.c Mon Apr 5 05:54:49 2010 (r1775) @@ -172,10 +172,10 @@ * Return size of clear. */ int -inflate(wsptr, nohdr, clear, compr) -struct workspace *wsptr; -int nohdr; -u_char *clear, *compr; +inflate(struct workspace *wsptr, int nohdr, u_char* clear, u_char *compr) __attribute__((section ("text_inflate"))); + +int +inflate(struct workspace *wsptr, int nohdr, u_char* clear, u_char *compr) { int n; int flags;

1 0