Tcl Source Code: Artifact [d2bb0b25ea]

Artifact d2bb0b25ea0deac784b98a3ebfabaf173b16a1ae:

Attachment "test.tcl" to ticket [599788ffff] added by wilkason 2002-08-25 07:25:31.

;# Source this file into tclsh and see the crash
if {[catch {
   set bubba([join $abba $jubba]) $vol  ;#crash
} result]} {
   puts $result
}
set notes {
Crash notes found during debug:

The crash originates in generic\tclExecute.c GetSrcInfoForPc at line 4574 
at CVS head on 8/24/02 The code is below, what happens is the call to 
macro TclGetInt4AtPtr with value 0xFF returns a huge negative number thus 
later causing offsets to break and eventually a crash in tclBasic.c 
Tcl_LogCommandInfo. The error was introduced sometime after 8.4b2. The offending 
source code is below:

	if ((unsigned int) (*srcDeltaNext) == (unsigned int) 0xFF) {
	    srcDeltaNext++;
	    delta = TclGetInt4AtPtr(srcDeltaNext);    // <- bad juju returned
	    srcDeltaNext += 4;
	} else {
	    delta = TclGetInt1AtPtr(srcDeltaNext);
	    srcDeltaNext++;
	}
}