openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r1778 - cpu/x86/pc/olpc
by repository service 05 Apr '10

05 Apr '10

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 05 Apr '10

05 Apr '10

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 05 Apr '10

05 Apr '10

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 05 Apr '10

05 Apr '10

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

[commit] r1774 - cpu/x86/pc/olpc/via
by repository service 18 Mar '10

18 Mar '10

Author: wmb Date: Thu Mar 18 19:21:33 2010 New Revision: 1774 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1774 Log: OLPC trac 10078 - second fs-update fails after mistyping file name on first try. Modified: cpu/x86/pc/olpc/via/fsupdate.fth Modified: cpu/x86/pc/olpc/via/fsupdate.fth ============================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth Wed Mar 10 18:44:21 2010 (r1773) +++ cpu/x86/pc/olpc/via/fsupdate.fth Thu Mar 18 19:21:33 2010 (r1774) @@ -216,12 +216,12 @@ : fs-update ( "devspec" -- ) load-crypto abort" Can't load hash routines" - open-nand ( ) - false to secure-fsupdate? ( ) safe-parse-word r/o open-file ( fd ) abort" Can't open file" ( fd ) + open-nand ( ) + linefeed over force-line-delimiter ( fd ) t( ( fd )

1 0

[commit] r1773 - cpu/x86/pc/olpc
by repository service 10 Mar '10

10 Mar '10

Author: wmb Date: Wed Mar 10 18:44:21 2010 New Revision: 1773 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1773 Log: Q3A35 rebuild - reverted non-yet-ready tweak to xpsecure.fth. Modified: cpu/x86/pc/olpc/xpsecure.fth Modified: cpu/x86/pc/olpc/xpsecure.fth ============================================================================== --- cpu/x86/pc/olpc/xpsecure.fth Wed Mar 10 18:37:16 2010 (r1772) +++ cpu/x86/pc/olpc/xpsecure.fth Wed Mar 10 18:44:21 2010 (r1773) @@ -21,7 +21,7 @@ ramdisk-base swap move ( ) \ Tell the BIOS INT 13 emulator code to use the ramdisk instead of the SD - ramdisk-ih to bios-disk-ih0 + ramdisk-ih to bios-disk-ih h# 80 to bios-boot-dev# ;

1 0

[commit] r1772 - cpu/x86/pc/olpc/via
by repository service 10 Mar '10

10 Mar '10

Author: wmb Date: Wed Mar 10 18:37:16 2010 New Revision: 1772 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1772 Log: Q3A35 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 Mar 10 18:35:32 2010 (r1771) +++ cpu/x86/pc/olpc/via/fw-version.fth Wed Mar 10 18:37:16 2010 (r1772) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 34 +macro: FW_MINOR 35

1 0

[commit] r1771 - dev
by repository service 10 Mar '10

10 Mar '10

Author: wmb Date: Wed Mar 10 18:35:32 2010 New Revision: 1771 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1771 Log: Libertas WLAN driver improvements for adhoc multicasting. Modified: dev/libertas.fth Modified: dev/libertas.fth ============================================================================== --- dev/libertas.fth Wed Mar 10 10:30:58 2010 (r1770) +++ dev/libertas.fth Wed Mar 10 18:35:32 2010 (r1771) @@ -16,8 +16,8 @@ \ Interface to /supplicant support package 0 value supplicant-ih : $call-supplicant ( ...$ -- ... ) supplicant-ih $call-method ; -: do-associate ( -- flag ) " do-associate" $call-supplicant ; -: process-eapol ( adr len -- ) " process-eapol" $call-supplicant ; +: supplicant-associate ( -- flag ) " do-associate" $call-supplicant ; +: supplicant-process-eapol ( adr len -- ) " process-eapol" $call-supplicant ; : .scan ( adr -- ) " .scan" $call-supplicant ; : .ssids ( adr -- ) " .ssids" $call-supplicant ; @@ -112,8 +112,10 @@ \ Data rates d# 14 constant #rates -create supported-rates 82 c, 84 c, 8b c, 96 c, 0c c, 12 c, 18 c, 24 c, - 30 c, 48 c, 60 c, 6c c, 00 c, 00 c, +\ create supported-rates 82 c, 84 c, 8b c, 96 c, 0c c, 12 c, 18 c, 24 c, +\ 30 c, 48 c, 60 c, 6c c, 00 c, 00 c, +create supported-rates 82 c, 84 c, 8b c, 96 c, 8c c, 92 c, 98 c, a4 c, + b0 c, c8 c, e0 c, ec c, 00 c, 00 c, #rates buffer: common-rates external @@ -308,7 +310,7 @@ then ; -: do-process-eapol ( adr len -- ) false to got-data? process-eapol ; +: do-process-eapol ( adr len -- ) false to got-data? supplicant-process-eapol ; \ ========================================================================= \ Generic commands & responses @@ -1104,7 +1106,8 @@ atim +xw \ ATIM window 4 +x \ Reserved bytes - cap +xw \ Capability info: ESS, short slot, WEP +\ cap +xw \ Capability info: ESS, short slot, WEP + 2 +xw \ Capability info: IBSS (WEP/WPA would add h# 10) \ XXX 14 bytes for 802.11g, 8 bytes for 802.11b common-rates #rates +x$ \ Common supported data rates @@ -1352,10 +1355,12 @@ headers : do-associate ( -- ok? ) - do-associate dup if + ['] 2drop to ?process-eapol \ Don't reenter the supplicant while associating + supplicant-associate dup if ds-disconnected reset-driver-state ds-associated set-driver-state then + ['] do-process-eapol to ?process-eapol ; : ?reassociate ( -- ) @@ -1640,11 +1645,7 @@ ds-disconnected reset-driver-state else link-up? 0= if - ['] 2drop to ?process-eapol do-associate 0= if free-buf false exit then - ds-disconnected reset-driver-state - ds-associated set-driver-state - ['] do-process-eapol to ?process-eapol then start-nic then

1 0

[commit] r1770 - cpu/x86/pc/olpc
by repository service 10 Mar '10

10 Mar '10

Author: wmb Date: Wed Mar 10 10:30:58 2010 New Revision: 1770 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1770 Log: Added an additional BIOS disk device. Modified: cpu/x86/pc/olpc/xpsecure.fth Modified: cpu/x86/pc/olpc/xpsecure.fth ============================================================================== --- cpu/x86/pc/olpc/xpsecure.fth Wed Mar 10 10:30:01 2010 (r1769) +++ cpu/x86/pc/olpc/xpsecure.fth Wed Mar 10 10:30:58 2010 (r1770) @@ -21,7 +21,7 @@ ramdisk-base swap move ( ) \ Tell the BIOS INT 13 emulator code to use the ramdisk instead of the SD - ramdisk-ih to bios-disk-ih + ramdisk-ih to bios-disk-ih0 h# 80 to bios-boot-dev# ;

1 0

[commit] r1769 - cpu/x86/pc/olpc/via
by repository service 10 Mar '10

10 Mar '10

Author: wmb Date: Wed Mar 10 10:30:01 2010 New Revision: 1769 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1769 Log: OLPC XO-1.5 - hopefully faster fs-update using erase-blocks and other asynchronous techniques. Modified: cpu/x86/pc/olpc/via/fsupdate.fth Modified: cpu/x86/pc/olpc/via/fsupdate.fth ============================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth Wed Mar 10 10:29:14 2010 (r1768) +++ cpu/x86/pc/olpc/via/fsupdate.fth Wed Mar 10 10:30:01 2010 (r1769) @@ -71,6 +71,7 @@ " size" $call-nand #image-eblocks /nand-block um* d< " Image size is larger than output device" ?nand-abort #image-eblocks show-init + 0 #image-eblocks " erase-blocks" $call-nand get-inflater \ Separate the two buffers by enough space for both the compressed \ and uncompressed copies of the data. 4x is overkill, but there @@ -106,16 +107,30 @@ #image-eblocks show-writing ; +: eat-newline ( ih -- ) + fgetc newline <> ( error? ) + " Missing newline after zdata" ?nand-abort ( ) +; +: skip-zdata ( comprlen -- ) + ?compare-spec-line ( comprlen ) + + secure-fsupdate? if filefd else source-id then ( comprlen ih ) + + >r u>d r@ dftell ( d.comprlen d.pos r: ih ) + d+ r@ dfseek ( r: ih ) + + r> eat-newline +; + : get-zdata ( comprlen -- ) - ?compare-spec-line + ?compare-spec-line ( comprlen ) - secure-fsupdate? if filefd else source-id then ( ih ) + secure-fsupdate? if filefd else source-id then ( comprlen ih ) >r data-buffer /nand-block + over r@ fgets ( comprlen #read r: ih ) <> " Short read of zdata file" ?nand-abort ( r: ih ) - r> fgetc newline <> ( error? ) - " Missing newline after zdata" ?nand-abort ( ) + r> eat-newline \ The "2+" skips the Zlib header data-buffer /nand-block + 2+ data-buffer true (inflate) ( len ) @@ -169,22 +184,27 @@ " Malformed hash string" ?nand-abort ( eblock# hashname$ hash$ r: comprlen ) ?get-crc ( eblock# hashname$ hash$ r: comprlen ) - r> get-zdata ( eblock# hashname$ hash$ ) - ?check-crc ( eblock# hashname$ hash$ ) - check-hash? if ( eblock# hashname$ hash$ ) - check-hash ( eblock# ) - else ( eblock# hashname$ hash$ ) - 2drop 2drop ( eblock# ) - then + 2over " fa43239bcee7b97ca62f007cc68487560a39e19f74f3dde7486db3f98df8e471" $= if ( eblock# hashname$ hash$ r: comprlen) + r> skip-zdata ( eblock# hashname$ hash$ ) + 2drop 2drop ( eblock# ) + else ( eblock# hashname$ hash$ ) + r> get-zdata ( eblock# hashname$ hash$ ) + ?check-crc ( eblock# hashname$ hash$ ) + + check-hash? if ( eblock# hashname$ hash$ ) + check-hash ( eblock# ) + else ( eblock# hashname$ hash$ ) + 2drop 2drop ( eblock# ) + then ( eblock# ) - ( eblock# ) \ Asynchronous writes - data-buffer over nand-pages/block * nand-pages/block " write-blocks-start" $call-nand ( eblock# error? ) - " Write error" ?nand-abort ( eblock# ) + data-buffer over nand-pages/block * nand-pages/block " write-blocks-start" $call-nand ( eblock# error? ) + " Write error" ?nand-abort ( eblock# ) \ data-buffer over nand-pages/block * nand-pages/block " write-blocks" $call-nand ( eblock# #written ) \ nand-pages/block <> " Write error" ?nand-abort ( eblock# ) - swap-buffers ( eblock# ) + swap-buffers ( eblock# ) + then dup to last-eblock# ( eblock# ) show-written ( )

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware