kmx git

\  Test case of a branch going over too large a range
\  Body generated by the "Verbal Bottles of Beer" script (Arg of 1 does it.)
\  Test transition from eight-bit offsets to sixteen-bit offsets


fcode-version1          \  Eight-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  TooLargeBranch_off08_body.fth

        endcase
    ." then" cr
    then
       ." Loop back and forward" cr loop

   ."  And here we are!" cr
   exit
   ."  Well, we needed some way out!" cr

    again  ."  Back to the fuchsia." cr
;

\  Let's make a small jump, just to see what normal looks like
: control-example
      ."  Here's the beguine"
 begin
    dup  ." if "
    if
        dup ." case"
	case
	0 of  ."  Short case" cr endof
	."  No default." cr
        endcase
    ." then"
    then

       ." Way out"
   exit
       ." Jump back"
    again   ."  Never do this"
;


fcode-end


fcode-version2          \  Sixteen-bit offsets.

: odd-size-case ( n -- )
   ." With a back-reference."
    begin  ." We've begun"
    dup  ." blah-if "
    if
        dup ." blah-case"
	case
	0 of  ."  A very short case" cr endof
	." A big default." cr

    fload  TooLargeBranch_off08_body.fth

        endcase
    ." blah-then" cr
    then
    ." blah-some way out."
   exit
   ."  Back again" cr

    again  ."  Done.  are you happy?" cr
;

fcode-end
openbios/fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08_to_16.fth

Commit

testsuite/TokeErrs/TooLargeBranch_off08_to_16.fth
