diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-03-07 15:32:55 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-03-07 15:32:55 +0200 |
| commit | 619f66f423c76d94b2bca728f9c22b536e909108 (patch) | |
| tree | ecdea436c993f75d73b325c7552937a223365d80 /src/w32.c | |
| parent | 99638d128ee07fa35525ac47217f68dd518e9175 (diff) | |
| download | emacs-619f66f423c76d94b2bca728f9c22b536e909108.tar.gz emacs-619f66f423c76d94b2bca728f9c22b536e909108.tar.bz2 emacs-619f66f423c76d94b2bca728f9c22b536e909108.zip | |
Use MS-Windows system APIs to get number of processors
* lisp/emacs-lisp/comp.el: Use 'w32-get-nproc' instead of the
environment variable NUMBER_OF_PROCESSORS.
* src/w32proc.c (Fw32_get_nproc): New primitive.
* src/w32.c (w32_get_nproc): New function.
(sample_system_load): Call w32_get_nproc to initialize the number
of processors on this system.
* src/w32.h (w32_get_nproc): Add prototype.
Diffstat (limited to 'src/w32.c')
| -rw-r--r-- | src/w32.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/w32.c b/src/w32.c index 96eba1e5681..7ce907d0adb 100644 --- a/src/w32.c +++ b/src/w32.c @@ -1941,11 +1941,10 @@ buf_prev (int from) return prev_idx; } -static void -sample_system_load (ULONGLONG *idle, ULONGLONG *kernel, ULONGLONG *user) +unsigned +w32_get_nproc (void) { SYSTEM_INFO sysinfo; - FILETIME ft_idle, ft_user, ft_kernel; /* Initialize the number of processors on this machine. */ if (num_of_processors <= 0) @@ -1960,6 +1959,15 @@ sample_system_load (ULONGLONG *idle, ULONGLONG *kernel, ULONGLONG *user) if (num_of_processors <= 0) num_of_processors = 1; } + return num_of_processors; +} + +static void +sample_system_load (ULONGLONG *idle, ULONGLONG *kernel, ULONGLONG *user) +{ + FILETIME ft_idle, ft_user, ft_kernel; + + (void) w32_get_nproc (); /* TODO: Take into account threads that are ready to run, by sampling the "\System\Processor Queue Length" performance |