Tcl Source Code

Artifact [aa38cab2c0]
Login

Artifact aa38cab2c012bdaa58c5eb3f05d1805509bf9dcd:

Attachment "typescript" to ticket [960414ffff] added by tmh 2004-05-26 10:50:29.
Script started on Tue May 25 22:43:34 2004
jumpgate: [51] > gdb /opt/tcl8.45a2d/bin/tclsh8.5

GNU gdb 4.18
Copyright 1998 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "sparc-sun-solaris2.7"...
(gdb) run
Starting program: /opt/tcl8.5a2d/bin/tclsh8.5 
% ^C
Program received signal SIGINT, Interrupt.
0xff09e874 in _read () from /lib/libc.so.1
(gdb) break Tcl_Finalize
Breakpoint 1 at 0xff284a94: file ../generic/tclEvent.c, line 838.
(gdb) g break Tcl_Exit
Breakpoint 2 at 0xff2846e8: file ../generic/tclEvent.c, line 613.
(gdb) cont
Continuing.

% Package       package require Oratcl
4.2

% ^C
Program received signal SIGINT, Interrupt.
0xff09e874 in _read () from /lib/libc.so.1
(gdb) break Tcl_    Oratcl_exi   Exit
Breakpoint 3 at 0xfefb28b8: file ../generic/oratcl.c, line 242.
(gdb) break Orac tcl_Destroy
Function "Oratcl_Destroy" not defined.
(gdb) break Oratcl_Delee te
Breakpoint 4 at 0xfefb29a4: file ../generic/oratcl.c, line 267.
(gdb) cont
Continuing.

% set lda [oralogon a/b@c]
oralogon: invalid username/password; logon denied

% exit

Breakpoint 2, Tcl_Exit (status=0) at ../generic/tclEvent.c:613
613	    currentAppExitPtr = appExitPtr;
(gdb) step
616	    if (currentAppExitPtr) {
(gdb) next
626		Tcl_Finalize();
(gdb) next

Breakpoint 1, Tcl_Finalize () at ../generic/tclEvent.c:838
838	    TclpInitLock();
(gdb) next
839	    if (subsystemsInitialized != 0) {
(gdb) next
840		subsystemsInitialized = 0;
(gdb) next
847		(void) TCL_TSD_INIT(&dataKey);
(gdb) next
854		inFinalize = 1;
(gdb) next
855		for (exitPtr = firstExitPtr; exitPtr != NULL; exitPtr = firstExitPtr) {
(gdb) next
863		    firstExitPtr = exitPtr->nextPtr;
(gdb) next
865		    (*exitPtr->proc)(exitPtr->clientData);
(gdb) next
866		    ckfree((char *) exitPtr);
(gdb) next
855		for (exitPtr = firstExitPtr; exitPtr != NULL; exitPtr = firstExitPtr) {
(gdb) next
869		firstExitPtr = NULL;
(gdb) next
879		Tcl_FinalizeThread();
(gdb) next
887		TclFinalizeCompExecEnv();
(gdb) next
888		TclFinalizeEnvironment();
(gdb) next
894		TclFinalizeFilesystem();
(gdb) next
902		TclFinalizeEncodingSubsystem();
(gdb) next
904		if (tclExecutableName != NULL) {
(gdb) next
905		    ckfree(tclExecutableName);
(gdb) next
906		    tclExecutableName = NULL;
(gdb) next
908		if (tclNativeExecutableName != NULL) {
(gdb) next
909		    ckfree(tclNativeExecutableName);
(gdb) next
910		    tclNativeExecutableName = NULL;
(gdb) next
912		if (tclDefaultEncodingDir != NULL) {
(gdb) next
916		if (tclLibraryPathStr != NULL) {
(gdb) next
917		    ckfree(tclLibraryPathStr);
(gdb) next
918		    tclLibraryPathStr = NULL;
(gdb) n
921		Tcl_SetPanicProc(NULL);
(gdb) n
928		TclFinalizeSynchronization();
(gdb) n
945		TclFinalizeLoad();
(gdb) n
Cannot remove breakpoints because program is no longer writable.
It might be running in another process.
Further execution is probably impossible.
946		TclResetFilesystem();
(gdb) n
Cannot remove breakpoints because program is no longer writable.
It might be running in another process.
Further execution is probably impossible.
952		TclFinalizeMemorySubsystem();
(gdb) n
Cannot remove breakpoints because program is no longer writable.
It might be running in another process.
Further execution is probably impossible.
953		inFinalize = 0;
(gdb) n
Cannot remove breakpoints because program is no longer writable.
It might be running in another process.
Further execution is probably impossible.
955	    TclFinalizeLock();
(gdb) n
Cannot remove breakpoints because program is no longer writable.
It might be running in another process.
Further execution is probably impossible.
956	}
(gdb) n
Cannot remove breakpoints because program is no longer writable.
It might be running in another process.
Further execution is probably impossible.
Tcl_Exit (status=0) at ../generic/tclEvent.c:627
627		TclpExit(status);
(gdb) n

Program received signal SIGSEGV, Segmentation fault.
Cannot access memory at address 0xfe842e54.
(gdb) quit
The program is running.  Exit anyway? (y or n) y
jumpgate: [52] > ^D
Use "exit" to leave sh.
jumpgate: [52] > fg

fg: No current job.
jumpgate: [53] > exit
script done on Tue May 25 22:47:29 2004