[openfirmware] [commit] r3460 - cpu/x86/pc/olpc
repository service
svn at openfirmware.info
Sat Nov 24 04:50:25 CET 2012
Author: quozl
Date: Sat Nov 24 04:50:25 2012
New Revision: 3460
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3460
Log:
OLPC XO-1 XO-1.5 XO-1.75 - fix missing SPI FLASH progress bar dots, using a design from Mitch
Modified:
cpu/x86/pc/olpc/gui.fth
Modified: cpu/x86/pc/olpc/gui.fth
==============================================================================
--- cpu/x86/pc/olpc/gui.fth Sat Nov 24 01:36:49 2012 (r3459)
+++ cpu/x86/pc/olpc/gui.fth Sat Nov 24 04:50:25 2012 (r3460)
@@ -407,15 +407,12 @@
: jot ( offset size -- )
dot-adr 0= if 2drop exit then ( offset size )
#dots swap */ ( dot# )
- dup last-dot# <> if ( dot# )
- dup to last-dot# ( dot# )
- dot-adr swap ( adr dot# )
- dot-spacing * bar-x + bar-y ( adr x y )
- image-width image-height ( adr x y w h )
- " draw-transparent-rectangle" $call-screen ( )
- else
- drop
- then
+ dup last-dot# ?do ( dot# )
+ dot-adr i 1+ dot-spacing * bar-x + bar-y ( dot# adr x y )
+ image-width image-height ( dot# adr x y w h )
+ " draw-transparent-rectangle" $call-screen ( dot# )
+ loop ( dot# )
+ to last-dot#
;
: jots-init
More information about the openfirmware
mailing list