From 537f4eb35d1fa192c85ea5dc8335ecabc0024bae Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 10 Feb 2005 15:05:21 +0100 Subject: Minor reformatting. From-SVN: r94829 --- gcc/ada/vms_conv.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada') 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; ----------- -- cgit v1.1