fixed small bugs/unproper code

2005-03-04 09:43:18 +00:00
parent 0a30ff82c3
commit b6f7d27147
10 changed files with 44 additions and 135 deletions
--- a/macro.c
+++ b/macro.c
@@ -320,7 +320,9 @@ static int ProtectedExec(ClientData clientData, Tcl_Interp *interp,
      pUnknown->iStack = 0;
      pUnknown->pInter = pSics;
      pUnbekannt = pUnknown;
-      Tcl_CreateCommand(pInter,"unknown",SicsUnknownProc,
+      /* the cast before SicsUnknwonProc is to avoid a warning
+         Tcl_CmdProc has a const char instead of char as argument M.Z. */
+      Tcl_CreateCommand(pInter,"unknown",(Tcl_CmdProc *)SicsUnknownProc,
                        pUnknown, UnknownKill);

      /* delete dangers */