diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-14 10:26:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-14 10:26:38 +0000 |
| commit | 3031008b93215d4ac160b4e231d44c0d9112ec22 (patch) | |
| tree | 2cf8a82ac0177d14bb4c20ae305fdeb19bef44aa /gcc/ada/exp_dbug.adb | |
| parent | 950e1932979ddd9f1b7d3b8ba919048b385e1393 (diff) | |
| download | gcc-3031008b93215d4ac160b4e231d44c0d9112ec22.tar.gz | |
2010-06-14 Jerome Lambourg <lambourg@adacore.com>
* exp_dbug.adb (Debug_Renaming_Declaration): Do not output any debug
declaration for VMs, as those are useless and might lead to duplicated
local variable names in the generated code.
* gcc-interface/Make-lang.in: Update dependdencies.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160721 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dbug.adb')
| -rw-r--r-- | gcc/ada/exp_dbug.adb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index 34ae7e2b652..610ac0e5520 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2009, 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- -- @@ -38,6 +38,7 @@ with Sinfo; use Sinfo; with Stand; use Stand; with Stringt; use Stringt; with Table; +with Targparm; use Targparm; with Tbuild; use Tbuild; with Urealp; use Urealp; @@ -341,6 +342,14 @@ package body Exp_Dbug is return Empty; end if; + -- Do not output those local variables in VM case, as this does not + -- help debugging (they are just unused), and might lead to duplicated + -- local variable names. + + if VM_Target /= No_VM then + return Empty; + end if; + -- Get renamed entity and compute suffix Name_Len := 0; |