mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 12:29:14 +02:00
* reference to EnvC and EnvP fixed
git-svn-id: trunk@218 -
This commit is contained in:
parent
1f84c12ae4
commit
b0300f64d2
@ -15,12 +15,6 @@
|
|||||||
|
|
||||||
{ taken from dos unit }
|
{ taken from dos unit }
|
||||||
|
|
||||||
type
|
|
||||||
PPChar = ^PChar;
|
|
||||||
|
|
||||||
var EnvC: longint; external name '_envc';
|
|
||||||
EnvP: PPChar; external name '_environ';
|
|
||||||
|
|
||||||
function EnvStr (Index: longint): string;
|
function EnvStr (Index: longint): string;
|
||||||
|
|
||||||
var HP: PChar;
|
var HP: PChar;
|
||||||
@ -56,10 +50,3 @@ begin
|
|||||||
List.Add(S);
|
List.Add(S);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
|
||||||
$Log: custapp.inc,v $
|
|
||||||
Revision 1.3 2005/02/14 17:13:16 peter
|
|
||||||
* truncate log
|
|
||||||
|
|
||||||
}
|
|
||||||
|
Loading…
Reference in New Issue
Block a user