1# for.tcl --
2#
3#  Test file for compilation.
4#  Contains nested for loops, used to check generation of the exception
5#  ranges arrays.
6#
7# Copyright (c) 1998-2000 Ajuba Solutions
8#
9# See the file "license.terms" for information on usage and redistribution
10# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11# 
12# RCS: @(#) $Id: for.tbc,v 1.2 2000/05/30 22:19:08 wart Exp $
13# TclPro::Compiler::Include
14
15if {[catch {package require tbcload 1.0} err] == 1} {
16    error "The TclPro ByteCode Loader is not available"
17}
18tbcload::bceval {
19TclPro ByteCode 1 0 1.0 8.0
207 0 54 9 2 0 40 1 3 7 7 -1 -1
2154
22w0E<!:B`W!;btt!,`yTv<TA9v<Gwjw1A^=!3TW<!GG's!4UM<!-W&=!05bpv(0*!!-!!
237
24-WW!!Gur!
257
26OdxWv1N<!
279
28x
296
307,V`FW+%
31x
320
33
34x
353
36uju,
37i
388
39x
4012
415'WTAfW0`F1?0bE
42i
431
44x
45142
466dV<+.5|,EwAoC+7,V`FF2qT,5'WTAfW0`F1?0bEu!V<+7+:eDMwf*F/MqcB+-0bEbkTKD8%
47DE+e(Z<+CA:JDUaQZ6>5cDFUZS<4gG6^D8?0bEbkTKD@n&<I?G=JD+GqcB+-0bEbkTKD@n&<
48I%#um#sT2TA1neZE1fsiCCH*8wLdV<+S@!
49x
506
51sT2TAIPw
52x
534
54HW?87
552
56L 1 27 3 38 31 -1
57L 1 31 4 38 -1 -1
580
59}
60