paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 03:17:16 +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} {$IFDEF OS2}
function GetEnv (EnvVar: string): PChar; function GetEnv (EnvVar: string): PChar;
var RC: longint; var P: PChar;
P, Q: PChar;
begin begin
GetMem (Q, Succ (Length (EnvVar))); EnvVar := EnvVar + #0;
RC := DosScanEnv (Q, P); if DosScanEnv (@EnvVar [1], P) = 0 then GetEnv := P else GetEnv := nil;
FreeMem (Q, Succ (Length (EnvVar)));
GetEnv := P;
end; end;
{$ENDIF OS2} {$ENDIF OS2}
@ -430,7 +427,10 @@ end.
{ {
HISTORY HISTORY
$Log$ $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 * renamefest in packages
Revision 1.3 2000/12/19 00:47:11 hajny Revision 1.3 2000/12/19 00:47:11 hajny