comparison src/alloc.c @ 83405:1955a4462bf9

Merged from [e-mail]--gnu-2005 (patch 659-663) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-659 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-660 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-661 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-662 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-663 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-445

83404:69e184bbba16

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#else
extern POINTER_TYPE *sbrk ();
#endif

#ifdef DOUG_LEA_MALLOC

#include <malloc.h>

int
valid_lisp_object_p (obj)
     Lisp_Object obj;
{
#if !GC_MARK_STACK
  /* Cannot determine this.  */
  return -1;
#else
  void *p;
  struct mem_node *m;

  if (INTEGERP (obj))
    return 1;

  p = (void *) XPNTR (obj);

  if (PURE_POINTER_P (p))
    return 1;

  m = mem_find (p);

  if (m == MEM_NIL)
    return 0;

83405:1955a4462bf9

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#else
extern POINTER_TYPE *sbrk ();
#endif

#ifdef HAVE_FCNTL_H
#define INCLUDED_FCNTL
#include <fcntl.h>
#endif
#ifndef O_WRONLY
#define O_WRONLY 1
#endif

#ifdef DOUG_LEA_MALLOC

#include <malloc.h>

int
valid_lisp_object_p (obj)
     Lisp_Object obj;
{
  void *p;
#if !GC_MARK_STACK
  int fd;
#else
  struct mem_node *m;
#endif

  if (INTEGERP (obj))
    return 1;

  p = (void *) XPNTR (obj);
  if (PURE_POINTER_P (p))
    return 1;

#if !GC_MARK_STACK
  /* We need to determine whether it is safe to access memory at
     address P.  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 not validate p in that case.  */
  if ((fd = emacs_open("__Valid__Lisp__Object__", O_CREAT | O_WRONLY | O_TRUNC, 0666)) >= 0)
    {
      int valid = emacs_write(fd, (char *)p, 16) == 16;
      emacs_close(fd);
      unlink("__Valid__Lisp__Object__");
      return valid;
    }

    return -1;
#else

  m = mem_find (p);

  if (m == MEM_NIL)
    return 0;