* add mode objfpc

git-svn-id: trunk@9956 -

.gitattributes

@@ -3702,7 +3702,6 @@ packages/fcl-net/src/servlets.pp svneol=native#text/plain
 packages/fcl-net/src/ssockets.pp svneol=native#text/plain
 packages/fcl-net/src/unix/resolve.inc svneol=native#text/plain
 packages/fcl-net/src/win/resolve.inc svneol=native#text/plain
-packages/fcl-net/src/wince/resolve.inc svneol=native#text/plain
 packages/fcl-net/src/xmlrpc.pp svneol=native#text/plain
 packages/fcl-passrc/Makefile svneol=native#text/plain
 packages/fcl-passrc/Makefile.fpc svneol=native#text/plain

packages/fcl-net/src/fpsock.pp

@@ -12,6 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
+{$mode objfpc}
+{$H+}
+
 unit fpSock;
 
 interface

packages/fcl-net/src/httpbase.pp

@@ -11,11 +11,14 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
+{$mode objfpc}
+{$H+}
 
 unit HTTPBase;
 
 interface
 
+
 uses Classes, fpAsync;
 
 const

packages/fcl-net/src/httpclient.pp

@@ -16,6 +16,9 @@ unit HTTPClient;
 
 interface
 
+{$mode objfpc}
+{$H+}
+
 uses Classes, HTTPBase, fpSock, fpAsync;
 
 type

packages/fcl-net/src/httpsvlt.pp

@@ -14,6 +14,9 @@
 
 unit HTTPSvlt;
 
+{$Mode objfpc}
+{$H+}
+
 interface
 
 uses SysUtils, Classes, fpAsync, fpSock, HTTPBase, Servlets;

packages/fcl-net/src/mkxmlrpc.pp

@@ -11,9 +11,11 @@
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
-
-
 program MkXMLRPC;
+
+{$mode objfpc}
+{$H+}
+
 uses SysUtils, Classes, PParser, PasTree, PasWrite;
 
 resourcestring

packages/fcl-net/src/servlets.pp

@@ -11,7 +11,7 @@
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
-
+{$mode objfpc}{$H+}
 unit Servlets;
 
 interface

packages/fcl-net/src/ssockets.pp

@@ -10,7 +10,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-{$MODE objfpc}
+{$MODE objfpc}{$H+}
 
 unit ssockets;
 

packages/fcl-net/src/wince/resolve.inc

@@ -1,51 +0,0 @@
-
-uses winsock;
-
-Type
-  PHostEntry = PHostEnt;
-  PNetEntry = PNetEnt;
-  PServEntry = PServEnt;
-
-Const
-  DNSErr : Integer = 0;
-
-function getnetbyname ( Name : pchar) : PNetEntry;
-
-begin
-  DNSErr:=-1;
-  Result:=Nil;
-end;
-
-function getnetbyaddr ( Net : Longint; nettype : Longint) : PNetEntry;
-
-begin
-  DNSErr:=-2;
-  Result:=Nil;
-end;
-
-Function GetDNSError : Longint;
-
-begin
-  If DNSErr<>0 then
-    begin
-    GetDNSError:=-DNSErr;
-    DNSErr:=0;
-    end
-  else
-    GetDNSError:=0; // Must get win32 error ?
-end;
-
-Function InitResolve : Boolean;
-
-var
-   wsaData : TWsaData;
-
-begin
-  Result:=WSAStartup(1,wsaData)=0;
-end;
-
-Function FinalResolve : Boolean;
-
-begin
-  Result:=True;
-end;

packages/fcl-net/src/xmlrpc.pp

@@ -11,7 +11,7 @@
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
-
+{$mode objfpc}{$H+}
 unit XMLRPC;
 
 interface