[OpenBIOS] r360 - cpu/x86/pc/olpc
svn at openbios.org
svn at openbios.org
Fri May 4 12:02:39 CEST 2007
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? )
More information about the OpenBIOS
mailing list