diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-17 11:49:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-17 11:49:48 +0200 |
| commit | f080def5134dc47dcb997778a35858f208c2c393 (patch) | |
| tree | ca28973deac660af91e6de4aba33237e1ac95b34 /gcc/ada/treepr.ads | |
| parent | 2767f2cc5cc916f4a99cbfd510cf5a5454c54221 (diff) | |
| download | gcc-f080def5134dc47dcb997778a35858f208c2c393.zip gcc-f080def5134dc47dcb997778a35858f208c2c393.tar.gz gcc-f080def5134dc47dcb997778a35858f208c2c393.tar.bz2 | |
[multiple changes]
2012-07-17 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb: Minor code reorganization.
* exp_ch3.adb: Minor code improvement.
2012-07-17 Tristan Gingold <gingold@adacore.com>
* seh_init.c (__gnat_SEH_error_handler): Not compiled anymore
on Windows 64 (+ SEH), as it is unused.
2012-07-17 Tristan Gingold <gingold@adacore.com>
* treepr.ads (psloc): Declare.
* treepr.adb (psloc): New debug procedure to print a sloc.
(Print_Sloc): New procedure, from ...
(Print_Node_Subtree): ... this. Call Print_Sloc.
2012-07-17 Javier Miranda <miranda@adacore.com>
* sem_prag.adb (CPP_Class): Transform obsolescent pragma CPP_Class into
CPP convention automatically.
From-SVN: r189566
Diffstat (limited to 'gcc/ada/treepr.ads')
| -rw-r--r-- | gcc/ada/treepr.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads index 6e9541a..700f3de 100644 --- a/gcc/ada/treepr.ads +++ b/gcc/ada/treepr.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -71,6 +71,10 @@ package Treepr is pragma Export (Ada, ppp); -- Same as Print_Node_Subtree + procedure psloc (Loc : Source_Ptr); + pragma Export (Ada, psloc); + -- Prints the sloc Loc + -- The following are no longer needed; you can use pp or ppp instead procedure pe (E : Elist_Id); |