From 98abe0efe45031abf9fe941adeaa5c96dc6be22d Mon Sep 17 00:00:00 2001 From: John Ellson Date: Mon, 21 Oct 2013 15:06:59 -0400 Subject: [PATCH] fix breakage --- tclpkg/tcldot/tcldot.c | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c index 50c8efc8e..a9173dc75 100644 --- a/tclpkg/tcldot/tcldot.c +++ b/tclpkg/tcldot/tcldot.c @@ -206,12 +206,21 @@ int Tcldot_Init(Tcl_Interp * interp) /* configure for available plugins */ gvconfig(gvc, FALSE); - Tcl_CreateObjCommand(interp, "dotnew", dotnew, - (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); - Tcl_CreateObjCommand(interp, "dotread", dotread, - (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); - Tcl_CreateObjCommand(interp, "dotstring", dotstring, - (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); +#ifndef TCLOBJ + Tcl_CreateCommand(interp, "dotnew", dotnew, + (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); + Tcl_CreateCommand(interp, "dotread", dotread, + (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); + Tcl_CreateCommand(interp, "dotstring", dotstring, + (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); +#else /* TCLOBJ */ + Tcl_CreateObjCommand(interp, "dotnew", dotnew, + (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); + Tcl_CreateObjCommand(interp, "dotread", dotread, + (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); + Tcl_CreateObjCommand(interp, "dotstring", dotstring, + (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL); +#endif /* TCLOBJ */ return TCL_OK; } -- 2.40.0