[libwin32] r549 committed - Change StartService() and GetServiceHandle to return proper 64-bit val...

[libw...@googlecode.com]

Revision: 549
Author: j...@jandubois.com
Date: Mon Jan 17 17:38:35 2011
Log: Change StartService() and GetServiceHandle to return proper 64-bit
values on Win64
http://code.google.com/p/libwin32/source/detail?r=549

Modified:
/trunk/Win32-Daemon/Changes
/trunk/Win32-Daemon/Daemon.xs

=======================================
--- /trunk/Win32-Daemon/Changes Mon Jan 17 15:21:10 2011
+++ /trunk/Win32-Daemon/Changes Mon Jan 17 17:38:35 2011
@@ -128,3 +128,5 @@
20110117 Jan Dubois
- make sure DllMain() has "C" linkage when compiled with MinGW
(Haiko Strotbek). [rt#64575]
+ - change StartService() and GetServiceHandle() to return proper
+ 64-bit value on Win64 (Haiko Strotbek). [rt#64577]
=======================================
--- /trunk/Win32-Daemon/Daemon.xs Mon Jan 17 16:31:18 2011
+++ /trunk/Win32-Daemon/Daemon.xs Mon Jan 17 17:38:35 2011
@@ -1214,7 +1214,7 @@
RETVAL

-DWORD
+UV
StartService( ... )

PREINIT:
@@ -1355,7 +1355,7 @@
#endif // ENABLE_CALLBACKS
}

- RETVAL = (DWORD) ghServiceThread;
+ RETVAL = PTR2UV(ghServiceThread);
}

OUTPUT:
@@ -2216,7 +2216,7 @@

-DWORD
+UV
GetServiceHandle()

CODE:
@@ -2226,7 +2226,7 @@
croak( TEXT( "Usage: " EXTENSION "::GetServiceHandle()\n" ) );
}

- RETVAL = (DWORD) ghService;
+ RETVAL = PTR2UV(ghService);
}

OUTPUT: