paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* modified to make use of the common GetEnv code

Browse Source
This commit is contained in:
Tomas Hajny 2003-01-04 16:25:08 +00:00
parent 7248252a23
commit da39d0fe52
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/os2/sysutils.pp
View File

@ -936,12 +936,8 @@ end;
Function GetEnvironmentVariable(Const EnvVar : String) : String;
var P: PChar;
begin
if DosScanEnv (PChar (EnvVar), P) = 0
then GetEnvironmentVariable := StrPas (P)
else GetEnvironmentVariable := '';
GetEnvironmentVariable := StrPas (GetEnvPChar (EnvVar));
end;
@ -958,7 +954,10 @@ end.
{
$Log$
Revision 1.20 2003-01-03 20:41:04 peter
Revision 1.21 2003-01-04 16:25:08 hajny
* modified to make use of the common GetEnv code
Revision 1.20 2003/01/03 20:41:04 peter
* FileCreate(string,mode) overload added
Revision 1.19 2002/11/18 19:51:00 hajny