profiling XEmacs, esp. on the C level
19 years
Ben Wing
Ben Wing
So far, it seems that everyone's profiling on the Lisp level. But C
level profiling could give much better results. Has anyone successfully
used Gprof or the VC++ tools for doing C-level profiling? When i tried
in the past, i got stuck; things crashed and i couldn't get them to
work. Any success stories and instructions telling what exactly to do?
Thanks,
ben
- 5 participants
- 10 comments
XEmacs 21.5.23 "daikon" is released.
19 years
Stephen J. Turnbull
Stephen J. Turnbull
Oops. Looks like my announcement generating scripts broke, and the
whole "brief list of changes" went missing. I'll fix that, but all
the information is in the ChangeLogs, so I won't spam the list with a
repost. Or, please give it a day and look at
http://www.xemacs.org/Releases/21.5.23.html
Better yet, download the release, check out CHANGES-beta, then build
and M-x build-report!
Steve
* XEmacs 21.5.23 "daikon" is released.
"daikon" is the twenty-fourth in the VEGETABLE series.
The successor to XEmacs 21.5.22 "cucumber", "daikon" adds mouse pointers
generated from any color image format supported by XEmacs (adding the
modern GIF, JPEG, PNG, or TIFF formats to the increasingly rare XPM
format already supported). Support for building with arbitrary precision
arithmetic (GMP), and the Berkeley db, PostgreSQL, and LDAP databases
has been provided for native Windows NT builds. Unexec support for _LP64
architectures was fixed (at least for FreeBSD).
A number of LISP APIs and commands have been synced to conform to GNU's
(unreleased) Emacs 22. Garbage collection now triggers on a threshold
relative to total memory allocated, which reduces the frequency.
`specifier-instantiator' and related primitives were added.
Motif is no longer the default toolkit on any platform except Sun. You
need to specify --with-dialogs=motif, etc, explicitly.
XEmacs's configure no longer makes that annoying distinction between
`--with-foo' and `--enable-foo'; these now invoke the same
configuration logic for all features `foo'. Also, with non-null
argument --with-cflags-optimization now forces --with-optimization on.
For distributors, Canna support has been moved to a module,
eliminating hard dependencies on the Canna package in binary packages.
A wide variety of minor bugfixes and documentation improvements were made.
For particulars, see the brief summary of changes and list of ChangeLogs
below.
This is the development line. The current series started with XEmacs 21.5.0
(an alias for XEmacs 21.4.0 "Solid Vapor", the first release in the current
stable line). 21.5 is the code base for introduction of major new subsystems
and fixes to design bugs that experience shows will introduce instability.
So far the main effort has been on improved support for Unicode, updates to
the build infrastructure, and development of new features in memory allocation.
For general information about XEmacs, the developers, and the user community,
see our home page,
http://www.xemacs.org/
* XEmacs 21.5.23 is "beta" software.
The usual "no warranty" disclaimer (see etc/WARRANTY, sections 10 and 11)
applies. At this point in time, it is the version that most developers
are using for their daily work. However, it is certain that many bugs
remain and new ones will be introduced as development proceeds. Be sure
to take care to safe your work often and follow a regular backup regime.
* Availability
Anonymous ftp:
ftp://ftp.xemacs.org/pub/xemacs/xemacs-21.5
See http://www.xemacs.org/Install/ for more information about building
from source.
If you already have a 21.5.22 source tree, a patchkit is available in
xemacs-21.5.22-21.5.23.patch.gz. This does not update .elcs or .infos,
they will be rebuilt when you make XEmacs. If you have an earlier
version, you can repeatedly apply patchkits.
Also, if you don't have the packages yet, see
http://www.xemacs.org/Documentation/packageGuide.html.
Anonymous (pserver) CVS:
Anonymous CVS is available. We are very grateful to the staff at our
host, SunSITE.dk, for a lot of help and quick reponse to all our
requests.
Take care that your Root is set correctly to
CVSROOT=:pserver:cvs＠cvs.xemacs.org:/pack/xemacscvs
On platforms with a Bourne shell and find available, something like
for r in `find . -name Root`; do echo $CVSROOT > $r; done
will convert your entire tree.
To make it straightforward to access certain versions of the code, we have
a standard tagging policy. To update to release 21.5.23, use the update
flag "-r r21-5-23". To update to the current release without referring to
it specifically, use the flag "-r r21-5-current-beta". To update to the
latest commits in CVS, use the flag "-A". Then rebuild XEmacs.
For more details, see
http://www.xemacs.org/Develop/cvsaccess.html .
* Brief summary of Changes to XEmacs 21.5.23 "daikon"
Major features
User-Visible Bug Fixes and Minor Improvements
Build Infrastructure
Documentation
Lisp API
Internal API and Implementation
-------- ChangeLog Entries from ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-25 Malcolm Purvis <malcolmp(a)xemacs.org>
* configure.ac: Prefer Xaw to Motif on Linux, Mac and BSD. From
21.4.
* configure.ac (XE_PARSE_COMPLEX_OPTION): Remove debugging.
Fix broken --with-<complex>=no.
2005-10-20 Malcolm Purvis <malcolmp(a)xemacs.org>
* INSTALL: Reflect changes in the configure options. Update MacOS
X X11 installation instructions to reflect the changes in recent
OS releases.
2005-10-15 Malcolm Purvis <malcolmp(a)xemacs.org>
* configure.ac: Added XE_MERGED_ARG to alias all local --enable
and --with options. Configure can only be built with autoconf
2.59. Prevent many unwanted blank lines from appearing in
configure.
2005-10-13 Ben Wing <ben(a)xemacs.org>
* configure.ac (XE_COMPLEX_ARG_ENABLE):
Break lines.
* configure.ac (TAB):
Rewrite optimization help to be accurate. Setting
`--with-cflags-optimization=""' will now unilaterally turn off
optimization; setting it to something non-null unilaterally turns it
on.
2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
* configure.ac (Canna): Configure as module if appropriate.
* Makefile.in.in (modules/canna): Add dependency on lib-src (ellcc).
2005-09-18 Mike Alexander <mta(a)arbortext.com>
* configure.ac: Fix the cygwin, non-X build by adding XPM header
and library files to XE_CFLAGS. Patch from Rick Rankin.
2005-09-17 Malcolm Purvis <malcolmp(a)xemacs.org>
* configure.in: Replace with warning to use autoconf 2.59.
* configure.ac: Removed warning about the use of autoconf 2.59.
-------- ChangeLog Entries from etc/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-09-17 Malcolm Purvis <malcolmp(a)xemacs.org>
* configure-2.13: Remove. autoconf 2.59 support is stable.
-------- ChangeLog Entries from lib-src/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-13 Ben Wing <ben(a)xemacs.org>
* i.c:
* mmencode.c:
Always include config.h first.
* winclient.c:
Move include of windows.h after config.h.
2005-09-18 Mike Alexander <mta(a)arbortext.com>
* installexe.sh: Don't add an exe extention to a file that already
has one. Patch from Rick Rankin.
-------- ChangeLog Entries from lisp/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-25 Ben Wing <ben(a)xemacs.org>
* cus-face.el:
* cus-face.el (custom-face-attributes):
* cus-face.el (custom-face-background-pixmap):
* cus-face.el (custom-set-face-inherit): New.
* cus-face.el (custom-face-inherit): New.
* faces.el:
* faces.el (face-property):
* faces.el (convert-face-property-into-specifier):
* faces.el (face-property-instance):
* faces.el (set-face-property):
* faces.el (reset-face):
* faces.el (set-face-parent):
* faces.el (face-font-name):
* faces.el (face-font):
* faces.el (face-font-instance):
* faces.el (set-face-font):
* faces.el (face-foreground):
* faces.el (face-foreground-instance):
* faces.el (set-face-foreground):
* faces.el (face-background):
* faces.el (face-background-instance):
* faces.el (set-face-background):
* faces.el (face-background-pixmap):
* faces.el (face-background-pixmap-instance):
* faces.el (set-face-background-pixmap):
* faces.el (face-display-table):
* faces.el (face-display-table-instance):
* faces.el (face-equal):
* faces.el (init-face-from-resources):
Provide a basic implementation of the `inherit' property for
faces and the :inherit property in custom. Use the new
`specifier-instantiator' function.
Update the documentation for various places in faces.el.
'foo -> `foo'.
2005-10-25 Adrian Aichner <adrian(a)xemacs.org>
* package-get.el (package-get-download-sites): Fixes after
checklink and linklint testing.
* package-get.el (package-get-pre-release-download-sites): Ditto.
2005-10-24 Ben Wing <ben(a)xemacs.org>
* next-error.el (compilation-current-error):
* next-error.el (compilation-current-error)): New.
* next-error.el (compilation-context-lines)): New.
* occur.el (occur-accumulate-lines):
* occur.el (multi-occur):
Fix some byte-compile warnings.
2005-10-23 Adrian Aichner <adrian(a)xemacs.org>
* package-get.el (package-get-download-sites): Sync packages
mirrors list with website, based on Ville's work.
* package-get.el (package-get-pre-release-download-sites): Sync
with `package-get-download-sites'.
2005-10-18 Ville Skyttä <scop(a)xemacs.org>
* package-get.el (package-get-download-sites): Sync mirrors list
with the XEmacs website.
(package-get-pre-release-download-sites): Ditto.
2005-10-21 Stephen J. Turnbull <stephen(a)xemacs.org>
UNDO:
* mule/canna-leim.el: Rename canna_api to canna-api.
2005-10-21 Stephen J. Turnbull <stephen(a)xemacs.org>
* build-report.el: Note synch to XEmacs build package version 1.49.
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* build-report.el (build-report): Refactor into interactive
portion and `build-report-create-report'.
(build-report-create-report): New function.
(batch-build-report): Non-interactive version of `build-report'
using `build-report-create-report'.
2005-10-10 Malcolm Purvis <malcolmp(a)xemacs.org>
* minibuf.el:
* minibuf.el (read-buffer): Follow GNU Emacs behaviour: Can return
empty string if require-match is t and default is nil.
* replace.el: Moved occur code to occur.el
* simple.el:
* simple.el (line-number-at-pos): New.
* subr.el:
* subr.el (delete-dups): New.
* occur.el: New. Sync with 22.0.50.1 (CVS)
* next-error.el: New. Sync with 22.0.50.1 (CVS)
2005-10-10 Steve Youngs <steve(a)sxemacs.org>
* help.el (view-emacs-news): Use `expand-file-name' instead of
`locate-data-file' as the latter will find any "NEWS" files that
might exist in packages _before_ the one in core.
2005-10-09 Adrian Aichner <adrian(a)xemacs.org>
* finder.el (finder-find-library): Return filename actually
searched for.
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* simple.el (xemacs-default-composefunc): Don't warn when batch.
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* build-report.el: Synch to Adrian's packaged version.
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* mule/canna-leim.el: Rename canna_api to canna-api.
2005-09-30 Stephen J. Turnbull <stephen(a)xemacs.org>
* mule/canna-leim.el (canna-activate): Fix typo in error symbol.
Improve docstring.
2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
* mule/canna-leim.el: Add comment on autoloading strategy.
(canna-activate): Handle CANNA in ELL.
* dumped-lisp.el (preloaded-file-list): Remove dependency of
canna-leim on CANNA. Canna may be an ELL.
2005-09-21 Stephen J. Turnbull <stephen(a)xemacs.org>
* mule/mule-cmds.el (input-method-alist, register-input-method):
Improve docstrings and formal parameter names.
-------- ChangeLog Entries from lwlib/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-25 Ben Wing <ben(a)xemacs.org>
* lwlib-internal.h (assert):
redo assert macros to follow lisp.h and not trigger warnings.
* lwlib.c (merge_scrollbar_values):
* lwlib.c (merge_widget_value_args):
* xlwtabs.c:
* xlwtabs.c (TabsInit):
* xlwtabs.c (TabsConstraintInitialize):
* xlwtabs.c (TabsSetValues):
* xlwtabs.c (TabsConstraintSetValues):
new -> new_.
-------- ChangeLog Entries from man/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-20 Malcolm Purvis <malcolmp(a)xemacs.org>
* xemacs-faq.texi (Q1.2.2):
* xemacs-faq.texi (Q2.1.1):
* xemacs-faq.texi (Q2.1.6):
* xemacs-faq.texi (Q2.2.1):
* xemacs-faq.texi (Q2.3.6):
* xemacs-faq.texi (Q2.4.3):
* xemacs-faq.texi (Q2.4.4):
* xemacs-faq.texi (Q2.4.7):
* xemacs-faq.texi (Q5.3.3):
* xemacs-faq.texi (Q6.0.8):
* xemacs-faq.texi (Q7.2.1):
Add 21.5 specific examples of configure options in addition to the
existing 21.4 ones.
2005-10-15 Malcolm Purvis <malcolmp(a)xemacs.org>
* internals/internals.texi: "API's" -> "APIs". This fixes
problems generating dvi and pdf versions.
* internals/internals.texi (The configure Script):
Describe the use of XE_MERGED_ARG.
2005-10-13 Ben Wing <ben(a)xemacs.org>
* xemacs-faq.texi (Top):
* xemacs-faq.texi (External Subsystems):
* xemacs-faq.texi (Q5.4.4):
* xemacs-faq.texi (Q5.4.5):
* xemacs-faq.texi (Q5.4.6):
Add question about need to run `rebaseall' under Cygwin.
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* emodules.texi (Distribution with XEmacs): New node describing
organization of module-related code in top-level configure.ac and
src/Makefile.in.in.
2005-09-27 Adrian Aichner <adrian(a)xemacs.org>
* lispref/compile.texi (Compilation Options): Lowercase SYMBOL
argument in `byte-compile-print-gensym' documentation, as
suggested by Stephen.
2005-09-27 Adrian Aichner <adrian(a)xemacs.org>
* lispref/packaging.texi: Get file to compile with teinfmt.el.
* lispref/packaging.texi (Packaging): Ditto.
* lispref/packaging.texi (Package Overview): Ditto.
* lispref/packaging.texi (The User View): Ditto.
* lispref/packaging.texi (The Library Maintainer View): Ditto.
* lispref/packaging.texi (Infrastructure): Ditto.
* lispref/packaging.texi (Obtaining): Ditto.
* lispref/packaging.texi (Local.rules File): Ditto.
* lispref/packaging.texi (package-info.in): Ditto.
* lispref/packaging.texi (Makefile): Ditto.
* lispref/packaging.texi (Documenting Packages): Ditto.
2005-09-27 Adrian Aichner <adrian(a)xemacs.org>
* internals/internals.texi (A Summary of the Various XEmacs
Modules): Get file to compile with texinfmt.el.
* internals/internals.texi (Windows Build Flags): Ditto.
2005-09-26 Ben Wing <ben(a)xemacs.org>
* lispref/glyphs.texi (Images):
* lispref/glyphs.texi (Image Instantiators):
* lispref/glyphs.texi (Image Instantiator Formats):
* lispref/glyphs.texi (Image Instances):
* lispref/glyphs.texi (Image Instance Functions):
* lispref/glyphs.texi (Creating Glyphs):
* lispref/glyphs.texi (Lisp API to Native Widgets):
* lispref/glyphs.texi (Glyph Properties):
* lispref/glyphs.texi (Glyph Examples):
* lispref/lispref.texi (Top):
* lispref/specifiers.texi (Specifiers):
* lispref/specifiers.texi (Introduction to Specifiers):
* lispref/specifiers.texi (Simple Specifier Usage):
* lispref/specifiers.texi (Specifiers In-Depth):
* lispref/specifiers.texi (Specifier Instantiation):
* lispref/specifiers.texi (Retrieving Specifications):
* lispref/specifiers.texi (Specifier Tag Functions):
* lispref/specifiers.texi (Specifier Validation Functions):
Use "instantiation" not "instancing". Fix some places where
"specifier" is used to mean "instantiator".
2005-09-25 Adrian Aichner <adrian(a)xemacs.org>
* lispref/compile.texi (Compilation Options): Supply missing
argument to ＠var{}, using same SYMBOL as in variable docstring of
`byte-compile-print-gensym'.
-------- ChangeLog Entries from modules/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-22 Stephen J. Turnbull <stephen(a)xemacs.org>
Warning elimination:
* ldap/eldap.c (Fldap_add): Remove declaration of `current', which
is now declared by EXTERNAL_LIST_LOOP_2.
(Fldap_modify): Remove redundant variable `gcpro2',
2005-10-25 Ben Wing <ben(a)xemacs.org>
* postgresql/postgresql.c (allocate_pgconn):
* postgresql/postgresql.c (allocate_pgresult):
* postgresql/postgresql.h (struct Lisp_PGconn):
* postgresql/postgresql.h (struct Lisp_PGresult):
MC-Alloc refactoring.
2005-10-25 Ben Wing <ben(a)xemacs.org>
* ldap/eldap.c (allocate_ldap):
* ldap/eldap.h (struct Lisp_LDAP):
MC-Alloc refactoring.
2005-10-21 Stephen J. Turnbull <stephen(a)xemacs.org>
UNDO:
* canna/canna-api.c:
* canna/Makefile.in.in (MODNAME,SRCS):
Rename module from canna_api to canna-api.
2005-10-21 Stephen J. Turnbull <stephen(a)xemacs.org>
* canna/configure: Create and CVS add.
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* canna/Makefile.in.in (MODVER): Bump to 0.5.
* canna/canna-api.c:
* canna/Makefile.in.in (MODNAME,SRCS):
Rename module from canna_api to canna-api.
2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
* canna: New module.
* canna/canna_api.c: Move from $srcdir/src/mule-canna.c. Add module
initialization function and some boilerplate. Change name to
canna_api to reflect changed role.
* canna/configure.ac:
* canna/Makefile.in.in:
* canna/install-sh:
Standard module boilerplate, adapted to Canna.
-------- ChangeLog Entries from netinstall/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
-------- ChangeLog Entries from nt/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-09-26 Ben Wing <ben(a)xemacs.org>
* README:
Major rewrite. Document how to compile various optional libs.
* config.inc.samp:
Update to recent versions of optional libs. Add support for
gmp, db, postgresql, ldap. Turn on optimization when not debug.
* minitar.c:
Include config.h.
* xemacs.mak:
* xemacs.mak (HAVE_WIDGETS):
* xemacs.mak (OPT_DEFINES):
* xemacs.mak (OPT_OBJS):
* xemacs.mak (BROWSERFLAGS):
* xemacs.mak (INCLUDES):
* xemacs.mak (DEFINES):
* xemacs.mak (TEMACS_COMMON_OBJS):
* xemacs.mak (TEMACS_OBJS):
* xemacs.mak ($(OUTDIR)\postgresql.obj):
* xemacs.mak ($(BLDLIB_SRC)/minitar.exe):
* xemacs.mak ( NOTE):
* xemacs.mak (TEMACS_LIBS):
* xemacs.mak ($(RAW_EXE)):
* xemacs.mak (mostlyclean):
* xemacs.mak (versionclean):
Figure out VC++ version and use it to set debug and browser flags
appropriately.
Add support for building gmp, db, postgresql, ldap.
Rewrite handling of optional stuff so it is all added to single
variables OPT_* rather than to various FOO_* variables.
Pass -I$(SRC) to minitar.c so it compiles.
Pass module sources, not objects, to make-docfile.
Delete more stuff in `make clean'.
2005-09-25 Adrian Aichner <adrian(a)xemacs.org>
* xemacs.mak: Fix variable initialization order.
-------- ChangeLog Entries from nt/installer/Wise/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
-------- ChangeLog Entries from src/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
2005-10-22 Stephen J. Turnbull <stephen(a)xemacs.org>
* lrecord.h: Explain the EXTERNAL_LRECORD macros better.
2005-10-25 Ben Wing <ben(a)xemacs.org>
* config.h.in (EXTERN_C):
Don't define new and catch under C++ any more.
(Places using new were just fixed by the last patch, places using
catch were fixed a couple of weeks ago.)
2005-10-25 Ben Wing <ben(a)xemacs.org>
* EmacsFrame.c (EmacsFrameInitialize):
* EmacsFrame.c (EmacsFrameSetValues):
* ExternalClient.c:
* ExternalClient.c (externalClientInitialize):
* ExternalShell.c:
* ExternalShell.c (ExternalShellInitialize):
* chartab.c (copy_char_table_entry):
* chartab.c (Fcopy_char_table):
* cmdloop.c:
* cmdloop.c (initial_command_loop):
* compiler.h:
* console.c (Fvalid_console_type_p):
* database.c:
* device-msw.c:
* device-x.c:
* device.c (Fvalid_device_class_p):
* device.c (Fdevice_class):
* device.c (Fset_device_class):
* device.c (Fdomain_device_type):
* doc.c (Fsubstitute_command_keys):
* dragdrop.c:
* eval.c:
* eval.c (throw_or_bomb_out):
* eval.c (Fsignal):
* event-msw.c:
* event-msw.c (vars_of_event_mswindows):
* event-stream.c (execute_internal_event):
* event-stream.c (push_this_command_keys):
* events.c:
* extents.c (Fset_extent_parent):
* extents.c (get_char_property):
* extents.c (put_text_prop_mapper):
* file-coding.c:
* file-coding.c (Fvalid_coding_system_type_p):
* file-coding.c (Fdetect_coding_region):
* fns.c (Freplace_list):
* frame-tty.c (tty_lower_frame):
* frame.c:
* frame.c (Fframe_visible_p):
* gpmevent.c (Fgpm_enable):
* gutter.c (Fset_default_gutter_position):
* gutter.c (gutter_size_validate):
* gutter.c (specifier_vars_of_gutter):
* hash.c (KEYS_DIFFER_P):
* imgproc.c (splitbox):
* indent.c:
* keymap.c:
* keymap.c (copy_keymap_mapper):
* keymap.c (define_key_check_and_coerce_keysym):
* keymap.c (event_matches_key_specifier_p):
* keymap.c (process_event_binding_result):
* keymap.c (where_is_recursive_mapper):
* lisp-union.h:
* lisp-union.h (union Lisp_Object):
* macros.c (store_kbd_macro_event):
* malloc.c (realloc):
* marker.c (copy_marker_1):
* menubar-x.c (menu_move_down):
* menubar.c:
* menubar.c (vars_of_menubar):
* mule-charset.c:
* mule-charset.c (Fmake_charset):
* mule-charset.c (Fcharset_property):
* mule-charset.c (Fset_charset_ccl_program):
* mule-charset.c (Fset_charset_registry):
* number.c:
* process.c:
* profile.h:
* ralloc.c (obtain):
* redisplay.c:
* redisplay.c (get_display_block_from_line):
* redisplay.c (redisplay_frame):
* redisplay.c (vars_of_redisplay):
* redisplay.c (specifier_vars_of_redisplay):
* select-common.h:
* select.c:
* select.c (vars_of_select):
* syntax.c:
* syntax.c (scan_sexps_forward):
* sysfile.h:
* sysproc.h:
* systime.h:
* syswindows.h:
* toolbar.c (Fset_default_toolbar_position):
* toolbar.c (Fcheck_toolbar_button_syntax):
* toolbar.c (specifier_vars_of_toolbar):
* tooltalk.c:
* tooltalk.c (Freturn_tooltalk_message):
* tooltalk.c (Fadd_tooltalk_message_arg):
* tooltalk.c (Fadd_tooltalk_pattern_attribute):
* tparam.c (tparam1):
* unexaix.c (PERROR):
* unexaix.c (ERROR0):
* unexaix.c (unexec):
* unexaix.c (make_hdr):
* unexaix.c (copy_text_and_data):
* unexaix.c (write_segment):
* unexaix.c (copy_sym):
* unexaix.c (mark_x):
* unexaix.c (adjust_lnnoptrs):
* unexaix.c (unrelocate_symbols):
* unexalpha.c (unexec):
* unexalpha.c (update_dynamic_symbols):
* unexconvex.c (PERROR):
* unexconvex.c (ERROR0):
* unexconvex.c (entry_address;):
* unexconvex.c (make_hdr):
* unexconvex.c (new_;):
* unexconvex.c (sptr;):
* unexconvex.c (copy_sym):
* unexconvex.c (name;):
* unexec.c:
* unexec.c (PERROR):
* unexec.c (ERROR0):
* unexec.c (unexec):
* unexec.c (make_hdr):
* unexec.c (write_segment):
* unexec.c (copy_sym):
* unexec.c (mark_x):
* unexec.c (adjust_lnnoptrs):
* unexhp9k800.c:
* unexhp9k800.c (unexec):
* unexhp9k800.c (copy_file):
* unexhp9k800.c (copy_rest):
* unexmips.c (unexec):
* unicode.c:
* unicode.c (Fchar_to_unicode):
* window.c (make_dummy_parent):
* window.c (Fsplit_window):
* window.c (Fenlarge_window):
new -> new_.
'foo -> `foo'.
2005-10-25 Ben Wing <ben(a)xemacs.org>
* alloc.c:
* alloc.c (old_basic_alloc_lcrecord):
* alloc.c (very_old_free_lcrecord):
* alloc.c (disksave_object_finalization_1):
* alloc.c (copy_lisp_object):
* alloc.c (make_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (old_free_lcrecord):
* alloc.c (GC_CHECK_NOT_FREE):
* alloc.c (tick_lcrecord_stats):
* alloc.c (sweep_lcrecords_1):
* buffer.c (compute_buffer_usage):
* buffer.c (DEFVAR_BUFFER_LOCAL_1):
* console.c (DEFVAR_CONSOLE_LOCAL_1):
* emacs.c:
* emacs.c (main_1):
* file-coding.c (allocate_coding_system):
* lrecord.h:
* lrecord.h (struct old_lcrecord_header):
* lrecord.h (struct free_lcrecord_header):
* lrecord.h (struct lrecord_implementation):
* lrecord.h (struct lcrecord_list):
* lrecord.h (old_alloc_lcrecord_type):
* lrecord.h (old_copy_sized_lcrecord):
* lrecord.h (old_zero_lcrecord):
* lstream.c (Lstream_new):
* mule-charset.c (compute_charset_usage):
* print.c (debug_p4):
* scrollbar-gtk.c (gtk_compute_scrollbar_instance_usage):
* scrollbar-msw.c (mswindows_compute_scrollbar_instance_usage):
* scrollbar-x.c (x_compute_scrollbar_instance_usage):
* scrollbar.c (compute_scrollbar_instance_usage):
* symbols.c (guts_of_unbound_marker):
* symeval.h (DEFVAR_SYMVAL_FWD):
* unicode.c (compute_from_unicode_table_size_1):
* unicode.c (compute_to_unicode_table_size_1):
* window.c (compute_window_mirror_usage):
* window.c (compute_window_usage):
* xemacs.def.in.in:
rename `struct lcrecord_header' to `struct old_lcrecord_header';
likewise for `old_basic_alloc_lcrecord', `old_free_lcrecord',
`old_zero_lcrecord', `old_zero_sized_lcrecord', `old_copy_lcrecord',
`old_copy_sized_lcrecord', `old_alloc_lcrecord_type'. Created new
LISPOBJ_STORAGE_SIZE() used only on objects created through allocation
of Lisp-Object memory instead of basic xmalloc()/xfree(). This is
distinguished from malloced_storage_size(), for non-Lisp-Objects.
The definition of LISPOBJ_STORAGE_SIZE() can reduce down to
malloced_storage_size() when not MC-ALLOC, but with MC-ALLOC it's
a different function.
The whole point other than cleaning up the use of LISPOBJ_STORAGE_SIZE
is to make it harder to accidentally use the old kind (lowercase) of
function in new code, since you get a compile error.
2005-10-25 Ben Wing <ben(a)xemacs.org>
* frame-msw.c (mswindows_window_id):
Fix warning.
2005-10-24 Ben Wing <ben(a)xemacs.org>
* frame-msw.c:
* frame-msw.c (decode_mswindows_frame):
New function, like decode_x_frame.
* frame-msw.c (mswindows_window_id):
* frame-msw.c (mswindows_frame_property):
* frame-msw.c (mswindows_internal_frame_property_p):
* frame-msw.c (mswindows_frame_properties):
* frame-msw.c (vars_of_frame_mswindows):
Add `window-id' property for MS Windows frames.
2005-10-24 Ben Wing <ben(a)xemacs.org>
* alloc.c:
* alloc.c (Lisp_Free):
* alloc.c (Fcons):
* alloc.c (noseeum_cons):
* alloc.c (make_float):
* alloc.c (make_bignum):
* alloc.c (make_bignum_bg):
* alloc.c (make_ratio):
* alloc.c (make_ratio_bg):
* alloc.c (make_ratio_rt):
* alloc.c (make_bigfloat):
* alloc.c (make_bigfloat_bf):
* alloc.c (make_vector_internal):
* alloc.c (make_bit_vector_internal):
* alloc.c (make_compiled_function):
* alloc.c (Fmake_symbol):
* alloc.c (allocate_extent):
* alloc.c (allocate_event):
* alloc.c (make_key_data):
* alloc.c (make_button_data):
* alloc.c (make_motion_data):
* alloc.c (make_process_data):
* alloc.c (make_timeout_data):
* alloc.c (make_magic_data):
* alloc.c (make_magic_eval_data):
* alloc.c (make_eval_data):
* alloc.c (make_misc_user_data):
* alloc.c (Fmake_marker):
* alloc.c (noseeum_make_marker):
* buffer.c (allocate_buffer):
* buffer.c (compute_buffer_usage):
* buffer.c (nuke_all_buffer_slots):
* buffer.c (common_init_complex_vars_of_buffer):
* buffer.h (struct buffer):
* casetab.c (allocate_case_table):
* casetab.h (struct Lisp_Case_Table):
* charset.h (struct Lisp_Charset):
* chartab.c (fill_char_table):
* chartab.c (Fmake_char_table):
* chartab.c (make_char_table_entry):
* chartab.c (copy_char_table_entry):
* chartab.c (Fcopy_char_table):
* chartab.c (put_char_table):
* chartab.h (struct Lisp_Char_Table_Entry):
* chartab.h (struct Lisp_Char_Table):
* console-impl.h (struct console):
* console-msw-impl.h (struct Lisp_Devmode):
* console-msw-impl.h (struct mswindows_dialog_id):
* console.c (allocate_console):
* console.c (nuke_all_console_slots):
* console.c (common_init_complex_vars_of_console):
* data.c (make_weak_list):
* data.c (make_weak_box):
* data.c (make_ephemeron):
* database.c (struct Lisp_Database):
* database.c (allocate_database):
* device-impl.h (struct device):
* device-msw.c (allocate_devmode):
* device.c (nuke_all_device_slots):
* device.c (allocate_device):
* dialog-msw.c (handle_question_dialog_box):
* elhash.c (struct Lisp_Hash_Table):
* elhash.c (make_general_lisp_hash_table):
* elhash.c (Fcopy_hash_table):
* events.h (struct Lisp_Timeout):
* events.h (struct command_builder):
* extents-impl.h (struct extent_auxiliary):
* extents-impl.h (struct extent_info):
* extents.c (allocate_extent_auxiliary):
* extents.c (allocate_extent_info):
* extents.c (copy_extent):
* faces.c (allocate_face):
* faces.h (struct Lisp_Face):
* file-coding.c (Fcopy_coding_system):
* file-coding.h (struct Lisp_Coding_System):
* frame-impl.h (struct frame):
* frame.c (nuke_all_frame_slots):
* frame.c (allocate_frame_core):
* glyphs.c (allocate_image_instance):
* glyphs.c (Fcolorize_image_instance):
* glyphs.c (allocate_glyph):
* glyphs.h (struct Lisp_Image_Instance):
* glyphs.h (struct Lisp_Glyph):
* gui.c (allocate_gui_item):
* gui.h (struct Lisp_Gui_Item):
* keymap.c (struct Lisp_Keymap):
* keymap.c (make_keymap):
* lisp.h (struct Lisp_Vector):
* lisp.h (struct Lisp_Bit_Vector):
* lisp.h (struct weak_box):
* lisp.h (struct ephemeron):
* lisp.h (struct weak_list):
* lrecord.h:
* lrecord.h (struct toolbar_button):
* lstream.c (COPY_SIZED_LCRECORD):
* lstream.h (struct lstream):
* mule-charset.c (make_charset):
* mule-charset.c (compute_charset_usage):
* objects-impl.h (struct Lisp_Color_Instance):
* objects-impl.h (struct Lisp_Font_Instance):
* objects.c (Fmake_color_instance):
* objects.c (Fmake_font_instance):
* objects.c (reinit_vars_of_objects):
* opaque.c (make_opaque):
* opaque.h (Lisp_Opaque):
* opaque.h (Lisp_Opaque_Ptr):
* print.c (default_object_printer):
* process.c (make_process_internal):
* procimpl.h (struct Lisp_Process):
* rangetab.c (Fmake_range_table):
* rangetab.c (Fcopy_range_table):
* rangetab.h (struct Lisp_Range_Table):
* scrollbar-gtk.c (gtk_compute_scrollbar_instance_usage):
* scrollbar-msw.c (mswindows_compute_scrollbar_instance_usage):
* scrollbar-x.c (x_compute_scrollbar_instance_usage):
* scrollbar.c (create_scrollbar_instance):
* scrollbar.c (compute_scrollbar_instance_usage):
* scrollbar.h (struct scrollbar_instance):
* specifier.c (make_specifier_internal):
* specifier.h (struct Lisp_Specifier):
* symbols.c (Fdefvaralias):
* symeval.h (SYMBOL_VALUE_MAGIC_P):
* toolbar.c (update_toolbar_button):
* toolbar.h (struct toolbar_button):
* tooltalk.c (struct Lisp_Tooltalk_Message):
* tooltalk.c (make_tooltalk_message):
* tooltalk.c (struct Lisp_Tooltalk_Pattern):
* tooltalk.c (make_tooltalk_pattern):
* ui-gtk.c (allocate_ffi_data):
* ui-gtk.c (allocate_emacs_gtk_object_data):
* ui-gtk.c (allocate_emacs_gtk_boxed_data):
* ui-gtk.h:
* unicode.c (compute_from_unicode_table_size_1):
* unicode.c (compute_to_unicode_table_size_1):
* window-impl.h (struct window):
* window-impl.h (struct window_mirror):
* window.c (allocate_window):
* window.c (new_window_mirror):
* window.c (make_dummy_parent):
* window.c (compute_window_mirror_usage):
* window.c (compute_window_usage):
Eliminate the majority of #ifdef MC_ALLOC occurrences through
macros LCRECORD_HEADER, ALLOC_LCRECORD_TYPE, MALLOCED_STORAGE_SIZE,
etc. (defined in lrecord.h).
2005-10-21 Stephen J. Turnbull <stephen(a)xemacs.org>
* Makefile.in.in (mule_canna_objs): Revert canna-api to canna_api.
2005-10-13 Ben Wing <ben(a)xemacs.org>
* config.h.in:
* alloc.c:
* alloc.c (struct):
* alloc.c (alloc_lrecord):
* alloc.c (noseeum_alloc_lrecord):
* alloc.c (finalize_string):
* alloc.c (make_uninit_string):
* alloc.c (make_string_nocopy):
* alloc.c (garbage_collect_1):
* alloc.c (object_memory_usage_stats):
* alloc.c (HACK_O_MATIC):
* alloc.c (Fgarbage_collect):
* alloc.c (Ftotal_memory_usage):
* alloc.c (recompute_need_to_garbage_collect):
* alloc.c (common_init_alloc_early):
* alloc.c (syms_of_alloc):
* alloc.c (vars_of_alloc):
* dumper.c (pdump_load_finish):
* emacs.c:
* emacs.c (main_1):
* emacs.c (shut_down_emacs):
* lrecord.h:
* lrecord.h (MC_ALLOC_CALL_FINALIZER):
* mc-alloc.c (remove_cell):
* mc-alloc.h:
* symbols.c (init_symbols_once_early):
Rename MC_ALLOC_TYPE_STATS to ALLOC_TYPE_STATS, since
(with refactoring) this is not really specific to mc-alloc.
Generalize code to implement the GC % threshold for garbage
collecting. Rename `lrecord-stats' to `object-memory-usage-stats'
(defined when not mc-alloc, too). Rename `memory-usage' to
`total-memory-usage' and add `object-memory-usage'. Bump
gc_cons_threshold to 2,000,000 (suggestion by Stephen Turnbull).
Avoid use of C++ reserved word `catch'.
Change address for crash reporting to xemacs-beta(a)xemacs.org from
crashes(a)xemacs.org.
new -> new_ in emacs.c.
Turn on _CRT_SECURE_NO_DEPRECATE under Visual C++ to avoid tons of
warnings in VC8.
2005-10-10 Andrey Slusar <anrays(a)gmail.com>
* unexelf.c: define `Elfw(type)' for FreeBSD alpha and all _LP64
archs.
From Dejan Lesjak <dejan.lesjak(a)ijs.si>
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* Makefile.in.in (mule_canna_objs): Use correct name of .o.
2005-09-22 Stephen J. Turnbull <stephen(a)xemacs.org>
* Makefile.in.in (HAVE_CANNA): Handle Canna as a module.
* emacs.c (main_1): Update Canna initializers to *_canna_api names.
* mule-canna.c: Moved to modules/canna/canna_api.c.
* symsinit.h (syms_of_mule_canna):
(vars_of_mule_canna):
Rename to *_of_canna_api.
2005-09-29 Ben Wing <ben(a)xemacs.org>
* alloca.c (xemacs_c_alloca):
Don't declare a variable `register' when it can be passed to
xfree(), which may take its address.
new -> new_.
2005-09-26 Marcus Crestani <crestani(a)xemacs.org>
* symbols.c (check_module_subr): Fix new allocator's module
support: remove duplicating the subr.
2005-09-27 Ben Wing <ben(a)xemacs.org>
* glyphs.c:
* glyphs.c (find_instantiator_differences):
* glyphs.c (Fvalid_image_instance_type_p):
* glyphs.c (Fimage_instance_type):
* glyphs.c (Fcolorize_image_instance):
* glyphs.c (Fglyph_type):
* glyphs.c (glyph_image_instance):
* glyphs.c (image_instantiator_format_create):
* glyphs-eimage.c:
* glyphs-eimage.c (jpeg_instantiate):
* glyphs-eimage.c (gif_instantiate):
* glyphs-eimage.c (png_instantiate):
* glyphs-eimage.c (tiff_instantiate):
* glyphs-x.c:
* glyphs-x.c (image_instance_convert_to_pointer):
* glyphs-x.c (init_image_instance_from_x_image):
* glyphs-x.c (x_init_image_instance_from_eimage):
* glyphs-x.c (x_xpm_instantiate):
* glyphs-x.c (x_colorize_image_instance):
* glyphs-gtk.c:
* glyphs-gtk.c (image_instance_convert_to_pointer):
* glyphs-gtk.c (init_image_instance_from_gdk_image):
* glyphs-gtk.c (gtk_init_image_instance_from_eimage):
* glyphs-gtk.c (gtk_xpm_instantiate):
* glyphs-msw.c:
* glyphs-msw.c (mswindows_init_image_instance_from_eimage):
* console-impl.h:
* console-impl.h (struct console_methods):
Allow all kinds of color images (GIF, JPEG, ...) to be mouse pointers.
new -> new_, 'foo -> `foo'.
2005-09-27 Ben Wing <ben(a)xemacs.org>
* Makefile.in.in (cppflags):
Always include SRC, so <config.h> in lib-src always works.
2005-09-27 Ben Wing <ben(a)xemacs.org>
* sysdep.c (emacs_set_tty):
* sysdep.c (qxe_link):
* sysdep.c (qxe_rename):
* sysdep.c (dup2):
Fix bit-rotted dup2 code. Also new -> new_.
* nt.c:
* nt.c (mswindows_closedir):
* nt.c (mswindows_link):
Fix possible use of uninitialized var. Also new -> new_.
2005-09-27 Ben Wing <ben(a)xemacs.org>
* text.c (wcscmp_ascii):
* text.c (COPY_TEXT_BETWEEN_FORMATS):
* event-Xt.c (x_event_to_emacs_event):
* event-Xt.c (ShellVisualPatch):
* lisp.h:
* lisp.h (assert_with_message):
* number-gmp.c (bigfloat_to_string):
* number-gmp.h:
Fix compilation warnings. A couple of changes of new -> new_,
'foo -> `foo'.
2005-09-26 Ben Wing <ben(a)xemacs.org>
* specifier.c:
* specifier.c (Fvalid_specifier_type_p):
* specifier.c (Fvalid_specifier_locale_p):
* specifier.c (Fvalid_specifier_domain_p):
* specifier.c (Fvalid_specifier_locale_type_p):
* specifier.c (Fdefine_specifier_tag):
* specifier.c (specifier_get_external_inst_list):
* specifier.c (Fspecifier_specs):
* specifier.c (Fspecifier_fallback):
* specifier.c (specifier_instance_from_inst_list):
* specifier.c (CHECK_INSTANCE_ENTRY):
* specifier.c (specifier_instance_1):
* specifier.c (specifier_instance):
* specifier.c (specifier_matching_foo):
* specifier.c (Fspecifier_instance):
* specifier.c (Fspecifier_instantiator):
* specifier.c (Fspecifier_matching_instance):
* specifier.c (specifier_matching_foo_from_inst_list):
* specifier.c (syms_of_specifier):
Add `specifier-instantiator' and related primitives.
2005-09-26 Ben Wing <ben(a)xemacs.org>
* rangetab.c:
* rangetab.c (Fmap_range_table):
Fix bug in handling of range endpoints when not start-closed, end-open.
2005-09-17 Olivier Galibert <galibert(a)xemacs.org>
* intl.c (Fset_current_locale): setlocale return string is valid
only until the next setlocale call.
2005-09-12 Mike Alexander <mta(a)arbortext.com>
* intl-win32.c (mswindows_current_locale): Define in non-MULE
build.
2005-09-14 Marcus Crestani <crestani(a)xemacs.org>
* mc-alloc.c (set_lookup_table): Adjust parameter to other memset
calls.
* mc-alloc.c (init_mc_allocator): Zero global allocator structure.
-------- ChangeLog Entries from tests/ChangeLog --------
2005-10-26 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.23 "daikon" is released.
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Ask not how you can "do" free software business;
ask what your business can "do for" free software.
- 8 participants
- 24 comments
CVS commit log emails
19 years
Steve Youngs
Steve Youngs
I was wondering if the commit log emails could be generated _without_
that 2 character left margin?
With that margin, you can't `M-x ediff-patch-file' directly from
Gnus.:-(
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| I am Dyslexic of Borg. |
| Fusistance is retile. Your arse will be laminated. |
|------------------------------------<steve(a)sxemacs.org>---|
- 4 participants
- 6 comments
changing the values of iso-8859-* charsets
19 years
Ben Wing
Ben Wing
i am 99% of the way towards beginning to try to compile unicode-internal :)
currently we use 32-127 for the values of the chars in the iso-8859
charsets. maybe that was needed under old-mule, but in unicode-internal
charsets can have values in any arbitrary interval or rectangle in 256
or 256x256 space. shouldn't we use 160-255? this would only matter in
the output of `split-char'; `make-char' already goes either way.
ben
- 3 participants
- 23 comments
[Bug: 21.4.14] Crash Following System Reboot
19 years
Jake Colman
Jake Colman
================================================================
Dear Bug Team!
I've been using this build of XEmacs for over two years. I was just moved to
a newly created Solaris 8 machine and continued to use this build without an
issue. They just rebooted the Solaris 8 system and now xemacs won't start on
that system. It still starts on the Solaris 7 system without a problem.
Here is my trace:
Lisp backtrace follows:
# (unwind-protect ...)
make-device(x nil)
# bind (display)
make-x-device(nil)
init-x-win()
# bind (debugger debug-on-error command-line-args-left)
command-line()
# (condition-case ... . ((t (byte-code " Â" ... 1))))
# bind (error-data)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
Segmentation Fault (core dumped)
Thank for any help!
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: SunOS montana 5.7 Generic_106541-17 sun4u sparc SUNW,Ultra-Enterprise
./configure '--prefix=/homes/mo/colman' '--site-prefixes=/homes/mo/colman' '--without-dragndrop' '--without-cde' '--with-tooltalk' '--with-workshop' '--without-sound' '--with-pop' '--with-widgets=athena' '--with-dialogs=athena' '--pdump'
XEmacs 21.4.14 "Reasonable Discussion" configured for `sparc-sun-solaris2.7'.
Compilation / Installation:
Source code location: /homes/mo/colman/src/xemacs-21.4.14
Installation prefix: /homes/mo/colman
Additional prefixes: /homes/mo/colman
Runtime library search path: /usr/ccs/lib:/homes/mo/colman/lib:/usr/openwin/lib:/usr/local/lib
Operating system description file: `s/sol2.h'
Machine description file: `m/sparc.h'
Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -fno-strict-aliasing -Wshadow -Wpointer-arith
Relocating allocator for buffers: yes
GNU version of malloc: yes
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/openwin/include
- X Windows libraries location: /usr/openwin/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw
- Athena library to link: Xaw
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Sound:
Databases:
Compiling in support for DBM.
Compiling in support for LDAP.
Internationalization:
Mail:
Compiling in support for POP mail retrieval.
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for ToolTalk.
Compiling in support for Sun WorkShop.
Compiling in support for dynamic shared object modules.
Using the new portable dumper.
Load-Path Lisp Shadows:
----------------------
(/homes/mo/colman/site-lisp/gud
/homes/mo/colman/lib/xemacs/xemacs-packages/lisp/debug/gud
/homes/mo/colman/site-lisp/highline
/homes/mo/colman/lib/xemacs/xemacs-packages/lisp/edit-utils/highline
/homes/mo/colman/site-lisp/filladapt
/homes/mo/colman/lib/xemacs/xemacs-packages/lisp/text-modes/filladapt
/homes/mo/colman/lib/xemacs/xemacs-packages/lisp/build/build-report
/homes/mo/colman/lib/xemacs-21.4.14/lisp/build-report)
Installed XEmacs Packages:
-------------------------
(zenirc ver: 1.15 upstream: 2.112)
(xslt-process ver: 1.11 upstream: regular)
(xslide ver: 1.09 upstream: 0.2.2)
(xemacs-devel ver: 1.64 upstream: No-Upstream-Ver)
(xemacs-base ver: 1.87 upstream: No-Upstream-Ver)
(x-symbol ver: 1.1 upstream: 4.5.1)
(w3 ver: 1.3 upstream: 4.0pre47)
(viper ver: 1.37 upstream: 3.09)
(view-process ver: 1.13 upstream: 2.4)
(vhdl ver: 1.19 upstream: 3.32.20)
(vc-cc ver: 1.22 upstream: No-Upstream-Ver)
(vc ver: 1.38 upstream: No-Upstream-Ver)
(tramp ver: 1.17 upstream: 2.0.35)
(tpu ver: 1.14 upstream: 4.2X)
(tooltalk ver: 1.15 upstream: No-Upstream-Ver)
(tm ver: 1.37 upstream: No-Upstream-Ver)
(time ver: 1.14 upstream: 1.17)
(textools ver: 1.15 upstream: No-Upstream-Ver)
(text-modes ver: 1.78 upstream: No-Upstream-Ver)
(texinfo ver: 1.25 upstream: No-Upstream-Ver)
(supercite ver: 1.2 upstream: 3.55x3)
(strokes ver: 1.1 upstream: No-Upstream-Ver)
(speedbar ver: 1.27 upstream: 0.14beta4)
(sml-mode ver: 0.11 upstream: 3.9.5)
(slider ver: 1.15 upstream: 0.3x1)
(sieve ver: 1.16 upstream: No-Upstream-Ver)
(sh-script ver: 1.18 upstream: 2.0e)
(sgml ver: 1.11 upstream: No-Upstream-Ver)
(semantic ver: 1.18 upstream: 1.4.2)
(scheme ver: 1.14 upstream: No-Upstream-Ver)
(sasl ver: 1.14 upstream: 1.14.4)
(ruby-modes ver: 1.02 upstream: 1.6.8)
(rmail ver: 1.14 upstream: No-Upstream-Ver)
(reftex ver: 1.34 upstream: 4.21)
(python-modes ver: 1.06 upstream: No-Upstream-Ver)
(psgml-dtds ver: 1.03 upstream: No-Upstream-Ver)
(psgml ver: 1.43 upstream: 1.3.1)
(ps-print ver: 1.11 upstream: 6.5.6)
(prog-modes ver: 2.01 upstream: No-Upstream-Ver)
(pgg ver: 1.04 upstream: 0.1)
(perl-modes ver: 1.06 upstream: No-Upstream-Ver)
(pcomplete ver: 1.03 upstream: 1.1.6)
(pcl-cvs ver: 1.65 upstream: R-2_9_9)
(pc ver: 1.26 upstream: No-Upstream-Ver)
(os-utils ver: 1.35 upstream: No-Upstream-Ver)
(oo-browser ver: 1.04 upstream: 4.08)
(ocaml ver: 0.05 upstream: 3.06)
(net-utils ver: 1.44 upstream: N/A)
(mmm-mode ver: 1.02 upstream: 0.4.7)
(misc-games ver: 1.18 upstream: No-Upstream-Ver)
(mine ver: 1.16 upstream: 1.9)
(mh-e ver: 1.28 upstream: 7.4.2)
(mew ver: 1.18 upstream: 1.94.2)
(mailcrypt ver: 2.14 upstream: 3.5.8)
(mail-lib ver: 1.67 upstream: No-Upstream-Ver)
(jde ver: 1.46 upstream: regular)
(ispell ver: 1.29 upstream: 3.6)
(ilisp ver: 1.33 upstream: 5.12.0)
(igrep ver: 1.13 upstream: 2.111)
(idlwave ver: 1.31 upstream: 5.1)
(ibuffer ver: 1.09 upstream: No-Upstream-Ver)
(hyperbole ver: 1.16 upstream: 4.18)
(hm--html-menus ver: 1.23 upstream: 5.9)
(haskell-mode ver: 1.07 upstream: 1.45)
(gnus ver: 1.8 upstream: 5.10.6)
(gnats ver: 1.16 upstream: 3.101)
(general-docs ver: 1.01 upstream: No-Upstream-Ver)
(games ver: 1.15 upstream: 1.04)
(fsf-compat ver: 1.14 upstream: No-Upstream-Ver)
(frame-icon ver: 1.11 upstream: No-Upstream-Ver)
(fortran-modes ver: 1.04 upstream: No-Upstream-Ver)
(forms ver: 1.15 upstream: 2.37)
(footnote ver: 1.16 upstream: 0.18x)
(eudc ver: 1.39 upstream: 1.32)
(eterm ver: 1.15 upstream: No-Upstream-Ver)
(eshell ver: 1.07 upstream: 2.4.1)
(emerge ver: 1.11 upstream: No-Upstream-Ver)
(elib ver: 1.11 upstream: 1.0)
(eieio ver: 1.05 upstream: 0.17)
(efs ver: 1.32 upstream: 1.22)
(edt ver: 1.13 upstream: No-Upstream-Ver)
(edit-utils ver: 2.14 upstream: No-Upstream-Ver)
(ediff ver: 1.5 upstream: 2.75)
(edebug ver: 1.21 upstream: No-Upstream-Ver)
(ecrypto ver: 0.17 upstream: 2.0)
(ecb ver: 1.18 upstream: 2.24)
(docbookide ver: 0.07000000000000001 upstream: 0.1)
(dired ver: 1.15 upstream: 7.11)
(dictionary ver: 1.12 upstream: regular)
(debug ver: 1.17 upstream: No-Upstream-Ver)
(crisp ver: 1.14 upstream: 1.34)
(cookie ver: 1.15 upstream: No-Upstream-Ver)
(cc-mode ver: 1.43 upstream: 5.30.9)
(calendar ver: 1.23 upstream: No-Upstream-Ver)
(calc ver: 1.25 upstream: 2.02fX3)
(c-support ver: 1.2 upstream: No-Upstream-Ver)
(build ver: 1.14 upstream: 2.02)
(bbdb ver: 1.24 upstream: 2.34)
(auctex ver: 1.38 upstream: 11.14)
(apel ver: 1.27 upstream: 10.2)
(ada ver: 1.14 upstream: 2.27)
(Sun ver: 1.15 upstream: No-Upstream-Ver)
Installed Modules:
-----------------
Features:
--------
(lazy-lock xemacsbug shadow func-menu gnus-ml gnus-topic utf7 passwd nndoc
nnfolder nndraft nnmh efs-cu bbdb-gnus bbdb-snarf gnus-agent gnus-srvr
gnus-score score-mode nnvirtual nntp gnus-cache nnimap imap spam spam-stat
bbdb-com hashcash executable gnus-uu gnus-msg gnus-art mm-uu mml2015 pgg
pgg-parse pgg-def mm-view gnus-sum nnoo gnus-group gnus-undo nnmail
mail-source format-spec patch-keywords message-x gnus-start gnus-spec
gnus-int gnus-range message mml mml-sec mml-smime smime dig mm-decode
mm-bodies mm-encode mailcap lpr mail-parse rfc2045 rfc2231 rfc2047 qp
ietf-drums mail-abbrevs sendmail rfc822 mailheader canlock gnus-win gnus
gnus-ems gnus-xmas messagexmas nnheader nnheaderxm gnus-util netrc time-date
parse-time mail-utils mm-util mail-prsvr eudcb-ldap ldap eudc
eudc-options-file cus-edit cus-load eudc-vars overlay wid-edit rsz-minibuf
pending-del c-comment-edit autorevert jka-compr power-macros edmacro paren
mic-paren timer byte-optimize bytecomp byte-compile advice advice-preload
minibuffer-complete-cycle filladapt vc-hooks font-lock cus-face bbdb-sc
supercite mail-extr regi bbdb timezone gnuserv disp-table zenirc-autoloads
xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads
xemacs-base-autoloads x-symbol-autoloads w3-autoloads viper-autoloads
view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads
tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads
textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads
strokes-autoloads speedbar-autoloads sml-mode-autoloads slider-autoloads
sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads
scheme-autoloads sasl-autoloads ruby-modes-autoloads rmail-autoloads
reftex-autoloads python-modes-autoloads psgml-dtds-autoloads psgml-autoloads
ps-print-autoloads prog-modes-autoloads pgg-autoloads perl-modes-autoloads
pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads
oo-browser-autoloads ocaml-autoloads net-utils-autoloads mmm-mode-autoloads
misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads
mailcrypt-autoloads mail-lib-autoloads jde-autoloads ispell-autoloads
ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads
hyperbole-autoloads hm--html-menus-autoloads haskell-mode-autoloads
gnus-autoloads gnats-autoloads general-docs-autoloads games-autoloads
fsf-compat-autoloads frame-icon-autoloads fortran-modes-autoloads
forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads
eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads
efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads
edebug-autoloads ecrypto-autoloads ecb-autoloads docbookide-autoloads
dired-autoloads dictionary-autoloads debug-autoloads crisp-autoloads
cookie-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads
c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads
apel-autoloads ada-autoloads Sun-autoloads lisp-autoloads loadhist auto-show
fontl-hooks x-iso8859-1 gutter-items menubar-items x-menubar mode-motion
mouse itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu
lib-complete help-nomule cus-file derived frame text-props obsolete cus-start
custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp
sparcworks tooltalk lucid-scrollbars cut-buffer lucid-menubars athena-dialogs
x c-balloon-help tty-frames tty toolbar scrollbar unix-processes multicast
network-streams subprocesses modules menu-accelerator-support menubar dbm md5
xemacs gutter png gif jpeg xpm xbm lisp-float-type usg-unix-v dialog devices
window-system base64)
Recent keystrokes:
-----------------
button1 button1up M-x e m a TAB v e TAB RET M-x g n
u s RET n y RET y button1 button1up RET M-x x e TAB
b TAB BS r e TAB BS BS BS BS BS BS BS BS BS BS r e
p TAB o TAB r TAB x e TAB RET
Recent messages (most recent first):
-----------------------------------
Fontifying *mail to XEmacs Beta*...
Loading lazy-lock...
Parsing /homes/mo/colman/.mailrc... done
Parsing /homes/mo/colman/.mailrc...
Loading xemacsbug...done
Loading xemacsbug...
Making completion list...
Making completion list...
Parsing BBDB... (frobnicating...done)
Parsing BBDB... (frobnicating...)
Parsing BBDB... (reading...)
Parsing BBDB...
Loading func-menu...done
Loading func-menu...
Fetching headers for nnimap+hamilton:INBOX/Emacs/XEmacs/Beta...done
Fetching headers for nnimap+hamilton:INBOX/Emacs/XEmacs/Beta...
nnimap: Updating info for nnimap+hamilton:INBOX/Emacs/XEmacs/Beta...done
imap read: 11k
nnimap: Updating info for nnimap+hamilton:INBOX/Emacs/XEmacs/Beta...
Loading gnus-ml...done
--
Jake Colman
Sr. Applications Developer
Principia Partners LLC
Harborside Financial Center
1001 Plaza Two
Jersey City, NJ 07311
(201) 209-2467
www.principiapartners.com
- 4 participants
- 3 comments
More info on toggle-profiling crashes
19 years
Adrian Aichner
Adrian Aichner
At some point I got "Bad using clause" in the loop macro called from
profile-results.
Progressively evaluating macros allowed me to edebug more and more of
the problems in profile-results, but I got stuck at some point yesterday.
Adrian
----------------------------------------------------------------------------
Crash on third toggle:
Fatal error.
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround. Please check it first, but do report
the crash anyway.
Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu. If that won't work, send ordinary
email to `xemacs-beta(a)xemacs.org'. *MAKE SURE* to include this entire
output from this crash, especially including the Lisp backtrace, as well as
the XEmacs configuration from M-x describe-installation (or equivalently,
the file `Installation' in the top of the build tree).
If you are fortunate enough to have some sort of debugging aid installed
on your system, for example Visual C++, and you can get a C stack backtrace,
*please* include it, as it will make our life far easier.
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
format("%s"
string = XSTRING_DATA (ls);
doprnt.c
emacs_doprnt_1(Lisp_Object {...}, const unsigned char * 0x0289dbd0, long 2, Lisp_Object {...}, int 1, const Lisp_Object * 0x0082e20c, char * 0x0082e0d8) line 572 + 3 bytes
emacs_doprnt(Lisp_Object {...}, const unsigned char * 0x00000000, long 0, Lisp_Object {...}, int 1, const Lisp_Object * 0x0082e20c) line 866 + 33 bytes
emacs_vsprintf_string_lisp(const char * 0x00000000, Lisp_Object {...}, int 1, const Lisp_Object * 0x0082e20c) line 899 + 59 bytes
Fformat(int 2, Lisp_Object * 0x0082e208) line 2219 + 27 bytes
Ffuncall(int 3, Lisp_Object * 0x0082e204) line 3870 + 14 bytes
execute_optimized_program(const unsigned char * 0x02e6eeb0, int 4, Lisp_Object * 0x02ec4d18) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 1, Lisp_Object * 0x0082e6dc) line 3460 + 35 bytes
Ffuncall(int 2, Lisp_Object * 0x0082e6d8) line 3886 + 17 bytes
mapcar1(long 127, Lisp_Object * 0x0082e6fc, Lisp_Object {...}, Lisp_Object {...}) line 3195 + 11 bytes
Fmapcar(Lisp_Object {...}, Lisp_Object {...}) line 3303 + 21 bytes
Ffuncall(int 3, Lisp_Object * 0x0082ea04) line 3847 + 120 bytes
execute_optimized_program(const unsigned char * 0x02e91b28, int 15, Lisp_Object * 0x02ec4e20) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 3, Lisp_Object * 0x0082ee7c) line 3460 + 35 bytes
Ffuncall(int 4, Lisp_Object * 0x0082ee78) line 3886 + 17 bytes
execute_optimized_program(const unsigned char * 0x02e91b28, int 15, Lisp_Object * 0x02ec4e20) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 0, Lisp_Object * 0x0082f2f4) line 3460 + 35 bytes
Ffuncall(int 1, Lisp_Object * 0x0082f2f0) line 3886 + 17 bytes
execute_optimized_program(const unsigned char * 0x02e3e038, int 2, Lisp_Object * 0x02e91a10) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 0, Lisp_Object * 0x0082f760) line 3460 + 35 bytes
Ffuncall(int 1, Lisp_Object * 0x0082f75c) line 3886 + 17 bytes
apply1(Lisp_Object {...}, Lisp_Object {...}) line 4466 + 11 bytes
Fcall_interactively(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 459 + 13 bytes
Fcommand_execute(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 3114 + 17 bytes
execute_command_event(command_builder * 0x02398130, Lisp_Object {...}) line 4286 + 25 bytes
Fdispatch_event(Lisp_Object {...}) line 4598 + 92 bytes
Fcommand_loop_1() line 600 + 9 bytes
command_loop_1(Lisp_Object {...}) line 505 + 5 bytes
condition_case_1(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x01074b1c command_loop_1(Lisp_Object), Lisp_Object {...}, Lisp_Object (Lisp_Object, Lisp_Object)* 0x010747ac cmd_error(Lisp_Object, Lisp_Object), Lisp_Object {...}) line 1924 + 7 bytes
command_loop_3() line 262 + 35 bytes
command_loop_2(Lisp_Object {...}) line 277
internal_catch(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x0107493c command_loop_2(Lisp_Object), Lisp_Object {...}, int * volatile 0x00000000, Lisp_Object * volatile 0x00000000, Lisp_Object * volatile 0x00000000) line 1530 + 7 bytes
initial_command_loop(Lisp_Object {...}) line 313 + 29 bytes
xemacs_21_5_b23_i586_pc_win32(int 1, unsigned short * * 0x0082ff18, unsigned short * * 0x00000000, int 0) line 2627
main(int 1, char * * 0x00f64220, char * * 0x00f62e40) line 3068
mainCRTStartup() line 338 + 17 bytes
KERNEL32! 7c816d4f()
----------------------------------------------------------------------------
New XEmacs, crash on second toggle:
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\symbols.c, line 1116, ABORT()
Fatal error.
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround. Please check it first, but do report
the crash anyway.
Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu. If that won't work, send ordinary
email to `xemacs-beta(a)xemacs.org'. *MAKE SURE* to include this entire
output from this crash, especially including the Lisp backtrace, as well as
the XEmacs configuration from M-x describe-installation (or equivalently,
the file `Installation' in the top of the build tree).
If you are fortunate enough to have some sort of debugging aid installed
on your system, for example Visual C++, and you can get a C stack backtrace,
*please* include it, as it will make our life far easier.
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (y x)
#<compiled-function (x y) "...(15)" [x timing assoc 0] 3>(#<INTERNAL OBJECT (XEmacs bug?) (symbol-value-buffer-local type 39582780) 0x82fbe4> -11973120)
# (unwind-protect ...)
maphash(#<compiled-function (x y) "...(15)" [x timing assoc 0] 3> #<hash-table test eq size 146/1777 data (if 0 event-type 0 itimer-time-difference 0 font-lock-pre-idle-hook 0 ...) 0x3a2d>)
# bind (table G94903 maxfunlen spaces-for-fun spaces-for-data total-gc-usage gc-usage call-count total-timing timing standard-output sort-by stream info)
profile-results((timing #<hash-table test equal size 5/197 data (char-to-string 1 "(in redisplay)" 5 "next_event_internal()" 1 byte-code 1 ...) 0x3a29> total-timing #<hash-table test eq size 146/1777 data (if 0 event-type 0 itimer-time-difference 0 font-lock-pre-idle-hook 0 ...) 0x3a2d> call-count #<hash-table test eq size 143/1777 data (if 1 event-type 6 itimer-time-difference 90 font-lock-pre-idle-hook 62 ...) 0x3a2c> gc-usage #<hash-table test eq size 45/1777 data (itimer-time-difference 5760 font-lock-pre-idle-hook 0 current-time 3024 paren-highlight 304 ...) 0x3a2b> total-gc-usage #<hash-table test eq size 145/1777 data (if -12 event-type 0 itimer-time-difference 5760 font-lock-pre-idle-hook 0 ...) 0x3a2a>) #<buffer "*Profiling Results*"> nil)
# bind (standard-output temp-buffer-show-function help-not-visible buffer-name was-one-window winconfig sort-by stream info)
profile-results()
(progn (stop-profiling) (message "...Finished profiling") (profile-results))
(if (profiling-active-p) (progn (stop-profiling) (message "...Finished profiling") (profile-results)) (message "Profiling...") (clear-profiling-info) (start-profiling))
(lambda nil "Start profiling, or stop it and print results.\nThis lets you figure out where time is being spent when executing Lisp code." (interactive) (if (profiling-active-p) (progn (stop-profiling) (message "...Finished profiling") (profile-results)) (message "Profiling...") (clear-profiling-info) (start-profiling)))()
call-interactively(toggle-profiling)
(dispatch-event "[internal]")
# (condition-case ... . error)
# (catch top-level ...)
assert_failed(const char * 0x0125b924, int 1116, const char * 0x0125b91c) line 3916
do_symval_forwarding(Lisp_Object {...}, buffer * 0x00f6dc70, console * 0x02398088) line 1116 + 20 bytes
find_symbol_value_1(Lisp_Object {...}, buffer * 0x00f6dc70, console * 0x02398088, int 1, Lisp_Object {...}, int 1) line 1584 + 17 bytes
find_symbol_value(Lisp_Object {...}) line 1660 + 30 bytes
Fsymbol_value(Lisp_Object {...}) line 1708 + 9 bytes
execute_optimized_program(const unsigned char * 0x02dcdf68, int 3, Lisp_Object * 0x02d5edd8) line 734 + 9 bytes
funcall_compiled_function(Lisp_Object {...}, int 2, Lisp_Object * 0x0082e66c) line 3460 + 35 bytes
Ffuncall(int 3, Lisp_Object * 0x0082e668) line 3886 + 17 bytes
Fmaphash(Lisp_Object {...}, Lisp_Object {...}) line 1382 + 11 bytes
Ffuncall(int 3, Lisp_Object * 0x0082e758) line 3847 + 120 bytes
execute_optimized_program(const unsigned char * 0x02d8bf50, int 15, Lisp_Object * 0x02d5ef38) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 3, Lisp_Object * 0x0082ebdc) line 3460 + 35 bytes
Ffuncall(int 4, Lisp_Object * 0x0082ebd8) line 3886 + 17 bytes
execute_optimized_program(const unsigned char * 0x02d8bf50, int 15, Lisp_Object * 0x02d5ef38) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 0, Lisp_Object * 0x0082ef7c) line 3460 + 35 bytes
Feval(Lisp_Object {...}) line 3668 + 20 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fif(Lisp_Object {...}) line 870 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
funcall_lambda(Lisp_Object {...}, int 0, Lisp_Object * 0x0082f760) line 4203 + 9 bytes
Ffuncall(int 1, Lisp_Object * 0x0082f75c) line 3896 + 17 bytes
apply1(Lisp_Object {...}, Lisp_Object {...}) line 4466 + 11 bytes
Fcall_interactively(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 459 + 13 bytes
Fcommand_execute(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 3114 + 17 bytes
execute_command_event(command_builder * 0x02398130, Lisp_Object {...}) line 4286 + 25 bytes
Fdispatch_event(Lisp_Object {...}) line 4598 + 92 bytes
Fcommand_loop_1() line 600 + 9 bytes
command_loop_1(Lisp_Object {...}) line 505 + 5 bytes
condition_case_1(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x01074b1c command_loop_1(Lisp_Object), Lisp_Object {...}, Lisp_Object (Lisp_Object, Lisp_Object)* 0x010747ac cmd_error(Lisp_Object, Lisp_Object), Lisp_Object {...}) line 1924 + 7 bytes
command_loop_3() line 262 + 35 bytes
command_loop_2(Lisp_Object {...}) line 277
internal_catch(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x0107493c command_loop_2(Lisp_Object), Lisp_Object {...}, int * volatile 0x00000000, Lisp_Object * volatile 0x00000000, Lisp_Object * volatile 0x00000000) line 1530 + 7 bytes
initial_command_loop(Lisp_Object {...}) line 313 + 29 bytes
xemacs_21_5_b23_i586_pc_win32(int 1, unsigned short * * 0x0082ff18, unsigned short * * 0x00000000, int 0) line 2627
main(int 1, char * * 0x00f64220, char * * 0x00f62e40) line 3068
mainCRTStartup() line 338 + 17 bytes
KERNEL32! 7c816d4f()
----------------------------------------------------------------------------
Another XEmacs with profile.el instrumented
Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\symbols.c, line 1116, ABORT()
Fatal error.
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround. Please check it first, but do report
the crash anyway.
Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu. If that won't work, send ordinary
email to `xemacs-beta(a)xemacs.org'. *MAKE SURE* to include this entire
output from this crash, especially including the Lisp backtrace, as well as
the XEmacs configuration from M-x describe-installation (or equivalently,
the file `Installation' in the top of the build tree).
If you are fortunate enough to have some sort of debugging aid installed
on your system, for example Visual C++, and you can get a C stack backtrace,
*please* include it, as it will make our life far easier.
Lisp backtrace follows:
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
(assoc x timing)
(not (assoc x timing))
(if (not (assoc x timing)) (push (cons x 0) timing))
# bind (y x)
(lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))(#<INTERNAL OBJECT (XEmacs bug?) (symbol-value-buffer-local type 50234780) 0x82fbe4> -11971713)
# (unwind-protect ...)
maphash((lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing))) #<hash-table test eq size 397/1777 data (if 0 buffer-substring 0 local-variable-p
0 event-type 0 ...) 0x4b62>)
# (catch --cl-block---cl-finish---- ...)
(catch (quote --cl-block---cl-finish----) (maphash (function (lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))) table))
(cl-block-wrapper (catch (quote --cl-block---cl-finish----) (maphash (function (lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))) table)))
(block --cl-finish-- (maphash (function (lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))) table))
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (block --cl-finish-- (maphash (function (lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))) table)) nil)
(cl-block-wrapper (catch (quote --cl-block-nil--) (block --cl-finish-- (maphash (function (lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))) table)) nil))
(block nil (block --cl-finish-- (maphash (function (lambda (x y) (if (not (assoc x timing)) (push (cons x 0) timing)))) table)) nil)
(loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing)))
(while (consp G26413) (setq table (car G26413)) (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing))) (setq G26413 (cdr G26413)))
# bind (table G26413)
(let* ((G26413 (list total-timing call-count gc-usage total-gc-usage)) (table
nil)) (while (consp G26413) (setq table (car G26413)) (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing))) (setq G26413 (cdr G26413))) nil)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let* ((G26413 (list total-timing call-count gc-usage total-gc-usage)) (table nil)) (while (consp G26413) (setq table (car G26413)) (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing))) (setq G26413 (cdr G26413))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((G26413 (list total-timing call-count gc-usage total-gc-usage)) (table nil)) (while (consp G26413) (setq table (car G26413)) (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing))) (setq G26413 (cdr
G26413))) nil)))
(block nil (let* ((G26413 (list total-timing call-count gc-usage total-gc-usage)) (table nil)) (while (consp G26413) (setq table (car G26413)) (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing))) (setq G26413 (cdr G26413))) nil))
(loop for table in (list total-timing call-count gc-usage total-gc-usage) do (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing))))
# bind (maxfunlen spaces-for-fun spaces-for-data total-gc-usage gc-usage call-count total-timing timing standard-output)
(let* ((standard-output stream) (timing (if (consp (car info)) (copy-alist info) (loop for x being the hash-key in (getf info (quote timing)) using (hash-value y) collect (cons x y)))) (total-timing (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote total-timing)))) (call-count (if (boundp (quote call-count-profile-table)) call-count-profile-table (getf info (quote call-count)))) (gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote gc-usage)))) (total-gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote total-gc-usage)))) (spaces-for-data 41) (spaces-for-fun (- 79 spaces-for-data)) maxfunlen) (loop for
table in (list total-timing call-count gc-usage total-gc-usage) do (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing)))) (setq maxfunlen (apply (function max) (length "Function Name") (mapcar (lambda (el) (let ((l (length (format "%s" (car el))))) (if (<= l spaces-for-fun) l 0))) timing))) (princ (format "%-*sTicks/Total %%Usage Calls GC-Usage/ Total\n" maxfunlen "Function Name")) (princ (make-string maxfunlen
?=)) (princ "=====/===== ====== ===== ========/=======\n") (let ((timing-sum (float (apply (function +) (mapcar (function cdr) timing)))) (calls-sum 0) (gc-sum
0)) (dolist (entry (nreverse (sort timing (cond ((eq sort-by (quote call-count)) (function (lambda (a b) (< (or (gethash (car a) call-count) 0) (or (gethash (car b) call-count) 0))))) ((eq sort-by (quote gc-usage)) (function (lambda (a b) (< (or (gethash (car a) gc-usage) 0) (or (gethash (car b) gc-usage) 0))))) (t (function cdr-less-than-cdr)))))) (princ (format "%-*s%5d/%5d %6.3f %s %s\n" maxfunlen (let ((str (format "%s" (car entry)))) (if (<= (length str) maxfunlen) str (concat str "\n" (make-string maxfunlen ?\ )))) (cdr entry) (or (gethash (car entry) total-timing) 0) (if (zerop timing-sum) 0 (* 100 (/ (cdr entry) timing-sum))) (let ((count (gethash (car entry) call-count))) (if count (format "%5d" count) " ")) (let ((gcval (or (gethash (car entry) gc-usage) 0)) (total-gcval (or
(gethash (car entry) total-gc-usage) 0))) (if (or (/= gcval 0) (/= total-gcval 0)) (format "%8d/%7d" gcval total-gcval) " ")))) (incf calls-sum (or (gethash (car entry) call-count 0))) (incf gc-sum (or (gethash (car entry) gc-usage 0)))) (princ (make-string (+ maxfunlen spaces-for-data) ?-)) (princ (format "\n%-*s%7d %7.3f %5d %8d\n" (- maxfunlen 2) "Total" timing-sum 100.0 calls-sum gc-sum)) (princ (format "\n\nTicks/Total = Ticks this function/this function and descendants\nCalls = Number of calls to this function\nGC-Usage/Total = Lisp allocation this function/this function and descendants\nOne
tick = %g ms\n" (/ default-profiling-interval 1000.0))) (and (boundp (quote internal-error-checking)) (delq (quote quick-build) internal-error-checking)
(princ "\nWARNING: Error checking is turned on in this XEmacs. This might make\n the measurements very unreliable.\n"))))
(if (not stream) (profile-displaying-temp-buffer "*Profiling Results*" (profile-results info standard-output sort-by)) (let* ((standard-output stream) (timing (if (consp (car info)) (copy-alist info) (loop for x being the hash-key in (getf info (quote timing)) using (hash-value y) collect (cons x y)))) (total-timing
(if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote total-timing)))) (call-count (if (boundp (quote call-count-profile-table)) call-count-profile-table (getf info (quote call-count)))) (gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote gc-usage))))
(total-gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table)
(getf info (quote total-gc-usage)))) (spaces-for-data 41) (spaces-for-fun (- 79
spaces-for-data)) maxfunlen) (loop for table in (list total-timing call-count gc-usage total-gc-usage) do (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing)))) (setq maxfunlen (apply (function max) (length "Function Name") (mapcar (lambda (el) (let ((l (length (format "%s" (car el))))) (if (<= l spaces-for-fun) l 0))) timing))) (princ (format "%-*sTicks/Total %%Usage Calls GC-Usage/ Total\n" maxfunlen "Function Name")) (princ (make-string maxfunlen ?=)) (princ "=====/===== ====== ===== ========/=======\n") (let ((timing-sum (float (apply (function +) (mapcar (function cdr) timing)))) (calls-sum 0) (gc-sum 0)) (dolist (entry (nreverse (sort timing (cond ((eq sort-by (quote call-count)) (function (lambda (a b) (< (or (gethash
(car a) call-count) 0) (or (gethash (car b) call-count) 0))))) ((eq sort-by (quote gc-usage)) (function (lambda (a b) (< (or (gethash (car a) gc-usage) 0) (or (gethash (car b) gc-usage) 0))))) (t (function cdr-less-than-cdr)))))) (princ (format "%-*s%5d/%5d %6.3f %s %s\n" maxfunlen (let ((str (format "%s" (car entry)))) (if (<= (length str) maxfunlen) str (concat str "\n" (make-string maxfunlen ?\ )))) (cdr entry) (or (gethash (car entry) total-timing) 0) (if (zerop timing-sum) 0 (* 100 (/ (cdr entry) timing-sum))) (let ((count (gethash (car entry) call-count))) (if count (format "%5d" count) " ")) (let ((gcval (or (gethash (car entry) gc-usage) 0)) (total-gcval (or (gethash (car entry) total-gc-usage) 0))) (if (or (/= gcval 0) (/= total-gcval 0)) (format "%8d/%7d" gcval total-gcval) " ")))) (incf calls-sum (or (gethash (car entry) call-count 0))) (incf gc-sum (or (gethash (car entry) gc-usage 0)))) (princ (make-string (+ maxfunlen spaces-for-data) ?-)) (p!
rinc (format "\n%-*s%7d %7.3f %5d %8d\n" (- maxfunlen 2) "Total" timing-sum 100.0 calls-sum gc-sum)) (princ (format "\n\nTicks/Total = Ticks this function/this function and descendants\nCalls
= Number of calls to this function\nGC-Usage/Total = Lisp allocation this function/this function and descendants\nOne tick = %g ms\n" (/ default-profiling-interval 1000.0))) (and (boundp (quote internal-error-checking)) (delq (quote quick-build) internal-error-checking) (princ "\nWARNING: Error checking is turned on in this XEmacs. This might make\n the measurements very unreliable.\n")))))
# bind (sort-by stream info)
profile-results((timing #<hash-table test equal size 29/197 data (dispatch-event 3 split-window 4 next-event 2 #<compiled-function (key value) "...(35)" [value newval new key get-range-char-table multi map-char-table #<compiled-function (key1 value1) "...(19)" [value key1 key new char-syntax-from-code get-range-char-table ?＠ put-char-table nil] 5> char-syntax-from-code ?＠ put-char-table nil] 5>
2 ...) 0x4b5e> total-timing #<hash-table test eq size 397/1777 data (if 0 buffer-substring 0 local-variable-p 0 event-type 0 ...) 0x4b62> call-count #<hash-table test eq size 397/1777 data (if 1 buffer-substring 4 local-variable-p 6 event-type 29 ...) 0x4b61> gc-usage #<hash-table test eq size 128/1777 data (buffer-substring 120 pos-visible-in-window-p 1208 itimer-time-difference 6528 font-lock-pre-idle-hook 0 ...) 0x4b60> total-gc-usage #<hash-table test eq size 396/1777 data (if 1312 buffer-substring 120 local-variable-p 0 event-type 0 ...) 0x4b5f>) #<buffer "*Profiling Results*"> nil)
(progn (profile-results info standard-output sort-by))
(prog1 (progn (profile-results info standard-output sort-by)) (save-excursion
(set-buffer standard-output) (funcall mode-for-help)))
# bind (standard-output)
(with-output-to-temp-buffer buffer-name (prog1 (progn (profile-results info standard-output sort-by)) (save-excursion (set-buffer standard-output) (funcall mode-for-help))))
# bind (temp-buffer-show-function)
(let ((temp-buffer-show-function (if help-sticky-window (function (lambda (buffer) (set-window-buffer help-sticky-window buffer))) temp-buffer-show-function))) (with-output-to-temp-buffer buffer-name (prog1 (progn (profile-results info standard-output sort-by)) (save-excursion (set-buffer standard-output) (funcall mode-for-help)))))
(prog1 (let ((temp-buffer-show-function (if help-sticky-window (function (lambda (buffer) (set-window-buffer help-sticky-window buffer))) temp-buffer-show-function))) (with-output-to-temp-buffer buffer-name (prog1 (progn (profile-results
info standard-output sort-by)) (save-excursion (set-buffer standard-output) (funcall mode-for-help))))) (let ((helpwin (get-buffer-window buffer-name))) (when helpwin (when help-not-visible (with-current-buffer (window-buffer helpwin) (setq help-window-config winconfig))) (when help-selects-help-window (select-window helpwin)) (cond ((eq helpwin (selected-window)) (display-message (quote command)
(substitute-command-keys "Type \\[help-mode-quit] to remove window, \\[scroll-up] to scroll the text."))) (was-one-window (display-message (quote command) (substitute-command-keys "Type \\[delete-other-windows] to remove window, \\[scroll-other-window] to scroll the text."))) (t (display-message (quote command) (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the text.")))))))
# bind (help-not-visible buffer-name was-one-window winconfig)
(let* ((winconfig (current-window-configuration)) (was-one-window (one-window-p)) (buffer-name "*Profiling Results*") (help-not-visible (not (and (windows-of-buffer buffer-name) (memq (selected-frame) (mapcar (quote window-frame) (windows-of-buffer buffer-name))))))) (help-register-and-maybe-prune-excess buffer-name) (if (and help-sticky-window (or (not (windowp help-sticky-window)) (not (window-live-p help-sticky-window)))) (setq help-sticky-window nil)) (prog1 (let ((temp-buffer-show-function (if help-sticky-window (function (lambda (buffer) (set-window-buffer help-sticky-window buffer))) temp-buffer-show-function))) (with-output-to-temp-buffer buffer-name (prog1 (progn (profile-results info standard-output sort-by)) (save-excursion (set-buffer standard-output) (funcall mode-for-help))))) (let ((helpwin (get-buffer-window buffer-name))) (when helpwin (when help-not-visible (with-current-buffer (window-buffer helpwin) (setq help-window-config
winconfig))) (when help-selects-help-window (select-window helpwin)) (cond ((eq
helpwin (selected-window)) (display-message (quote command) (substitute-command-keys "Type \\[help-mode-quit] to remove window, \\[scroll-up] to scroll the text."))) (was-one-window (display-message (quote command) (substitute-command-keys
"Type \\[delete-other-windows] to remove window, \\[scroll-other-window] to scroll the text."))) (t (display-message (quote command) (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the text."))))))))
(profile-displaying-temp-buffer "*Profiling Results*" (profile-results info standard-output sort-by))
(if (not stream) (profile-displaying-temp-buffer "*Profiling Results*" (profile-results info standard-output sort-by)) (let* ((standard-output stream) (timing (if (consp (car info)) (copy-alist info) (loop for x being the hash-key in (getf info (quote timing)) using (hash-value y) collect (cons x y)))) (total-timing
(if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote total-timing)))) (call-count (if (boundp (quote call-count-profile-table)) call-count-profile-table (getf info (quote call-count)))) (gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote gc-usage))))
(total-gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table)
(getf info (quote total-gc-usage)))) (spaces-for-data 41) (spaces-for-fun (- 79
spaces-for-data)) maxfunlen) (loop for table in (list total-timing call-count gc-usage total-gc-usage) do (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing)))) (setq maxfunlen (apply (function max) (length "Function Name") (mapcar (lambda (el) (let ((l (length (format "%s" (car el))))) (if (<= l spaces-for-fun) l 0))) timing))) (princ (format "%-*sTicks/Total %%Usage Calls GC-Usage/ Total\n" maxfunlen "Function Name")) (princ (make-string maxfunlen ?=)) (princ "=====/===== ====== ===== ========/=======\n") (let ((timing-sum (float (apply (function +) (mapcar (function cdr) timing)))) (calls-sum 0) (gc-sum 0)) (dolist (entry (nreverse (sort timing (cond ((eq sort-by (quote call-count)) (function (lambda (a b) (< (or (gethash
(car a) call-count) 0) (or (gethash (car b) call-count) 0))))) ((eq sort-by (quote gc-usage)) (function (lambda (a b) (< (or (gethash (car a) gc-usage) 0) (or (gethash (car b) gc-usage) 0))))) (t (function cdr-less-than-cdr)))))) (princ (format "%-*s%5d/%5d %6.3f %s %s\n" maxfunlen (let ((str (format "%s" (car entry)))) (if (<= (length str) maxfunlen) str (concat str "\n" (make-string maxfunlen ?\ )))) (cdr entry) (or (gethash (car entry) total-timing) 0) (if (zerop timing-sum) 0 (* 100 (/ (cdr entry) timing-sum))) (let ((count (gethash (car entry) call-count))) (if count (format "%5d" count) " ")) (let ((gcval (or (gethash (car entry) gc-usage) 0)) (total-gcval (or (gethash (car entry) total-gc-usage) 0))) (if (or (/= gcval 0) (/= total-gcval 0)) (format "%8d/%7d" gcval total-gcval) " ")))) (incf calls-sum (or (gethash (car entry) call-count 0))) (incf gc-sum (or (gethash (car entry) gc-usage 0)))) (princ (make-string (+ maxfunlen spaces-for-data) ?-)) (p!
rinc (format "\n%-*s%7d %7.3f %5d %8d\n" (- maxfunlen 2) "Total" timing-sum 100.0 calls-sum gc-sum)) (princ (format "\n\nTicks/Total = Ticks this function/this function and descendants\nCalls
= Number of calls to this function\nGC-Usage/Total = Lisp allocation this function/this function and descendants\nOne tick = %g ms\n" (/ default-profiling-interval 1000.0))) (and (boundp (quote internal-error-checking)) (delq (quote quick-build) internal-error-checking) (princ "\nWARNING: Error checking is turned on in this XEmacs. This might make\n the measurements very unreliable.\n")))))
# bind (sort-by stream info)
(lambda (&optional info stream sort-by) "Print profiling info INFO to STREAM in a pretty format.\nIf INFO is omitted, the current profiling info is retrieved
using\n `get-profiling-info'.\nIf STREAM is omitted, the results will be displayed in a temp buffer\n using `with-output-to-temp-buffer'; otherwise, they will simply be\n printed into STREAM. Use `standard-output' explicitly if you\n want
standard output.\nIf SORT-BY is `call-count' (interactively, the prefix arg), display items\n sorted by call count rather than timing. If `gc-usage' (interactively,\n use C-u C-u), sort by GC usage." (interactive (list nil nil (cond ((equal current-prefix-arg (quote (16))) (quote gc-usage)) (current-prefix-arg (quote
call-count))))) (or info (setq info (get-profiling-info))) (if (not stream) (profile-displaying-temp-buffer "*Profiling Results*" (profile-results info standard-output sort-by)) (let* ((standard-output stream) (timing (if (consp (car info)) (copy-alist info) (loop for x being the hash-key in (getf info (quote timing))
using (hash-value y) collect (cons x y)))) (total-timing (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote total-timing)))) (call-count (if (boundp (quote call-count-profile-table)) call-count-profile-table (getf info (quote call-count)))) (gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote gc-usage)))) (total-gc-usage (if (boundp (quote call-count-profile-table)) (make-hash-table) (getf info (quote total-gc-usage)))) (spaces-for-data 41) (spaces-for-fun (- 79 spaces-for-data)) maxfunlen) (loop for table in (list total-timing call-count gc-usage total-gc-usage)
do (loop for x being the hash-key in table using (hash-value y) do (if (not (assoc x timing)) (push (cons x 0) timing)))) (setq maxfunlen (apply (function max)
(length "Function Name") (mapcar (lambda (el) (let ((l (length (format "%s" (car el))))) (if (<= l spaces-for-fun) l 0))) timing))) (princ (format "%-*sTicks/Total %%Usage Calls GC-Usage/ Total\n" maxfunlen "Function Name")) (princ (make-string maxfunlen ?=)) (princ "=====/===== ====== ===== ========/=======\n") (let
((timing-sum (float (apply (function +) (mapcar (function cdr) timing)))) (calls-sum 0) (gc-sum 0)) (dolist (entry (nreverse (sort timing (cond ((eq sort-by (quote call-count)) (function (lambda (a b) (< (or (gethash (car a) call-count) 0)
(or (gethash (car b) call-count) 0))))) ((eq sort-by (quote gc-usage)) (function (lambda (a b) (< (or (gethash (car a) gc-usage) 0) (or (gethash (car b) gc-usage) 0))))) (t (function cdr-less-than-cdr)))))) (princ (format "%-*s%5d/%5d %6.3f %s %s\n" maxfunlen (let ((str (format "%s" (car entry)))) (if (<= (length str)
maxfunlen) str (concat str "\n" (make-string maxfunlen ?\ )))) (cdr entry) (or (gethash (car entry) total-timing) 0) (if (zerop timing-sum) 0 (* 100 (/ (cdr entry) timing-sum))) (let ((count (gethash (car entry) call-count))) (if count (format "%5d" count) " ")) (let ((gcval (or (gethash (car entry) gc-usage) 0)) (total-gcval (or (gethash (car entry) total-gc-usage) 0))) (if (or (/= gcval 0) (/= total-gcval 0)) (format "%8d/%7d" gcval total-gcval) " ")))) (incf calls-sum (or (gethash (car entry) call-count 0))) (incf gc-sum (or (gethash (car entry) gc-usage 0)))) (princ (make-string (+ maxfunlen spaces-for-data) ?-)) (princ (format "\n%-*s%7d %7.3f %5d %8d\n" (- maxfunlen 2) "Total" timing-sum 100.0 calls-sum gc-sum)) (princ (format "\n\nTicks/Total = Ticks this function/this function and descendants\nCalls = Number of calls to this function\nGC-Usage/Total = Lisp allocation this function/this function and descendants\nOne tick =!
%g ms\n" (/ default-profiling-interval 1000.0))) (and (boundp (quote internal-error-checking)) (delq (quote quick-build) internal-error-checking) (princ "\nWARNING: Error checking is turned on in this XEmacs.
This might make\n the measurements very unreliable.\n"))))))(nil nil nil)
call-interactively(profile-results)
command-execute(profile-results t)
# bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
execute-extended-command(nil)
# bind (command-debug-status)
call-interactively(execute-extended-command)
(dispatch-event "[internal]")
# (condition-case ... . error)
# (catch top-level ...)
assert_failed(const char * 0x0125b924, int 1116, const char * 0x0125b91c) line 3916
do_symval_forwarding(Lisp_Object {...}, buffer * 0x0302e960, console * 0x02398088) line 1116 + 20 bytes
find_symbol_value_1(Lisp_Object {...}, buffer * 0x0302e960, console * 0x02398088, int 1, Lisp_Object {...}, int 1) line 1584 + 17 bytes
find_symbol_value(Lisp_Object {...}) line 1660 + 30 bytes
Fsymbol_value(Lisp_Object {...}) line 1708 + 9 bytes
Feval(Lisp_Object {...}) line 3520 + 9 bytes
Feval(Lisp_Object {...}) line 3594 + 12 bytes
Feval(Lisp_Object {...}) line 3594 + 12 bytes
Fif(Lisp_Object {...}) line 869 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
funcall_lambda(Lisp_Object {...}, int 2, Lisp_Object * 0x0082b364) line 4203 + 9 bytes
Ffuncall(int 3, Lisp_Object * 0x0082b360) line 3896 + 17 bytes
Fmaphash(Lisp_Object {...}, Lisp_Object {...}) line 1382 + 11 bytes
Feval(Lisp_Object {...}) line 3607 + 165 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
internal_catch(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x010944f9 Fprogn(Lisp_Object), Lisp_Object {...}, int * volatile 0x00000000, Lisp_Object * volatile 0x00000000, Lisp_Object * volatile 0x00000000) line 1530 + 7 bytes
Fcatch(Lisp_Object {...}) line 1484 + 24 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Feval(Lisp_Object {...}) line 3594 + 12 bytes
Feval(Lisp_Object {...}) line 3692 + 37 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
internal_catch(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x010944f9 Fprogn(Lisp_Object), Lisp_Object {...}, int * volatile 0x00000000, Lisp_Object * volatile 0x00000000, Lisp_Object * volatile 0x00000000) line 1530 + 7 bytes
Fcatch(Lisp_Object {...}) line 1484 + 24 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Feval(Lisp_Object {...}) line 3594 + 12 bytes
Feval(Lisp_Object {...}) line 3692 + 37 bytes
Feval(Lisp_Object {...}) line 3692 + 37 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
Fwhile(Lisp_Object {...}) line 1140 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
FletX(Lisp_Object {...}) line 1054 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
internal_catch(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x010944f9 Fprogn(Lisp_Object), Lisp_Object {...}, int * volatile 0x00000000, Lisp_Object * volatile 0x00000000, Lisp_Object * volatile 0x00000000) line 1530 + 7 bytes
Fcatch(Lisp_Object {...}) line 1484 + 24 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Feval(Lisp_Object {...}) line 3594 + 12 bytes
Feval(Lisp_Object {...}) line 3692 + 37 bytes
Feval(Lisp_Object {...}) line 3692 + 37 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
FletX(Lisp_Object {...}) line 1054 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
Fif(Lisp_Object {...}) line 872 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
funcall_lambda(Lisp_Object {...}, int 3, Lisp_Object * 0x0082d840) line 4203 + 9 bytes
Feval(Lisp_Object {...}) line 3719 + 20 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprog1(Lisp_Object {...}) line 976 + 12 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
Fwith_output_to_temp_buffer(Lisp_Object {...}) line 831 + 12 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
Flet(Lisp_Object {...}) line 1123 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprog1(Lisp_Object {...}) line 976 + 12 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
FletX(Lisp_Object {...}) line 1054 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Feval(Lisp_Object {...}) line 3692 + 37 bytes
Fif(Lisp_Object {...}) line 870 + 9 bytes
Feval(Lisp_Object {...}) line 3579 + 13 bytes
Fprogn(Lisp_Object {...}) line 954 + 9 bytes
funcall_lambda(Lisp_Object {...}, int 3, Lisp_Object * 0x0082ee10) line 4203 + 9 bytes
Ffuncall(int 4, Lisp_Object * 0x0082ee0c) line 3896 + 17 bytes
Fapply(int 2, Lisp_Object * 0x0082eea4) line 4151 + 13 bytes
apply1(Lisp_Object {...}, Lisp_Object {...}) line 4471 + 11 bytes
Fcall_interactively(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 459 + 13 bytes
Fcommand_execute(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 3114 + 17 bytes
Ffuncall(int 3, Lisp_Object * 0x0082f2fc) line 3847 + 160 bytes
execute_optimized_program(const unsigned char * 0x02d79bd0, int 7, Lisp_Object * 0x014ea118) line 823 + 16 bytes
funcall_compiled_function(Lisp_Object {...}, int 1, Lisp_Object * 0x0082f758) line 3460 + 35 bytes
Ffuncall(int 2, Lisp_Object * 0x0082f754) line 3886 + 17 bytes
Fcall_interactively(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 994 + 22 bytes
Fcommand_execute(Lisp_Object {...}, Lisp_Object {...}, Lisp_Object {...}) line 3114 + 17 bytes
execute_command_event(command_builder * 0x02398130, Lisp_Object {...}) line 4286 + 25 bytes
Fdispatch_event(Lisp_Object {...}) line 4598 + 92 bytes
Fcommand_loop_1() line 600 + 9 bytes
command_loop_1(Lisp_Object {...}) line 505 + 5 bytes
condition_case_1(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x01074b1c command_loop_1(Lisp_Object), Lisp_Object {...}, Lisp_Object (Lisp_Object, Lisp_Object)* 0x010747ac cmd_error(Lisp_Object, Lisp_Object), Lisp_Object {...}) line 1924 + 7 bytes
command_loop_3() line 262 + 35 bytes
command_loop_2(Lisp_Object {...}) line 277
internal_catch(Lisp_Object {...}, Lisp_Object (Lisp_Object)* 0x0107493c command_loop_2(Lisp_Object), Lisp_Object {...}, int * volatile 0x00000000, Lisp_Object * volatile 0x00000000, Lisp_Object * volatile 0x00000000) line 1530 + 7 bytes
initial_command_loop(Lisp_Object {...}) line 313 + 29 bytes
xemacs_21_5_b23_i586_pc_win32(int 1, unsigned short * * 0x0082ff18, unsigned short * * 0x00000000, int 0) line 2627
main(int 1, char * * 0x00f64220, char * * 0x00f62e40) line 3068
mainCRTStartup() line 338 + 17 bytes
KERNEL32! 7c816d4f()
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 2 participants
- 2 comments
Please provide appropriate status updates
19 years
Adrian Aichner
Adrian Aichner
Hello XEmacs Mirrors,
let me first thank you all for providing mirror services for the
XEmacs project!
I am currently looking into needed updates of failing links and syncs
between XEmacs->Tools->Packages->Set Download Site lists.
Some recent fallouts with
http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/
and
http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/
seem to have cured "themselves".
ibiblio an tw.xemacs.org seem to have moved their paths and I have
updated them.
---------------------------------------------------------------------
Could the following sites please provide feedback about their status:
---------------------------------------------------------------------
ftp://ftp.ru.xemacs.org/pub/xemacs/ Line: 612
Code: 404 File 'xemacs' not found
To do: The link is broken. Fix it NOW!
http://ftp.ru.xemacs.org/pub/xemacs/ Line: 614
Code: 404 Not Found
To do: The link is broken. Fix it NOW!
http://mirrors.mix5.com/xemacs/ Line: 353
Code: 404 Not Found
To do: The link is broken. Fix it NOW!
ftp://ftp.au.xemacs.org/pub/xemacs/ Line: 440
Code: 404 File 'xemacs' not found
To do: The link is broken. Fix it NOW!
ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/ Line: 678
Code: 404 Can't chdir to mirror
To do: The link is broken. Fix it NOW!
ftp://ftp.us.xemacs.org/pub/xemacs/ Line: 343
Code: 401 Login incorrect.
To do: The link is not public. You'd better specify it.
ftp://ftp.crc.ca/pub/packages/editors/xemacs/ Line: 333
Code: 404 Can't chdir to packages
To do: The link is broken. Fix it NOW!
ftp://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/ Line: 350
Code: 500 LWP::Protocol::MyFTP: connect: Unknown error
To do: This is a server side problem. Check the URI.
ftp://ring.asahi-net.or.jp/pub/text/xemacs/ Line: 399
Code: 500 LWP::Protocol::MyFTP: connect: Unknown error
To do: This is a server side problem. Check the URI.
Many thanks!
Adrian
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 4 participants
- 5 comments
Outdated packages not being downloaded from .is.xemacs.org
19 years
Johann 'Myrkraverk' Oskarsson
Johann 'Myrkraverk' Oskarsson
Hi,
Very often I see log samples like the following. I don't know what this is
but can it be people with outdated package information? If so, I think there
should be a change in the package infrastructure so that when a package isn't
found, the list is updated. I'm almost certain I never see actual download
of up to date packages from my mirror.
However, if these are some stupid bots or search engines, there is no need
to do anything.
Oct 14 19:02:35 nina pure-ftpd: (?(a)x.y.z.w) [INFO] New connection from x.y.z.w
Oct 14 19:02:35 nina pure-ftpd: (?(a)x.y.z.w) [INFO] Anonymous user logged in
Oct 14 19:02:37 nina pure-ftpd: (ftp(a)x.y.z.w)
[ERROR] Can't open prog-modes-2.02-pkg.tar.gz: No such file or directory
Oct 14 19:02:38 nina pure-ftpd: (ftp(a)x.y.z.w) [INFO] Logout.
In the above example, the current package is prog-modes-2.05-pkg.tar.gz.
Johann "Myrkraverk" [.is.xemacs.org mirror maintainer]
- 2 participants
- 1 comments
sudoko pkg for gnus emacs: missing functions
19 years
Uwe Brauer
Uwe Brauer
Hi
There are two pkg recently sent to the source list, both for
implementing sudoko. Each of them use a function which seems not to be
defined in xemacs, namely
(void-function number-sequence)
(void-function undo-copy-list)
I already wrote the authors, but does anybody know some xemacs
equivalents?
Thanks
Uwe Brauer
- 1 participants
- 0 comments
Re: [Failure] The Package Smoketest
19 years
Adrian Aichner
Adrian Aichner
The XEmacs Package Smoketest <matsl(a)xemacs.org> writes:
> These are the results from the XEmacs Package Smoketest:
>
> 21.5-nomule -- errors
> 21.5-mule -- ok
> 21.4-mule -- ok
> 21.4-nomule -- ok
>
> For details check "http://labb.contactor.se/~matsl/smoketest/logs"
Hello Mats,
would be great if you could update the 21.4 build from patch level 15
to 17 and the 21.5 build from beta 19 to 23.
This would ensure we don't miss problems with recent core changes.
Thanks in advance,
Adrian
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 2 participants
- 4 comments