Mercurial > emacs
annotate src/mem-limits.h @ 109157:76b683a5339b
Minor zone.el fixes for bug#6483.
Zone did not like the intangible newlines etc in the gomoku buffer.
* lisp/play/zone.el (top-level): Do not require timer, tabify, or cl.
(zone-shift-left): Ignore intangibility, and any errors from forward-char.
(zone-shift-right): Remove no-op end-of-line. Ignore intangibility.
(zone-pgm-putz-with-case): Use upcase-region rather than inserting,
deleting, and copying text properties.
(zone-line-specs, zone-pgm-stress): Check forward-line exit status.
(zone-pgm-rotate): Handle odd buffers like that of gomoku, where getting
to point-max is hard.
(zone-fret, zone-fill-out-screen): Replace cl's do with dotimes.
(zone-fill-out-screen): Ignore intangibility.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 06 Jul 2010 21:16:27 -0700 |
parents | c25c24812fb1 |
children | fb5779a6cf4b |
rev | line source |
---|---|
486 | 1 /* Includes for memory limit warnings. |
75227
e90d04cd455a
Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents:
69389
diff
changeset
|
2 Copyright (C) 1990, 1993, 1994, 1995, 1996, 2001, 2002, 2003, 2004, |
106815 | 3 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
486 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94994
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
486 | 8 it under the terms of the GNU General Public License as published by |
94994
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
10 (at your option) any later version. |
486 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94994
29adfc9354e7
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
486 | 19 |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
20 #ifdef MSDOS |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
21 #include <dpmi.h> |
46950 | 22 extern int etext; |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
23 #endif |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
24 |
5547
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
25 /* Some systems need this before <sys/resource.h>. */ |
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
26 #include <sys/types.h> |
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
27 |
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
28 #ifdef _LIBC |
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
29 |
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
30 #include <sys/resource.h> |
4254 | 31 #define BSD4_2 /* Tell code below to use getrlimit. */ |
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
32 |
13563
c011026c071d
[_LIBC] (start_of_data): Use weak ref to __data_start; use &etext if not
Roland McGrath <roland@gnu.org>
parents:
12216
diff
changeset
|
33 /* Old Linux startup code won't define __data_start. */ |
15634
08bcd5d2c8ab
[_LIBC]: Use weak_extern instead of weak_symbol for __data_start.
Roland McGrath <roland@gnu.org>
parents:
14186
diff
changeset
|
34 extern int etext, __data_start; weak_extern (__data_start) |
13563
c011026c071d
[_LIBC] (start_of_data): Use weak ref to __data_start; use &etext if not
Roland McGrath <roland@gnu.org>
parents:
12216
diff
changeset
|
35 #define start_of_data() (&__data_start ?: &etext) |
12197
9cba6f0d9cd7
[_LIBC] (start_of_data): Define to &__data_start for GNU libc.
Roland McGrath <roland@gnu.org>
parents:
9791
diff
changeset
|
36 |
12216 | 37 #else /* not _LIBC */ |
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
38 |
51399
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
39 #ifdef HAVE_SYS_RESOURCE_H |
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
40 # include <sys/time.h> |
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
41 # include <sys/resource.h> |
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
42 #else |
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
43 # if HAVE_SYS_VLIMIT_H |
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
44 # include <sys/vlimit.h> /* Obsolete, says glibc */ |
c2c7a2898903
Use HAVE_SYS_RESOURCE_H, HAVE_SYS_VLIMIT_H.
Dave Love <fx@gnu.org>
parents:
49549
diff
changeset
|
45 # endif |
3055 | 46 #endif |
47 | |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
48 #ifdef CYGWIN |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
49 #define BSD4_2 |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
50 #endif |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
51 |
109097 | 52 #ifdef BSD4_2 |
486 | 53 #include <sys/time.h> |
54 #include <sys/resource.h> | |
55 #endif /* BSD4_2 */ | |
56 | |
1393
d2ae5897e43c
[!emacs]: Don't define POINTER, SIZE or NULL.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
57 #ifdef emacs |
575 | 58 /* The important properties of this type are that 1) it's a pointer, and |
59 2) arithmetic on it should work as if the size of the object pointed | |
60 to has a size of 1. */ | |
28055 | 61 typedef POINTER_TYPE *POINTER; |
486 | 62 |
63 typedef unsigned long SIZE; | |
64 | |
65 #ifdef NULL | |
66 #undef NULL | |
67 #endif | |
68 #define NULL ((POINTER) 0) | |
69 | |
109139
c25c24812fb1
Convert declarations or definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109097
diff
changeset
|
70 extern POINTER start_of_data (void); |
55875
65f0675acb04
(EXCEEDS_LISP_PTR) [USE_LSB_TAG]: Never true.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
71 #if defined USE_LSB_TAG |
65f0675acb04
(EXCEEDS_LISP_PTR) [USE_LSB_TAG]: Never true.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
72 #define EXCEEDS_LISP_PTR(ptr) 0 |
65f0675acb04
(EXCEEDS_LISP_PTR) [USE_LSB_TAG]: Never true.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
73 #elif defined DATA_SEG_BITS |
1592
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
74 #define EXCEEDS_LISP_PTR(ptr) \ |
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
75 (((EMACS_UINT) (ptr) & ~DATA_SEG_BITS) >> VALBITS) |
1592
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
76 #else |
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
77 #define EXCEEDS_LISP_PTR(ptr) ((EMACS_UINT) (ptr) >> VALBITS) |
1592
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
78 #endif |
486 | 79 |
46652
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
80 #ifdef DATA_START |
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
81 #define start_of_data() ((char *)DATA_START) |
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
82 #endif |
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
83 |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
15643
diff
changeset
|
84 #ifdef BSD_SYSTEM |
486 | 85 #ifndef DATA_SEG_BITS |
46652
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
86 #ifndef DATA_START |
734 | 87 extern char etext; |
486 | 88 #define start_of_data() &etext |
89 #endif | |
90 #endif | |
46652
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
91 #endif |
486 | 92 |
13563
c011026c071d
[_LIBC] (start_of_data): Use weak ref to __data_start; use &etext if not
Roland McGrath <roland@gnu.org>
parents:
12216
diff
changeset
|
93 #else /* not emacs */ |
734 | 94 extern char etext; |
486 | 95 #define start_of_data() &etext |
12216 | 96 #endif /* not emacs */ |
486 | 97 |
12216 | 98 #endif /* not _LIBC */ |
12197
9cba6f0d9cd7
[_LIBC] (start_of_data): Define to &__data_start for GNU libc.
Roland McGrath <roland@gnu.org>
parents:
9791
diff
changeset
|
99 |
486 | 100 |
52401 | 101 /* arch-tag: fe39244e-e54f-4208-b7aa-02556f7841c5 |
102 (do not change this comment) */ |