diff options
| author | Joel Sherrill <joel.sherrill@oarcorp.com> | 2009-09-21 20:52:46 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel@gcc.gnu.org> | 2009-09-21 20:52:46 +0000 |
| commit | 9673668f4de44f6af91a58f177ed1577a22a9653 (patch) | |
| tree | b501c5f109156a9372386d741b6417b91b50c596 /gcc/ada | |
| parent | c1493544c1d89087a986c31b251e3040295d77af (diff) | |
| download | gcc-9673668f4de44f6af91a58f177ed1577a22a9653.zip gcc-9673668f4de44f6af91a58f177ed1577a22a9653.tar.gz gcc-9673668f4de44f6af91a58f177ed1577a22a9653.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/s-osinte-rtems.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/s-osinte-rtems.ads | 4 |
3 files changed, 8 insertions, 13 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b67bf86..dddef52 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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. diff --git a/gcc/ada/s-osinte-rtems.adb b/gcc/ada/s-osinte-rtems.adb index 1e4efbc..ab98de5 100644 --- a/gcc/ada/s-osinte-rtems.adb +++ b/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 diff --git a/gcc/ada/s-osinte-rtems.ads b/gcc/ada/s-osinte-rtems.ads index e1b0261..5e3d919 100644 --- a/gcc/ada/s-osinte-rtems.ads +++ b/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; |