projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New client with better Explain support and nice icons.
[ir-tcl-moved-to-github.git]
/
tclmain.c
diff --git
a/tclmain.c
b/tclmain.c
index
7239aed
..
b2f37f2
100644
(file)
--- a/
tclmain.c
+++ b/
tclmain.c
@@
-5,7
+5,10
@@
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: tclmain.c,v $
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: tclmain.c,v $
- * Revision 1.19 1996-08-20 09:27:49 adam
+ * Revision 1.20 1997-04-30 07:26:08 adam
+ * Added support for shared libaries (if supported by Tcl itself).
+ *
+ * Revision 1.19 1996/08/20 09:27:49 adam
* More work on explain.
* Renamed tkinit.c to tkmain.c. The tcl shell uses the Tcl 7.5 interface
* for socket i/o instead of the handcrafted one (for Tcl 7.3 and Tcl7.4).
* More work on explain.
* Renamed tkinit.c to tkmain.c. The tcl shell uses the Tcl 7.5 interface
* for socket i/o instead of the handcrafted one (for Tcl 7.3 and Tcl7.4).
@@
-39,6
+42,7
@@
int Tcl_AppInit (Tcl_Interp *interp)
}
#if TCL_MAJOR_VERSION > 7 || (TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION > 4)
}
#if TCL_MAJOR_VERSION > 7 || (TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION > 4)
+/* new version of tcl: version > 7.4 */
extern int matherr ();
int *tclDummyMathPtr = (int*) matherr;
extern int matherr ();
int *tclDummyMathPtr = (int*) matherr;
@@
-49,6
+53,8
@@
int main (int argc, char **argv)
}
#else
}
#else
+/* old version of tcl: version <= 7.4 */
+
static char *fileName = NULL;
extern int main ();
int *tclDummyMainPtr = (int*) main;
static char *fileName = NULL;
extern int main ();
int *tclDummyMainPtr = (int*) main;