1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb
index 164034ec881..ca059c95408 100644
--- a/gcc/ada/s-taprop-hpux-dce.adb
+++ b/gcc/ada/s-taprop-hpux-dce.adb
@@ -1241,4 +1241,16 @@ package body System.Task_Primitives.Operations is
    --  this difference is that sigwait doesn't work when some critical
    --  signals (SIGABRT, SIGPIPE) are masked.
 
+   -----------------------
+   -- Set_Task_Affinity --
+   -----------------------
+
+   procedure Set_Task_Affinity (T : ST.Task_Id) is
+      pragma Unreferenced (T);
+   begin
+      --  Setting task affinity is not supported by the underlying system
+
+      null;
+   end Set_Task_Affinity;
+
 end System.Task_Primitives.Operations;