Overview
Comment: | Updated to link against stubs library for current version of Tcl |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
15ac59fd14ba6161da312a74674ea48a |
User & Date: | rkeene on 2014-07-16 13:41:04 |
Other Links: | manifest | tags |
Context
2014-07-16
| ||
14:32 | Updated to include Tcl runtime in lib search path check-in: 9d947ddc1d user: rkeene tags: trunk | |
13:41 | Updated to link against stubs library for current version of Tcl check-in: 15ac59fd14 user: rkeene tags: trunk | |
13:38 | Updated tcl.m4 to print fewer errors looking for tclsh check-in: 105dd6812a user: rkeene tags: trunk | |
Changes
Modified test.tcl from [20cd200abf] to [7be1937b09].
104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
set tmpfile "/tmp/DELETEME_tcc4tcl_test_exec[expr rand()].so"
file delete $tmpfile
set handle [tcc4tcl::new $tmpfile "myPkg 0.1"]
$handle cproc ext_add {int a int b} long { return(a+b); }
$handle add_library_path /usr/lib64
$handle add_library_path /usr/lib
$handle add_library_path /usr/lib32
$handle add_library tclstub8.5
$handle go
load $tmpfile myPkg
puts [ext_add 1 42]
file delete $tmpfile
}
# More involved test
|
| |
104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
set tmpfile "/tmp/DELETEME_tcc4tcl_test_exec[expr rand()].so"
file delete $tmpfile
set handle [tcc4tcl::new $tmpfile "myPkg 0.1"]
$handle cproc ext_add {int a int b} long { return(a+b); }
$handle add_library_path /usr/lib64
$handle add_library_path /usr/lib
$handle add_library_path /usr/lib32
$handle add_library tclstub${::tcl_version}
$handle go
load $tmpfile myPkg
puts [ext_add 1 42]
file delete $tmpfile
}
# More involved test
|