aboutsummaryrefslogtreecommitdiffstats
path: root/src/profiler.c
diff options
context:
space:
mode:
authorTom Tromey2018-08-07 18:08:53 -0600
committerTom Tromey2018-08-07 18:08:53 -0600
commitd1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch)
tree04c920acf142f686d3cac11080b17a2fb0dfc9af /src/profiler.c
parent68ebff23f7057090da260830500cb278f7b886a5 (diff)
downloademacs-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.c12
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);