From 2551782dc3fdb3baa1e97310223fc8e3c51cf6c9 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 12 Oct 2010 12:49:00 +0200 Subject: [multiple changes] 2010-10-12 Pascal Obry * adaint.c (__gnat_number_of_cpus): Add implementation for Windows. 2010-10-12 Arnaud Charlet * make.adb (Globalize): New procedure. (Compile): Set Do_Codepeer_Globalize_Step when -gnatC is used. (Gnatmake): Call Globalize when needed. (Process_Restrictions_Or_Restriction_Warnings): Ignore Restrictions pragmas in CodePeer mode. (Adjust_Global_Switches): Set No_Initialize_Scalars in CodePeer mode, to generate simpler and consistent code. 2010-10-12 Bob Duff * exp_util.adb (Remove_Side_Effects): Disable previous change, can cause side effects to be duplicated. From-SVN: r165359 --- gcc/ada/adaint.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/ada/adaint.c') diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 51e2bb7..982ae11 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -2384,6 +2384,10 @@ __gnat_number_of_cpus (void) if (pstat_getdynamic (&psd, sizeof (psd), 1, 0) != -1) cores = (int) psd.psd_proc_cnt; +#elif defined (_WIN32) + SYSTEM_INFO sysinfo; + GetSystemInfo (&sysinfo); + cores = (int) sysinfo.dwNumberOfProcessors; #endif return cores; -- cgit v1.1