Author: Daniel Rus Morales <danirus@tol-project.org>
Description: Fix several warning messages
--- a/database.cxx
+++ b/database.cxx
@@ -79,9 +79,9 @@
 }
 
 TclDatabase::TclDatabase(TclObj db, TclObj uid, TclObj passwd) 
-    : TclCmdObject(), dbc (SQL_NULL_HDBC), encoding(NULL), infoExtensions(0),
-      useMultipleResultSets(false) {
-
+  : TclCmdObject(), useMultipleResultSets(false), dbc(SQL_NULL_HDBC), 
+    encoding(NULL), infoExtensions(0) 
+{
     RETCODE rc;
     SWORD dummy;
 
@@ -112,8 +112,9 @@
 }
 
 TclDatabase::TclDatabase(TclObj connectionstring) 
-    : TclCmdObject(), dbc (SQL_NULL_HDBC), encoding(NULL), infoExtensions(0),
-      useMultipleResultSets(false) {
+  : TclCmdObject(), useMultipleResultSets(false), dbc(SQL_NULL_HDBC), 
+    encoding(NULL), infoExtensions(0)
+{
 #ifdef INCLUDE_EXTENSIONS
     RETCODE rc;
     unsigned char szConnStrOut[256];
@@ -215,7 +216,7 @@
                 THROWSTR(strWrongArgs);
 	    }
             Tcl_DeleteCommandFromToken(interp, tclCommand);
-            Tcl_SetResult(interp, strOK, TCL_STATIC);
+            Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
             break;
 
         case TABLES:
@@ -261,7 +262,7 @@
                 THROWSTR(strWrongArgs);
 	    }
             Transact(SQL_COMMIT);
-            Tcl_SetResult(interp, strOK, TCL_STATIC);
+            Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
             break;
 
         case ROLLBACK:
@@ -269,7 +270,7 @@
                 THROWSTR(strWrongArgs);
 	    }
             Transact(SQL_ROLLBACK);
-            Tcl_SetResult(interp, strOK, TCL_STATIC);
+            Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
             break;
 
         case SET:
@@ -279,7 +280,7 @@
             SetOption(interp,
                       Tcl_GetStringFromObj(objv[2], NULL), 
 			          Tcl_GetString(objv[3]));
-            Tcl_SetResult(interp, strOK, TCL_STATIC);
+            Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
             break;
 
         case GET:
@@ -304,7 +305,7 @@
                 } 
 
                 stmt.Eval(interp, proc, objc-4, objv+4);
-                Tcl_SetResult(interp, strOK, TCL_STATIC);
+                Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
             }
             break;
 
@@ -323,7 +324,7 @@
                 } 
 
                 stmt.Read(interp, arraySpec, objc-4, objv+4);
-                Tcl_SetResult(interp, strOK, TCL_STATIC);
+                Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
             }
             break;
 
@@ -581,7 +582,7 @@
     attributes.Encode(NULL);
 
     if (SQLConfigDataSource(NULL, operation, driver, attributes.EncodedValue())) {
-        Tcl_SetResult(interp, strOK, TCL_STATIC);
+        Tcl_SetResult(interp, (char*) strOK, TCL_STATIC);
         return TCL_OK;
     } else {
         THROWSTR("datasource configuration failed");