comparison src/alloc.c @ 83414:14a4eb789b45

Merged from [e-mail]--gnu-2005 (patch 169-173, 671-676) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-671 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-672 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-673 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-674 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-675 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-676 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-169 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-170 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-171 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-172 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-173 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-454

83413:e26e2265dcc6

/* 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.
*/

int
valid_lisp_object_p (obj)
     Lisp_Object obj;
{

  /* 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

83414:14a4eb789b45

/* 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.
   This function can be quite slow,
   so it should only be used in code for manual debugging.  */

int
valid_lisp_object_p (obj)
     Lisp_Object obj;
{

  /* 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