Mirrors/zint
1
0
Fork 0
mirror of https://git.code.sf.net/p/zint/code synced 2025-12-17 18:07:02 +00:00
Code Issues Projects Releases Wiki Activity

Make compile with MS-VC6

Browse Source
This commit is contained in:
Harald Oehlmann
2017-10-16 19:26:54 +02:00
parent bfb183e5df
commit f83e5b1501
22 changed files with 98 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
backend_tcl/zint.c
View File

@@ -347,26 +347,26 @@ EXPORT int Zint_Init (Tcl_Interp *interp)
{
/*------------------------------------------------------------------------*/
#ifdef USE_TCL_STUBS
if (Tcl_InitStubs(Interp, "8.1", 0) == NULL)
if (Tcl_InitStubs(interp, "8.1", 0) == NULL)
#else
if (Tcl_PkgRequire(Interp, "Tcl", "8.1", 0) == NULL)
if (Tcl_PkgRequire(interp, "Tcl", "8.1", 0) == NULL)
#endif
{
return TCL_ERROR;
}
/*------------------------------------------------------------------------*/
#ifdef USE_TK_STUBS
if (Tk_InitStubs(Interp, "8.1", 0) == NULL)
if (Tk_InitStubs(interp, "8.1", 0) == NULL)
#else
if (Tcl_PkgRequire(Interp, "Tk", "8.1", 0) == NULL)
if (Tcl_PkgRequire(interp, "Tk", "8.1", 0) == NULL)
#endif
{
return TCL_ERROR;
}
/*------------------------------------------------------------------------*/
Tcl_CreateObjCommand(Interp, "zint", Zint, (ClientData)NULL,
Tcl_CreateObjCommand(interp, "zint", Zint, (ClientData)NULL,
(Tcl_CmdDeleteProc *)NULL);
Tcl_PkgProvide (Interp, "zint", version_string);
Tcl_PkgProvide (interp, "zint", version_string);
/*------------------------------------------------------------------------*/
return TCL_OK;
}