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
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;