2011-10-16 Tristan Gingold <gingold@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-osinte-tru64.adb

diff --git a/gcc/ada/s-osinte-tru64.adb b/gcc/ada/s-osinte-tru64.adb
index 6229ba0..ad391bc 100644 (file)
--- a/gcc/ada/s-osinte-tru64.adb
+++ b/gcc/ada/s-osinte-tru64.adb
@@ -102,7 +102,7 @@ package body System.OS_Interface is
          Res :=
            mprotect
              (Teb.all.stack_yellow, Get_Page_Size,
-              prot => (if Res then PROT_ON else PROT_OFF));
+              prot => (if Hide then PROT_ON else PROT_OFF));
       end if;
    end Hide_Unhide_Yellow_Zone;