Changeset 12808

Timestamp:

Sep 10, 2009, 10:34:23 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

Windows portability fixes.

File:

• trunk/source/lisp-kernel/x86-exceptions.c (modified) (2 diffs)

trunk/source/lisp-kernel/x86-exceptions.c

@@ -3640 +3640 @@
 
   if (nbytes) {
-    int err = munmap(base, nbytes);
-    if (err < 0)
-      Fatal("munmap in delete_watched_area: ", strerror(errno));
+    int err;
+
+/* can't use UnMapMemory() beacuse it only uses MEM_DECOMMIT */
+#ifdef WINDOWS
+    err = VirtualFree(base, nbytes, MEM_RELEASE);
+#else
+    err = munmap(base, nbytes);
+#endif
+    if (err != 0)
+      Fatal("munmap in delete_watched_area", "");
   }
 }
@@ -3715 +3722 @@
 
     /* move object to watched area */
-    bcopy(noderef, a->low, size);
+    memcpy(a->low, noderef, size);
     ProtectMemory(a->low, size);
-    bzero(noderef, size);
+    memset(noderef, 0, size);
     wp_update_references(tcr, old, new);
     check_all_areas(tcr);