s-tpopde-vms.adb: Add pragma Warnings (Off) for Task_Id conversions.

2005-02-09  Doug Rupp  <rupp@adacore.com>

	* s-tpopde-vms.adb: Add pragma Warnings (Off) for Task_Id conversions.

From-SVN: r94808

diff --git a/gcc/ada/s-tpopde-vms.adb b/gcc/ada/s-tpopde-vms.adb
index 5fa9a92e21dd031c683071cf03e4cb5871aa743a..c492c1b4cf9854290414b8b7d419b1fb3a33eb88 100644 (file)
--- a/gcc/ada/s-tpopde-vms.adb
+++ b/gcc/ada/s-tpopde-vms.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---           Copyright (C) 2000-2004 Free Software Foundation, Inc.         --
+--           Copyright (C) 2000-2005 Free Software Foundation, Inc.         --
 --                                                                          --
 -- 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- --
@@ -69,12 +69,17 @@ package body System.Task_Primitives.Operations.DEC is
    -- Local Subprograms --
    -----------------------
 
+   pragma Warnings (Off);
+   --  Task_Id is 64 bits wide (but only 32 bits significant) on Integrity/VMS
+
    function To_Unsigned_Longword is new
      Unchecked_Conversion (Task_Id, Unsigned_Longword);
 
    function To_Task_Id is new
      Unchecked_Conversion (Unsigned_Longword, Task_Id);
 
+   pragma Warnings (On);
+
    function To_FAB_RAB is new
      Unchecked_Conversion (Address, FAB_RAB_Access_Type);