mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 18:29:09 +02:00
* fixed compile error in getenv
This commit is contained in:
parent
cc30f344ea
commit
da6541c108
@ -479,7 +479,7 @@ begin
|
|||||||
|
|
||||||
if GetEnv <> '' then GetEnv := GetEnv + ';';
|
if GetEnv <> '' then GetEnv := GetEnv + ';';
|
||||||
|
|
||||||
GetEnv := GetEnv + envvar0;
|
GetEnv := GetEnv + strpas(envvar0);
|
||||||
|
|
||||||
inc (i);
|
inc (i);
|
||||||
|
|
||||||
@ -519,7 +519,10 @@ End;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.13 2004-12-07 11:03:44 armin
|
Revision 1.14 2005-01-11 11:32:33 armin
|
||||||
|
* fixed compile error in getenv
|
||||||
|
|
||||||
|
Revision 1.13 2004/12/07 11:03:44 armin
|
||||||
* fixed typo's
|
* fixed typo's
|
||||||
|
|
||||||
Revision 1.12 2004/12/05 16:44:43 hajny
|
Revision 1.12 2004/12/05 16:44:43 hajny
|
||||||
|
Loading…
Reference in New Issue
Block a user