X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=tclmain.c;h=b2f37f29bff95e5b35b0b5de85038544abd80a21;hb=ddc1fe181cb079af835166126fa052e2378e930b;hp=7239aed55da88db0d7c4be4217eb6b077f025178;hpb=d446a56fc51edc47a986b8a7e6c0b7c90065a431;p=ir-tcl-moved-to-github.git diff --git a/tclmain.c b/tclmain.c index 7239aed..b2f37f2 100644 --- a/tclmain.c +++ b/tclmain.c @@ -5,7 +5,10 @@ * 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). @@ -39,6 +42,7 @@ int Tcl_AppInit (Tcl_Interp *interp) } #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; @@ -49,6 +53,8 @@ int main (int argc, char **argv) } #else +/* old version of tcl: version <= 7.4 */ + static char *fileName = NULL; extern int main (); int *tclDummyMainPtr = (int*) main;