Parcourir la source

fixed compilation for amiga-likes after r40769

git-svn-id: trunk@40770 -
marcus il y a 6 ans
Parent
commit
e3126bdf3d
2 fichiers modifiés avec 2 ajouts et 3 suppressions
  1. 1 1
      packages/fcl-net/fpmake.pp
  2. 1 2
      packages/fcl-web/src/base/fphttpclient.pp

+ 1 - 1
packages/fcl-net/fpmake.pp

@@ -57,7 +57,7 @@ begin
           AddUnit('resolve');
         end;
     T.ResourceStrings := True;
-    T:=P.Targets.AddUnit('sslsockets.pp',AllUnixOSes+AllWindowsOSes);
+    T:=P.Targets.AddUnit('sslsockets.pp',AllUnixOSes+AllWindowsOSes+AllAmigaLikeOSes);
       with T.Dependencies do
         begin
           AddUnit('ssockets');

+ 1 - 2
packages/fcl-web/src/base/fphttpclient.pp

@@ -365,9 +365,8 @@ Function EncodeURLElement(S : String) : String;
 Function DecodeURLElement(Const S : String) : String;
 
 implementation
-{$if not defined(hasamiga)}
+
 uses sslsockets;
-{$endif}
 
 resourcestring
   SErrInvalidProtocol = 'Invalid protocol : "%s"';