cvs commit: parrot/src events.c

[Leopold Toetsch]

cvsuser     04/01/17 11:59:19

  Modified:    src      events.c
  Log:
  free queue entry
  
  Revision  Changes    Path
  1.20      +2 -1      parrot/src/events.c
  
  Index: events.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/events.c,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -w -r1.19 -r1.20
  --- events.c  17 Jan 2004 17:54:22 -0000      1.19
  +++ events.c  17 Jan 2004 19:59:19 -0000      1.20
  @@ -1,7 +1,7 @@
   /* events.c
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: events.c,v 1.19 2004/01/17 17:54:22 leo Exp $
  + *     $Id: events.c,v 1.20 2004/01/17 19:59:19 leo Exp $
    *  Overview:
    *     Event handling stuff
    *  Data Structure and Algorithms:
  @@ -362,6 +362,7 @@
       while (sleeping) {
           entry = wait_for_entry(interpreter->task_queue);
           event = (parrot_event* )entry->data;
  +        mem_sys_free(entry);
           if (event->type == EVENT_TYPE_SLEEP && event->data == next)
               sleeping = 0;
           next = do_event(interpreter, event, next);