From f5da72ceabb971f5ee389e7679845af3f4abddbd Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 10 Feb 2005 14:56:44 +0100 Subject: [PATCH] s-vaflop.adb: Add pragma Warnings (Off) to eliminate infinite recursion warnings when... * s-vaflop.adb: Add pragma Warnings (Off) to eliminate infinite recursion warnings when compiled with -gnatdm. From-SVN: r94824 --- gcc/ada/s-vaflop.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/s-vaflop.adb b/gcc/ada/s-vaflop.adb index 35b5353e06a..10dbaef9f4c 100644 --- a/gcc/ada/s-vaflop.adb +++ b/gcc/ada/s-vaflop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2005 Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -40,6 +40,8 @@ with System.IO; use System.IO; package body System.Vax_Float_Operations is + pragma Warnings (Off); + -- Warnings about infinite recursion when the -gnatdm switch is used. ----------- -- Abs_F --