Mercurial > hg > xemacs-beta
view src/sysproc.h @ 2775:05d62157e048
[xemacs-hg @ 2005-05-15 16:37:52 by crestani]
New allocator improvements
lisp/ChangeLog addition:
2005-05-15 Marcus Crestani <crestani@xemacs.org>
* diagnose.el: Lrecord and string data statistics.
* diagnose.el (show-memory-usage): Add output for additional
lrecord statistics (currently only string data).
* diagnose.el (show-lrecord-stats): New. Print detailed lrecord
statistics.
src/ChangeLog addition:
2005-05-15 Marcus Crestani <crestani@xemacs.org>
* alloc.c: Add string data statistics.
* alloc.c (dec_lrecord_stats): Use size of lrecord for statistics
and cons counter bookkeeping.
* alloc.c (finalize_string): Add string data statistics.
* alloc.c (make_uninit_string): Add string data statistics.
* alloc.c (make_string_nocopy): Add string data statistics.
* alloc.c (kkcc_marking): Move break out of #ifdef.
* alloc.c (Flrecord_stats): New. Collect lrecord statistics.
* alloc.c (Fgarbage_collect): Use Flrecord_stats.
* alloc.c (syms_of_alloc): Add Flrecord_stats.
* dumper.c: Fix hash table.
* dumper.c (pdump_make_hash): Fix hash table.
* dumper.c (pdump_get_mc_addr): Fix hash table.
* dumper.c (pdump_put_mc_addr): Fix hash table.
* dumper.c (pdump_reloc_one_mc): Fix indentation.
* dumper.c (pdump_load_finish): Add lrecord statistics
bookkeeping.
* lrecord.h: Add string data statistics.
* mc-alloc.c (remove_cell): Lrecord statistics, fix indentation.
* mule-charset.c: Marking through *_unicode_description not
needed.
* symbols.c (init_symbols_once_early): Bump lrecord statistics.
* window.c: Marking through line_start_cache not needed.
* xemacs.def.in.in: Fix typo.
author | crestani |
---|---|
date | Sun, 15 May 2005 16:38:14 +0000 |
parents | 6bee993389f3 |
children | facf3239ba30 |
line wrap: on
line source
/* Copyright (C) 1995 Free Software Foundation, Inc. Copyright (C) 2000, 2002 Ben Wing. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not really in FSF. */ #ifndef INCLUDED_sysproc_h_ #define INCLUDED_sysproc_h_ #include "systime.h" /* necessary for sys/resource.h; also gets the FD_* defines on some systems. */ #ifndef WIN32_NATIVE #include <sys/resource.h> #endif #if !defined (NO_SUBPROCESSES) #ifdef MINGW #include <../mingw/process.h> #elif defined (CYGWIN) #include <../include/process.h> #elif defined (WIN32_NATIVE) /* <process.h> should not conflict with "process.h", as per ANSI definition. This is not true with visual c though. The trick below works with VC4.2b, 5.0 and 6.0. It assumes that VC is installed in a kind of standard way, so include path ends with /include. */ #include <../include/process.h> #endif #ifdef HAVE_SOCKETS /* TCP connection support, if kernel can do it */ # include <sys/types.h> /* AJK */ # ifndef WIN32_NATIVE # include <sys/socket.h> # include <netdb.h> # include <netinet/in.h> # include <arpa/inet.h> # endif # ifdef NEED_NET_ERRNO_H # include <net/errno.h> # endif /* NEED_NET_ERRNO_H */ #elif defined (SKTPAIR) # include <sys/socket.h> #endif /* HAVE_SOCKETS */ #ifdef WIN32_NATIVE /* Note: winsock.h already included in systime.h above */ /* map winsock error codes to standard names */ #define EWOULDBLOCK WSAEWOULDBLOCK #define EINPROGRESS WSAEINPROGRESS #define EALREADY WSAEALREADY #define ENOTSOCK WSAENOTSOCK #define EDESTADDRREQ WSAEDESTADDRREQ #define EMSGSIZE WSAEMSGSIZE #define EPROTOTYPE WSAEPROTOTYPE #define ENOPROTOOPT WSAENOPROTOOPT #define EPROTONOSUPPORT WSAEPROTONOSUPPORT #define ESOCKTNOSUPPORT WSAESOCKTNOSUPPORT #define EOPNOTSUPP WSAEOPNOTSUPP #define EPFNOSUPPORT WSAEPFNOSUPPORT #define EAFNOSUPPORT WSAEAFNOSUPPORT #define EADDRINUSE WSAEADDRINUSE #define EADDRNOTAVAIL WSAEADDRNOTAVAIL #define ENETDOWN WSAENETDOWN #define ENETUNREACH WSAENETUNREACH #define ENETRESET WSAENETRESET #define ECONNABORTED WSAECONNABORTED #define ECONNRESET WSAECONNRESET #define ENOBUFS WSAENOBUFS #define EISCONN WSAEISCONN #define ENOTCONN WSAENOTCONN #define ESHUTDOWN WSAESHUTDOWN #define ETOOMANYREFS WSAETOOMANYREFS #define ETIMEDOUT WSAETIMEDOUT #define ECONNREFUSED WSAECONNREFUSED #define ELOOP WSAELOOP /* #define ENAMETOOLONG WSAENAMETOOLONG */ #define EHOSTDOWN WSAEHOSTDOWN #define EHOSTUNREACH WSAEHOSTUNREACH /* #define ENOTEMPTY WSAENOTEMPTY */ #define EPROCLIM WSAEPROCLIM #define EUSERS WSAEUSERS #define EDQUOT WSAEDQUOT #define ESTALE WSAESTALE #define EREMOTE WSAEREMOTE #endif /* WIN32_NATIVE */ /* On some systems, e.g. DGUX, inet_addr returns a 'struct in_addr'. */ #ifdef HAVE_BROKEN_INET_ADDR # define IN_ADDR struct in_addr # define NUMERIC_ADDR_ERROR (numeric_addr.s_addr == -1) #else # if (LONGBITS > 32) # define IN_ADDR unsigned int # else # define IN_ADDR unsigned long # endif # define NUMERIC_ADDR_ERROR (numeric_addr == (IN_ADDR) -1) #endif /* Define first descriptor number available for subprocesses. */ #define FIRST_PROC_DESC 3 #ifdef IRIS # include <sys/sysmacros.h> /* for "minor" */ #endif /* not IRIS */ #endif /* !NO_SUBPROCESSES */ #ifdef AIX #include <sys/select.h> #endif #ifdef HAVE_STROPTS_H #include <stropts.h> /* isastream(), I_PUSH */ #endif #ifdef HAVE_STRTIO_H #include <strtio.h> /* TIOCSIGNAL */ #endif #ifdef HAVE_PTY_H #include <pty.h> /* openpty() on Tru64, Linux */ #endif #ifdef HAVE_LIBUTIL_H #include <libutil.h> /* openpty() on FreeBSD */ #endif #ifdef HAVE_UTIL_H #include <util.h> /* openpty() on NetBSD */ #endif /* The FD_* macros expand to __extension__ forms on glibc-based systems. Uno does not understand such forms, so let's help it out. */ #ifdef UNO #undef FD_SET #undef FD_CLR #undef FD_ISSET #undef FD_ZERO #undef MAXDESC #undef SELECT_TYPE #endif /* UNO */ #ifdef FD_SET /* We could get this from param.h, but better not to depend on finding that. And better not to risk that it might define other symbols used in this file. */ # ifdef FD_SETSIZE # define MAXDESC FD_SETSIZE # else # define MAXDESC 64 # endif /* FD_SETSIZE */ # define SELECT_TYPE fd_set #else /* no FD_SET */ # define MAXDESC 32 # define SELECT_TYPE int /* Define the macros to access a single-int bitmap of descriptors. */ # define FD_SET(n, p) (*(p) |= (1 << (n))) # define FD_CLR(n, p) (*(p) &= ~(1 << (n))) # define FD_ISSET(n, p) (*(p) & (1 << (n))) # define FD_ZERO(p) (*(p) = 0) #endif /* no FD_SET */ int poll_fds_for_input (SELECT_TYPE mask); int qxe_execve (const Ibyte *filename, Ibyte * const argv[], Ibyte * const envp[]); pid_t qxe_getpid (void); /* #### I would really like to delete the remaining synchronous code entirely. We are now using it only for *REALLY* old systems -- how many systems nowadays (a) lack job control, or (b) lack mkdir() or rmdir() ????? --ben */ #include "syssignal.h" /* needed for SIGTSTP */ #if !defined (WIN32_NATIVE) && ((!defined (SIGTSTP) && !defined (USG_JOBCTRL)) || !defined (HAVE_MKDIR) || !defined (HAVE_RMDIR)) #define NEED_SYNC_PROCESS_CODE /* True iff we are about to fork off a synchronous process or if we are waiting for it. */ extern volatile int synch_process_alive; /* Nonzero => this is a string explaining death of synchronous subprocess. */ extern const char *synch_process_death; /* If synch_process_death is zero, this is exit code of synchronous subprocess. */ extern int synch_process_retcode; #endif #endif /* INCLUDED_sysproc_h_ */