summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
Diffstat (limited to 'unix')
-rw-r--r--unix/tclLoadDyld.c6
-rw-r--r--unix/tclUnixInit.c4
-rw-r--r--unix/tclUnixSock.c11
-rw-r--r--unix/tclUnixTest.c37
-rw-r--r--unix/tclUnixTime.c5
5 files changed, 50 insertions, 13 deletions
diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c
index 14e05b2..9d4e99c 100644
--- a/unix/tclLoadDyld.c
+++ b/unix/tclLoadDyld.c
@@ -491,6 +491,9 @@ TclGuessPackageName(
Tcl_DString *bufPtr) /* Initialized empty dstring. Append package
* name to this if possible. */
{
+ (void)fileName;
+ (void)bufPtr;
+
return 0;
}
@@ -513,10 +516,11 @@ TclGuessPackageName(
#ifdef TCL_LOAD_FROM_MEMORY
MODULE_SCOPE void *
TclpLoadMemoryGetBuffer(
- Tcl_Interp *interp, /* Used for error reporting. */
+ Tcl_Interp *dummy, /* Used for error reporting. */
int size) /* Size of desired buffer. */
{
void *buffer = NULL;
+ (void)dummy;
/*
* NSCreateObjectFileImageFromMemory is available but always fails
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c
index 341a70b..a3a64a9 100644
--- a/unix/tclUnixInit.c
+++ b/unix/tclUnixInit.c
@@ -1062,6 +1062,10 @@ MacOSXGetLibraryPath(
foundInFramework = Tcl_MacOSXOpenVersionedBundleResources(interp,
"com.tcltk.tcllibrary", TCL_FRAMEWORK_VERSION, 0, maxPathLen,
tclLibPath);
+#else
+ (void)interp;
+ (void)maxPathLen;
+ (void)tclLibPath;
#endif
return foundInFramework;
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c
index c061a78..993ee95 100644
--- a/unix/tclUnixSock.c
+++ b/unix/tclUnixSock.c
@@ -334,8 +334,10 @@ Tcl_GetHostName(void)
int
TclpHasSockets(
- Tcl_Interp *interp) /* Not used. */
+ Tcl_Interp *dummy) /* Not used. */
{
+ (void)dummy;
+
return TCL_OK;
}
@@ -621,11 +623,12 @@ TcpOutputProc(
static int
TcpCloseProc(
void *instanceData, /* The socket to close. */
- Tcl_Interp *interp) /* For error reporting - unused. */
+ Tcl_Interp *dummy) /* For error reporting - unused. */
{
TcpState *statePtr = (TcpState *)instanceData;
int errorCode = 0;
TcpFdList *fds;
+ (void)dummy;
/*
* Delete a file handler that may be active for this socket if this is a
@@ -1116,6 +1119,7 @@ TcpGetHandleProc(
void **handlePtr) /* Where to store the handle. */
{
TcpState *statePtr = (TcpState *)instanceData;
+ (void)direction;
*handlePtr = INT2PTR(statePtr->fds.fd);
return TCL_OK;
@@ -1140,6 +1144,8 @@ TcpAsyncCallback(
* TCL_READABLE, TCL_WRITABLE and
* TCL_EXCEPTION. */
{
+ (void)mask;
+
TcpConnect(NULL, (TcpState *)clientData);
}
@@ -1779,6 +1785,7 @@ TcpAccept(
socklen_t len; /* For accept interface */
char channelName[SOCK_CHAN_LENGTH];
char host[NI_MAXHOST], port[NI_MAXSERV];
+ (void)mask;
len = sizeof(addr);
newsock = accept(fds->fd, &addr.sa, &len);
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c
index eb91ba1..7b0719e 100644
--- a/unix/tclUnixTest.c
+++ b/unix/tclUnixTest.c
@@ -138,7 +138,7 @@ TclplatformtestInit(
static int
TestfilehandlerCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
@@ -148,6 +148,7 @@ TestfilehandlerCmd(
static int initialized = 0;
char buffer[4000];
TclFile file;
+ (void)dummy;
/*
* NOTE: When we make this code work on Windows also, the following
@@ -360,7 +361,7 @@ TestFileHandlerProc(
static int
TestfilewaitCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
@@ -369,6 +370,7 @@ TestfilewaitCmd(
Tcl_Channel channel;
int fd;
ClientData data;
+ (void)dummy;
if (argc != 4) {
Tcl_AppendResult(interp, "wrong # arguments: should be \"", argv[0],
@@ -429,12 +431,13 @@ TestfilewaitCmd(
static int
TestfindexecutableCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
{
Tcl_Obj *saveName;
+ (void)dummy;
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # arguments: should be \"", argv[0],
@@ -472,12 +475,13 @@ TestfindexecutableCmd(
static int
TestgetopenfileCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
{
ClientData filePtr;
+ (void)dummy;
if (argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -515,11 +519,13 @@ TestgetopenfileCmd(
static int
TestsetencpathObjCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const *objv) /* Argument strings. */
{
+ (void)dummy;
+
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "defaultDir");
return TCL_ERROR;
@@ -548,12 +554,13 @@ TestsetencpathObjCmd(
static int
TestforkObjCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const *objv) /* Argument strings. */
{
pid_t pid;
+ (void)dummy;
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, "");
@@ -593,11 +600,13 @@ TestforkObjCmd(
static int
TestgetencpathObjCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const *objv) /* Argument strings. */
{
+ (void)dummy;
+
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, "");
return TCL_ERROR;
@@ -627,7 +636,7 @@ TestgetencpathObjCmd(
static int
TestalarmCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
@@ -635,6 +644,7 @@ TestalarmCmd(
#ifdef SA_RESTART
unsigned int sec;
struct sigaction action;
+ (void)dummy;
if (argc > 1) {
Tcl_GetInt(interp, argv[1], (int *)&sec);
@@ -658,6 +668,8 @@ TestalarmCmd(
(void) alarm(sec);
return TCL_OK;
#else
+ (void)dummy;
+
Tcl_AppendResult(interp,
"warning: sigaction SA_RESTART not support on this platform",
NULL);
@@ -685,6 +697,8 @@ static void
AlarmHandler(
int signum)
{
+ (void)signum;
+
gotsig = "1";
}
@@ -706,11 +720,15 @@ AlarmHandler(
static int
TestgotsigCmd(
- ClientData clientData, /* Not used. */
+ ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
{
+ (void)dummy;
+ (void)argc;
+ (void)argv;
+
Tcl_AppendResult(interp, gotsig, NULL);
gotsig = "0";
return TCL_OK;
@@ -743,6 +761,7 @@ TestchmodCmd(
Tcl_Obj *const *objv) /* Argument strings. */
{
int i, mode;
+ (void)dummy;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "mode file ?file ...?");
diff --git a/unix/tclUnixTime.c b/unix/tclUnixTime.c
index fb0b5e1..fb649d2 100644
--- a/unix/tclUnixTime.c
+++ b/unix/tclUnixTime.c
@@ -511,6 +511,8 @@ NativeScaleTime(
Tcl_Time *timePtr,
ClientData clientData)
{
+ (void)timePtr;
+ (void)clientData;
/* Native scale is 1:1. Nothing is done */
}
@@ -534,9 +536,10 @@ NativeScaleTime(
static void
NativeGetTime(
Tcl_Time *timePtr,
- ClientData clientData)
+ ClientData dummy)
{
struct timeval tv;
+ (void)dummy;
(void) gettimeofday(&tv, NULL);
timePtr->sec = tv.tv_sec;
generated by cgit v0.12 at 2026-01-04 22:40:14 (GMT)