Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly src/ChangeLog addition: 2009-11-15 Aidan Kehoe <kehoea@parhasard.net> * mule-ccl.c (CCL_CALL_FOR_MAP_INSTRUCTION): Assert that we always have a symbol in this macro. (setup_ccl_program): Ensure we're not allocating unreachable memory in this function; all symbols must have been resolved in a given CCL program before this function is called. (find_ccl_program): New function, return a CCL program with all its symbols resolved if it is valid (possibly allocating memory), Qnil otherwise. (get_ccl_program): New function, exported to other files; call find_ccl_program, and error if it gives nil. (Fccl_program_p): Call find_ccl_program from this function instead of implementing the bulk of it here. (Fccl_execute): Call get_ccl_program instead of implementing the bulk of it here. (Fccl_execute_on_string): Ditto. * mule-ccl.h (Vfont_ccl_encoder_alist): Remove this declaration, it hasn't been used in years. (get_ccl_program): Declare this function. * mule-coding.c (ccl_putprop): Use get_ccl_program on any specified encode or decode CCL program property. (fixed_width_putprop): Ditto. * mule-charset.c (Fmake_charset): Use get_ccl_program on any specified ccl-program. (Fset_charset_ccl_program): Ditto.

/* XPM */
static char * bug_xpm[] = {
"28 28 6 1",
"X	c Gray75 s backgroundToolBarColor",
"o	c black",
"O	c Gray40",
"+	c Gray60",
"@	c white",
"#	c Gray90",
"XXXXXXXXXXXXXXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXXXXXXXXXXXXXX",
"XXXXXXooooooooooooooooXXXXXX",
"XXXXXoooooooooOoOoOoOooXXXXX",
"XXXXXoooooooooOoOoOoOooXXXXX",
"XXXXXoooooooooooooooooo+XXXX",
"XXXXXXo@@@@@@@@@@@##Xo++XXXX",
"XXXXXo@@@@@@@@@@@@##XXo+XXXX",
"XXXXXo@@@@@@@@@@@@##XXoXXXXX",
"XXXXXo@@@@@@@@@@@@##XXo+XXXX",
"XXXXXo@@@@@@@@@@@@##XXo+XXXX",
"XXXXXo@@@@@@o@@oo@##XXo+XXXX",
"XXXXXo@@@o@@o@oooo##XXo+XXXX",
"XXXXXo@@@@o@oo@ooo##XXo+XXXX",
"XXXXXo@@@@@oooooo@##XXo+XXXX",
"XXXXXo@ooo@ooooo@@##XXo+XXXX",
"XXXXXo@@@oo@oooooo##XXo+XXXX",
"XXXXXo@@o@ooooo@@@##XXo+XXXX",
"XXXXXo@oooooo@@o@@##XXo+XXXX",
"XXXXXo@oooooo@@@o@##XXo+XXXX",
"XXXXXo@ooooooo@@@@##XXo+XXXX",
"XXXXXo@ooooo@o@@@@##XXo+XXXX",
"XXXXXo@@ooo@@o@@@@##XXo+XXXX",
"XXXXXo@@@@@@@@@@@@##XXo+XXXX",
"XXXXXXoooooooooooooooo++XXXX",
"XXXXXX++++++++++++++++++XXXX",
"XXXXXXX++++++++++++++++XXXXX",
"XXXXXXXXXXXXXXXXXXXXXXXXXXXX"};