Eliminate win32 compiler warnings.

diff --git a/v7/src/microcode/bignum.c b/v7/src/microcode/bignum.c
index dba1f6185de5bcd44a4e912cae45fbf968642a77..016b2a8289545442f7fab11a9a7561e9e5bc9b3e 100644 (file)
--- a/v7/src/microcode/bignum.c
+++ b/v7/src/microcode/bignum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bignum.c,v 9.53 2006/09/16 11:19:09 gjr Exp $
+$Id: bignum.c,v 9.54 2006/11/25 05:07:41 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1996,1997,2000 Massachusetts Institute of Technology
@@ -591,7 +591,7 @@ DEFUN (double_to_bignum, (x), double x)
     }
     while (start < scan)
       {
-       if ((significand == 0)  || (n_valid_bits <= 0))
+       if ((significand == 0)  || (n_valid_bits == 0))
          {
            while (start < scan)
              (*--scan) = 0;

diff --git a/v7/src/microcode/ntfs.c b/v7/src/microcode/ntfs.c
index 3d9f6693db602013eb2cef66b5dbbb4f87dc8e20..8127ccb6b8b1b11837c768ed97e833ce38f24218 100644 (file)
--- a/v7/src/microcode/ntfs.c
+++ b/v7/src/microcode/ntfs.c
@@ -1,8 +1,9 @@
 /* -*-C-*-
 
-$Id: ntfs.c,v 1.30 2003/02/14 18:28:20 cph Exp $
+$Id: ntfs.c,v 1.31 2006/11/25 05:07:47 cph Exp $
 
-Copyright (c) 1992-2001 Massachusetts Institute of Technology
+Copyright 1993,1994,1995,1996,1997,1998 Massachusetts Institute of Technology
+Copyright 1999,2000,2001,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -362,7 +363,7 @@ OS_file_touch (const char * filename)
     struct stat file_status;
     STD_VOID_UNIX_CALL (fstat, (fd, (&file_status)));
     if (((file_status . st_mode) & S_IFMT) != S_IFREG)
-      error_bad_range_arg (1);
+      return (-1);
     /* CASE 3: file length of 0 needs special treatment. */
     if ((file_status . st_size) == 0)
      {

diff --git a/v7/src/microcode/ntio.c b/v7/src/microcode/ntio.c
index d630788ff5a54319d1f61dd3ba63a2d4441b6a8b..4e041452563798b6d3e34f3863fcc4c0c5e9a3e2 100644 (file)
--- a/v7/src/microcode/ntio.c
+++ b/v7/src/microcode/ntio.c
@@ -1,8 +1,9 @@
 /* -*-C-*-
 
-$Id: ntio.c,v 1.31 2003/09/26 13:34:10 cph Exp $
+$Id: ntio.c,v 1.32 2006/11/25 05:07:53 cph Exp $
 
 Copyright 1993,1997,1998,2000,2001,2003 Massachusetts Institute of Technology
+Copyright 2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -30,6 +31,8 @@ USA.
 #include "ntgui.h"
 #include "osterm.h"
 #include "osfile.h"
+#include "osproc.h"
+#include "ostty.h"
 #include "outf.h"
 #include "ossig.h"
 #include "intrpt.h"

diff --git a/v7/src/microcode/prosfs.c b/v7/src/microcode/prosfs.c
index e3ccebc1b83f3126f27d860c739ae3de29a977f1..f2743524322a65afdc50678f6b58cc8c51ca071a 100644 (file)
--- a/v7/src/microcode/prosfs.c
+++ b/v7/src/microcode/prosfs.c
@@ -1,8 +1,9 @@
 /* -*-C-*-
 
-$Id: prosfs.c,v 1.18 2003/02/14 18:28:23 cph Exp $
+$Id: prosfs.c,v 1.19 2006/11/25 05:07:58 cph Exp $
 
-Copyright (c) 1987-2001 Massachusetts Institute of Technology
+Copyright 1990,1991,1992,1995,1999,2000 Massachusetts Institute of Technology
+Copyright 2001,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -269,8 +270,12 @@ Return #F if the file existed and its time was modified.\n\
 Otherwise the file did not exist and it was created.")
 {
   PRIMITIVE_HEADER (1);
-  PRIMITIVE_RETURN
-    (BOOLEAN_TO_OBJECT (OS_file_touch ((CONST char *) (STRING_ARG (1)))));
+  {
+    int rc = (OS_file_touch ((CONST char *) (STRING_ARG (1))));
+    if (rc < 0)
+      error_bad_range_arg (1);
+    PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (rc));
+  }
 }
 \f
 DEFINE_PRIMITIVE ("NEW-DIRECTORY-OPEN", Prim_new_directory_open, 1, 1,

diff --git a/v7/src/microcode/uxfs.c b/v7/src/microcode/uxfs.c
index 5882940856d9c04547797e569e298463a0b5413a..5ee00ce49f1dd6f1fcd1569bb03b5ce9b9d3c929 100644 (file)
--- a/v7/src/microcode/uxfs.c
+++ b/v7/src/microcode/uxfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxfs.c,v 1.26 2006/11/22 18:13:49 cph Exp $
+$Id: uxfs.c,v 1.27 2006/11/25 05:08:04 cph Exp $
 
 Copyright 1990,1991,1992,1995,1996,1997 Massachusetts Institute of Technology
 Copyright 1998,1999,2000,2001,2002,2006 Massachusetts Institute of Technology
@@ -480,7 +480,7 @@ DEFUN (OS_file_touch, (filename), CONST char * filename)
     struct stat file_status;
     STD_VOID_SYSTEM_CALL (syscall_fstat, (UX_fstat (fd, (&file_status))));
     if (((file_status . st_mode) & S_IFMT) != S_IFREG)
-      error_system_call (errno, syscall_open);
+      return (-1);
     /* CASE 3: file length of 0 needs special treatment. */
     if ((file_status . st_size) == 0)
       {