move ipv6 connectivity check from dnscore init to a reusable function in lcorelocalips

[lcore.git] / lcoretest.dpr

diff --git a/lcoretest.dpr b/lcoretest.dpr
old mode 100755 (executable)
new mode 100644 (file)
index da31cd6..288c0b4
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -3,7 +3,7 @@ program lcoretest;
 uses\r
   lcore,\r
   lsocket,\r
 uses\r
   lcore,\r
   lsocket,\r

-  {$ifdef win32}\r
+  {$ifdef mswindows}\r

     lcorewsaasyncselect in 'lcorewsaasyncselect.pas',\r
   {$else}\r
     lcoreselect,\r
     lcorewsaasyncselect in 'lcorewsaasyncselect.pas',\r
   {$else}\r
     lcoreselect,\r


@@ -14,16 +14,16 @@ uses
   dnssync\r
   //we don't actually make any use of the units below in this app, we just\r
   //include it to check if it compiles ok ;)\r
   dnssync\r
   //we don't actually make any use of the units below in this app, we just\r
   //include it to check if it compiles ok ;)\r

-  {$ifndef win32}\r
+  {$ifndef mswindows}\r

     ,\r
     {$ifndef nomessages}\r
     ,\r
     {$ifndef nomessages}\r

-      lmessages,\r
+      lcoremessages,\r

       unitwindowobject,\r
     {$endif}\r
     unitfork\r
   {$endif}\r
   ;\r
       unitwindowobject,\r
     {$endif}\r
     unitfork\r
   {$endif}\r
   ;\r

-{$ifdef win32}\r
+{$ifdef mswindows}\r

   {$R *.RES}\r
 {$endif}\r
 \r
   {$R *.RES}\r
 {$endif}\r
 \r


@@ -192,6 +192,7 @@ begin
   listensocket.onsessionavailable := sc.sessionavailable;\r
   writeln('listening');\r
   listensocket.listen;\r
   listensocket.onsessionavailable := sc.sessionavailable;\r
   writeln('listening');\r
   listensocket.listen;\r

+  writeln('listen call returned');\r

   writeln(listensocket.getxport);\r
   writeln('listen socket is number ', listensocket.fdhandlein);\r
   writeln('creating and setting up server socket');\r
   writeln(listensocket.getxport);\r
   writeln('listen socket is number ', listensocket.fdhandlein);\r
   writeln('creating and setting up server socket');\r