tcc4tcl
Check-in [d680a4ffbf]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:Fixed typo
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d680a4ffbf2788f058bee0d7d58cc9ed1ce60fb0
User & Date: rkeene on 2014-06-21 18:26:45.894
Other Links: manifest | tags
Context
2014-06-21
18:50
Started versioning aclocal files and updated to find an appropriate Tclsh check-in: dd35aeb62b user: rkeene tags: trunk
18:26
Fixed typo check-in: d680a4ffbf user: rkeene tags: trunk
18:20
Updated to ignore clang limits.h check-in: bc97582608 user: rkeene tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Modified build/tcc-patches/0.9.26/tcc-0.9.26-tclio.diff from [f43d5e63db] to [a8e1041223].
︙︙
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

+    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








|
<
<
<
<
<
<
<
<
|








93
94
95
96
97
98
99
100








101
102
103
104
105
106
107
108

+    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:26:31.820011999 -0500








@@ -248,7 +248,18 @@
     int64_t start_time = 0;
     const char *first_file = NULL;
 
-    s = tcc_new();
+#ifdef USE_TCL_STUBS
+#undef Tcl_CreateInterp
+#undef Tcl_InitStubs
︙︙
Powered by Fossil · RSS