Revision: 37541
          http://brlcad.svn.sourceforge.net/brlcad/?rev=37541&view=rev
Author:   bob1961
Date:     2010-02-04 00:20:29 +0000 (Thu, 04 Feb 2010)

Log Message:
-----------
Quell a few warnings when compiling for 64-bit Windows.

Modified Paths:
--------------
    brlcad/trunk/src/libtclcad/ged_obj.c
    brlcad/trunk/src/libtclcad/tclcadAutoPath.c

Modified: brlcad/trunk/src/libtclcad/ged_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/ged_obj.c        2010-02-04 00:11:54 UTC (rev 
37540)
+++ brlcad/trunk/src/libtclcad/ged_obj.c        2010-02-04 00:20:29 UTC (rev 
37541)
@@ -2250,7 +2250,6 @@
        }
 
        if (argc == 4) {
-           int ret;
            int ac;
            const char **av;
 
@@ -2499,7 +2498,6 @@
        }
 
        if (argc == 4) {
-           int ret;
            int ac;
            const char **av;
 
@@ -2662,7 +2660,6 @@
        }
 
        if (argc == 4) {
-           int ret;
            int ac;
            const char **av;
 
@@ -2894,7 +2891,6 @@
        }
 
        if (argc == 4) {
-           int ret;
            int ac;
            const char **av;
 
@@ -2963,7 +2959,6 @@
             const char *usage,
             int maxargs)
 {
-    register int i;
     int mx, my;
     int dindex;
     fastf_t cx, cy;

Modified: brlcad/trunk/src/libtclcad/tclcadAutoPath.c
===================================================================
--- brlcad/trunk/src/libtclcad/tclcadAutoPath.c 2010-02-04 00:11:54 UTC (rev 
37540)
+++ brlcad/trunk/src/libtclcad/tclcadAutoPath.c 2010-02-04 00:20:29 UTC (rev 
37541)
@@ -56,7 +56,9 @@
 #define MAX_BUF 2048
 
 /* FIXME: we utilize this Tcl internal in here */
+#if !defined(_WIN32) || defined(__CYGWIN__)
 extern Tcl_Obj *TclGetLibraryPath (void);
+#endif
 
 
 /* helper routine to determine whether the full 'path' includes a
@@ -220,13 +222,13 @@
        char *cp;
 
        if (root != (char *)0) {
-           for (cp = root; *cp != '\0'; ++cp)
+           for (cp = (char *)root; *cp != '\0'; ++cp)
                if (*cp == '\\') 
                    *cp = '/';
        }
 
        if (data != (char *)0) {
-           for (cp = data; *cp != '\0'; ++cp)
+           for (cp = (char *)data; *cp != '\0'; ++cp)
                if (*cp == '\\') 
                    *cp = '/';
        }


This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.

------------------------------------------------------------------------------
The Planet: dedicated and managed hosting, cloud storage, colocation
Stay online with enterprise data centers and the best network in the business
Choose flexible plans and management services without long-term contracts
Personal 24x7 support from experience hosting pros just a phone call away.
http://p.sf.net/sfu/theplanet-com
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to