ITS#10011 contrib: fix old-style K&R declarations

Removed in C23.

For more information, see LWN.net [0] or LLVM's Discourse [1], the Gentoo wiki [2],
or the (new) c-std-porting mailing list [3].

[0] https://lwn.net/Articles/913505/
[1] https://discourse.llvm.org/t/configure-script-breakage-with-the-new-werror-implicit-function-declaration/65213
[2] https://wiki.gentoo.org/wiki/Modern_C_porting
[3] hosted at lists.linux.dev.

Signed-off-by: Sam James <sam@gentoo.org>
This commit is contained in:
Sam James 2023-02-09 23:20:32 +00:00
parent 14f81bc47a
commit 480be3eec5
2 changed files with 1 additions and 16 deletions

View file

@ -45,9 +45,7 @@ EXTERN int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
*/ */
int int
main(argc, argv) main(int argc, char **argv)
int argc; /* Number of command-line arguments. */
char **argv; /* Values of command-line arguments. */
{ {
#ifdef USE_TCLX #ifdef USE_TCLX
TclX_Main(argc, argv, Tcl_AppInit); TclX_Main(argc, argv, Tcl_AppInit);

View file

@ -37,16 +37,9 @@ int (*tclDummyMathPtr)() = matherr;
* This is the main program for the application. * This is the main program for the application.
*----------------------------------------------------------------------------- *-----------------------------------------------------------------------------
*/ */
#ifdef __cplusplus
int int
main (int argc, main (int argc,
char **argv) char **argv)
#else
int
main (argc, argv)
int argc;
char **argv;
#endif
{ {
#ifdef USE_TCLX #ifdef USE_TCLX
TkX_Main(argc, argv, Tcl_AppInit); TkX_Main(argc, argv, Tcl_AppInit);
@ -68,14 +61,8 @@ main (argc, argv)
* interp->result if an error occurs. * interp->result if an error occurs.
*----------------------------------------------------------------------------- *-----------------------------------------------------------------------------
*/ */
#ifdef __cplusplus
int int
Tcl_AppInit (Tcl_Interp *interp) Tcl_AppInit (Tcl_Interp *interp)
#else
int
Tcl_AppInit (interp)
Tcl_Interp *interp;
#endif
{ {
if (Tcl_Init (interp) == TCL_ERROR) { if (Tcl_Init (interp) == TCL_ERROR) {
return TCL_ERROR; return TCL_ERROR;