Commitf93f780

Bryan Henderson

committed

-Werror fixes from D'Arcy.

1 parent46c4e6f commitf93f780Copy full SHA for f93f780

File tree

-23

lines changed

-23

lines changed

Lines changed: 4 additions & 11 deletions

Original file line number	Diff line number	Diff line change
`@@ -11,11 +11,7 @@`
`11`	`11`	`* of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
`12`	`12`	`*/`
`13`	`13`
`14`		`-#ifndeflint`
`15`		`-staticcharsccsid[]="@(#) tclAppInit.c 1.11 94/12/17 16:14:03";`
`16`		`-#endif/* not lint */`
`17`		`-`
`18`		`-#include"tcl.h"`
	`14`	`+#include<tcl.h>`
`19`	`15`
`20`	`16`	`#include<libpgtcl.h>`
`21`	`17`
`@@ -47,9 +43,7 @@ int tclDummyMathPtr = (int ) matherr;`
`47`	`43`	`*/`
`48`	`44`
`49`	`45`	`int`
`50`		`-main(argc,argv)`
`51`		`-intargc;/* Number of command-line arguments. */`
`52`		`-char*argv;/ Values of command-line arguments. */`
	`46`	`+main(intargc,char**argv)`
`53`	`47`	`{`
`54`	`48`	`Tcl_Main(argc,argv,Tcl_AppInit);`
`55`	`49`	`return0;/* Needed only to prevent compiler warning. */`
`@@ -75,8 +69,7 @@ main(argc, argv)`
`75`	`69`	`*/`
`76`	`70`
`77`	`71`	`int`
`78`		`-Tcl_AppInit(interp)`
`79`		`-Tcl_Interpinterp;/ Interpreter for application. */`
	`72`	`+Tcl_AppInit(Tcl_Interp*interp)`
`80`	`73`	`{`
`81`	`74`	`if (Tcl_Init(interp)==TCL_ERROR) {`
`82`	`75`	`returnTCL_ERROR;`
`@@ -93,7 +86,7 @@ Tcl_AppInit(interp)`
`93`	`86`	`* where "Mod" is the name of the module.`
`94`	`87`	`*/`
`95`	`88`
`96`		`-if (Pg_Init(interp)==TCL_ERROR) {`
	`89`	`+if (Pgtcl_Init(interp)==TCL_ERROR) {`
`97`	`90`	`returnTCL_ERROR;`
`98`	`91`	`}`
`99`	`92`

Lines changed: 3 additions & 12 deletions

Original file line number	Diff line number	Diff line change
`@@ -11,10 +11,6 @@`
`11`	`11`	`* of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
`12`	`12`	`*/`
`13`	`13`
`14`		`-#ifndeflint`
`15`		`-staticcharsccsid[]="@(#) tkAppInit.c 1.12 94/12/17 16:30:56";`
`16`		`-#endif/* not lint */`
`17`		`-`
`18`	`14`	`#include"tk.h"`
`19`	`15`	`#include"libpgtcl.h"`
`20`	`16`
`@@ -46,9 +42,7 @@ int tclDummyMathPtr = (int ) matherr;`
`46`	`42`	`*/`
`47`	`43`
`48`	`44`	`int`
`49`		`-main(argc,argv)`
`50`		`-intargc;/* Number of command-line arguments. */`
`51`		`-char*argv;/ Values of command-line arguments. */`
	`45`	`+main(intargc,char**argv)`
`52`	`46`	`{`
`53`	`47`	`Tk_Main(argc,argv,Tcl_AppInit);`
`54`	`48`	`return0;/* Needed only to prevent compiler warning. */`
`@@ -74,11 +68,8 @@ main(argc, argv)`
`74`	`68`	`*/`
`75`	`69`
`76`	`70`	`int`
`77`		`-Tcl_AppInit(interp)`
`78`		`-Tcl_Interpinterp;/ Interpreter for application. */`
	`71`	`+Tcl_AppInit(Tcl_Interp*interp)`
`79`	`72`	`{`
`80`		`-Tk_Windowmain;`
`81`		`-`
`82`	`73`	`if (Tcl_Init(interp)==TCL_ERROR) {`
`83`	`74`	`returnTCL_ERROR;`
`84`	`75`	`}`
`@@ -97,7 +88,7 @@ Tcl_AppInit(interp)`
`97`	`88`	`* where "Mod" is the name of the module.`
`98`	`89`	`*/`
`99`	`90`
`100`		`-if (Pg_Init(interp)==TCL_ERROR) {`
	`91`	`+if (Pgtcl_Init(interp)==TCL_ERROR) {`
`101`	`92`	`returnTCL_ERROR;`
`102`	`93`	`}`
`103`	`94`	`/*`

Comments

(0)