Author: wmb Date: 2008-02-05 07:43:24 +0100 (Tue, 05 Feb 2008) New Revision: 812
Modified: dev/olpc/keyboard/selftest.fth Log: OLPC trac 6339 - stack bug crashes selftest under some circumstances.
Modified: dev/olpc/keyboard/selftest.fth =================================================================== --- dev/olpc/keyboard/selftest.fth 2008-02-04 09:39:55 UTC (rev 811) +++ dev/olpc/keyboard/selftest.fth 2008-02-05 06:43:24 UTC (rev 812) @@ -381,9 +381,9 @@
: process-raw ( scan-code -- exit? ) verbose? if dup u. then - dup h# e0 = if - true to esc? - else + dup h# e0 = if ( scan ) + drop true to esc? ( ) + else ( scan ) dup h# 7f and scan1->key# if ( scan ) drop ( ) else ( scan key# ) @@ -393,9 +393,9 @@ else ( key# ) key-down ( ) then ( ) - then - false to esc? - then + then ( ) + false to esc? ( ) + then ( ) false ;