View Ticket
2016-03-28
15:02 Review ticket [81d35d664d]: 'Relocating failed' error returned when compiling cproc after setting defined library location plus 5 other changes artifact: ec7924b0cc user: rkeene
2014-07-30
16:53 Ticket [81d35d664d]: 3 changes artifact: 009b0f33a6 user: anonymous
16:49 Ticket [81d35d664d]: 5 changes artifact: 22aa065e31 user: anonymous
15:58 New ticket [81d35d664d]. artifact: f2ef6bf134 user: anonymous

Ticket Hash: 81d35d664d8b3ea11950b30d9eafd636d851bb85
Title: 'Relocating failed' error returned when compiling cproc after setting defined library location
Status: Review Type: Code_Defect
Severity: Minor Priority: Medium
Subsystem: Resolution: Open
Last Modified: 2016-03-28 15:02:56
Version Found In: 0.22
User Comments:
anonymous added on 2014-07-30 15:58:58:
I'm attempting to write a small wrapper around libxml2. Here is some test code to try and access the functions and present the error:

---
package provide test 0.1
package require tcc4tcl

set LibPath [file join [file dirname [dict get [info frame [info frame]] file]]]

# Object encapsulating C code
set c [::tcc4tcl::new]

# Add library paths
$c add_include_path [file join $::xsd::LibPath include]
$c add_include_path [file join $::xsd::LibPath include libxml]
$c add_library_path $::xsd::LibPath
$c add_library libxml2-2

# Try to use xmlLineNumbersDefault
$c cproc test {} ok {
    xmlLineNumbersDefault(1);
}

# Compile C code
$c go
---

The LibPath variable is set such that it is the location of the 'test' package (where I'd like to put the include files and library). Printing it verifies this path is always as expected.

The above fails when [package require test] is invoked within any directory except the package's directory. When within the package's directory the package loads fine.

The error returned when running [package require test] from outside its directory:

tcc: error: undefined symbol 'xmlLineNumbersDefault'
relocating failed

The accompanying stack trace:

tcc: error: undefined symbol 'xmlLineNumbersDefault'
relocating failed
    while executing
"tcc command $procname $cname"
    (procedure "::tcc4tcl::_go" line 106)
    invoked from within
"::tcc4tcl::_go ::tcc4tcl::tcc_1 0"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list $callcmd $handle {*}$args]"
    (procedure "::tcc4tcl::tcc_1" line 19)
    invoked from within
"$c go"
    (file "C:/Home/Tcl/test/test.tcl" line 30)
    invoked from within
"source C:/Home/Tcl/test/test.tcl"
    ("package ifneeded test 0.1" script)
    invoked from within
"package require test"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 {package require test}"

anonymous added on 2014-07-30 16:49:51:
I'm attempting to write a small wrapper around libxml2. Here is some test code to try and access the functions and present the error:

---
package provide test 0.1
package require tcc4tcl

set LibPath [file join [file dirname [dict get [info frame [info frame]] file]]]

# Object encapsulating C code
set c [::tcc4tcl::new]

# Add library paths
$c add_include_path [file join $LibPath include]
$c add_include_path [file join $LibPath include libxml]
$c add_library_path $LibPath
$c add_library libxml2-2

# Try to use xmlLineNumbersDefault
$c cproc test {} ok {
    xmlLineNumbersDefault(1);
}

# Compile C code
$c go
---

The LibPath variable is set such that it is the location of the 'test' package (where I'd like to put the include files and library). Printing it verifies this path is always as expected.

The above fails when [package require test] is invoked within any directory except the package's directory. When within the package's directory the package loads fine.

The error returned when running [package require test] from outside its directory:

tcc: error: undefined symbol 'xmlLineNumbersDefault'
relocating failed

The accompanying stack trace:

tcc: error: undefined symbol 'xmlLineNumbersDefault'
relocating failed
    while executing
"tcc command $procname $cname"
    (procedure "::tcc4tcl::_go" line 106)
    invoked from within
"::tcc4tcl::_go ::tcc4tcl::tcc_1 0"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list $callcmd $handle {*}$args]"
    (procedure "::tcc4tcl::tcc_1" line 19)
    invoked from within
"$c go"
    (file "C:/Home/Tcl/test/test.tcl" line 30)
    invoked from within
"source C:/Home/Tcl/test/test.tcl"
    ("package ifneeded test 0.1" script)
    invoked from within
"package require test"
    ("uplevel" body line 1)
    invoked from within

anonymous added on 2014-07-30 16:53:19:
I was not sure how to edit a ticket in Fossil. It seems to just append my 'edit'. Please reference my updated description. I had typed the 'LibPath' variable names incorrectly (::xsd::LibPath), I've corrected them to be 'LibPath'.

rkeene added on 2016-03-28 15:02:56:
The issue here is two fold:

1. You are using "libxml2-2" instead of "xml2-2" (i.e., without the "lib" prefix)
2. tcc4tcl doesn't notify you of your error

It will be addressed in an upcoming release.