diff options
| author | Tom Tromey | 2018-08-07 18:08:53 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-08-07 18:08:53 -0600 |
| commit | d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch) | |
| tree | 04c920acf142f686d3cac11080b17a2fb0dfc9af /src/profiler.c | |
| parent | 68ebff23f7057090da260830500cb278f7b886a5 (diff) | |
| download | emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.tar.gz emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.zip | |
More macro renamings for bignum
* src/alloc.c, src/bidi.c, src/buffer.c, src/buffer.h, src/bytecode.c,
src/callint.c, src/callproc.c, src/casefiddle.c, src/casetab.c,
src/category.c, src/ccl.c, src/character.c, src/character.h,
src/charset.c, src/charset.h, src/chartab.c, src/cmds.c, src/coding.c,
src/composite.c, src/composite.h, src/data.c, src/dbusbind.c,
src/decompress.c, src/dired.c, src/dispextern.h, src/dispnew.c,
src/disptab.h, src/doc.c, src/dosfns.c, src/editfns.c,
src/emacs-module.c, src/emacs.c, src/eval.c, src/fileio.c,
src/floatfns.c, src/fns.c, src/font.c, src/font.h, src/fontset.c,
src/frame.c, src/frame.h, src/fringe.c, src/ftcrfont.c, src/ftfont.c,
src/gfilenotify.c, src/gnutls.c, src/gtkutil.c, src/image.c,
src/indent.c, src/insdel.c, src/intervals.c, src/json.c,
src/keyboard.c, src/keymap.c, src/kqueue.c, src/lcms.c, src/lisp.h,
src/lread.c, src/macros.c, src/marker.c, src/menu.c, src/minibuf.c,
src/msdos.c, src/print.c, src/process.c, src/profiler.c, src/search.c,
src/sound.c, src/syntax.c, src/syntax.h, src/sysdep.c, src/term.c,
src/termhooks.h, src/textprop.c, src/undo.c, src/w32.c,
src/w32console.c, src/w32fns.c, src/w32font.c, src/w32inevt.c,
src/w32proc.c, src/w32select.c, src/w32term.c, src/w32term.h,
src/w32uniscribe.c, src/window.c, src/xdisp.c, src/xfaces.c,
src/xfns.c, src/xfont.c, src/xftfont.c, src/xmenu.c, src/xml.c,
src/xrdb.c, src/xselect.c, src/xsettings.c, src/xterm.c, src/xwidget.c
Rename XINT->XFIXNUM, XFASTINT->XFIXNAT, XUINT->XUFIXNUM.
Diffstat (limited to 'src/profiler.c')
| -rw-r--r-- | src/profiler.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/profiler.c b/src/profiler.c index 4c7812aa778..7330f8861fc 100644 --- a/src/profiler.c +++ b/src/profiler.c | |||
| @@ -80,12 +80,12 @@ static EMACS_INT approximate_median (log_t *log, | |||
| 80 | { | 80 | { |
| 81 | eassert (size > 0); | 81 | eassert (size > 0); |
| 82 | if (size < 2) | 82 | if (size < 2) |
| 83 | return XINT (HASH_VALUE (log, start)); | 83 | return XFIXNUM (HASH_VALUE (log, start)); |
| 84 | if (size < 3) | 84 | if (size < 3) |
| 85 | /* Not an actual median, but better for our application than | 85 | /* Not an actual median, but better for our application than |
| 86 | choosing either of the two numbers. */ | 86 | choosing either of the two numbers. */ |
| 87 | return ((XINT (HASH_VALUE (log, start)) | 87 | return ((XFIXNUM (HASH_VALUE (log, start)) |
| 88 | + XINT (HASH_VALUE (log, start + 1))) | 88 | + XFIXNUM (HASH_VALUE (log, start + 1))) |
| 89 | / 2); | 89 | / 2); |
| 90 | else | 90 | else |
| 91 | { | 91 | { |
| @@ -110,7 +110,7 @@ static void evict_lower_half (log_t *log) | |||
| 110 | for (i = 0; i < size; i++) | 110 | for (i = 0; i < size; i++) |
| 111 | /* Evict not only values smaller but also values equal to the median, | 111 | /* Evict not only values smaller but also values equal to the median, |
| 112 | so as to make sure we evict something no matter what. */ | 112 | so as to make sure we evict something no matter what. */ |
| 113 | if (XINT (HASH_VALUE (log, i)) <= median) | 113 | if (XFIXNUM (HASH_VALUE (log, i)) <= median) |
| 114 | { | 114 | { |
| 115 | Lisp_Object key = HASH_KEY (log, i); | 115 | Lisp_Object key = HASH_KEY (log, i); |
| 116 | { /* FIXME: we could make this more efficient. */ | 116 | { /* FIXME: we could make this more efficient. */ |
| @@ -156,7 +156,7 @@ record_backtrace (log_t *log, EMACS_INT count) | |||
| 156 | ptrdiff_t j = hash_lookup (log, backtrace, &hash); | 156 | ptrdiff_t j = hash_lookup (log, backtrace, &hash); |
| 157 | if (j >= 0) | 157 | if (j >= 0) |
| 158 | { | 158 | { |
| 159 | EMACS_INT old_val = XINT (HASH_VALUE (log, j)); | 159 | EMACS_INT old_val = XFIXNUM (HASH_VALUE (log, j)); |
| 160 | EMACS_INT new_val = saturated_add (old_val, count); | 160 | EMACS_INT new_val = saturated_add (old_val, count); |
| 161 | set_hash_value_slot (log, j, make_fixnum (new_val)); | 161 | set_hash_value_slot (log, j, make_fixnum (new_val)); |
| 162 | } | 162 | } |
| @@ -273,7 +273,7 @@ setup_cpu_timer (Lisp_Object sampling_interval) | |||
| 273 | : EMACS_INT_MAX))) | 273 | : EMACS_INT_MAX))) |
| 274 | return -1; | 274 | return -1; |
| 275 | 275 | ||
| 276 | current_sampling_interval = XINT (sampling_interval); | 276 | current_sampling_interval = XFIXNUM (sampling_interval); |
| 277 | interval = make_timespec (current_sampling_interval / billion, | 277 | interval = make_timespec (current_sampling_interval / billion, |
| 278 | current_sampling_interval % billion); | 278 | current_sampling_interval % billion); |
| 279 | emacs_sigaction_init (&action, deliver_profiler_signal); | 279 | emacs_sigaction_init (&action, deliver_profiler_signal); |