From 4c98a27cc0c4f249ad791e52f9472907f111e8d8 Mon Sep 17 00:00:00 2001
From: Matthew Fernandez <matthew.fernandez@gmail.com>
Date: Thu, 5 May 2022 17:21:52 -0700
Subject: [PATCH] tclpkg: mark 'gdCmd' static

This function is not used outside of its containing file.
---
 tclpkg/gdtclft/gdtclft.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/tclpkg/gdtclft/gdtclft.c b/tclpkg/gdtclft/gdtclft.c
index 87cbb71d9..36cfa1623 100644
--- a/tclpkg/gdtclft/gdtclft.c
+++ b/tclpkg/gdtclft/gdtclft.c
@@ -339,10 +339,8 @@ static int tclGd_GetColor(Tcl_Interp * interp, Tcl_Obj * obj, int *color)
  * 		in copying from srcw x srch to destw x desth.
  * 
  */
-int
-gdCmd(ClientData clientData, Tcl_Interp * interp,
-      int argc, Tcl_Obj * CONST objv[])
-{
+static int gdCmd(ClientData clientData, Tcl_Interp *interp, int argc,
+                 Tcl_Obj *CONST objv[]) {
     unsigned int argi;
     size_t subi;
     /* Check for subcommand. */
-- 
2.40.0