Author: wmb Date: Sat Feb 13 06:42:37 2010 New Revision: 1731 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1731
Log: Removed unused definitions in OLPC GUI - for obsolete boot progress reporting mechanism.
Modified: cpu/x86/pc/olpc/gui.fth
Modified: cpu/x86/pc/olpc/gui.fth ============================================================================== --- cpu/x86/pc/olpc/gui.fth Mon Feb 8 22:18:43 2010 (r1730) +++ cpu/x86/pc/olpc/gui.fth Sat Feb 13 06:42:37 2010 (r1731) @@ -65,8 +65,6 @@ : advance ( -- ) icon-xy image-width 0 d+ to icon-xy ; -: $show&advance ( filename$ -- ) $show advance ; - : fix-cursor ( -- ) cursor-on ['] user-ok to (ok) user-ok ;
: .mem ( -- ) memory-size .d ." MB SDRAM" ; @@ -288,8 +286,6 @@ : error-banner ( -- ) error-shown? if exit then true to error-shown?
- " error" $show&advance - .sysinfo ; : visual-error ( error# -- ) @@ -328,13 +324,6 @@
0 to image-width 0 to image-height \ In case $show-bmp fails
-[ifdef] old-way -\ The graphical boot sequence display at the top of the screen -\ has been superseded by the new secure pretty-boot scheme . - avoid-logo - " olpc" $show&advance -[then] - icon-xy to first-icon-xy
show-sysinfo? if .sysinfo then @@ -359,15 +348,6 @@ device-end [then]
-: show-nand ( -- ) " nandflash" $show&advance ; -: show-disk ( -- ) " disk" $show&advance ; -: show-xo ( -- ) " xo" $show&advance ; - -: simple-load-started ( -- ) - screen-ih if ['] show-xo to load-done then -; -['] simple-load-started to load-started - h# 32 buffer: icon-name
: show-icon ( basename$ -- ) @@ -375,31 +355,6 @@ $show ( ) ;
-: ?show-package-icon ( adr len -- ) - locate-device if exit then ( phandle ) - - " icon" 2 pick get-package-property 0= if ( phandle prop$ ) - $prep&draw advance ( phandle ) - drop exit - then ( phandle ) - - " iconname" 2 pick get-package-property 0= if ( phandle prop$ ) - get-encoded-string show-icon advance ( phandle ) - drop exit - then ( phandle ) - - " name" 2 pick get-package-property 0= if ( phandle prop$ ) - get-encoded-string show-icon advance ( phandle ) - drop exit - then ( phandle ) - - drop -; -: (?show-device) ( adr len -- adr len ) - screen-ih if 2dup ?show-package-icon then -; -' (?show-device) to ?show-device - : frozen? ( -- flag ) " vga?" $call-screen 0= ; : dcon-freeze ( -- ) 0 " set-source" $call-screen d# 30 ms ; : dcon-unfreeze ( -- ) 1 " set-source" $call-screen d# 30 ms ;