93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
+ size = Tcl_Read(fd, (char *)&ehdr, sizeof(ehdr));
+ Tcl_Seek(fd, 0, SEEK_SET);
if (size <= 0) {
tcc_error_noabort("could not read header");
goto the_end;
diff -uNr tcc-0.9.26.orig/tcc.c tcc-0.9.26-1tclio/tcc.c
--- tcc-0.9.26.orig/tcc.c 2013-02-15 08:24:00.000000000 -0600
+++ tcc-0.9.26-1tclio/tcc.c 2014-06-21 12:37:45.060011999 -0500
@@ -18,6 +18,10 @@
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
+#ifdef USE_TCL_STUBS
+#define LIBTCC_USE_TCL_STUBS
+#undef USE_TCL_STUBS
@@ -248,7 +252,16 @@
int64_t start_time = 0;
const char *first_file = NULL;
- s = tcc_new();
+#ifdef LIBTCC_USE_TCL_STUBS
+ Tcl_Interp *interp;
+
+ interp = Tcl_CreateInterp();
+ if (interp != NULL) {
+ Tcl_InitStubs(interp, TCL_VERSION, 0);
+ }
+#endif
|
|
|
<
<
<
|
|
>
>
|
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
+ size = Tcl_Read(fd, (char *)&ehdr, sizeof(ehdr));
+ Tcl_Seek(fd, 0, SEEK_SET);
if (size <= 0) {
tcc_error_noabort("could not read header");
goto the_end;
diff -uNr tcc-0.9.26.orig/tcc.c tcc-0.9.26-1tclio/tcc.c
--- tcc-0.9.26.orig/tcc.c 2013-02-15 08:24:00.000000000 -0600
+++ tcc-0.9.26-1tclio/tcc.c 2014-06-21 13:05:54.330011999 -0500
@@ -18,6 +18,7 @@
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
+#endif
#ifdef ONE_SOURCE
#include "libtcc.c"
#else
@@ -248,7 +249,18 @@
int64_t start_time = 0;
const char *first_file = NULL;
- s = tcc_new();
+#ifdef USE_TCL_STUBS
+#undef Tcl_CreateInterp
+#undef Tcl_InitStubs
+ Tcl_Interp *interp;
+
+ interp = Tcl_CreateInterp();
+ if (interp != NULL) {
+ Tcl_InitStubs(interp, TCL_VERSION, 0);
+ }
+#endif
|