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? )