OSDN Git Service

2009-09-21 Joel Sherrill <joel.sherrill@oarcorp.com>
authorjoel <joel@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 21 Sep 2009 20:52:46 +0000 (20:52 +0000)
committerjoel <joel@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 21 Sep 2009 20:52:46 +0000 (20:52 +0000)
* s-osinte-rtems.ad[bs]: Get_Page_Size cannot return 0.
Bind to getpagesize() in RTEMS 4.10 and newer.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151946 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/s-osinte-rtems.adb
gcc/ada/s-osinte-rtems.ads

index b67bf86..dddef52 100644 (file)
@@ -1,3 +1,8 @@
+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.
index 1e4efbc..ab98de5 100644 (file)
@@ -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
index e1b0261..5e3d919 100644 (file)
@@ -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;