From: Magnus Jacobsson Date: Wed, 29 Sep 2021 19:18:33 +0000 (+0200) Subject: tclpkg/gdtclft: correct storage-class attribute declarations X-Git-Tag: 3.0.0~144^2~19 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=9ba63aeabed99906c0a95bd1c9b5abbcab8fcdfb;p=graphviz 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 893718545..f495fe6e4 100644 --- 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