From b743d2fec7f114a7ad9f774f53d9790ce38b30c1 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 23 Oct 2003 11:57:52 +0000 Subject: PR ada/11978: * exp_ch13.adb (Expand_N_Freeze_Entity): Do not consider inherited External_Tag attribute definition clauses. PR ada/7613: * exp_dbug.adb (Debug_Renaming_Declaration): For the renaming of a child unit, generate a fully qualified name to avoid spurious errors when the context contains renamings of different child units with the same simple name. * exp_dbug.ads: Add documentation on name qualification for renamings of child units. * g-regpat.ads, g-regpat.adb: Minor reformatting * Makefile.in: Use the file 1atags.ads with the ZFP and cert run-times. * trans.c: (tree_transform, case N_Real_Literal): Add extra arg to Machine call. * urealp.h: (Machine): Update to proper definition. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@72843 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/urealp.h | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/urealp.h') diff --git a/gcc/ada/urealp.h b/gcc/ada/urealp.h index 1153f250e15..207e8b105e5 100644 --- a/gcc/ada/urealp.h +++ b/gcc/ada/urealp.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2002 Free Software Foundation, Inc. * + * Copyright (C) 1992-2003 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- * @@ -47,4 +47,5 @@ extern Boolean UR_Is_Zero (Ureal); enum Rounding_Mode {Floor = 0, Ceiling = 1, Round = 2, Round_Even = 3}; #define Machine eval_fat__machine -extern Ureal Machine (Entity_Id, Ureal, enum Rounding_Mode); +extern Ureal Machine (Entity_Id, Ureal, enum Rounding_Mode, + Node_Id); -- cgit v1.2.1