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