From a101c4f2ec8fbcb49bbc39391d91b6a916cca1fa Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 1 Jun 2003 14:40:05 +0000
Subject: [PATCH]  * Fix to get it to build "name" was considered dup ident.
 Changed to     envname and added logs

---
 fcl/inc/custapp.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/fcl/inc/custapp.pp b/fcl/inc/custapp.pp
index 3d13355ec9..2ef694e23d 100644
--- a/fcl/inc/custapp.pp
+++ b/fcl/inc/custapp.pp
@@ -75,7 +75,7 @@ Type
     Property Location : String Read GetLocation;
     Property Params [Index : integer] : String Read GetParams;
     Property ParamCount : Integer Read GetParamCount;
-    Property EnvironmentVariable[Name : String] : String Read GetEnvironmentVar;
+    Property EnvironmentVariable[envName : String] : String Read GetEnvironmentVar;
     Property OptionChar : Char Read FoptionChar Write FOptionChar;
     Property CaseSensitiveOptions : Boolean Read FCaseSensitiveOptions Write FCaseSensitiveOptions;
     Property StopOnException : Boolean Read FStopOnException Write FStopOnException;
@@ -482,3 +482,11 @@ end;
 
 end.
 
+{
+   $Log$
+   Revision 1.6  2003-06-01 14:40:05  marco
+    * Fix to get it to build "name" was considered dup ident. Changed to
+       envname and added logs
+
+
+}
\ No newline at end of file