[OpenBIOS] r628 - cpu/x86/pc/olpc

[svn at openbios.org]

Author: wmb
Date: 2007-09-20 00:17:16 +0200 (Thu, 20 Sep 2007)
New Revision: 628

Modified:
   cpu/x86/pc/olpc/security.fth
Log:
OLPC security - added new "secure?" value initialized by the
presence of the wp tag, instead of calling wp? directly.
This will help when developer keys are enabled.













Modified: cpu/x86/pc/olpc/security.fth
===================================================================
--- cpu/x86/pc/olpc/security.fth	2007-09-19 09:58:27 UTC (rev 627)
+++ cpu/x86/pc/olpc/security.fth	2007-09-19 22:17:16 UTC (rev 628)
@@ -510,15 +510,17 @@
    go
 ;
 
-\ wp? returns true if a "wp" manufacturing data tag is present
+false value secure?
 
-: wp?  ( -- flag )  " wp" find-tag  dup  if  nip nip  then  ;
+stand-init: wp
+   " wp" find-tag  if  2drop  true to secure?  then
+;
 
 \ ?secure-boot performs either the secure boot algorithm or the
 \ historical boot algorithm depending on the presence of a "wp"
 \ manufacturing data tag.
 
-: ?secure-boot  ( -- )  wp?  if  secure-boot  else  boot  then  ;
+: ?secure-boot  ( -- )  secure?  if  secure-boot  else  boot  then  ;
 " ?secure-boot" ' boot-command set-config-string-default