[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