Mercurial > hg > xemacs-beta
comparison src/bytecode.c @ 800:a5954632b187
[xemacs-hg @ 2002-03-31 08:27:14 by ben]
more fixes, first crack at finishing behavior implementation
TODO.ben-mule-21-5: Update.
configure.in: Fix for new error-checking types.
make-mswin-unicode.pl: Don't be fucked up by CRLF. Output code
to force errors when nonintercepted Windows calls issued.
behavior.el, dumped-lisp.el, menubar-items.el: Add support for saving using custom. Load into a dumped XEmacs.
Correct :title to :short-doc in accordance with behavior-defs.el.
Add a submenu under Options for turning on/off behaviors.
cl-macs.el: Properly document `loop'. Fix a minor bug in keymap iteration and
add support for bit-vector iteration.
lisp-mode.el: Rearrange and add items for macro expanding.
menubar-items.el: Document connection between these two functions.
window.el: Port stuff from GNU 21.1.
config.inc.samp, xemacs.mak: Separate out and add new variable for controlling error-checking.
s/windowsnt.h: Use new ERROR_CHECK_ALL; not related to DEBUG_XEMACS.
alloc.c, backtrace.h, buffer.c, buffer.h, bytecode.c, callproc.c, casetab.c, charset.h, chartab.c, cmdloop.c, config.h.in, console-msw.c, console-stream.c, console-tty.c, console.c, console.h, data.c, device-msw.c, device.c, device.h, dired-msw.c, dired.c, dumper.c, editfns.c, eldap.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, extents.c, faces.c, file-coding.c, file-coding.h, fileio.c, frame-msw.c, frame.c, frame.h, glyphs-gtk.c, glyphs-msw.c, glyphs-shared.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, insdel.c, intl-auto-encap-win32.c, intl-auto-encap-win32.h, intl-encap-win32.c, intl-win32.c, keymap.c, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, macros.c, marker.c, md5.c, menubar-x.c, menubar.c, mule-coding.c, ntproc.c, objects-gtk.c, objects-msw.c, objects-x.c, objects.c, opaque.c, print.c, process-nt.c, process-unix.c, process.c, rangetab.c, redisplay-msw.c, redisplay-output.c, redisplay.c, regex.c, scrollbar-msw.c, select-msw.c, signal.c, specifier.c, specifier.h, symbols.c, sysdep.c, syswindows.h, text.c, text.h, toolbar-msw.c, tooltalk.c, ui-gtk.c, unicode.c, window.c: Redo error-checking macros: ERROR_CHECK_TYPECHECK ->
ERROR_CHECK_TYPES, ERROR_CHECK_CHARBPOS -> ERROR_CHECK_TEXT, add
ERROR_CHECK_DISPLAY, ERROR_CHECK_STRUCTURES. Document these in
config.h.in. Fix code to follow docs. Fix *_checking_assert()
in accordance with new names.
Attempt to fix periodic redisplay crash freeing display line
structures. Add first implementation of sledgehammer redisplay
check.
Redo print_*() to use write_fmt_string(), write_fmt_string_lisp().
Fix bug in md5 handling.
Rename character-to-unicode to char-to-unicode; same for
unicode-to-char{acter}.
Move chartab documentation to `make-char-table'.
Some header cleanup.
Clean up remaining places where nonintercepted Windows calls are
being used.
automated/mule-tests.el: Fix for new Unicode support.
author | ben |
---|---|
date | Sun, 31 Mar 2002 08:30:17 +0000 |
parents | e38acbeb1cae |
children | 2b676dc88c66 |
comparison
equal
deleted
inserted
replaced
799:03d9f9084848 | 800:a5954632b187 |
---|---|
1896 Lisp_Compiled_Function *f = | 1896 Lisp_Compiled_Function *f = |
1897 XCOMPILED_FUNCTION (obj); /* GC doesn't relocate */ | 1897 XCOMPILED_FUNCTION (obj); /* GC doesn't relocate */ |
1898 int docp = f->flags.documentationp; | 1898 int docp = f->flags.documentationp; |
1899 int intp = f->flags.interactivep; | 1899 int intp = f->flags.interactivep; |
1900 struct gcpro gcpro1, gcpro2; | 1900 struct gcpro gcpro1, gcpro2; |
1901 char buf[100]; | |
1902 GCPRO2 (obj, printcharfun); | 1901 GCPRO2 (obj, printcharfun); |
1903 | 1902 |
1904 write_c_string (print_readably ? "#[" : "#<compiled-function ", printcharfun); | 1903 write_c_string (print_readably ? "#[" : "#<compiled-function ", printcharfun); |
1905 #ifdef COMPILED_FUNCTION_ANNOTATION_HACK | 1904 #ifdef COMPILED_FUNCTION_ANNOTATION_HACK |
1906 if (!print_readably) | 1905 if (!print_readably) |
1907 { | 1906 { |
1908 Lisp_Object ann = compiled_function_annotation (f); | 1907 Lisp_Object ann = compiled_function_annotation (f); |
1909 if (!NILP (ann)) | 1908 if (!NILP (ann)) |
1910 { | 1909 write_fmt_string_lisp (printcharfun, "(from %S) ", 1, ann); |
1911 write_c_string ("(from ", printcharfun); | |
1912 print_internal (ann, printcharfun, 1); | |
1913 write_c_string (") ", printcharfun); | |
1914 } | |
1915 } | 1910 } |
1916 #endif /* COMPILED_FUNCTION_ANNOTATION_HACK */ | 1911 #endif /* COMPILED_FUNCTION_ANNOTATION_HACK */ |
1917 /* COMPILED_ARGLIST = 0 */ | 1912 /* COMPILED_ARGLIST = 0 */ |
1918 print_internal (compiled_function_arglist (f), printcharfun, escapeflag); | 1913 print_internal (compiled_function_arglist (f), printcharfun, escapeflag); |
1919 | 1914 |
1924 Lisp_Object instructions = compiled_function_instructions (f); | 1919 Lisp_Object instructions = compiled_function_instructions (f); |
1925 NGCPRO1 (instructions); | 1920 NGCPRO1 (instructions); |
1926 if (STRINGP (instructions) && !print_readably) | 1921 if (STRINGP (instructions) && !print_readably) |
1927 { | 1922 { |
1928 /* We don't usually want to see that junk in the bytecode. */ | 1923 /* We don't usually want to see that junk in the bytecode. */ |
1929 sprintf (buf, "\"...(%ld)\"", | 1924 write_fmt_string (printcharfun, "\"...(%ld)\"", |
1930 (long) XSTRING_CHAR_LENGTH (instructions)); | 1925 (long) XSTRING_CHAR_LENGTH (instructions)); |
1931 write_c_string (buf, printcharfun); | |
1932 } | 1926 } |
1933 else | 1927 else |
1934 print_internal (instructions, printcharfun, escapeflag); | 1928 print_internal (instructions, printcharfun, escapeflag); |
1935 NUNGCPRO; | 1929 NUNGCPRO; |
1936 } | 1930 } |
1938 /* COMPILED_CONSTANTS = 2 */ | 1932 /* COMPILED_CONSTANTS = 2 */ |
1939 write_c_string (" ", printcharfun); | 1933 write_c_string (" ", printcharfun); |
1940 print_internal (compiled_function_constants (f), printcharfun, escapeflag); | 1934 print_internal (compiled_function_constants (f), printcharfun, escapeflag); |
1941 | 1935 |
1942 /* COMPILED_STACK_DEPTH = 3 */ | 1936 /* COMPILED_STACK_DEPTH = 3 */ |
1943 sprintf (buf, " %d", compiled_function_stack_depth (f)); | 1937 write_fmt_string (printcharfun, " %d", compiled_function_stack_depth (f)); |
1944 write_c_string (buf, printcharfun); | |
1945 | 1938 |
1946 /* COMPILED_DOC_STRING = 4 */ | 1939 /* COMPILED_DOC_STRING = 4 */ |
1947 if (docp || intp) | 1940 if (docp || intp) |
1948 { | 1941 { |
1949 write_c_string (" ", printcharfun); | 1942 write_c_string (" ", printcharfun); |