summaryrefslogtreecommitdiff
path: root/gcc/ada/s-taprop-posix.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-11-30 11:08:56 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-11-30 11:08:56 +0000
commitb1a1a5f77c6484ac6462f5b95200253614876755 (patch)
tree43de46f1d86249df6141c9e602fac7c2e2a3847e /gcc/ada/s-taprop-posix.adb
parent568a61508e4c7af782e43f686297cdb6d8698283 (diff)
downloadgcc-b1a1a5f77c6484ac6462f5b95200253614876755.tar.gz
2009-11-30 Arnaud Charlet <charlet@adacore.com>
* s-taprop-posix.adb: Fix casing. * s-osinte-tru64.adb: Complete previous check-in. 2009-11-30 Robert Dewar <dewar@adacore.com> * gnat_rm.texi: Document pragma Compiler_Unit * s-bitops.adb, s-restri.adb, g-htable.adb, s-restri.ads, a-comlin.ads, a-strhas.ads, s-strhas.adb, s-parame.adb, s-parame.ads, a-clrefi.adb, a-clrefi.ads, a-ioexce.ads: Supply missing Compiler_Unit pragmas. * freeze.adb (Freeze_Entity): Improve message for 8-bit boolean passed to C. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154784 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-posix.adb')
-rw-r--r--gcc/ada/s-taprop-posix.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb
index 84c0eee4ffe..d05bb1cd2d4 100644
--- a/gcc/ada/s-taprop-posix.adb
+++ b/gcc/ada/s-taprop-posix.adb
@@ -246,7 +246,7 @@ package body System.Task_Primitives.Operations is
Res :=
mprotect (Guard_Page_Address, Get_Page_Size,
- prot => (if ON then PROT_ON else PROT_OFF));
+ prot => (if On then PROT_ON else PROT_OFF));
pragma Assert (Res = 0);
end if;
end Stack_Guard;