ifdef mswindows instead of win32 for 64 bits support

[lcore.git] / lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 1a2f93cb45efbb83552b07ee63c57289020786c8..c936b59d7d8376f990d3e54a8268d3cc20352b1c 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -16,13 +16,13 @@ unit lcore;
 {$ifdef fpc}\r
   {$mode delphi}\r
 {$endif}\r
 {$ifdef fpc}\r
   {$mode delphi}\r
 {$endif}\r

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

   {$define nosignal}\r
 {$endif}\r
 interface\r
   uses\r
     sysutils,\r
   {$define nosignal}\r
 {$endif}\r
 interface\r
   uses\r
     sysutils,\r

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

       {$ifdef VER1_0}\r
         linux,\r
       {$else}\r
       {$ifdef VER1_0}\r
         linux,\r
       {$else}\r


@@ -136,9 +136,9 @@ interface
 \r
       function RealSend(Data : Pointer; Len : Integer) : Integer; //added for bewarehttpd\r
 \r
 \r
       function RealSend(Data : Pointer; Len : Integer) : Integer; //added for bewarehttpd\r
 \r

-      procedure myfdclose(fd : integer); virtual;{$ifdef win32}abstract;{$endif}\r
-      function myfdwrite(fd: LongInt;const buf;size: LongInt):LongInt; virtual;{$ifdef win32}abstract;{$endif}\r
-      function myfdread(fd: LongInt;var buf;size: LongInt):LongInt; virtual;{$ifdef win32}abstract;{$endif}\r
+      procedure myfdclose(fd : integer); virtual;{$ifdef mswindows}abstract;{$endif}\r
+      function myfdwrite(fd: LongInt;const buf;size: LongInt):LongInt; virtual;{$ifdef mswindows}abstract;{$endif}\r
+      function myfdread(fd: LongInt;var buf;size: LongInt):LongInt; virtual;{$ifdef mswindows}abstract;{$endif}\r

     protected\r
       procedure dupnowatch(invalue:longint);\r
     end;\r
     protected\r
       procedure dupnowatch(invalue:longint);\r
     end;\r


@@ -165,7 +165,7 @@ interface
       fontimer            : tnotifyevent      ;\r
       fenabled            : boolean           ;\r
       finterval                  : integer          ; {miliseconds, default 1000}\r
       fontimer            : tnotifyevent      ;\r
       fenabled            : boolean           ;\r
       finterval                  : integer          ; {miliseconds, default 1000}\r

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

         procedure resettimes;\r
       {$endif}\r
 //      procedure setinitialevent(newvalue : boolean);\r
         procedure resettimes;\r
       {$endif}\r
 //      procedure setinitialevent(newvalue : boolean);\r


@@ -248,17 +248,17 @@ implementation
 {$ifndef nosignal}\r
   uses {sockets,}lloopback,lsignal;\r
 {$endif}\r
 {$ifndef nosignal}\r
   uses {sockets,}lloopback,lsignal;\r
 {$endif}\r

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

   uses windows,winsock;\r
 {$endif}\r
   uses windows,winsock;\r
 {$endif}\r

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

   {$include unixstuff.inc}\r
 {$endif}\r
 \r
 \r
 {!!! added sleep call -beware}\r
 procedure sleep(i:integer);\r
   {$include unixstuff.inc}\r
 {$endif}\r
 \r
 \r
 {!!! added sleep call -beware}\r
 procedure sleep(i:integer);\r

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

 begin\r
   windows.sleep(i);\r
 {$else}\r
 begin\r
   windows.sleep(i);\r
 {$else}\r


@@ -395,13 +395,13 @@ begin
     eventcore.wmasterclr(fdhandleout);//fd_clr(fdhandleout,fdswmaster);\r
 \r
     if closehandles then begin\r
     eventcore.wmasterclr(fdhandleout);//fd_clr(fdhandleout,fdswmaster);\r
 \r
     if closehandles then begin\r

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

         //anyone remember why this is here? --plugwash\r
         fcntl(fdhandlein,F_SETFL,0);\r
       {$endif}\r
       myfdclose(fdhandlein);\r
       if fdhandleout <> fdhandlein then begin\r
         //anyone remember why this is here? --plugwash\r
         fcntl(fdhandlein,F_SETFL,0);\r
       {$endif}\r
       myfdclose(fdhandlein);\r
       if fdhandleout <> fdhandlein then begin\r

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

           fcntl(fdhandleout,F_SETFL,0);\r
         {$endif}\r
         myfdclose(fdhandleout);\r
           fcntl(fdhandleout,F_SETFL,0);\r
         {$endif}\r
         myfdclose(fdhandleout);\r


