cvsuser 04/11/02 03:46:24
Modified: lib/Parrot/OpTrans CSwitch.pm Log: get switched run core at old speed Revision Changes Path 1.14 +12 -1 parrot/lib/Parrot/OpTrans/CSwitch.pm Index: CSwitch.pm =================================================================== RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/CSwitch.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -u -r1.13 -r1.14 --- CSwitch.pm 1 Nov 2004 11:52:53 -0000 1.13 +++ CSwitch.pm 2 Nov 2004 11:46:24 -0000 1.14 @@ -1,5 +1,5 @@ # Copyright: 2001-2004 The Perl Foundation. All Rights Reserved. -# $Id: CSwitch.pm,v 1.13 2004/11/01 11:52:53 leo Exp $ +# $Id: CSwitch.pm,v 1.14 2004/11/02 11:46:24 leo Exp $ =head1 NAME @@ -84,6 +84,17 @@ #define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)cur_opcode)[o]) +/* + * if we are using CHECK_EVENTS elsewhere this macro should (again) + * be in includes/parrot/event.h + * + * This gives +50 % performance + */ + +#undef CHECK_EVENTS +#define CHECK_EVENTS(i, n) \\ + interpreter->task_queue->head ? \\ + Parrot_do_check_events(i, n) : n END }
