From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 24 Aug 1993 04:51:20 +0000 (+0000)
Subject: Insert additional call to VirtualFree, using MEM_RELEASE, to make Win
X-Git-Tag: 20090517-FFI~8000
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=70ba737bb6a4b5dd31d65e8d19bff2e4d18bee12;p=mit-scheme.git

Insert additional call to VirtualFree, using MEM_RELEASE, to make Win
3.1 happy.
---

diff --git a/v7/src/microcode/ntutl/scheme31.c b/v7/src/microcode/ntutl/scheme31.c
index dfefe7082..882abb523 100644
--- a/v7/src/microcode/ntutl/scheme31.c
+++ b/v7/src/microcode/ntutl/scheme31.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: scheme31.c,v 1.2 1993/08/21 03:56:46 gjr Exp $
+$Id: scheme31.c,v 1.3 1993/08/24 04:51:20 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -130,6 +130,9 @@ win32_release_heap (char * area, unsigned long handle)
   VirtualFree (((LPVOID) area),
 	       ((DWORD) handle),
 	       ((DWORD) MEM_DECOMMIT));
+  VirtualFree (((LPVOID) area),
+	       ((DWORD) 0),
+	       ((DWORD) MEM_RELEASE));
   return;
 }