Problems on Olivetti-LSX

Giuliano_Carlo@tecpi.tecsiel.it
Fri, 2 Aug 96 17:08:55 +0200

Hope any kind sould could help me:

Olivetti-LSX isn't in the "configure" list of known Unix OS in Tcl7.5, so
it compiles fine but doesn't use shared libraries. Tk4.1 compiles too
and both work perfectly well.
The problem is, I need the shared libs in order to run Scotty2.1.1
(do I absolutely need shared libs ? No way to work without them ?
Scotty2.1.1 compiles ok but fails because of dyn. libs when make installing);
I tried all the parameters I could guess, using either cc and gcc;
[one example is:
SHLIB_CFLAGS="-K PIC" (option found in the cc man page)
SHLIB_LD="/usr/ccs/bin/ld -G -z text" (-G option as in the ld man page)
SHLIB_LD_LIBS='${LIBS}'
SHLIB_SUFFIX=".so" (there are plenty of .so files under /usr/lib)
DL_OBJS="tclLoadDl.o"
DL_LIBS="-ldl"
LD_FLAGS=""
LD_SEARCH_FLAGS='-L ${LIB_INSTALL_DIR}' ]
... but the "load.test" Tcl always fails (details follow).

Any Idea ?

Many, many, many thanks to anyone who might help

Carlo Giuliano
Finsiel
Pisa (Italy)

======================================================
Typical output of the load.test failure:

load.test

==== load-2.1 basic loading, with guess for package name
==== Contents of test case:

load [file join $testDir pkga$ext]
list [pkga_eq abc def] [info commands pkga_*]

==== Test generated error:
couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkga.so": dynamic
linker: .
/tcltest: relocation error: symbol not found: Tcl_AppendResult

==== load-2.2 loading into a safe interpreter, with package name
conversion
==== Contents of test case:

load [file join $testDir pkgb$ext] pKgB child
list [child eval pkgb_sub 44 13] [catch {child eval pkgb_unsafe}
msg] $msg
[catch {pkgb_sub 12 10} msg2] $msg2

==== Test generated error:
couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkgb.so": dynamic
linker: .
/tcltest: relocation error: symbol not found: Tcl_AppendResult

==== load-2.3 loading with no _Init procedure
==== Contents of test case:

list [catch {load [file join $testDir pkgc$ext] foo} msg] $msg

==== Result was:
1 {couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkgc.so":
dynamic linker
: ./tcltest: relocation error: symbol not found: Tcl_AppendResult}
---- Result should have been:
1 {couldn't find procedure Foo_Init}
---- load-2.3 FAILED

==== load-2.4 loading with no _SafeInit procedure
==== Contents of test case:

list [catch {load [file join $testDir pkga$ext] {} child} msg] $msg

==== Result was:
1 {couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkga.so":
dynamic linker
: ./tcltest: relocation error: symbol not found: Tcl_AppendResult}
---- Result should have been:
1 {can't use package in a safe interpreter: no Pkga_SafeInit procedure}
---- load-2.4 FAILED

==== load-3.1 error in _Init procedure, same interpreter
==== Contents of test case:

list [catch {load [file join $testDir pkge$ext] pkge} msg] $msg
$errorInfo $
errorCode

==== Result was:
1 {couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkge.so":
dynamic linker
: ./tcltest: relocation error: symbol not found: Tcl_Eval} {couldn't
load file "
/usr1/finsiel/tcl7.5/unix/dltest/pkge.so": dynamic linker: ./tcltest:
relocation
error: symbol not found: Tcl_Eval
while executing
"load [file join $testDir pkge$ext] pkge"} NONE
---- Result should have been:
1 {couldn't open "non_existent": no such file or directory} {couldn't
open "non_
existent": no such file or directory
while executing
"open non_existent"
invoked from within
"if 44 {open non_existent}"
invoked from within
"load [file join $testDir pkge$ext] pkge"} {POSIX ENOENT {no such file
or direct
ory}}
---- load-3.1 FAILED

==== load-3.2 error in _Init procedure, slave interpreter
==== Contents of test case:

catch {interp delete x}
interp create x
set errorCode foo
set errorInfo bar
set result [list [catch {load [file join $testDir pkge$ext] pkge x}
msg] $m
sg $errorInfo $errorCode]
interp delete x
set result

==== Result was:
1 {couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkge.so":
dynamic linker
: ./tcltest: relocation error: symbol not found: Tcl_Eval} {couldn't
load file "
/usr1/finsiel/tcl7.5/unix/dltest/pkge.so": dynamic linker: ./tcltest:
relocation
error: symbol not found: Tcl_Eval
while executing
"load [file join $testDir pkge$ext] pkge x"} NONE
---- Result should have been:
1 {couldn't open "non_existent": no such file or directory} {couldn't
open "non_
existent": no such file or directory
while executing
"open non_existent"
invoked from within
"if 44 {open non_existent}"
invoked from within
"load [file join $testDir pkge$ext] pkge x"} {POSIX ENOENT {no such file
or dire
ctory}}
---- load-3.2 FAILED

==== load-4.1 reloading package into same interpreter
==== Contents of test case:

list [catch {load [file join $testDir pkga$ext] pkga} msg] $msg

==== Result was:
1 {couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkga.so":
dynamic linker
: ./tcltest: relocation error: symbol not found: Tcl_AppendResult}
---- Result should have been:
0 {}
---- load-4.1 FAILED

==== load-4.2 reloading package into same interpreter
==== Contents of test case:

list [catch {load [file join $testDir pkga$ext] pkgb} msg] $msg

==== Result was:
1 {couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkga.so":
dynamic linker
: ./tcltest: relocation error: symbol not found: Tcl_AppendResult}
---- Result should have been:
1 {file "/usr1/finsiel/tcl7.5/unix/dltest/pkga.so" is already loaded for
package
"Pkga"}
---- load-4.2 FAILED

==== load-7.1 TclGetLoadedPackages procedure
==== Contents of test case:

info loaded

==== Result was:
{{} More} {{} Another} {{} Test} {{} Tcltest}
---- Result should have been:
{{} More} {{} Another} {{} Test}
{/usr1/finsiel/tcl7.5/unix/dltest/pkge.so Pkge}
{/usr1/finsiel/tcl7.5/unix/dltest/pkgb.so Pkgb}
{/usr1/finsiel/tcl7.5/unix/dlte
st/pkga.so Pkga} {{} Tcltest}
---- load-7.1 FAILED

==== load-7.3 TclGetLoadedPackages procedure
==== Contents of test case:

list [info loaded {}] [info loaded child]

==== Result was:
{{{} More} {{} Another} {{} Test} {{} Tcltest}} {{{} Test}}
---- Result should have been:
{{{} More} {{} Another} {{} Test}
{/usr1/finsiel/tcl7.5/unix/dltest/pkga.so Pkga
} {{} Tcltest}} {{{} Test} {/usr1/finsiel/tcl7.5/unix/dltest/pkgb.so
Pkgb}}
---- load-7.3 FAILED

==== load-7.4 TclGetLoadedPackages procedure
==== Contents of test case:

load [file join $testDir pkgb$ext] pkgb
list [info loaded {}] [lsort [info commands pkgb_*]]

==== Test generated error:
couldn't load file "/usr1/finsiel/tcl7.5/unix/dltest/pkgb.so": dynamic
linker: .
/tcltest: relocation error: symbol not found: Tcl_AppendResult