Patchwork [Ada] Delete Exp_Dbug.No_Dollar_In_Label

login
register
mail settings
Submitter Arnaud Charlet
Date July 9, 2012, 10:46 a.m.
Message ID <20120709104616.GA31461@adacore.com>
Download mbox | patch
Permalink /patch/169770/
State New
Headers show

Comments

Arnaud Charlet - July 9, 2012, 10:46 a.m.
This variable is no longer used, so is removed.

Tested on x86_64-pc-linux-gnu, committed on trunk

2012-07-09  Joel Brobecker  <brobecker@adacore.com brobecker>

	* exp_dbug.ads (No_Dollar_In_Label): Delete.

Patch

Index: exp_dbug.ads
===================================================================
--- exp_dbug.ads	(revision 189366)
+++ exp_dbug.ads	(working copy)
@@ -6,7 +6,7 @@ 
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1996-2010, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-2012, 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- --
@@ -411,14 +411,6 @@ 
    -- Conversion between Entities and External Names --
    ----------------------------------------------------
 
-   No_Dollar_In_Label : constant Boolean := True;
-   --  True iff the target does not allow dollar signs ("$") in external names
-   --  ??? We want to migrate all platforms to use the same convention. As a
-   --  first step, we force this constant to always be True. This constant will
-   --  eventually be deleted after we have verified that the migration does not
-   --  cause any unforeseen adverse impact. We chose "__" because it is
-   --  supported on all platforms, which is not the case of "$".
-
    procedure Get_External_Name
      (Entity     : Entity_Id;
       Has_Suffix : Boolean);