Author: wmb Date: 2010-01-26 18:20:42 +0100 (Tue, 26 Jan 2010) New Revision: 1708
Modified: cpu/x86/pc/olpc/via/copynand.fth cpu/x86/pc/olpc/via/fw.bth dev/logdev.fth Log: Turn off console logging while display grid maps, to avoid consuming large amounts of memory with boring messages.
Modified: cpu/x86/pc/olpc/via/copynand.fth =================================================================== --- cpu/x86/pc/olpc/via/copynand.fth 2010-01-26 09:04:11 UTC (rev 1707) +++ cpu/x86/pc/olpc/via/copynand.fth 2010-01-26 17:20:42 UTC (rev 1708) @@ -75,6 +75,7 @@ d# 26 constant status-line
: gshow-init ( #eblocks -- ) + suspend-logging dup set-grid-scale cursor-off " erase-screen" $call-screen
@@ -87,7 +88,7 @@
: gshow-strange ( eblock# -- ) strange-color show-state ;
-: gshow-done ( -- ) cursor-on ; +: gshow-done ( -- ) cursor-on resume-logging ;
: gshow-pending ( eblock# -- ) pending-color show-state ;
Modified: cpu/x86/pc/olpc/via/fw.bth =================================================================== --- cpu/x86/pc/olpc/via/fw.bth 2010-01-26 09:04:11 UTC (rev 1707) +++ cpu/x86/pc/olpc/via/fw.bth 2010-01-26 17:20:42 UTC (rev 1708) @@ -356,6 +356,8 @@ fload ${BP}/cpu/x86/pc/olpc/via/leds.fth \ LEDs fload ${BP}/cpu/x86/pc/olpc/via/factory.fth \ Manufacturing tools
+fload ${BP}/dev/logdev.fth + fload ${BP}/cpu/x86/pc/olpc/disptest.fth fload ${BP}/dev/olpc/keyboard/selftest.fth \ Keyboard diagnostic fload ${BP}/dev/olpc/touchpad/touchpad.fth \ Touchpad diagnostic @@ -511,8 +513,6 @@ fload ${BP}/cpu/x86/pc/olpc/via/drawboard.fth fload ${BP}/cpu/x86/pc/olpc/via/drawboardtop.fth
-fload ${BP}/dev/logdev.fth - fload ${BP}/ofw/inet/sntp.fth : olpc-ntp-servers ( -- ) " DHCP time 172.18.0.1 0.pool.ntp.org 1.pool.ntp.org 2.pool.ntp.org"
Modified: dev/logdev.fth =================================================================== --- dev/logdev.fth 2010-01-26 09:04:11 UTC (rev 1707) +++ dev/logdev.fth 2010-01-26 17:20:42 UTC (rev 1708) @@ -75,6 +75,8 @@ log-ih add-output then ; +: suspend-logging ( -- ) log-ih if log-ih remove-output then ; +: resume-logging ( -- ) log-ih if log-ih add-output then ; : stop-logging ( -- ) log-ih if log-ih remove-output