* some fixes for objfpc mode

fcl/tests/dsockcli.pp

@@ -21,6 +21,7 @@ Program Client;
   Make sure you run this with the same protocol as the server.
 }
 
+{$mode objfpc}{$H+}
 uses ssockets;
 
 Const
@@ -49,7 +50,10 @@ begin
     end;
 end.
   $Log$
-  Revision 1.4  2005-02-14 17:13:18  peter
+  Revision 1.5  2005-03-16 13:35:59  marco
+   * some fixes for objfpc mode
+
+  Revision 1.4  2005/02/14 17:13:18  peter
     * truncate log
 
 }

fcl/tests/dsocksvr.pp

@@ -22,7 +22,7 @@ Program server;
 
   specifying -b on the command-line will disable blocking.
 }
-
+{$mode objfpc} {$H+}
 uses sysutils,ssockets,getopts;
 
 const
@@ -128,7 +128,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:18  peter
+  Revision 1.5  2005-03-16 13:35:59  marco
+   * some fixes for objfpc mode
+
+  Revision 1.4  2005/02/14 17:13:18  peter
     * truncate log
 
 }

fcl/tests/isockcli.pp

@@ -18,7 +18,7 @@ Program Client;
   'isocksvr' or 'dsocksvr -i' in another terminal or in the
   background.
 }
-
+{$mode objfpc}{$H+}
 uses ssockets;
 
 Const
@@ -43,7 +43,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:18  peter
+  Revision 1.5  2005-03-16 13:35:59  marco
+   * some fixes for objfpc mode
+
+  Revision 1.4  2005/02/14 17:13:18  peter
     * truncate log
 
 }

fcl/tests/isocksvr.pp

@@ -19,8 +19,10 @@ Program server;
   'dsockcli -i' programs in another terminal.
 }
 
+{$mode objfpc}{$H+}
 uses ssockets;
 
+
 const
   ThePort=4100;
 
@@ -81,7 +83,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:18  peter
+  Revision 1.5  2005-03-16 13:35:59  marco
+   * some fixes for objfpc mode
+
+  Revision 1.4  2005/02/14 17:13:18  peter
     * truncate log
 
 }

fcl/tests/sockcli.pp

@@ -19,6 +19,7 @@ Program Client;
   or in the  background.
 }
 
+{$mode objfpc}{$H+}
 uses ssockets;
 
 var
@@ -39,7 +40,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:18  peter
+  Revision 1.5  2005-03-16 13:35:59  marco
+   * some fixes for objfpc mode
+
+  Revision 1.4  2005/02/14 17:13:18  peter
     * truncate log
 
 }

fcl/tests/socksvr.pp

@@ -19,6 +19,7 @@ Program server;
   'sockcli' programs in another terminal.
 }
 
+{$mode objfpc}{$h+}
 uses ssockets;
 
 const
@@ -81,7 +82,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:18  peter
+  Revision 1.5  2005-03-16 13:35:59  marco
+   * some fixes for objfpc mode
+
+  Revision 1.4  2005/02/14 17:13:18  peter
     * truncate log
 
 }