Check-in [8c5cb4e725]
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     91     Log "INJECTING CCODE"
    92     92     append tcc(code) $code \n
    93     93   }
    94     94   proc ::tcc4tcl::cc {code} {
    95     95     variable tcc
    96     96     if {![info exists tcc(cc)]} {
    97     97         set tcc(cc) tcc1
    98         -      tcc4tcl $tcc4tcl::dir $tcc(cc)
           98  +      tcc4tcl [file join $::tcc4tcl::dir lib] $tcc(cc)
    99     99         $tcc(cc) add_library tcl8.5
   100    100         $tcc(cc) add_include_path [file join $::tcc4tcl::dir include]
   101    101     }
   102    102     Log code:$code
   103    103     $tcc(cc) compile $code
   104    104   }
   105    105   #----------------------------------------------------------- New DLL API

Modified tcltcc.c from [cebccc8dc1] to [bdb10e54ff].

   257    257   	}
   258    258   
   259    259   	s = tcc_new();
   260    260   	if (s == NULL) {
   261    261   		return(TCL_ERROR);
   262    262   	}
   263    263   
   264         -	s->tcc_lib_path = Tcl_GetString(objv[1]);
          264  +	s->tcc_lib_path = tcc_strdup(Tcl_GetString(objv[1]));
   265    265   
   266    266   	tcc_set_error_func(s, interp, (void *)&TccErrorFunc);
   267    267   
   268    268   	ts = (void *) ckalloc(sizeof(*ts));
   269    269   	ts->s = s;
   270    270       	ts->relocated = 0;
   271    271