OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r94808
This commit is contained in:
Doug Rupp 2005-02-10 14:49:28 +01:00 committed by Arnaud Charlet
parent 70ad376e2f
commit 125d500f84
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/s-tpopde-vms.adb
View File

@ -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);