mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 15:41:27 -08:00
Code Issues Projects Releases Wiki Activity

New event "arenasetemergency".

Browse source 
Copied from Perforce
 Change: 180479
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2012-11-15 14:08:13 +00:00
parent d522e73711
commit 490ee8a31c
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mps/code/eventdef.h
View file

@ -38,7 +38,7 @@
#define EVENT_VERSION_MAJOR ((unsigned)1)
#define EVENT_VERSION_MEDIAN ((unsigned)1)
#define EVENT_VERSION_MINOR ((unsigned)2)
#define EVENT_VERSION_MINOR ((unsigned)3)
/* EVENT_LIST -- list of event types and general properties
@ -68,7 +68,7 @@
*/
#define EventNameMAX ((size_t)19)
#define EventCodeMAX ((EventCode)0x0077)
#define EventCodeMAX ((EventCode)0x0078)
#define EVENT_LIST(EVENT, X) \
/* 0123456789012345678 <- don't exceed without changing EventNameMAX */ \
@ -183,7 +183,8 @@
EVENT(X, EventInit , 0x0074, TRUE, Arena) \
EVENT(X, EventClockSync , 0x0075, TRUE, Arena) \
EVENT(X, ArenaAccess , 0x0076, TRUE, Arena) \
EVENT(X, ArenaPoll , 0x0077, TRUE, Arena)
EVENT(X, ArenaPoll , 0x0077, TRUE, Arena) \
EVENT(X, ArenaSetEmergency , 0x0078, TRUE, Arena)
@ -648,6 +649,10 @@
PARAM(X, 1, W, start) \
PARAM(X, 2, W, quanta)
#define EVENT_ArenaSetEmergency_PARAMS(PARAM, X) \
PARAM(X, 0, P, arena) \
PARAM(X, 1, B, emergency)
#endif /* eventdef_h */
/* C. COPYRIGHT AND LICENSE

3
mps/code/global.c
View file

@ -1076,7 +1076,8 @@ void ArenaSetEmergency(Arena arena, Bool emergency)
DIAG_SINGLEF(( "ArenaSetEmergency",
"emergency: $U", (WriteFU)emergency, NULL ));
EVENT2(ArenaSetEmergency, arena, emergency);
arena->emergency = emergency;
}