comparison src/profile.c @ 207:e45d5e7c476e r20-4b2

Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 169c0442b401
children f955c73f5258
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
90 fun = QSin_garbage_collection; 90 fun = QSin_garbage_collection;
91 else if (backtrace_list) 91 else if (backtrace_list)
92 { 92 {
93 fun = *backtrace_list->function; 93 fun = *backtrace_list->function;
94 94
95 /* #### dmoore - why do we need to unmark it, we aren't in GC. */
96 XUNMARK (fun);
97 if (!GC_SYMBOLP (fun) && !GC_COMPILED_FUNCTIONP (fun)) 95 if (!GC_SYMBOLP (fun) && !GC_COMPILED_FUNCTIONP (fun))
98 fun = QSunknown; 96 fun = QSunknown;
99 } 97 }
100 else 98 else
101 fun = QSprocessing_events_at_top_level; 99 fun = QSprocessing_events_at_top_level;