Mercurial > hg > xemacs-beta
comparison src/profile.c @ 611:38db05db9cb5
[xemacs-hg @ 2001-06-08 12:21:09 by ben]
------ gc-in-window-procedure fixes ------
alloc.c: Create "post-gc actions", to avoid those dreaded "GC during window
procedure" problems.
event-msw.c: Abort, clean and simple, when GC in window procedure. We want
to flush these puppies out.
glyphs-msw.c: Use a post-gc action when destroying subwindows.
lisp.h: Declare register_post_gc_action().
scrollbar-msw.c: Use a post-gc action when unshowing scrollbar windows, if in gc.
redisplay.c: Add comment about the utter evilness of what's going down here.
------ cygwin setitimer fixes ------
Makefile.in.in: Compile profile.c only when HAVE_SETITIMER.
nt.c: Style fixes.
nt.c: Move setitimer() emulation to win32.c, because Cygwin needs it too.
profile.c: Make sure we don't compile if no setitimer(). Use qxe_setitimer()
instead of just plain setitimer().
signal.c: Define qxe_setitimer() as an encapsulation around setitimer() --
call setitimer() directly unless Cygwin or MS Win, in which case
we use our simulated version in win32.c.
systime.h: Prototype mswindows_setitimer() and qxe_setitimer(). Long
comment about "qxe" and the policy regarding encapsulation.
win32.c: Move setitimer() emulation here, so Cygwin can use it.
Rename a couple of functions and variables to be longer and more
descriptive. In setitimer_helper_proc(), send the signal
using either mswindows_raise() or (on Cygwin) kill(). If for
some reason we are still getting lockups, we'll change the kill()
to directly invoke the signal handlers.
------ windows shell fixes ------
callproc.c, ntproc.c: Comments about how these two files must die.
callproc.c: On MS Windows, init shell-file-name from SHELL, then COMSPEC,
not just COMSPEC. (more correct and closer to FSF.) Don't
force a value for SHELL into the environment. (Comments added
to explain why not.)
nt.c: Don't shove a fabricated SHELL into the environment. See above.
------ misc fixes ------
glyphs-shared.c: Style correction.
xemacs-faq.texi: Merge in the rest of Hrvoje's Windows FAQ. Redo section 7
to update current reality and add condensed versions of
new changes for 21.1 and 21.4. (Not quite done for 21.4.)
Lots more Windows updates.
process.el: Need to quote a null
argument, too. From Dan Holmsand.
startup.el:
startup.el: Call MS Windows init function.
win32-native.el: Correct comments at top. Correctly handle passing arguments
to Cygwin programs and to bash. Fix quoting of zero-length
arguments (from Dan Holmsand). Set shell-command-switch based
on shell-file-name, which in turn comes from env var SHELL.
author | ben |
---|---|
date | Fri, 08 Jun 2001 12:21:27 +0000 |
parents | c33ae14dd6d0 |
children | 023b83f4e54b |
comparison
equal
deleted
inserted
replaced
610:45ba69404a1f | 611:38db05db9cb5 |
---|---|
27 #include "elhash.h" | 27 #include "elhash.h" |
28 #include "hash.h" | 28 #include "hash.h" |
29 | 29 |
30 #include "syssignal.h" | 30 #include "syssignal.h" |
31 #include "systime.h" | 31 #include "systime.h" |
32 | |
33 #ifndef HAVE_SETITIMER | |
34 #error Sorry charlie. We need a scalpel and all we have is a lawnmower. | |
35 #endif | |
32 | 36 |
33 /* We implement our own profiling scheme so that we can determine | 37 /* We implement our own profiling scheme so that we can determine |
34 things like which Lisp functions are occupying the most time. Any | 38 things like which Lisp functions are occupying the most time. Any |
35 standard OS-provided profiling works on C functions, which is | 39 standard OS-provided profiling works on C functions, which is |
36 somewhat useless. | 40 somewhat useless. |
190 foo.it_value.tv_usec = msecs; | 194 foo.it_value.tv_usec = msecs; |
191 EMACS_NORMALIZE_TIME (foo.it_value); | 195 EMACS_NORMALIZE_TIME (foo.it_value); |
192 foo.it_interval = foo.it_value; | 196 foo.it_interval = foo.it_value; |
193 profiling_active = 1; | 197 profiling_active = 1; |
194 inside_profiling = 0; | 198 inside_profiling = 0; |
195 setitimer (ITIMER_PROF, &foo, 0); | 199 qxe_setitimer (ITIMER_PROF, &foo, 0); |
196 return Qnil; | 200 return Qnil; |
197 } | 201 } |
198 | 202 |
199 DEFUN ("stop-profiling", Fstop_profiling, 0, 0, 0, /* | 203 DEFUN ("stop-profiling", Fstop_profiling, 0, 0, 0, /* |
200 Stop profiling. | 204 Stop profiling. |
205 struct itimerval foo; | 209 struct itimerval foo; |
206 | 210 |
207 foo.it_value.tv_sec = 0; | 211 foo.it_value.tv_sec = 0; |
208 foo.it_value.tv_usec = 0; | 212 foo.it_value.tv_usec = 0; |
209 foo.it_interval = foo.it_value; | 213 foo.it_interval = foo.it_value; |
210 setitimer (ITIMER_PROF, &foo, 0); | 214 qxe_setitimer (ITIMER_PROF, &foo, 0); |
211 profiling_active = 0; | 215 profiling_active = 0; |
212 signal (SIGPROF, fatal_error_signal); | 216 signal (SIGPROF, fatal_error_signal); |
213 return Qnil; | 217 return Qnil; |
214 } | 218 } |
215 | 219 |