Overview
Comment: | Updated library paths |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 8c5cb4e725f00010be24d6b67f378686ac58b69c |
User & Date: | rkeene on 2014-05-02 03:43:06 |
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 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 $tcc4tcl::dir $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
|
| |
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 264 265 266 267 268 269 270 271 |
} s = tcc_new(); if (s == NULL) { return(TCL_ERROR); } s->tcc_lib_path = Tcl_GetString(objv[1]); tcc_set_error_func(s, interp, (void *)&TccErrorFunc); ts = (void *) ckalloc(sizeof(*ts)); ts->s = s; ts->relocated = 0; |
| |
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; |