openbios/fcode-utils/testsuite/TokeErrs/CondlDefn.fth

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

  testsuite 1.0.0 git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokeErrs/CondlDefn.fth

• \  Definitions inside a conditional -- a definite no-no!
  \  Updated Fri, 28 Jul 2006 at 10:12 PDT by David L. Paktor
  
  fcode-version2
  headers
  
  false value de-bug
  
  de-bug if       h# 273   constant ugh-muck-a-luck-a
     3 0 do   i constant bug-off
              i 4 * constant bug-bug
              ugh-muck-a-luck-a bug-bug bug-off * - .
     loop
  else
     d# 273   constant ugh-muck-a-luck-a
  then
  
  : shakshuka
      de-bug if  ." Bugging me"   then
      bug-bug
      ugh-muck-a-luck-a
      o# 273   constant ugh-muck-a-luck-a
      de-bug if  : ugh-muck-b-luck-b  then
      bug-off * - .
  ;
  
  fcode-end
  

Download