mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

-Werror fixes from D'Arcy.

Browse Source
This commit is contained in:
Bryan Henderson 1996-11-26 01:14:38 +00:00
parent 46c4e6f626
commit f93f780269
2 changed files with 7 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/bin/pgtclsh/pgtclAppInit.c
View File

@ -11,11 +11,7 @@
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*/ */
#ifndef lint #include <tcl.h>
static char sccsid[] = "@(#) tclAppInit.c 1.11 94/12/17 16:14:03";
#endif /* not lint */
#include "tcl.h"
#include <libpgtcl.h> #include <libpgtcl.h>
@ -47,9 +43,7 @@ int *tclDummyMathPtr = (int *) matherr;
*/ */
int int
main(argc, argv) main(int argc, char **argv)
int argc; /* Number of command-line arguments. */
char **argv; /* Values of command-line arguments. */
{ {
Tcl_Main(argc, argv, Tcl_AppInit); Tcl_Main(argc, argv, Tcl_AppInit);
return 0; /* Needed only to prevent compiler warning. */ return 0; /* Needed only to prevent compiler warning. */
@ -75,8 +69,7 @@ main(argc, argv)
*/ */
int int
Tcl_AppInit(interp) Tcl_AppInit(Tcl_Interp *interp)
Tcl_Interp *interp; /* Interpreter for application. */
{ {
if (Tcl_Init(interp) == TCL_ERROR) { if (Tcl_Init(interp) == TCL_ERROR) {
return TCL_ERROR; return TCL_ERROR;
@ -93,7 +86,7 @@ Tcl_AppInit(interp)
* where "Mod" is the name of the module. * where "Mod" is the name of the module.
*/ */
if (Pg_Init(interp) == TCL_ERROR) { if (Pgtcl_Init(interp) == TCL_ERROR) {
return TCL_ERROR; return TCL_ERROR;
} }

15
src/bin/pgtclsh/pgtkAppInit.c
View File

@ -11,10 +11,6 @@
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*/ */
#ifndef lint
static char sccsid[] = "@(#) tkAppInit.c 1.12 94/12/17 16:30:56";
#endif /* not lint */
#include "tk.h" #include "tk.h"
#include "libpgtcl.h" #include "libpgtcl.h"
@ -46,9 +42,7 @@ int *tclDummyMathPtr = (int *) matherr;
*/ */
int int
main(argc, argv) main(int argc, char **argv)
int argc; /* Number of command-line arguments. */
char **argv; /* Values of command-line arguments. */
{ {
Tk_Main(argc, argv, Tcl_AppInit); Tk_Main(argc, argv, Tcl_AppInit);
return 0; /* Needed only to prevent compiler warning. */ return 0; /* Needed only to prevent compiler warning. */
@ -74,11 +68,8 @@ main(argc, argv)
*/ */
int int
Tcl_AppInit(interp) Tcl_AppInit(Tcl_Interp *interp)
Tcl_Interp *interp; /* Interpreter for application. */
{ {
Tk_Window main;
if (Tcl_Init(interp) == TCL_ERROR) { if (Tcl_Init(interp) == TCL_ERROR) {
return TCL_ERROR; return TCL_ERROR;
} }
@ -97,7 +88,7 @@ Tcl_AppInit(interp)
* where "Mod" is the name of the module. * where "Mod" is the name of the module.
*/ */
if (Pg_Init(interp) == TCL_ERROR) { if (Pgtcl_Init(interp) == TCL_ERROR) {
return TCL_ERROR; return TCL_ERROR;
} }
/* /*