openbios/fcode-utils/testsuite/TokeErrs/LocOvrRun_01.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/LocOvrRun_01.fth

• \  First Local-overrun test
  
  
  : ducksoup ( n1 n2 n3 n4 -- m1 m2 )
  	{ 	\  Declare some locals
  	   _harpo  ( the quiet one) _chico
  	    _groucho |   \  He's funny, right?
  	     _zeppo  ( who? ) _karl  \  Is he part of the act?
  	      \  Look Ma, no close-curly brace!
  	      (  Unterminated comment
  	      }  \  Even if there were a close-curly brace,
  	         \      the unterminated comment masks it.
      _groucho _harpo *
      _chico +
      _groucho _zeppo = if  swap exit then
      _groucho + swap _zeppo + 
  ;
  
  

Download