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

* GetEnvironmentVariableCount uses EnvC under OS/2 and EMX

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-11 17:32:34 +00:00
parent 07124634d3
commit b3c9baef95
2 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/emx/sysutils.pp
View File

@ -1092,18 +1092,19 @@ begin
GetEnvironmentVariable := StrPas (GetEnvPChar (EnvVar));
end;
Function GetEnvironmentVariableCount : Integer;
begin
// Result:=FPCCountEnvVar(EnvP);
Result:=0;
(* Result:=FPCCountEnvVar(EnvP); - the amount is already known... *)
GetEnvironmentVariableCount := EnvC;
end;
Function GetEnvironmentString(Index : Integer) : String;
begin
// Result:=FPCGetEnvStrFromP(Envp,Index);
Result:='';
Result:=FPCGetEnvStrFromP (EnvP, Index);
end;
@ -1143,7 +1144,7 @@ begin
SD.Related := ssf_Related_Child;
SD.PgmName := PChar (Path);
SD.PgmInputs := PChar (ComLine);
Str (ProcessID, SPID);
Str (GetProcessID, SPID);
Str (ThreadID, STID);
QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0;
SD.TermQ := @QName [1];
@ -1221,7 +1222,10 @@ end.
{
$Log$
Revision 1.17 2004-12-11 11:32:44 michael
Revision 1.18 2004-12-11 17:32:34 hajny
* GetEnvironmentVariableCount uses EnvC under OS/2 and EMX
Revision 1.17 2004/12/11 11:32:44 michael
+ Added GetEnvironmentVariableCount and GetEnvironmentString calls
Revision 1.16 2004/02/22 15:01:49 hajny
@ -1273,4 +1277,4 @@ end.
Revision 1.1 2002/11/17 16:22:54 hajny
+ RTL for emx target
}
}

14
rtl/os2/sysutils.pp
View File

@ -875,16 +875,19 @@ begin
GetEnvironmentVariable := StrPas (GetEnvPChar (EnvVar));
end;
Function GetEnvironmentVariableCount : Integer;
begin
Result:=FPCCountEnvVar(EnvP);
(* Result:=FPCCountEnvVar(EnvP); - the amount is already known... *)
GetEnvironmentVariableCount := EnvC;
end;
Function GetEnvironmentString(Index : Integer) : String;
begin
Result:=FPCGetEnvStrFromP(Envp,Index);
Result:=FPCGetEnvStrFromP (EnvP, Index);
end;
@ -1030,7 +1033,10 @@ end.
{
$Log$
Revision 1.47 2004-12-11 11:32:44 michael
Revision 1.48 2004-12-11 17:32:34 hajny
* GetEnvironmentVariableCount uses EnvC under OS/2 and EMX
Revision 1.47 2004/12/11 11:32:44 michael
+ Added GetEnvironmentVariableCount and GetEnvironmentString calls
Revision 1.46 2004/12/06 22:11:47 hajny
@ -1132,4 +1138,4 @@ end.
Revision 1.15 2002/01/25 16:23:03 peter
* merged filesearch() fix
}
}