tcl/tk 8.3.5 AIX installation issues

[DicomAl]

I have installed tcl/tk on an 4.3.3.0 AIX box from source. I have followed the steps below:
Downloaded the compressed source tar files
Decompressed and unpacked the files
Run configure script for tcl without options
Run make and make install without error for tcl
Run make test for tcl with the following results:

TclExecuteByteCode: done instruction at pc 331: stack top 4 < entry stack top 5
TclExecuteByteCode execution failure: end stack top < start stack top
make: 1254-059 The signal code from the last command is 6.

There was also a message about strstr being a duplicate.
I am able to run tclsh and enter some commands (e.g. pwd, cd, set); others produce errors as follows:

% bell
Segmentation fault(coredump)

% set var /home/ajb
/home/ajb
% cd var
UpdateStringProc should not be invoked for type
IOT/Abort trap(coredump)


AIX is a big endian platform and does support 64-bit compilation but a compiler option must be selected for this purpose. The configure script did not specify this option

For Tk (built after tcl) the variation to the above is that the I entered the --with-tcl option to point to the tcl unix directory holding tcl config information. The configure script errored with the message:

&quot;configure: error: can not run test program while cross compiling&quot;

I commented this out and successfully ran make and make install. I am able to run wish but it only produces a blank window with the following message in the terminal window:

Application initialization failed: self-referential recursion in &quot;unknown&quot; for command &quot;::&quot;

I have looked through several faqs and am not sure where to go from here

 

[DicomAl]

I have built tclsh in debug and turned on trace variables in the debugger. I started the debugger by entering:

xldb tclsh

Output as follows:


1: -1 (0) push1 0 # &quot;info&quot;
1: 0 (2) push1 1 # &quot;proc&quot;
1: 1 (4) push1 2 # &quot;tclInit&quot;
1: 2 (6) invokeStk1 3
1: (6) invoking info
1: 0 (8) push1 3 # &quot;&quot;
1: 1 (10) eq
1: 0 (11) done
Compiling: &quot;proc tclInit {} {\n global tcl_libPath tcl_library er&quot;
2: -1 (0) push1 0 # &quot;proc&quot;
2: 0 (2) push1 1 # &quot;tclInit&quot;
2: 1 (4) push1 2 # &quot;&quot;
2: 2 (6) push1 3 # &quot;\n global tcl_libPath tcl_library erro&quot;
2: 3 (8) invokeStk1 4
2: (8) invoking proc
2: 0 (10) done
Compiling body of proc &quot;tclInit&quot;
Calling proc tclInit
2: -1 (0) push1 0 # &quot;global&quot;
2: 0 (2) push1 1 # &quot;tcl_libPath&quot;
2: 1 (4) push1 2 # &quot;tcl_library&quot;
2: 2 (6) push1 3 # &quot;errorInfo&quot;
2: 3 (8) invokeStk1 4
2: (8) invoking global
2: 0 (10) pop
2: -1 (11) push1 0 # &quot;global&quot;
2: 0 (13) push1 4 # &quot;env&quot;
2: 1 (15) push1 5 # &quot;tclDefaultLibrary&quot;
2: 2 (17) invokeStk1 3
2: (17) invoking global
2: 0 (19) pop
2: -1 (20) push1 6 # &quot;rename&quot;
2: 0 (22) push1 7 # &quot;tclInit&quot;
2: 1 (24) push1 8 # &quot;&quot;
2: 2 (26) invokeStk1 3
2: (26) invoking rename
2: 0 (28) pop
2: -1 (29) push1 8 # &quot;&quot;
2: 0 (31) storeScalar1 0 # var &quot;errors&quot;
2: 0 (33) pop
2: -1 (34) push1 8 # &quot;&quot;
2: 0 (36) storeScalar1 1 # var &quot;dirs&quot;
2: 0 (38) pop
2: -1 (39) push1 9 # &quot;info&quot;
2: 0 (41) push1 10 # &quot;exists&quot;
2: 1 (43) push1 2 # &quot;tcl_library&quot;
2: 2 (45) invokeStk1 3
2: (45) invoking info
2: 0 (47) tryCvtToNumeric
2: 0 (48) jumpFalse1 13 # pc 61
2: -1 (61) push1 9 # &quot;info&quot;
2: 0 (63) push1 10 # &quot;exists&quot;
2: 1 (65) push1 13 # &quot;env(TCL_LIBRARY)&quot;
2: 2 (67) invokeStk1 3
2: (67) invoking info
2: 0 (69) tryCvtToNumeric
2: 0 (70) jumpFalse1 15 # pc 85
2: -1 (85) push1 8 # &quot;&quot;
2: 0 (87) pop
2: -1 (88) beginCatch4 0
2: -1 (93) push1 11 # &quot;lappend&quot;
2: 0 (95) push1 12 # &quot;dirs&quot;
2: 1 (97) push1 5 # &quot;tclDefaultLibrary&quot;
2: 2 (99) loadScalarStk
2: 2 (100) invokeStk1 3
2: (100) invoking lappend
2: 0 (102) pop
2: -1 (103) push1 15 # &quot;unset&quot;
2: 0 (105) push1 5 # &quot;tclDefaultLibrary&quot;
2: 1 (107) invokeStk1 2
2: (107) invoking unset
2: 0 (109) pop
2: -1 (110) push1 16 # &quot;0&quot;
2: 0 (112) jump1 3 # pc 115
2: 0 (115) endCatch
2: 0 (116) pop
2: -1 (117) push1 17 # &quot;concat&quot;
2: 0 (119) loadScalar1 1 # var &quot;dirs&quot;
2: 1 (121) push1 1 # &quot;tcl_libPath&quot;
2: 2 (123) loadScalarStk
2: 2 (124) invokeStk1 3
2: (124) invoking concat
2: 0 (126) storeScalar1 1 # var &quot;dirs&quot;
2: 0 (128) pop
2: -1 (129) loadScalar1 1 # var &quot;dirs&quot;
2: 0 (131) storeScalar1 2 # temp var 2
2: 0 (133) pop
2: -1 (134) foreach_start4 0
2: -1 (139) foreach_step4 0
2: 0 (144) jumpFalse1 100 # pc 244
2: -1 (146) loadScalar1 4 # var &quot;i&quot;
2: 0 (148) storeScalar1 5 # var &quot;tcl_library&quot;
2: 0 (150) pop
2: -1 (151) push1 18 # &quot;file&quot;
2: 0 (153) push1 19 # &quot;join&quot;
2: 1 (155) loadScalar1 4 # var &quot;i&quot;
2: 2 (157) push1 20 # &quot;init.tcl&quot;
2: 3 (159) invokeStk1 4
2: (159) invoking file
2: 0 (161) storeScalar1 6 # var &quot;tclfile&quot;
2: 0 (163) pop
2: -1 (164) push1 18 # &quot;file&quot;
2: 0 (166) push1 10 # &quot;exists&quot;
2: 1 (168) loadScalar1 6 # var &quot;tclfile&quot;
2: 2 (170) invokeStk1 3
2: (170) invoking file
2: 0 (172) tryCvtToNumeric
2: 0 (173) jumpFalse1 66 # pc 239
2: -1 (239) push1 8 # &quot;&quot;
2: 0 (241) pop
2: -1 (242) jump1 153 # pc 395

At this point the program exited from the 'unrecognized opcode' section of tclExecuteByteCode