* profile.swg (errcode_t* tcl8 argout typemap): Cast return value from

error_message to char* to silence Sun compiler warning.
(errcode_t tcl8 out typemap): Likewise.
* profile_tcl.c: Regenerated.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@17229 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/util/profile/ChangeLog b/src/util/profile/ChangeLog
index de8cb0e78485148ca747bf36c9e5fdd1fd7a6bcf..446b0ad2f25ba9356a67c01965c720ac3d35fd24 100644 (file)
--- a/src/util/profile/ChangeLog
+++ b/src/util/profile/ChangeLog
@@ -1,3 +1,10 @@
+2005-06-06  Ken Raeburn  <raeburn@mit.edu>
+
+       * profile.swg (errcode_t* tcl8 argout typemap): Cast return value
+       from error_message to char* to silence Sun compiler warning.
+       (errcode_t tcl8 out typemap): Likewise.
+       * profile_tcl.c: Regenerated.
+
 2005-03-25  Ken Raeburn  <raeburn@mit.edu>
 
        * configure.in: Don't check for getpwuid_r here.

diff --git a/src/util/profile/profile.swg b/src/util/profile/profile.swg
index 7398e14a0025b6612447844ab0f4e3ccc7cc94b3..2e75bb4c6dc5519a9fe9a93157d5d9539831507d 100644 (file)
--- a/src/util/profile/profile.swg
+++ b/src/util/profile/profile.swg
@@ -73,7 +73,7 @@ typedef void **iter_t; /* ick */
     if (*$1) {
        /* There could be a memory leak here in the SWIG-Tcl layer,
           I'm not sure.  Not going to worry about it though.  */
-       Tcl_SetResult(interp, error_message(*$1), TCL_STATIC);
+       Tcl_SetResult(interp, (char *) error_message(*$1), TCL_STATIC);
        SWIG_fail;
     }
 }
@@ -83,7 +83,7 @@ typedef void **iter_t; /* ick */
     if ($1) {
        /* There could be a memory leak here in the SWIG-Tcl layer,
           I'm not sure.  Not going to worry about it though.  */
-       Tcl_SetResult(interp, error_message($1), TCL_STATIC);
+       Tcl_SetResult(interp, (char *) error_message($1), TCL_STATIC);
        SWIG_fail;
     }
 }

diff --git a/src/util/profile/profile_tcl.c b/src/util/profile/profile_tcl.c
index 9b75e74b4d3407d092f0ff63379eb438596c8e24..31a82f1b41a9b5c685ac68d280c1e57bd09e1fb7 100644 (file)
--- a/src/util/profile/profile_tcl.c
+++ b/src/util/profile/profile_tcl.c
@@ -1243,7 +1243,7 @@ _wrap_profile_init_path(ClientData clientData, Tcl_Interp *interp, int objc, Tcl
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1279,7 +1279,7 @@ _wrap_profile_init(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1316,7 +1316,7 @@ _wrap_profile_flush(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1341,7 +1341,7 @@ _wrap_profile_flush_to_file(ClientData clientData, Tcl_Interp *interp, int objc,
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1408,7 +1408,7 @@ _wrap_profile_get_values(ClientData clientData, Tcl_Interp *interp, int objc, Tc
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1469,7 +1469,7 @@ _wrap_profile_get_string(ClientData clientData, Tcl_Interp *interp, int objc, Tc
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1517,7 +1517,7 @@ _wrap_profile_get_integer(ClientData clientData, Tcl_Interp *interp, int objc, T
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1553,7 +1553,7 @@ _wrap_profile_get_boolean(ClientData clientData, Tcl_Interp *interp, int objc, T
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1595,7 +1595,7 @@ _wrap_profile_get_relation_names(ClientData clientData, Tcl_Interp *interp, int
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1658,7 +1658,7 @@ _wrap_profile_get_subsection_names(ClientData clientData, Tcl_Interp *interp, in
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1720,7 +1720,7 @@ _wrap_profile_iterator_create(ClientData clientData, Tcl_Interp *interp, int obj
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1757,7 +1757,7 @@ _wrap_profile_iterator_free(ClientData clientData, Tcl_Interp *interp, int objc,
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1795,7 +1795,7 @@ _wrap_profile_iterator(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1861,7 +1861,7 @@ _wrap_profile_update_relation(ClientData clientData, Tcl_Interp *interp, int obj
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1903,7 +1903,7 @@ _wrap_profile_clear_relation(ClientData clientData, Tcl_Interp *interp, int objc
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1946,7 +1946,7 @@ _wrap_profile_rename_section(ClientData clientData, Tcl_Interp *interp, int objc
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -1989,7 +1989,7 @@ _wrap_profile_add_relation(ClientData clientData, Tcl_Interp *interp, int objc,
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }
@@ -2032,7 +2032,7 @@ _wrap_profile_flush_to_buffer(ClientData clientData, Tcl_Interp *interp, int obj
         if (result) {
             /* There could be a memory leak here in the SWIG-Tcl layer,
                   I'm not sure.  Not going to worry about it though.  */
-            Tcl_SetResult(interp, error_message(result), TCL_STATIC);
+            Tcl_SetResult(interp, (char *) error_message(result), TCL_STATIC);
             SWIG_fail;
         }
     }