r360 - cpu/x86/pc/olpc

Author: wmb
Date: 2007-05-04 12:02:39 +0200 (Fri, 04 May 2007)
New Revision: 360

Modified:
   cpu/x86/pc/olpc/disptest.fth
Log:
OLPC display selftest - fixed a stack bug that was killing test-all.

Modified: cpu/x86/pc/olpc/disptest.fth
===================================================================
--- cpu/x86/pc/olpc/disptest.fth	2007-05-04 09:53:10 UTC (rev 359)
+++ cpu/x86/pc/olpc/disptest.fth	2007-05-04 10:02:39 UTC (rev 360)
@@ -56,12 +56,16 @@
    " fill-rectangle" $call-screen	( )
 ;

-: random-selftest  ( -- error? )
+: random-selftest  ( -- )
    get-msecs rn !
-   get-msecs burnin-time +  
-   begin  get-msecs over u< key? not and  while
-      .random-rect
-   repeat
+   get-msecs burnin-time +    ( limit )
+   begin
+      get-msecs over u<       ( limit reached? )
+      key? 0= and             ( limit end? )
+   while                      ( limit )
+      .random-rect            ( limit )
+   repeat                     ( limit )
+   drop
 ;

: selftest  ( -- error? )