Tcl Source Code

Check-in [957b270cdb]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:remove some debugging stuff
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 957b270cdbb9b9a9f9f4f1782cfbe7ffbc019235
User & Date: jan.nijtmans 2011-08-18 12:24:11
Context
2011-08-19
15:13
[Bug 2981154] async-4.3 segfault. (backport) check-in: 15a55ecb19 user: ferrieux tags: core-8-5-branch
2011-08-18
12:25
remove some debugging stuff check-in: be820a555c user: jan.nijtmans tags: trunk
12:24
remove some debugging stuff check-in: 957b270cdb user: jan.nijtmans tags: core-8-5-branch
12:23
remove some debugging stuff check-in: 135a5e9af6 user: jan.nijtmans tags: core-8-4-branch
11:27
[Bug 3393714] overflow in toupper delta check-in: fa9548d6a1 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/uniParse.tcl.

210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
 */

static const unsigned short pageMap\[\] = {"
    set line "    "
    set last [expr {[llength $pMap] - 1}]
    for {set i 0} {$i <= $last} {incr i} {
	append line [lindex $pMap $i]
	if {[lindex $pMap $i] == 17} {
	    puts stdout [list ZZZZ: $i]
	}
	if {$i != $last} {
	    append line ", "
	}
	if {[string length $line] > 70} {
	    puts $f [string trimright $line]
	    set line "    "
	}







<
<
<







210
211
212
213
214
215
216



217
218
219
220
221
222
223
 */

static const unsigned short pageMap\[\] = {"
    set line "    "
    set last [expr {[llength $pMap] - 1}]
    for {set i 0} {$i <= $last} {incr i} {
	append line [lindex $pMap $i]



	if {$i != $last} {
	    append line ", "
	}
	if {[string length $line] > 70} {
	    puts $f [string trimright $line]
	    set line "    "
	}
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
    set line "    "
    set lasti [expr {[llength $pages] - 1}]
    for {set i 0} {$i <= $lasti} {incr i} {
	set page [lindex $pages $i]
	set lastj [expr {[llength $page] - 1}]
	for {set j 0} {$j <= $lastj} {incr j} {
	    append line [lindex $page $j]
	    if {[lindex $page $j] == 71} {
		puts stdout [list YYYY: $i $j]
	    }
	    if {$j != $lastj || $i != $lasti} {
		append line ", "
	    }
	    if {[string length $line] > 70} {
		puts $f [string trimright $line]
		set line "    "
	    }







<
<
<







235
236
237
238
239
240
241



242
243
244
245
246
247
248
    set line "    "
    set lasti [expr {[llength $pages] - 1}]
    for {set i 0} {$i <= $lasti} {incr i} {
	set page [lindex $pages $i]
	set lastj [expr {[llength $page] - 1}]
	for {set j 0} {$j <= $lastj} {incr j} {
	    append line [lindex $page $j]



	    if {$j != $lastj || $i != $lasti} {
		append line ", "
	    }
	    if {[string length $line] > 70} {
		puts $f [string trimright $line]
		set line "    "
	    }
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
	    set delta $tolower
	} else {
	    # noop
	    set case 0
	    set delta 0
	}

	set val [expr {($delta << 15) | ($case << 5) | $type}]
	if {($val > 0x3fffffff) || ($val < -0x3fffffff)} {
		puts stdout [list "XXXXXXXXXXX:" $i $delta $val]
	}

	append line [format "%d" $val]
	if {$i != $last} {
	    append line ", "
	}
	if {[string length $line] > 65} {
	    puts $f [string trimright $line]
	    set line "    "
	}







|
<
<
<
<
<







302
303
304
305
306
307
308
309





310
311
312
313
314
315
316
	    set delta $tolower
	} else {
	    # noop
	    set case 0
	    set delta 0
	}

	append line [expr {($delta << 15) | ($case << 5) | $type}]





	if {$i != $last} {
	    append line ", "
	}
	if {[string length $line] > 65} {
	    puts $f [string trimright $line]
	    set line "    "
	}