diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-04 14:58:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-04 14:58:21 +0000 |
| commit | 2fff57b3badae2bedac8308c57c6c0292f7f9879 (patch) | |
| tree | f29e625169dcfc496f3050d84735507fd3f0e5d6 /gcc/ada/exp_pakd.adb | |
| parent | cb75489d5040b84fb6651a485a2be415515f651a (diff) | |
| download | gcc-2fff57b3badae2bedac8308c57c6c0292f7f9879.tar.gz | |
2004-10-04 Robert Dewar <dewar@gnat.com>
* a-except.adb: Add a comment for last change
* einfo.ads: Minor spelling correction in comment
* exp_pakd.adb, gnatdll.adb, prj-attr.ads: Minor reformatting
* sem_ch11.adb: Fix a case of using | instead of \ for continuation
messages.
* sem_util.ads: Minor comment update
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88499 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 364b4d7664c..f8415093bf3 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -469,8 +469,7 @@ package body Exp_Pakd is function RJ_Unchecked_Convert_To (Typ : Entity_Id; - Expr : Node_Id) - return Node_Id; + Expr : Node_Id) return Node_Id; -- The packed array code does unchecked conversions which in some cases -- may involve non-discrete types with differing sizes. The semantics of -- such conversions is potentially endian dependent, and the effect we @@ -2410,8 +2409,7 @@ package body Exp_Pakd is function RJ_Unchecked_Convert_To (Typ : Entity_Id; - Expr : Node_Id) - return Node_Id + Expr : Node_Id) return Node_Id is Source_Typ : constant Entity_Id := Etype (Expr); Target_Typ : constant Entity_Id := Typ; |