r812 - dev/olpc/keyboard

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
 ;