comparison src/profile.c @ 434:9d177e8d4150 r21-2-25

Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
117 fun = QSin_garbage_collection; 117 fun = QSin_garbage_collection;
118 else if (backtrace_list) 118 else if (backtrace_list)
119 { 119 {
120 fun = *backtrace_list->function; 120 fun = *backtrace_list->function;
121 121
122 if (!SYMBOLP (fun) && 122 if (!SYMBOLP (fun)
123 !COMPILED_FUNCTIONP (fun) && 123 && !COMPILED_FUNCTIONP (fun)
124 !SUBRP (fun)) 124 && !SUBRP (fun)
125 && !CONSP (fun))
125 fun = QSunknown; 126 fun = QSunknown;
126 } 127 }
127 else 128 else
128 fun = QSprocessing_events_at_top_level; 129 fun = QSprocessing_events_at_top_level;
129 130