2923c0b122
recent -current. Fix warnings -- on x86, at least, the package now builds with ``-Wall -Werror''.
117 lines
3.5 KiB
Text
117 lines
3.5 KiB
Text
--- generic/init.c Wed Aug 9 15:13:17 2000
|
|
+++ generic/init.c Tue Apr 6 12:20:51 2004
|
|
@@ -60,5 +60,5 @@
|
|
|
|
#ifdef USE_TCL_STUBS
|
|
- char* actualVersion;
|
|
+ const char* actualVersion;
|
|
|
|
actualVersion = Tcl_InitStubs(interp, "8.1", 0);
|
|
--- generic/transformInt.h Tue Aug 21 01:51:33 2001
|
|
+++ generic/transformInt.h Tue Apr 6 12:27:33 2004
|
|
@@ -678,4 +678,8 @@
|
|
#define TCL_STORAGE_CLASS DLLIMPORT
|
|
|
|
+#ifndef CONST84
|
|
+# define CONST84
|
|
+#endif
|
|
+
|
|
#ifdef __cplusplus
|
|
}
|
|
--- generic/registry.c Tue Aug 21 01:51:33 2001
|
|
+++ generic/registry.c Tue Apr 6 12:32:35 2004
|
|
@@ -285,5 +285,5 @@
|
|
static int
|
|
TrfOutput _ANSI_ARGS_ ((ClientData instanceData,
|
|
- char* buf, int toWrite,
|
|
+ CONST84 char* buf, int toWrite,
|
|
int* errorCodePtr));
|
|
|
|
@@ -300,9 +300,9 @@
|
|
static int
|
|
TrfGetOption _ANSI_ARGS_ ((ClientData instanceData, Tcl_Interp* interp,
|
|
- char* optionName, Tcl_DString* dsPtr));
|
|
+ CONST84 char* optionName, Tcl_DString* dsPtr));
|
|
|
|
static int
|
|
TrfSetOption _ANSI_ARGS_((ClientData instanceData, Tcl_Interp* interp,
|
|
- char* optionName, char* value));
|
|
+ CONST84 char* optionName, CONST84 char* value));
|
|
#ifdef USE_TCL_STUBS
|
|
static int
|
|
@@ -364,9 +364,9 @@
|
|
DownSOpt _ANSI_ARGS_ ((Tcl_Interp* interp,
|
|
TrfTransformationInstance* ctrl,
|
|
- char* optionName, char* value));
|
|
+ CONST84 char* optionName, CONST84 char* value));
|
|
static int
|
|
DownGOpt _ANSI_ARGS_ ((Tcl_Interp* interp,
|
|
TrfTransformationInstance* ctrl,
|
|
- char* optionName, Tcl_DString* dsPtr));
|
|
+ CONST84 char* optionName, Tcl_DString* dsPtr));
|
|
|
|
#define DOWNC(trans) (DownChannel (trans))
|
|
@@ -1708,5 +1708,5 @@
|
|
TrfOutput (instanceData, buf, toWrite, errorCodePtr)
|
|
ClientData instanceData;
|
|
-char* buf;
|
|
+CONST84 char* buf;
|
|
int toWrite;
|
|
int* errorCodePtr;
|
|
@@ -2162,6 +2162,6 @@
|
|
ClientData instanceData;
|
|
Tcl_Interp* interp;
|
|
- char* optionName;
|
|
- char* value;
|
|
+ CONST84 char* optionName;
|
|
+ CONST84 char* value;
|
|
{
|
|
/* Recognized options:
|
|
@@ -2315,5 +2315,5 @@
|
|
ClientData instanceData;
|
|
Tcl_Interp* interp;
|
|
- char* optionName;
|
|
+ CONST84 char* optionName;
|
|
Tcl_DString* dsPtr;
|
|
{
|
|
@@ -3207,6 +3207,6 @@
|
|
Tcl_Interp* interp;
|
|
TrfTransformationInstance* ctrl;
|
|
- char* optionName;
|
|
- char* value;
|
|
+ CONST84 char* optionName;
|
|
+ CONST84 char* value;
|
|
{
|
|
Tcl_Channel parent = DOWNC (ctrl);
|
|
@@ -3252,5 +3252,5 @@
|
|
Tcl_Interp* interp;
|
|
TrfTransformationInstance* ctrl;
|
|
- char* optionName;
|
|
+ CONST84 char* optionName;
|
|
Tcl_DString* dsPtr;
|
|
{
|
|
--- generic/trfStubLib.c Mon Sep 20 17:07:24 1999
|
|
+++ generic/trfStubLib.c Tue Apr 6 13:13:38 2004
|
|
@@ -61,5 +61,5 @@
|
|
#endif
|
|
|
|
-char *
|
|
+const char *
|
|
Trf_InitStubs(interp, version, exact)
|
|
Tcl_Interp *interp;
|
|
@@ -67,5 +67,5 @@
|
|
int exact;
|
|
{
|
|
- char *actualVersion;
|
|
+ const char *actualVersion;
|
|
|
|
actualVersion = Tcl_PkgRequireEx(interp, "Trf", (char *) version, exact,
|
|
--- generic/transform.h Tue Aug 21 01:52:21 2001
|
|
+++ generic/transform.h Tue Apr 6 13:15:22 2004
|
|
@@ -916,5 +916,5 @@
|
|
#define TCL_STORAGE_CLASS
|
|
|
|
-EXTERN char *Trf_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact));
|
|
+EXTERN const char *Trf_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact));
|
|
|
|
#ifndef USE_TRF_STUBS
|