* don't truncate the result of GetEnvironmentVariable to 255 characters

git-svn-id: branches/cpstrrtl@25105 -

rtl/emx/sysutils.pp

@@ -1229,7 +1229,7 @@ end;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 
 begin
-    GetEnvironmentVariable := StrPas (GetEnvPChar (EnvVar));
+    GetEnvironmentVariable := GetEnvPChar (EnvVar);
 end;
 
 

rtl/macos/sysutils.pp

@@ -664,7 +664,7 @@ Function GetEnvironmentVariable(Const EnvVar : String) : String;
 
 begin
   (* TODO fix
-  Result:=StrPas(Unix.Getenv(PChar(EnvVar)));
+  Result:=Unix.Getenv(PChar(EnvVar));
   *)
 end;
 

rtl/netware/sysutils.pp

@@ -544,7 +544,7 @@ end;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 
 begin
-  Result:=StrPas(_getenv(PChar(EnvVar)));
+  Result:=_getenv(PChar(EnvVar));
 end;
 
 Function GetEnvironmentVariableCount : Integer;

rtl/netwlibc/sysutils.pp

@@ -605,7 +605,7 @@ end;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 
 begin
-  Result:=StrPas(libc.getenv(PChar(EnvVar)));
+  Result:=libc.getenv(PChar(EnvVar));
 end;
 
 Function GetEnvironmentVariableCount : Integer;

rtl/os2/sysutils.pp

@@ -644,7 +644,7 @@ end;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 
 begin
-    GetEnvironmentVariable := StrPas (GetEnvPChar (EnvVar));
+    GetEnvironmentVariable := GetEnvPChar (EnvVar);
 end;
 
 

rtl/unix/sysutils.pp

@@ -1172,7 +1172,9 @@ end;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 
 begin
-  Result:=StrPas(BaseUnix.FPGetenv(PChar(pointer(EnvVar))));
+  { no need to adjust the code page of EnvVar to DefaultSystemCodePage, as only
+    ASCII identifiers are supported }
+  Result:=BaseUnix.FPGetenv(PChar(pointer(EnvVar)));
 end;
 
 Function GetEnvironmentVariableCount : Integer;