diff options
| -rw-r--r-- | gcc/ada/vms_conv.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb index f623727..ac66690 100644 --- a/gcc/ada/vms_conv.adb +++ b/gcc/ada/vms_conv.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2005 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- -- @@ -89,10 +89,10 @@ package body VMS_Conv is -- the allocated result on the heap. function Is_Extensionless (F : String) return Boolean; - -- Returns true if the filename has no extension. + -- Returns true if the filename has no extension function Match (S1, S2 : String) return Boolean; - -- Determines whether S1 and S2 match. This is a case insensitive match. + -- Determines whether S1 and S2 match (this is a case insensitive match) function Match_Prefix (S1, S2 : String) return Boolean; -- Determines whether S1 matches a prefix of S2. This is also a case @@ -662,7 +662,7 @@ package body VMS_Conv is begin Put ("GNAT "); Put_Line (Gnatvsn.Gnat_Version_String); - Put_Line ("Copyright 1996-2004 Free Software Foundation, Inc."); + Put_Line ("Copyright 1996-2005 Free Software Foundation, Inc."); end Output_Version; ----------- |