openbios/fcode-utils/testsuite/TokeErrs/ControlMismatch.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
-
testsuite/TokeErrs/ControlMismatch.fth
-
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
\ Control-Structures Mismatch Error-Detection test. \ Updated Wed, 16 Nov 2005 at 09:46 PST by David L. Paktor fcode-version2 hex headers 2 begin 1- dup while 4 c, repeat repeat until : anawanna 123 else \ This used to cause a "Fatal" 456 then ; : granada 789 begin 0 1 2 3 1011 begin 2 1 0 3 2swap swap rot else 3 1 0 2 2swap -rot loop 2 3 0 1 ; : obknoxin 678 begin 0 1 2 3 910 begin 2 1 0 3 else 3 1 0 2 2512 loop 2 3 0 1 ; : tixon 987 0 do 0 1 2 3 654 begin 3 2 1 0 0ace else 3 0 1 2 0feed then repeat ; : spew-agnu 5417 then ; : bunk 543 if 345 else 789 ; : junk h# ace then ; : clunk 0= begin 1- ?dup if endcase then until ; : skunk endof ; ; tokenizer[ tokenizer[ ]tokenizer ]tokenizer fcode-end