[Stratagus-CVS] stratagus/src/network commands.c

[ludovic p]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     ludovic p <address@hidden>      03/10/27 05:31:15

Modified files:
        src/network    : commands.c 

Log message:
        Fix unsigned int for guile

Patches:
Index: stratagus/src/network/commands.c
diff -u stratagus/src/network/commands.c:1.70 
stratagus/src/network/commands.c:1.71
--- stratagus/src/network/commands.c:1.70       Thu Oct 23 21:58:34 2003
+++ stratagus/src/network/commands.c    Mon Oct 27 05:31:15 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: commands.c,v 1.70 2003/10/24 01:58:34 n0body Exp $
+//     $Id: commands.c,v 1.71 2003/10/27 10:31:15 pludov Exp $
 
 //@{
 
@@ -143,7 +143,7 @@
        fprintf(LogFile, "(replay-log\n");
        fprintf(LogFile, "  'comment\t\"Generated by Stratagus Version " 
VERSION "\"\n");
        fprintf(LogFile, "  'comment\t\"Visit http://Stratagus.Org for more 
information\"\n");
-       fprintf(LogFile, "  'comment\t\"$Id: commands.c,v 1.70 2003/10/24 
01:58:34 n0body Exp $\"\n");
+       fprintf(LogFile, "  'comment\t\"$Id: commands.c,v 1.71 2003/10/27 
10:31:15 pludov Exp $\"\n");
        if (NetworkFildes == (Socket)-1) {
            fprintf(LogFile, "  'type\t\"%s\"\n", "single-player");
            fprintf(LogFile, "  'race\t%d\n", GameSettings.Presets[0].Race);
@@ -159,7 +159,8 @@
        }
        fprintf(LogFile, "  'date\t\"%s\"\n", s);
        fprintf(LogFile, "  'map\t\"%s\"\n", TheMap.Description);
-       fprintf(LogFile, "  'map-id\t%u\n", TheMap.Info->MapUID);
+       // FIXME : does this work on 64bit arch ?
+       fprintf(LogFile, "  'map-id\t%d\n", (signed int)TheMap.Info->MapUID);
        fprintf(LogFile, "  'map-path\t\"%s\"\n", CurrentMapPath);
        fprintf(LogFile, "  'resources\t%d\n", GameSettings.Resources);
        fprintf(LogFile, "  'num-units\t%d\n", GameSettings.NumUnits);
@@ -291,7 +292,8 @@
            map = get_c_string(gh_car(list));
            list = gh_cdr(list);
        } else if (gh_eq_p(value, gh_symbol2scm("map-id"))) {
-           mapid = gh_scm2int(gh_car(list));
+           // FIXME : does this works on 64bits archs
+           mapid = (unsigned int)gh_scm2int(gh_car(list));
            list = gh_cdr(list);
        } else if (gh_eq_p(value, gh_symbol2scm("map-path"))) {
            mappath = get_c_string(gh_car(list));