2011-12-12 Robert Dewar <dewar@adacore.com>

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

diff --git a/gcc/ada/s-tpobop.adb b/gcc/ada/s-tpobop.adb
index 171c771..0ed75a8 100644 (file)
--- a/gcc/ada/s-tpobop.adb
+++ b/gcc/ada/s-tpobop.adb
@@ -740,7 +740,7 @@ package body System.Tasking.Protected_Objects.Operations is
             --  OS (e.g VxWorks) to give higher priority tasks a chance to run
             --  (see CXD6002).
 
-            STPO.Yield (False);
+            STPO.Yield (Do_Yield => False);
 
             if Entry_Call.With_Abort
               and then Entry_Call.Cancellation_Attempted