From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Apr 2003 19:49:26 +0000 (+0000)
Subject: Fix bug: calls to OS_realloc were passing incorrect length argument.
X-Git-Tag: 20090517-FFI~1934
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a9d0c89f4fd8bd5e191c229f05d6ff1a153c600b;p=mit-scheme.git

Fix bug: calls to OS_realloc were passing incorrect length argument.
Also: reduce amount of space used in select registry.
---

diff --git a/v7/src/microcode/ntio.c b/v7/src/microcode/ntio.c
index feda33790..fa48dc627 100644
--- a/v7/src/microcode/ntio.c
+++ b/v7/src/microcode/ntio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntio.c,v 1.28 2003/03/29 05:35:49 cph Exp $
+$Id: ntio.c,v 1.29 2003/04/07 19:49:26 cph Exp $
 
 Copyright 1993,1997,1998,2000,2001,2003 Massachusetts Institute of Technology
 
@@ -694,8 +694,8 @@ struct select_registry_s
   unsigned int n_channels;
   unsigned int length;
   Tchannel * channels;
-  unsigned int * qmodes;
-  unsigned int * rmodes;
+  unsigned char * qmodes;
+  unsigned char * rmodes;
 };
 
 select_registry_t
@@ -706,8 +706,8 @@ OS_allocate_select_registry (void)
   (r -> n_channels) = 0;
   (r -> length) = 16;
   (r -> channels) = (OS_malloc ((sizeof (Tchannel)) * (r -> length)));
-  (r -> qmodes) = (OS_malloc ((sizeof (unsigned int)) * (r -> length)));
-  (r -> rmodes) = (OS_malloc ((sizeof (unsigned int)) * (r -> length)));
+  (r -> qmodes) = (OS_malloc ((sizeof (unsigned char)) * (r -> length)));
+  (r -> rmodes) = (OS_malloc ((sizeof (unsigned char)) * (r -> length)));
   return (r);
 }
 
@@ -721,6 +721,24 @@ OS_deallocate_select_registry (select_registry_t registry)
   OS_free (r);
 }
 
+static void
+resize_select_registry (select_registry_s * r, int growp)
+{
+  if (growp)
+    (r -> length) *= 2;
+  else
+    (r -> length) /= 2;
+  (r -> channels)
+    = (OS_realloc ((r -> channels),
+		   ((sizeof (Tchannel)) * (r -> length))));
+  (r -> qmodes)
+    = (OS_realloc ((r -> qmodes),
+		   ((sizeof (unsigned char)) * (r -> length))));
+  (r -> rmodes)
+    = (OS_realloc ((r -> rmodes),
+		   ((sizeof (unsigned char)) * (r -> length))));
+}
+
 void
 OS_add_to_select_registry (select_registry_t registry, int fd,
 			   unsigned int mode)
@@ -739,12 +757,7 @@ OS_add_to_select_registry (select_registry_t registry, int fd,
       i += 1;
     }
   if (i == (r -> length))
-    {
-      (r -> length) *= 2;
-      (r -> channels) = (OS_realloc ((r -> channels), (r -> length)));
-      (r -> qmodes) = (OS_realloc ((r -> qmodes), (r -> length)));
-      (r -> rmodes) = (OS_realloc ((r -> rmodes), (r -> length)));
-    }
+    resize_select_registry (r, 1);
   ((r -> channels) [i]) = channel;
   ((r -> qmodes) [i]) = mode;
   (r -> n_channels) += 1;
@@ -781,12 +794,7 @@ OS_remove_from_select_registry (select_registry_t registry, int fd,
   (r -> n_channels) -= 1;
 
   if (((r -> length) > 16) && ((r -> n_channels) < ((r -> length) / 2)))
-    {
-      (r -> length) /= 2;
-      (r -> channels) = (OS_realloc ((r -> channels), (r -> length)));
-      (r -> qmodes) = (OS_realloc ((r -> qmodes), (r -> length)));
-      (r -> rmodes) = (OS_realloc ((r -> rmodes), (r -> length)));
-    }
+    resize_select_registry (r, 0);
 }
 
 unsigned int