diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 06:37:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 06:37:45 +0000 |
| commit | 443bdccbfd72aca4e18fa2d59455d0abf4c1e1a6 (patch) | |
| tree | 108280e98ba067a9d39a1fc8f26ead3efb7a2711 /gcc/ada/exp_imgv.adb | |
| parent | 7e89ad833260a023e115508db597bb98fe4e1406 (diff) | |
| download | gcc-443bdccbfd72aca4e18fa2d59455d0abf4c1e1a6.tar.gz | |
2014-07-17 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, a-ztexio.ads, exp_imgv.adb, casing.adb, casing.ads,
einfo.ads, checks.adb, sem_ch12.adb, a-textio.ads, freeze.adb,
repinfo.adb, exp_ch6.adb, sem_ch4.adb, a-witeio.ads, sem_ch8.adb,
sem_warn.adb, exp_aggr.adb, exp_dist.adb, par-tchk.adb, s-fatgen.adb,
treepr.adb, lib-xref.adb: Remove the word kludge from ada sources.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212726 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_imgv.adb')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 1c953d6a574..f249afe0f8c 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2014, 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- -- @@ -742,9 +742,9 @@ package body Exp_Imgv is -- generating spurious errors caused by the use of Integer_Address'Value -- in our implementation of Ada.Tags.Internal_Tag - -- Seems like a bit of a kludge, there should be a better way ??? + -- Seems like a bit of a odd approach, there should be a better way ??? - -- There is a better way, you should also test RTE_Available ??? + -- There is a better way, test RTE_Available ??? if No_Run_Time_Mode and then Rtyp = RTE (RE_Integer_Address) |