cvsuser 04/05/07 03:59:16
Modified: src events.c
Log:
put callback event directly into interp task queue
Revision Changes Path
1.39 +6 -2 parrot/src/events.c
Index: events.c
===================================================================
RCS file: /cvs/public/parrot/src/events.c,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -w -r1.38 -r1.39
--- events.c 18 Mar 2004 16:24:10 -0000 1.38
+++ events.c 7 May 2004 10:59:16 -0000 1.39
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: events.c,v 1.38 2004/03/18 16:24:10 leo Exp $
+$Id: events.c,v 1.39 2004/05/07 10:59:16 leo Exp $
=head1 NAME
@@ -418,10 +418,14 @@
Parrot_new_cb_event(Parrot_Interp interpreter, PMC* cbi, void* ext)
{
parrot_event* ev = mem_sys_allocate(sizeof(parrot_event));
+ QUEUE_ENTRY* entry = mem_sys_allocate(sizeof(QUEUE_ENTRY));
+ entry->next = NULL;
+ entry->data = ev;
+ ev->interp = interpreter;
ev->type = EVENT_TYPE_CALL_BACK;
ev->u.call_back.cbi = cbi;
ev->u.call_back.external_data = ext;
- Parrot_schedule_event(interpreter, ev);
+ Parrot_schedule_interp_qentry(interpreter, entry);
}
/*
