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

• \  Test case, not only of a branch going over too, too large a range
  \       but also of overflowing the output buffer
  \  Body generated by the same script used for the too-large branch test,
  \      but with much larger arguments.
  \  (Argument of 924 just does it.)
  
  fcode-version2          \  Sixteen-bit offsets.
  
  headers
  
  : too-large-case ( n -- )
  
      ." Let's give it a large back-reference too."
      begin  ." We've just begun"
       ." 1 0 do " cr 1 0 do
      dup  ." if " cr
      if
          dup ." case"
  	case
  	0 of  ."  Just a short case" cr endof
  	." default.  The Big One!" cr
  
      fload  TooTooLargeBuffer_body.fth
  
          endcase
      ." then"
      then
         ." Loop back and forward" cr loop
  
     ."  And here we are!"
     exit
     ."  Well, we needed some way out!"
  
      again  ."  Back to the fuchsia."
  ;
  
  \  Let's make a small jump, just to see what normal looks like
  : control-example
      ."  Small non-loop"
      begin   ."  Here's the beguine"
  
      dup  ." if "
      if
          dup ." case"
  	case
  	0 of  ."  Just a short case" cr endof
  	." default.  Normal one!" cr
          endcase
      ." then"
      then
  
         ." and the way out"
     exit
         ." and the jump back"
      again   ."  Never do this" cr
  ;
  
  fcode-end
  

Download