tclpkg/gdtclft: correct storage-class attribute declarations

Fixes these errors using autotools with MinGW:

gdtclft.c:1271:13: error: expected declaration specifiers or '...' before 'Gdtclft_Init'
 1271 | EXPORT(int, Gdtclft_Init) (interp)
      |             ^~~~~~~~~~~~
gdtclft.c:1297:13: error: expected declaration specifiers or '...' before 'Gdtclft_SafeInit'
 1297 | EXPORT(int, Gdtclft_SafeInit) (interp)
      |             ^~~~~~~~~~~~~~~~

Towards https://gitlab.com/graphviz/graphviz/-/issues/2058

diff --git a/tclpkg/gdtclft/gdtclft.c b/tclpkg/gdtclft/gdtclft.c
index 8937185453de143a2fb0437fcf77a30c77407406..f495fe6e481d4b50216efe4742c2c652c7434a6e 100644 (file)
--- a/tclpkg/gdtclft/gdtclft.c
+++ b/tclpkg/gdtclft/gdtclft.c
@@ -1268,7 +1268,7 @@ tclGdTextCmd(Tcl_Interp * interp, int argc, Tcl_Obj * CONST objv[])
 int Gdtclft_Init(Tcl_Interp * interp)
 #else
 #ifdef __WIN32__
-EXPORT(int, Gdtclft_Init) (interp)
+__declspec(dllexport) int Gdtclft_Init(Tcl_Interp *interp)
 #else
 int Gdtclft_Init(Tcl_Interp * interp)
 #endif
@@ -1294,7 +1294,7 @@ int Gdtclft_Init(Tcl_Interp * interp)
 int Gdtclft_SafeInit(Tcl_Interp * interp)
 #else
 #ifdef __WIN32__
-EXPORT(int, Gdtclft_SafeInit) (interp)
+__declspec(dllexport) int Gdtclft_SafeInit(Tcl_Interp *interp)
 #else
 int Gdtclft_SafeInit(Tcl_Interp * interp)
 #endif