summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2024-06-04 15:54:35 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2024-06-04 15:54:35 (GMT)
commit514638fd758486513ea7eb842bb8972fd854ca06 (patch)
treeb5c98217485282023c93ab5b46c2cfde0af5ddc5
parent14e9a4e0bda3c86ac11baf3c11f900a5837ea70a (diff)
downloadtcl-514638fd758486513ea7eb842bb8972fd854ca06.zip
tcl-514638fd758486513ea7eb842bb8972fd854ca06.tar.gz
tcl-514638fd758486513ea7eb842bb8972fd854ca06.tar.bz2
Make function definitions have right argument style
-rw-r--r--generic/tclClockFmt.c10
-rw-r--r--generic/tclDictObj.c3
-rw-r--r--generic/tclEncoding.c3
-rw-r--r--generic/tclExecute.c6
-rw-r--r--generic/tclListObj.c26
-rw-r--r--generic/tclZipfs.c12
-rw-r--r--unix/tclUnixFile.c5
-rw-r--r--win/tclWinConsole.c3
8 files changed, 46 insertions, 22 deletions
diff --git a/generic/tclClockFmt.c b/generic/tclClockFmt.c
index ea5f0a5..fead7fd 100644
--- a/generic/tclClockFmt.c
+++ b/generic/tclClockFmt.c
@@ -1241,9 +1241,13 @@ ObjListSearch(
/* currently unused */
static int
-LocaleListSearch(ClockFmtScnCmdArgs *opts,
- DateInfo *info, int mcKey, int *val,
- int minLen, int maxLen)
+LocaleListSearch(
+ ClockFmtScnCmdArgs *opts,
+ DateInfo *info,
+ int mcKey,
+ int *val,
+ int minLen,
+ int maxLen)
{
Tcl_Obj **lstv;
Tcl_Size lstc;
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index 428a3a6..ea989be 100644
--- a/generic/tclDictObj.c
+++ b/generic/tclDictObj.c
@@ -1058,7 +1058,8 @@ Tcl_DictObjRemove(
*/
Tcl_Size
-TclDictGetSize(Tcl_Obj *dictPtr)
+TclDictGetSize(
+ Tcl_Obj *dictPtr)
{
Dict *dict;
DictGetInternalRep(dictPtr, dict);
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index f48bf63..129ca51 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -4373,7 +4373,8 @@ TclEncodingProfileIdToName(
*------------------------------------------------------------------------
*/
void
-TclGetEncodingProfiles(Tcl_Interp *interp)
+TclGetEncodingProfiles(
+ Tcl_Interp *interp)
{
size_t i, n;
Tcl_Obj *objPtr;
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index a0d04e8..5d4bff3 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -7865,8 +7865,10 @@ FinalizeOONextFilter(
* Helper to calculate small powers of integers whose result is wide.
*/
static inline Tcl_WideInt
-WidePwrSmallExpon(Tcl_WideInt w1, long exponent) {
-
+WidePwrSmallExpon(
+ Tcl_WideInt w1,
+ long exponent)
+{
Tcl_WideInt wResult;
wResult = w1 * w1; /* b**2 */
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index 2ffaf87..683a0e7 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -266,7 +266,8 @@ ListSpanNew(
*------------------------------------------------------------------------
*/
static inline void
-ListSpanDecrRefs(ListSpan *spanPtr)
+ListSpanDecrRefs(
+ ListSpan *spanPtr)
{
if (spanPtr->refCount <= 1) {
Tcl_Free(spanPtr);
@@ -343,7 +344,8 @@ ListSpanMerited(
*------------------------------------------------------------------------
*/
static inline void
-ListRepFreeUnreferenced(const ListRep *repPtr)
+ListRepFreeUnreferenced(
+ const ListRep *repPtr)
{
if (! ListRepIsShared(repPtr) && repPtr->spanPtr) {
/* T:listrep-1.5.1 */
@@ -492,7 +494,8 @@ MemoryAllocationError(
*------------------------------------------------------------------------
*/
static int
-ListLimitExceededError(Tcl_Interp *interp)
+ListLimitExceededError(
+ Tcl_Interp *interp)
{
if (interp != NULL) {
Tcl_SetObjResult(
@@ -523,7 +526,9 @@ ListLimitExceededError(Tcl_Interp *interp)
*------------------------------------------------------------------------
*/
static inline void
-ListRepUnsharedShiftDown(ListRep *repPtr, Tcl_Size shiftCount)
+ListRepUnsharedShiftDown(
+ ListRep *repPtr,
+ Tcl_Size shiftCount)
{
ListStore *storePtr;
@@ -578,7 +583,9 @@ ListRepUnsharedShiftDown(ListRep *repPtr, Tcl_Size shiftCount)
*/
#if 0
static inline void
-ListRepUnsharedShiftUp(ListRep *repPtr, Tcl_Size shiftCount)
+ListRepUnsharedShiftUp(
+ ListRep *repPtr,
+ Tcl_Size shiftCount)
{
ListStore *storePtr;
@@ -624,7 +631,10 @@ ListRepUnsharedShiftUp(ListRep *repPtr, Tcl_Size shiftCount)
*------------------------------------------------------------------------
*/
static void
-ListRepValidate(const ListRep *repPtr, const char *file, int lineNum)
+ListRepValidate(
+ const ListRep *repPtr,
+ const char *file,
+ int lineNum)
{
ListStore *storePtr = repPtr->storePtr;
const char *condition;
@@ -689,7 +699,9 @@ failure:
*------------------------------------------------------------------------
*/
void
-TclListObjValidate(Tcl_Interp *interp, Tcl_Obj *listObj)
+TclListObjValidate(
+ Tcl_Interp *interp,
+ Tcl_Obj *listObj)
{
ListRep listRep;
if (TclListObjGetRep(interp, listObj, &listRep) != TCL_OK) {
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index b41126e..4fef38c 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -875,7 +875,7 @@ static char *
DecodeZipEntryText(
const unsigned char *inputBytes,
unsigned int inputLength,
- Tcl_DString *dstPtr) /* Must have been initialized by caller! */
+ Tcl_DString *dstPtr) /* Must have been initialized by caller! */
{
Tcl_Encoding encoding;
const char *src;
@@ -980,9 +980,10 @@ DecodeZipEntryText(
*------------------------------------------------------------------------
*/
static int
-NormalizeMountPoint(Tcl_Interp *interp,
- const char *mountPath,
- Tcl_DString *dsPtr) /* Must be initialized by caller! */
+NormalizeMountPoint(
+ Tcl_Interp *interp,
+ const char *mountPath,
+ Tcl_DString *dsPtr) /* Must be initialized by caller! */
{
const char *joiner[2];
char *joinedPath;
@@ -2230,7 +2231,8 @@ ListMountPoints(
*------------------------------------------------------------------------
*/
static void
-CleanupMount(ZipFile *zf) /* Mount point */
+CleanupMount(
+ ZipFile *zf) /* Mount point */
{
ZipEntry *z, *znext;
Tcl_HashEntry *hPtr;
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index 93f6aa8..e91ed41 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -13,8 +13,9 @@
#include "tclInt.h"
#include "tclFileSystem.h"
-static int NativeMatchType(Tcl_Interp *interp, const char* nativeEntry,
- const char* nativeName, Tcl_GlobTypeData *types);
+static int NativeMatchType(Tcl_Interp *interp,
+ const char* nativeEntry, const char* nativeName,
+ Tcl_GlobTypeData *types);
/*
*---------------------------------------------------------------------------
diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c
index d7be807..a498200 100644
--- a/win/tclWinConsole.c
+++ b/win/tclWinConsole.c
@@ -2067,7 +2067,8 @@ AllocateConsoleHandleInfo(
*------------------------------------------------------------------------
*/
static ConsoleHandleInfo *
-FindConsoleInfo(const ConsoleChannelInfo *chanInfoPtr)
+FindConsoleInfo(
+ const ConsoleChannelInfo *chanInfoPtr)
{
ConsoleHandleInfo *handleInfoPtr;
for (handleInfoPtr = gConsoleHandleInfoList; handleInfoPtr; handleInfoPtr = handleInfoPtr->nextPtr) {