paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 13:09:42 +01: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; Function GetEnvironmentVariable(Const EnvVar : String) : String;
var P: PChar;
begin begin
if DosScanEnv (PChar (EnvVar), P) = 0 GetEnvironmentVariable := StrPas (GetEnvPChar (EnvVar));
then GetEnvironmentVariable := StrPas (P)
else GetEnvironmentVariable := '';
end; end;
@ -958,7 +954,10 @@ end.
{ {
$Log$ $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 * FileCreate(string,mode) overload added
Revision 1.19 2002/11/18 19:51:00 hajny Revision 1.19 2002/11/18 19:51:00 hajny