| Chris Lattner | e44f1db | 2003-11-23 18:12:22 +0000 | [diff] [blame] | 1 | |
| 2 | # | ||||
| 3 | # DUP test | ||||
| 4 | # | ||||
| 5 | FORWARD success; | ||||
| 6 | FORWARD failure; | ||||
| 7 | : phase3 0 = IF success ELSE failure ENDIF ; | ||||
| 8 | : phase2 2 = IF phase3 ELSE failure ENDIF ; | ||||
| 9 | : MAIN 0 1 2 SWAP 1 = IF phase2 ELSE failure ENDIF ; | ||||