Branch: Tag:

1998-11-20

1998-11-20 19:05:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

I will get profiling to work, even if it is the last thing I do!

Rev: src/interpret.c:1.110
Rev: src/threads.h:1.58

1:   /* -  * $Id: threads.h,v 1.57 1998/11/20 18:38:46 hubbe Exp $ +  * $Id: threads.h,v 1.58 1998/11/20 19:05:46 hubbe Exp $    */   #ifndef THREADS_H   #define THREADS_H
370:    (_tmp)->thread_id=thread_id;\    DO_IF_PROFILING( (_tmp)->accounted_time=accounted_time; ) \    DO_IF_PROFILING( (_tmp)->time_base = gethrtime() - time_base; ) \ -  DO_IF_DEBUG( DO_IF_PROFILING( if(accounted_time<0) fatal("Accounted time out of whack!\n");)) \ -  DO_IF_DEBUG( DO_IF_PROFILING( if((_tmp)->time_base<0) fatal("time base out of whack!\n");)) \ +  DO_IF_DEBUG( DO_IF_PROFILING( if(accounted_time<0) fatal("Accounted time out of whack at swap out!\n");)) \ +  DO_IF_DEBUG( DO_IF_PROFILING( if((_tmp)->time_base<0) fatal("time base out of whack at swap out!\n");)) \    SWAP_OUT_TRACE(_tmp); \    } while(0)   
388:    stack_top=(_tmp)->stack_top;\    thread_id=(_tmp)->thread_id;\    DO_IF_PROFILING( accounted_time=(_tmp)->accounted_time; ) \ -  DO_IF_PROFILING( time_base = (_tmp)->time_base + gethrtime(); ) \ -  DO_IF_DEBUG( DO_IF_PROFILING( if(accounted_time<0) fatal("Accounted time out of whack!\n");)) \ -  DO_IF_DEBUG( DO_IF_PROFILING( if(time_base<0) fatal("time base out of whack!\n");)) \ +  DO_IF_PROFILING( time_base = gethrtime() - (_tmp)->time_base; ) \ +  DO_IF_DEBUG( DO_IF_PROFILING( if(accounted_time<0) fatal("Accounted time out of whack at swap in!\n");)) \ +  DO_IF_DEBUG( DO_IF_PROFILING( if(time_base<0) fatal("time base out of whack at swap in!\n");)) \    SWAP_IN_TRACE(_tmp); \    } while(0)