Overview
| Comment: | Updated library paths |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8c5cb4e725f00010be24d6b67f378686 |
| User & Date: | rkeene on 2014-05-02 03:43:06.843 |
| Other Links: | manifest | tags |
Context
|
2014-05-02
| ||
| 03:46 | Updated to install additional files check-in: 36efa528f3 user: rkeene tags: trunk | |
| 03:43 | Updated library paths check-in: 8c5cb4e725 user: rkeene tags: trunk | |
| 03:32 | Updated to fail to open files and set path to library check-in: 7256978106 user: rkeene tags: trunk | |
Changes
Modified tcc.tcl
from [40e66e4fa1]
to [356b248a0a].
| ︙ | ︙ | |||
91 92 93 94 95 96 97 |
Log "INJECTING CCODE"
append tcc(code) $code \n
}
proc ::tcc4tcl::cc {code} {
variable tcc
if {![info exists tcc(cc)]} {
set tcc(cc) tcc1
| | | 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
Log "INJECTING CCODE"
append tcc(code) $code \n
}
proc ::tcc4tcl::cc {code} {
variable tcc
if {![info exists tcc(cc)]} {
set tcc(cc) tcc1
tcc4tcl [file join $::tcc4tcl::dir lib] $tcc(cc)
$tcc(cc) add_library tcl8.5
$tcc(cc) add_include_path [file join $::tcc4tcl::dir include]
}
Log code:$code
$tcc(cc) compile $code
}
#----------------------------------------------------------- New DLL API
|
| ︙ | ︙ |
Modified tcltcc.c
from [cebccc8dc1]
to [bdb10e54ff].
| ︙ | ︙ | |||
257 258 259 260 261 262 263 |
}
s = tcc_new();
if (s == NULL) {
return(TCL_ERROR);
}
| | | 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 |
}
s = tcc_new();
if (s == NULL) {
return(TCL_ERROR);
}
s->tcc_lib_path = tcc_strdup(Tcl_GetString(objv[1]));
tcc_set_error_func(s, interp, (void *)&TccErrorFunc);
ts = (void *) ckalloc(sizeof(*ts));
ts->s = s;
ts->relocated = 0;
|
| ︙ | ︙ |