ports/devel/tcl-trf/files/patch-warnings
Mikhail Teterin c6ce535c71 devel/tcl-trf: increase an insufficiently large buffer
This ancient problem was discovered by gcc12's new -Warray-bounds
implementation. Many thanks.

Raise PORTREVISION :(
2023-02-13 00:31:21 -05:00

60 lines
1.5 KiB
Text

--- 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/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;
--- generic/registry.c 2009-06-18 00:54:44.000000000 -0400
+++ generic/registry.c 2013-09-18 15:16:57.000000000 -0400
@@ -1405,5 +1405,5 @@
* [Bug 2788106].
*/
- ckfree(trans);
+ ckfree((void *)trans);
DONE (TrfClose);
@@ -1835,5 +1835,4 @@
TrfTransformationInstance* trans = (TrfTransformationInstance*) instanceData;
int result;
- Tcl_Channel parent;
int newLoc;
@@ -1841,6 +1840,4 @@
PRINT ("(Mode = %d, Offset = %ld)\n", mode, offset); FL;
- parent = DOWNC (trans);
-
/*
* Several things to look at before deciding what to do.
@@ -3398,5 +3395,7 @@
* blowing the stack.
*/
-
+#if TCL_MAJOR_VERSION > 8 || TCL_MINOR_VERSION > 4
+ const
+#endif
Tcl_ChannelType* parentType = Tcl_GetChannelType (parent);
Tcl_DriverSeekProc* parentSeekProc = Tcl_ChannelSeekProc (parentType);
--- generic/otpcode.c 2009-06-18 00:54:43.000000000 -0400
+++ generic/otpcode.c 2023-02-13 00:25:46.660181000 -0500
@@ -2757,5 +2757,5 @@
int i;
unsigned long p;
- char b[9];
+ char b[11];
if ((c -> wordCount == 5) && (c -> charCount > 0))