/* exception_handler.pmc
 *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
 *  CVS Info
 *     $Id: exception_handler.pmc,v 1.6 2003/10/23 15:03:30 leo Exp $
 *  Overview:
 *     This is the exception_handler class
 *  Data Structure and Algorithms:
 *  History:
 *     Initial revision by leo 2003.07.10
 *  Notes:
 *     When an exception handler is called, the exception object is
 *     passed as REG_PMC(5), the original contents of this register
 *     is in the exception object's _P5 attribute.
 *  References:
 */

#include "parrot/parrot.h"
#include "parrot/method_util.h"

pmclass Exception_Handler extends Continuation {

    void init() {
	PObj_get_FLAGS(SELF) &= ~PObj_private0_FLAG;
	SUPER();
    }

}
