[openfirmware] r1708 - cpu/x86/pc/olpc/via dev

[svn at openfirmware.info]

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