annotate etc/toolbar/paste-cap-up.xpm @ 5014:c2e0c3af5fe3

cleanups to debug-print, try harder to make it work during GC -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-08 Ben Wing <ben@xemacs.org> * emacs.c: * emacs.c (assert_failed): Fix comments about when inhibit_non_essential_printing_operations is set and how used. Increment/decrement in assert_failed rather than just setting/resetting to avoid hosing things in case we're called when the value is already non-zero. Similarly increment/ decrement in_assert_failed. * gc.c (gc_prepare): * gc.c (gc_finish): Increment/decrement inhibit_non_essential_printing_operations rather than setting/resetting. * print.c: * print.c (debug_out): * print.c (write_string_to_alternate_debugging_output): * print.c (restore_inhibit_non_essential_conversion_operations): * print.c (debug_print_exit): * print.c (debug_print_enter): * print.c (debug_prin1): * print.c (debug_p4): * print.c (ext_print_begin): * print.c (ext_print_end): * print.c (external_debug_print): * print.c (debug_p3): * print.c (debug_backtrace): * print.c (debug_short_backtrace): * print.c (vars_of_print): Lots of cleanup. Fix debug_out() so it binds inhibit_non_essential_printing_operations around it to ensure no conversion. Remove many other places that set the same var since the lower-level functions now all do it. A few other places, add inhibit_non_essential_printing_operations bindings.Extract the code out that sets up and resets lots of bindings in debug_prin1() so that debug_backtrace() can use it, and rewrite it to use the new STORE_VOID_IN_LISP() rather than having to have a single static opaque structure holding all the bindings (and not handling reentrancy). Fix raw `char' to be `CIbyte' in the declaration of `alternate_do_string'. * signal.c (check_what_happened): Fix bug: Don't try to check for QUIT when inhibit_non_essential_printing_operations or we may screw things up if QUIT happens during debug printing.
author Ben Wing <ben@xemacs.org>
date Mon, 08 Feb 2010 07:00:24 -0600
parents 3ecd8885ac67
children 7910031dd78a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* XPM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 static char * paste[] = {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 "33 33 6 1",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 "X c Gray75 s backgroundToolBarColor",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 "u c #000000000000 s foregroundToolBarColor",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 "o c black",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 "O c Gray90",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 "+ c Gray60",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 "@ c white",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 "XXXXXXXXXXXXXXXooXXXXXXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 "XXXXXXXXXXXXXXoOOoXXXXXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 "XXXXXXXXooooooOooOooooooXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 "XXXXXXXo++++oOOOOOOo++++oXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 "XXXXXXXo+++oooooooooo+++oXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 "XXXXXXXo++++++++++++++++oXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 "XXXXXXXo++++++++++++++++oXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 "XXXXXXXo++++++++++++++++oXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 "XXXXXXXo++++++++++++++++oXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 "XXXXXXXo++++++oooooooooooXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 "XXXXXXXo++++++o@@@@@@@@ooXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 "XXXXXXXo++++++o@@@@@@@@o+oXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 "XXXXXXXo++++++o@oooooo@ooooXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 "XXXXXXXo++++++o@@@@@@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 "XXXXXXXo++++++o@oooo@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 "XXXXXXXo++++++o@@@@@@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 "XXXXXXXo++++++o@@@@@@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 "XXXXXXXo++++++o@oooooooo@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 "XXXXXXXoooooooo@@@@@@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 "XXXXXXXXXXXXXXo@@@@@@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 "XXXXXXXXXXXXXXo@@@@@@@@@@@oXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 "XXXXXXXXXXXXXXoooooooooooooXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 "XXXXXXXXXXXXXXXXXXXXXuXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 "XXXXXXXuuuXXXXXXXXXXXuXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 "XXXXXXXuXXuXuuXXXuuXuuuXuXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 "XXXXXXXuXXuXXXuXuXXXXuXuXuXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 "XXXXXXXuuuXXuuuXXuuXXuXuuuXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 "XXXXXXXuXXXXuXuXXXuXXuXuXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 "XXXXXXXuXXXXuuXuuuXXXuXXuuXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"};