diff options
Diffstat (limited to 'gcc/ada/xtreeprs.adb')
-rw-r--r-- | gcc/ada/xtreeprs.adb | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/xtreeprs.adb b/gcc/ada/xtreeprs.adb index 995401e4984..7ce8721b296 100644 --- a/gcc/ada/xtreeprs.adb +++ b/gcc/ada/xtreeprs.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.33 $ +-- $Revision: 1.1.16.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- @@ -22,7 +22,7 @@ -- MA 02111-1307, USA. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ @@ -149,7 +149,8 @@ procedure XTreeprs is begin Anchored_Mode := True; - Match ("$Revision: 1.33 $", "$Rev" & "ision: " & Break (' ') * Treeprsrev); + Match ("$Revision: 1.1.16.1 $", + "$Rev" & "ision: " & Break (' ') * Treeprsrev); if Argument_Count > 0 then Create (OutS, Out_File, Argument (1)); @@ -201,17 +202,17 @@ begin Put_Line (OutS, "-- Generated by xtreeprs revision " & - Treeprsrev & " using --"); + Treeprsrev & " using"); Put_Line (OutS, "-- sinfo.ads revision " & - Sinforev & " --"); + Sinforev); Put_Line (OutS, "-- treeprs.adt revision " - & Temprev & " --"); + & Temprev); else -- Skip lines describing the template |