* custapp.inc not necessary anymore. Left it in for targets I don't know.

git-svn-id: trunk@914 -

.gitattributes

@@ -833,7 +833,6 @@ fcl/passrc/paswrite.pp svneol=native#text/plain
 fcl/passrc/pparser.pp svneol=native#text/plain
 fcl/passrc/pscanner.pp svneol=native#text/plain
 fcl/passrc/readme.txt svneol=native#text/plain
-fcl/posix/custapp.inc svneol=native#text/plain
 fcl/posix/ezcgi.inc svneol=native#text/plain
 fcl/posix/pipes.inc svneol=native#text/plain
 fcl/posix/readme.txt svneol=native#text/plain
@@ -937,13 +936,11 @@ fcl/tests/txmlreg.pp svneol=native#text/plain
 fcl/tests/xmldump.pp svneol=native#text/plain
 fcl/unix/asyncio.inc svneol=native#text/plain
 fcl/unix/asyncioh.inc svneol=native#text/plain
-fcl/unix/custapp.inc svneol=native#text/plain
 fcl/unix/eventlog.inc svneol=native#text/plain
 fcl/unix/ezcgi.inc svneol=native#text/plain
 fcl/unix/pipes.inc svneol=native#text/plain
 fcl/unix/process.inc svneol=native#text/plain
 fcl/unix/resolve.inc svneol=native#text/plain
-fcl/win32/custapp.inc svneol=native#text/plain
 fcl/win32/eventlog.inc svneol=native#text/plain
 fcl/win32/ezcgi.inc svneol=native#text/plain
 fcl/win32/fclel.mc -text

fcl/posix/custapp.inc

@@ -1,40 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 2003 by the Free Pascal development team
-
-    Linux version of custom app object routines.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
-
-Var
-  P : PPChar;
-  S : String;
-  I : Integer;
-
-begin
-  List.Clear;
-  P:=EnvP;
-  if (P<>Nil) then
-    While (P^<>Nil) do
-      begin
-      S:=StrPas(P^);
-      If NamesOnly then
-        begin
-        I:=Pos('=',S);
-        If (I>1) then
-          S:=Copy(S,1,I-1);
-        end;
-      List.Add(S);
-      Inc(P);
-    end;
-end;
-

fcl/unix/custapp.inc

@@ -1,40 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 2003 by the Free Pascal development team
-
-    Linux version of custom app object routines.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
-
-Var
-  P : PPChar;
-  S : String;
-  I : Integer;
-
-begin
-  List.Clear;
-  P:=EnvP;
-  if (P<>Nil) then
-    While (P^<>Nil) do
-      begin
-      S:=StrPas(P^);
-      If NamesOnly then
-        begin
-        I:=Pos('=',S);
-        If (I>0) then
-          S:=Copy(S,1,I-1);
-        end;
-      List.Add(S);
-      Inc(P);
-    end;
-end;
-

fcl/win32/custapp.inc

@@ -1,43 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 2003 by the Free Pascal development team
-
-    Linux version of custom app object routines.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-function GetEnvironmentStrings : pchar; stdcall; external 'kernel32' name 'GetEnvironmentStringsA';
-function FreeEnvironmentStrings(p : pchar) : longbool; stdcall; external 'kernel32' name 'FreeEnvironmentStringsA';
-
-Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
-
-var
-   s : string;
-   i,l : longint;
-   hp,p : pchar;
-
-begin
-  p:=GetEnvironmentStrings;
-  hp:=p;
-  while hp^<>#0 do
-    begin
-    s:=strpas(hp);
-    l:=Length(s);
-    If NamesOnly then
-      begin
-      I:=pos('=',s);
-      If (I>0) then
-        S:=Copy(S,1,I-1);
-      end;
-    List.Add(S);
-    hp:=hp+l+1;
-    end;
-   FreeEnvironmentStrings(p);
-end;