Changeset 12808


Ignore:
Timestamp:
Sep 10, 2009, 5:34:23 PM (10 years ago)
Author:
rme
Message:

Windows portability fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-exceptions.c

    r12807 r12808  
    36403640
    36413641  if (nbytes) {
    3642     int err = munmap(base, nbytes);
    3643     if (err < 0)
    3644       Fatal("munmap in delete_watched_area: ", strerror(errno));
     3642    int err;
     3643
     3644/* can't use UnMapMemory() beacuse it only uses MEM_DECOMMIT */
     3645#ifdef WINDOWS
     3646    err = VirtualFree(base, nbytes, MEM_RELEASE);
     3647#else
     3648    err = munmap(base, nbytes);
     3649#endif
     3650    if (err != 0)
     3651      Fatal("munmap in delete_watched_area", "");
    36453652  }
    36463653}
     
    37153722
    37163723    /* move object to watched area */
    3717     bcopy(noderef, a->low, size);
     3724    memcpy(a->low, noderef, size);
    37183725    ProtectMemory(a->low, size);
    3719     bzero(noderef, size);
     3726    memset(noderef, 0, size);
    37203727    wp_update_references(tcr, old, new);
    37213728    check_all_areas(tcr);
Note: See TracChangeset for help on using the changeset viewer.