paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 02:27:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

* OS/2 GetEnv correction

Browse Source
This commit is contained in:
Tomas Hajny 2001-01-23 20:54:18 +00:00
parent c9a940fe1d
commit a97686ad4f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/uncgi/uncgi.pp
View File

@ -96,14 +96,11 @@ implementation
{$IFDEF OS2}
function GetEnv (EnvVar: string): PChar;
var RC: longint;
P, Q: PChar;
var P: PChar;
begin
GetMem (Q, Succ (Length (EnvVar)));
RC := DosScanEnv (Q, P);
FreeMem (Q, Succ (Length (EnvVar)));
GetEnv := P;
EnvVar := EnvVar + #0;
if DosScanEnv (@EnvVar [1], P) = 0 then GetEnv := P else GetEnv := nil;
end;
{$ENDIF OS2}
@ -430,7 +427,10 @@ end.
{
HISTORY
$Log$
Revision 1.4 2001-01-21 21:38:52 marco
Revision 1.5 2001-01-23 20:54:18 hajny
* OS/2 GetEnv correction
Revision 1.4 2001/01/21 21:38:52 marco
* renamefest in packages
Revision 1.3 2000/12/19 00:47:11 hajny