diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-26 14:47:48 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-26 14:47:48 +0000 |
commit | bd550baffa529087be2a7eb98dd64735da53e52b (patch) | |
tree | 966853aeb51ebcb01d4672b5d9fcb8065248a86d /gcc/ada/exp_tss.ads | |
parent | fc1e99dbe7d9e443abf618cc1cbf0f3b490cd17f (diff) | |
download | gcc-bd550baffa529087be2a7eb98dd64735da53e52b.tar.gz |
2004-01-26 Ed Schonberg <schonberg@gnat.com>
* exp_ch3.adb (Build_Slice_Assignment): New TSS procedure for
one-dimensional array an slice assignments, when component type is
controlled.
* exp_ch5.adb (Expand_Assign_Array): If array is one-dimensional,
component type is controlled, and control_actions are in effect, use
TSS procedure rather than generating inline code.
* exp_tss.ads (TSS_Slice_Assign): New TSS procedure for one-dimensional
arrays with controlled components.
2004-01-26 Vincent Celier <celier@gnat.com>
* gnatcmd.adb (GNATCmd): Add specification of argument file on the
command line for the non VMS case.
* gnatlink.adb (Process_Binder_File): When building object file, if
GNU linker is used, put all object paths between quotes, to prevent ld
error when there are unusual characters (such as '!') in the paths.
* Makefile.generic: When there are sources in Ada and the main is in
C/C++, invoke gnatmake with -B, instead of -z.
* vms_conv.adb (Preprocess_Command_Data): New procedure, extracted
from VMS_Conversion.
(Process_Argument): New procedure, extracted from VMS_Conversion. Add
specification of argument file on the command line.
2004-01-26 Bernard Banner <banner@gnat.com>
* Makefile.in: Enable GMEM_LIB and SYMLIB for x86_64
2004-01-26 Ed Schonberg <schonberg@gnat.com>
* snames.adb: Update copyright notice.
Add info on slice assignment for controlled arrays.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@76634 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_tss.ads')
-rw-r--r-- | gcc/ada/exp_tss.ads | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index c36b821f792..a85fff07d37 100644 --- a/gcc/ada/exp_tss.ads +++ b/gcc/ada/exp_tss.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004 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- -- @@ -81,6 +81,7 @@ package Exp_Tss is TSS_RAS_Access : constant TNT := "RA"; -- RAs type access TSS_RAS_Dereference : constant TNT := "RD"; -- RAs type deference TSS_Rep_To_Pos : constant TNT := "RP"; -- Rep to Pos conversion + TSS_Slice_Assign : constant TNT := "SA"; -- Slice assignment TSS_Stream_Input : constant TNT := "SI"; -- Stream Input attribute TSS_Stream_Output : constant TNT := "SO"; -- Stream Output attribute TSS_Stream_Read : constant TNT := "SR"; -- Stream Read attribute @@ -95,6 +96,7 @@ package Exp_Tss is TSS_RAS_Access, TSS_RAS_Dereference, TSS_Rep_To_Pos, + TSS_Slice_Assign, TSS_Stream_Input, TSS_Stream_Output, TSS_Stream_Read, |