@@ -528,7 +528,7 @@ begin
   fdhandlein := invalue;\r
   fdhandleout := invalue;\r
   eventcore.setfdreverse(fdhandlein,self);\r
   fdhandlein := invalue;\r
   fdhandleout := invalue;\r
   eventcore.setfdreverse(fdhandlein,self);\r

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

     fcntl(fdhandlein,F_SETFL,OPEN_NONBLOCK);\r
   {$endif}\r
   state := wsconnected;\r
     fcntl(fdhandlein,F_SETFL,OPEN_NONBLOCK);\r
   {$endif}\r
   state := wsconnected;\r


@@ -561,7 +561,7 @@ begin
           internalclose(0);\r
 \r
         end else begin\r
           internalclose(0);\r
 \r
         end else begin\r

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

           if getlasterror=WSAEWOULDBLOCK then begin\r
             //the asynchronous nature of windows messages means we sometimes\r
             //get here with the buffer full\r
           if getlasterror=WSAEWOULDBLOCK then begin\r
             //the asynchronous nature of windows messages means we sometimes\r
             //get here with the buffer full\r


@@ -569,7 +569,7 @@ begin
           end else\r
           {$endif}\r
           begin\r
           end else\r
           {$endif}\r
           begin\r

-            internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif});\r
+            internalclose({$ifdef mswindows}getlasterror{$else}linuxerror{$endif});\r

           end  \r
         end;\r
       end;\r
           end  \r
         end;\r
       end;\r


@@ -596,7 +596,7 @@ begin
 \r
         internalclose(0);\r
       end else if (numread=-1) then begin\r
 \r
         internalclose(0);\r
       end else if (numread=-1) then begin\r

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

           //sometimes on windows we get stale messages due to the inherent delays\r
           //in the windows message queue\r
           if WSAGetLastError = wsaewouldblock then begin\r
           //sometimes on windows we get stale messages due to the inherent delays\r
           //in the windows message queue\r
           if WSAGetLastError = wsaewouldblock then begin\r


@@ -605,7 +605,7 @@ begin
         {$endif}\r
         begin\r
           numread := 0;\r
         {$endif}\r
         begin\r
           numread := 0;\r

-          internalclose({$ifdef win32}wsagetlasterror{$else}linuxerror{$endif});\r
+          internalclose({$ifdef mswindows}wsagetlasterror{$else}linuxerror{$endif});\r

         end;\r
       end else if numread > 0 then recvq.add(@tempbuf,numread);\r
     end;\r
         end;\r
       end else if numread > 0 then recvq.add(@tempbuf,numread);\r
     end;\r


@@ -622,7 +622,7 @@ begin
 end;\r
 \r
 procedure tlasio.flush;\r
 end;\r
 \r
 procedure tlasio.flush;\r

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

 type fdset = tfdset;\r
 {$endif}\r
 var\r
 type fdset = tfdset;\r
 {$endif}\r
 var\r


@@ -651,7 +651,7 @@ begin
   tlasio(sender).recvq.del(maxlongint);\r
 end;\r
 \r
   tlasio(sender).recvq.del(maxlongint);\r
 end;\r
 \r

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

   procedure tltimer.resettimes;\r
   begin\r
     gettimeofday(nextts);\r
   procedure tltimer.resettimes;\r
   begin\r
     gettimeofday(nextts);\r


@@ -692,7 +692,7 @@ begin
     if assigned(timerwrapperinterface) then begin\r
       timerwrapperinterface.setenabled(wrappedtimer,newvalue);\r
     end else begin\r
     if assigned(timerwrapperinterface) then begin\r
       timerwrapperinterface.setenabled(wrappedtimer,newvalue);\r
     end else begin\r

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

         raise exception.create('non wrapper timers are not permitted on windows');\r
       {$else}\r
         resettimes;\r
         raise exception.create('non wrapper timers are not permitted on windows');\r
       {$else}\r
         resettimes;\r


@@ -708,7 +708,7 @@ begin
     if assigned(timerwrapperinterface) then begin\r
       timerwrapperinterface.setinterval(wrappedtimer,newvalue);\r
     end else begin\r
     if assigned(timerwrapperinterface) then begin\r
       timerwrapperinterface.setinterval(wrappedtimer,newvalue);\r
     end else begin\r

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

         raise exception.create('non wrapper timers are not permitted on windows');\r
       {$else}\r
         resettimes;\r
         raise exception.create('non wrapper timers are not permitted on windows');\r
       {$else}\r
         resettimes;\r


@@ -867,7 +867,7 @@ begin
   if (result > 0) and assigned(onsenddata) then onsenddata(self,result);\r
   eventcore.wmasterset(fdhandleout);\r
 end;\r
   if (result > 0) and assigned(onsenddata) then onsenddata(self,result);\r
   eventcore.wmasterset(fdhandleout);\r
 end;\r

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

   procedure tlasio.myfdclose(fd : integer);\r
   begin\r
     fdclose(fd);\r
   procedure tlasio.myfdclose(fd : integer);\r
   begin\r
     fdclose(fd);\r