r1344 - cpu/x86/pc/olpc

Author: wmb
Date: 2009-09-03 07:14:31 +0200 (Thu, 03 Sep 2009)
New Revision: 1344

Modified:
   cpu/x86/pc/olpc/crypto.fth
Log:
OLPC crypto.fth - fixed a bug that was causing false failures of
the crypto-hash function as a result of some extra status bits
that were added to the return code.

Modified: cpu/x86/pc/olpc/crypto.fth
===================================================================
--- cpu/x86/pc/olpc/crypto.fth	2009-09-03 05:13:18 UTC (rev 1343)
+++ cpu/x86/pc/olpc/crypto.fth	2009-09-03 05:14:31 UTC (rev 1344)
@@ -36,7 +36,7 @@
 d# 128 buffer: hashbuf
 : crypto-hash  ( data$ hashname$ -- result$ )
    2>r  0 -rot  hashbuf d# 128  hashlen 0  2r>   ( 0 data$ sig$ key$ hashname$ )
-   signature-bad?  abort" Hash failed"   ( )
+   signature-bad?  h# fffff and  abort" Hash failed"   ( )
    hashbuf hashlen @
 ;