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