[Ada] Fix 32/64bit mistake on SYSTEM_INFO component in s-win32

[Iain Sandoe]

Hi Folks,

> On 18 Sep 2019, at 09:39, Pierre-Marie de Rodat <derodat@adacore.com> wrote:
> 

> gcc/testsuite/
> 
> 	* gnat.dg/system_info1.adb: New testcase.<patch.diff>

This new test fails everywhere on Darwin, which doesn’t have an implementation for
System.Task_Info.Number_Of_Processors

Given 
"pragma Obsolescent (Task_Info, "use System.Multiprocessors and CPU aspect”);”

is it worth me trying to implement the Task_Info stuff?
or should I just skip this test on Darwin?

(if the latter, then I would plan to apply the patch below)

cheers
Iain


2019-09-19  Iain Sandoe  <iain@sandoe.co.uk>

	* gnat.dg/system_info1.adb: Skip for Darwin.


diff --git a/gcc/testsuite/gnat.dg/system_info1.adb b/gcc/testsuite/gnat.dg/system_info1.adb
index 493a18e907..c1523a277f 100644
--- a/gcc/testsuite/gnat.dg/system_info1.adb
+++ b/gcc/testsuite/gnat.dg/system_info1.adb
@@ -1,4 +1,4 @@
---  { dg-do run }
+--  { dg-do run { target { ! *-*-darwin* } } }
 
 with System.Multiprocessors;
 with System.Task_Info;