X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/95ddd8df198ff0f59c3a5e53c70719f5fcea6934..19e44013088ff80c11e1d7c045331b96f4dc41f0:/lcoretest.dpr?ds=inline

diff --git a/lcoretest.dpr b/lcoretest.dpr
old mode 100755
new mode 100644
index da31cd6..bfba054
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -3,7 +3,7 @@ program lcoretest;
 uses
   lcore,
   lsocket,
-  {$ifdef win32}
+  {$ifdef mswindows}
     lcorewsaasyncselect in 'lcorewsaasyncselect.pas',
   {$else}
     lcoreselect,
@@ -14,7 +14,7 @@ uses
   dnssync
   //we don't actually make any use of the units below in this app, we just
   //include it to check if it compiles ok ;)
-  {$ifndef win32}
+  {$ifndef mswindows}
     ,
     {$ifndef nomessages}
       lmessages,
@@ -23,7 +23,7 @@ uses
     unitfork
   {$endif}
   ;
-{$ifdef win32}
+{$ifdef mswindows}
   {$R *.RES}
 {$endif}
 
@@ -192,6 +192,7 @@ begin
   listensocket.onsessionavailable := sc.sessionavailable;
   writeln('listening');
   listensocket.listen;
+  writeln('listen call returned');
   writeln(listensocket.getxport);
   writeln('listen socket is number ', listensocket.fdhandlein);
   writeln('creating and setting up server socket');