Steve Fink (via RT): # Index: classes/default.pmc # =================================================================== # RCS file: /home/perlcvs/parrot/classes/default.pmc,v # retrieving revision 1.17 # diff -a -u -r1.17 default.pmc # --- classes/default.pmc 25 Apr 2002 21:35:16 -0000 1.17 # +++ classes/default.pmc 14 May 2002 22:05:24 -0000 # @@ -41,6 +41,8 @@ # * the garbage collector. # */ # PMC* mark (PMC *end_of_used_list) { # + internal_exception(INTERNAL_PANIC, "custom_mark flag # set but no custom mark routine defined\n"); # + return NULL; # } # # INTVAL get_integer () {
I suggest that you use the PANIC() macro instead of internal_exception(). PANIC() prints the C file and line number, a ton of configuration info, and a message saying that you should contact p6i unless you did something in the internals that might have caused the panic. (It will also eventually make Parrot dump core so you can figure out what went wrong.) --Brent Dax <[EMAIL PROTECTED]> @roles=map {"Parrot $_"} qw(embedding regexen Configure) blink: Text blinks (alternates between visible and invisible). Conforming user agents are not required to support this value. --The W3C CSS-2 Specification