s-osinte-rtems.ad[bs]: Get_Page_Size cannot return 0.

2009-09-21  Joel Sherrill <joel.sherrill@oarcorp.com>

	* s-osinte-rtems.ad[bs]: Get_Page_Size cannot return 0.
	Bind to getpagesize() in RTEMS 4.10 and newer.

From-SVN: r151946

gcc/ada/ChangeLog

+2009-09-21  Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* s-osinte-rtems.ad[bs]: Get_Page_Size cannot return 0.
+	Bind to getpagesize() in RTEMS 4.10 and newer.
+
 2009-09-21  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
 	* env.c [__alpha__ && __osf__] (_BSD): Define.

gcc/ada/s-osinte-rtems.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---            Copyright (C) 1991-2008 Florida State University              --
+--            Copyright (C) 1991-2009 Florida State University              --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -125,16 +125,6 @@ package body System.OS_Interface is
       return Null_Address;
    end Get_Stack_Base;
 
-   function Get_Page_Size return size_t is
-   begin
-      return 0;
-   end Get_Page_Size;
-
-   function Get_Page_Size return Address is
-   begin
-      return 0;
-   end Get_Page_Size;
-
    function sigaltstack
      (ss  : not null access stack_t;
       oss : access stack_t) return int is

gcc/ada/s-osinte-rtems.ads

@@ -296,8 +296,8 @@ package System.OS_Interface is
 
    function Get_Page_Size return size_t;
    function Get_Page_Size return Address;
-   --  returns the size of a page, or 0 if this is not relevant on this
-   --  target (which is the case for RTEMS)
+   pragma Import (C, Get_Page_Size, "getpagesize");
+   --  Returns the size of a page
 
    PROT_ON  : constant := 0;
    PROT_OFF : constant := 0;