/* parrotobject.pmc
 *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
 *  CVS Info
 *     $Id: parrotobject.pmc,v 1.3 2003/08/25 09:46:23 leo Exp $
 *  Overview:
 *     These are the vtable functions for the ParrotObject base class
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */

#include "parrot/parrot.h"

pmclass ParrotObject {

    INTVAL type() {		/* pmc2c.pl doesn't like empty classes */
	return SELF->vtable->base_type;
    }

}
