comparison src/alloc.c @ 72288:94e8cc9b752d

Include w32.h. (valid_lisp_object_p) [WINDOWSNT]: Call w32_valid_pointer_p to do the job.

72287:875a47d81ba5

#define O_WRONLY 1
#endif

#ifdef WINDOWSNT
#include <fcntl.h>
#endif

#ifdef DOUG_LEA_MALLOC

#include <malloc.h>

/* Determine whether it is safe to access memory at address P.  */
int
valid_pointer_p (p)
     void *p;
{
  int fd;

  /* Obviously, we cannot just access it (we would SEGV trying), so we
     trick the o/s to tell us whether p is a valid pointer.
     Unfortunately, we cannot use NULL_DEVICE here, as emacs_write may

      unlink ("__Valid__Lisp__Object__");
      return valid;
    }

    return -1;
}

/* Return 1 if OBJ is a valid lisp object.
   Return 0 if OBJ is NOT a valid lisp object.
   Return -1 if we cannot validate OBJ.

72288:94e8cc9b752d

#define O_WRONLY 1
#endif

#ifdef WINDOWSNT
#include <fcntl.h>
#include "w32.h"
#endif

#ifdef DOUG_LEA_MALLOC

#include <malloc.h>

/* Determine whether it is safe to access memory at address P.  */
int
valid_pointer_p (p)
     void *p;
{
#ifdef WINDOWSNT
  return w32_valid_pointer_p (p, 16);
#else
  int fd;

  /* Obviously, we cannot just access it (we would SEGV trying), so we
     trick the o/s to tell us whether p is a valid pointer.
     Unfortunately, we cannot use NULL_DEVICE here, as emacs_write may

      unlink ("__Valid__Lisp__Object__");
      return valid;
    }

    return -1;
#endif
}

/* Return 1 if OBJ is a valid lisp object.
   Return 0 if OBJ is NOT a valid lisp object.
   Return -1 if we cannot validate OBJ.