mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-25 08:12:11 -07:00
Code Issues Projects Releases Wiki Activity

Cool varieties now log events on the critical path too, whereas hot varieties only log elsewhere.

Browse source 
Copied from Perforce
 Change: 179140
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2012-08-31 17:26:48 +01:00
parent d2eeaef394
commit 28c9bb13f3
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
mps/code/config.h
View file

@ -68,12 +68,14 @@
/* ... let PRODUCT determine CHECKLEVEL_INITIAL */
#define CONFIG_STATS
#define CONFIG_LOG
#define CONFIG_LOG_ALL
#elif defined(CONFIG_VAR_II) /* Ice, Internal; variety.ii (HotLog) */
#define CONFIG_ASSERT
#define CHECKLEVEL_INITIAL CheckLevelMINIMAL
/* no statistic meters */
#define CONFIG_LOG
#endif
@ -110,11 +112,17 @@
#if defined(CONFIG_LOG)
/* TELEMETRY = LOG = EVENTs */
#define EVENT
#if defined(CONFIG_LOG_ALL)
#define EVENT_ALL 1 /* log events on critical path */
#define MPS_LOG_STRING "logtastic"
#else /* CONFIG_LOG_ALL, not */
#define EVENT_ALL 0 /* don't log events on critical path */
#define MPS_LOG_STRING "logging"
#else
#endif /* CONFIG_LOG_ALL */
#else /* CONFIG_LOG, not */
#define EVENT_NONE
#define MPS_LOG_STRING "nonlogging"
#endif
#endif /* CONFIG_LOG */
#define MPS_VARIETY_STRING \

2
mps/code/event.h
View file

@ -52,7 +52,7 @@ extern Word EventKindControl;
#define EVENT_BEGIN(name, structSize) \
BEGIN \
if(Event##name##Always) { /* FIXME: depend on variety */ \
if(EVENT_ALL || Event##name##Always) { /* see config.h */ \
Event##name##Struct *_event; \
size_t _size = size_tAlignUp(structSize, MPS_PF_ALIGN); \
if (_size > (size_t)(EventLast[Event##name##Kind] \