diff options
| author | stanton <stanton> | 1999-02-03 02:58:25 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-03 02:58:25 (GMT) |
| commit | 17481a9360ea758b106cce6d9ec42c575a877eb5 (patch) | |
| tree | b8a03bfb9bee80e854f9cfe3f4379b3bb4a3f385 /generic | |
| parent | e0ef1543276028c3f855c5e12b53551fc20fdebf (diff) | |
| download | tcl-17481a9360ea758b106cce6d9ec42c575a877eb5.zip tcl-17481a9360ea758b106cce6d9ec42c575a877eb5.tar.gz tcl-17481a9360ea758b106cce6d9ec42c575a877eb5.tar.bz2 | |
* win/tclAppInit.c:
* unix/tclAppInit.c:
* mac/tclMacAppInit.c:
* generic/tclTest.c: Changed some EXTERN declarations to extern
since they are not defining exported interfaces. This avoids
generating useless declspec() attributes and makes the windows
makefile simpler.
* generic/tcl.h: Moved Tcl_AppInit declaration to end and cleared
out TCL_STORAGE_CLASS so it is not declared with a declspec().
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 14 | ||||
| -rw-r--r-- | generic/tclTest.c | 8 |
2 files changed, 17 insertions, 5 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 404c89e..77b25e5 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.32 1999/01/06 21:08:50 stanton Exp $ + * RCS: @(#) $Id: tcl.h,v 1.33 1999/02/03 02:58:25 stanton Exp $ */ #ifndef _TCL @@ -1072,7 +1072,6 @@ EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj *objPtr, char *bytes, int length)); EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_( TCL_VARARGS(Tcl_Obj *,interp)); -EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc *proc, ClientData clientData)); EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async)); @@ -1562,6 +1561,17 @@ EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], char *message)); +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS + +/* + * Convenience declaration of Tcl_AppInit for backwards compatibility. + * This function is not *implemented* by the tcl library, so the storage + * class is neither DLLEXPORT nor DLLIMPORT + */ + +EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); + #endif /* RESOURCE_INCLUDED */ #undef TCL_STORAGE_CLASS diff --git a/generic/tclTest.c b/generic/tclTest.c index 32b326c..23dc31f 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.7 1999/02/03 00:55:06 stanton Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.8 1999/02/03 02:58:25 stanton Exp $ */ #define TCL_TEST @@ -217,10 +217,12 @@ static int TestwordendObjCmd _ANSI_ARGS_((ClientData dummy, Tcl_Obj *CONST objv[])); /* - * External (platform specific) initialization routine: + * External (platform specific) initialization routine, this declaration + * explicitly does not use EXTERN since this code does not get compiled + * into the library: */ -EXTERN int TclplatformtestInit _ANSI_ARGS_(( +extern int TclplatformtestInit _ANSI_ARGS_(( Tcl_Interp *interp)); /* |