diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-04 16:37:55 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-04 16:37:55 +0000 |
| commit | d8dd2062cdbbcb05d0c1e517cd97c513aea32b4f (patch) | |
| tree | cf769055937cac1e35312ec316fec27e5966ab39 /gcc/ada/gnatcmd.adb | |
| parent | 1084d1c7d3a2db70926d0ff69f3815aad14e0782 (diff) | |
| download | gcc-d8dd2062cdbbcb05d0c1e517cd97c513aea32b4f.tar.gz | |
* gnatchop.adb:
(File_Time_Stamp): New procedure.
(Preserve_Mode): New boolean.
(Write_Unit): Pass time stamp.
Implement -p switch (preserve time stamps).
* gnatcmd.adb (CHOP): Add translation for -p (/PRESERVE).
* gnatchop.adb: Do usage info for -p switch
* adaint.h (__gnat_set_file_time_name): New function
* adaint.c (__gnat_set_file_time_name): Implement
* adaint.h: Fix typo
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47613 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 75811ee74c8..1e67d667777 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -351,6 +351,9 @@ procedure GNATCmd is S_Chop_Over : aliased constant S := "/OVERWRITE " & "-w"; + S_Chop_Pres : aliased constant S := "/PRESERVE " & + "-p"; + S_Chop_Quiet : aliased constant S := "/QUIET " & "-q"; @@ -365,6 +368,7 @@ procedure GNATCmd is S_Chop_File 'Access, S_Chop_Help 'Access, S_Chop_Over 'Access, + S_Chop_Pres 'Access, S_Chop_Quiet 'Access, S_Chop_Ref 'Access, S_Chop_Verb 'Access); |