2 * Win32 miscellaneous functions
4 * Copyright 1995 Thomas Sandford (tdgsandf@prds-grn.demon.co.uk)
7 /* Misc. new functions - they should be moved into appropriate files
17 #include "debugtools.h"
19 DEFAULT_DEBUG_CHANNEL(win32
);
20 DECLARE_DEBUG_CHANNEL(debug
);
23 static BOOL QUERYPERF_Initialized
= 0;
24 #if defined(__i386__) && defined(__GNUC__)
25 static BOOL QUERYPERF_RDTSC_Use
= 0;
26 static LONGLONG QUERYPERF_RDTSC_Frequency
= 0;
29 static void QUERYPERF_Init(void)
31 #if defined(__i386__) && defined(__GNUC__)
32 /* We are running on i386 and compiling on GCC.
33 * Do a runtime check to see if we have the rdtsc instruction available
36 char line
[256], *s
, *value
;
41 if (IsProcessorFeaturePresent( PF_RDTSC_INSTRUCTION_AVAILABLE
))
43 /* rdtsc is available. However, in order to use it
44 * we also need to be able to get the processor's
45 * speed. Currently we do this by reading /proc/cpuinfo
46 * which makes it Linux-specific.
49 TRACE("rdtsc available\n");
51 fp
= fopen( "/proc/cpuinfo", "r" );
54 while(fgets( line
, sizeof(line
), fp
))
56 /* NOTE: the ':' is the only character we can rely on */
57 if (!(value
= strchr( line
, ':' )))
60 /* terminate the valuename */
62 /* skip any leading spaces */
63 while (*value
== ' ') value
++;
64 if ((s
= strchr( value
, '\n' )))
67 if (!strncasecmp( line
, "cpu MHz", strlen( "cpu MHz" ) ))
69 if (sscanf( value
, "%lf", &cpuMHz
) == 1)
71 QUERYPERF_RDTSC_Frequency
= (LONGLONG
)(cpuMHz
* 1000000.0);
72 QUERYPERF_RDTSC_Use
= TRUE
;
73 TRACE("using frequency: %lldHz\n", QUERYPERF_RDTSC_Frequency
);
82 QUERYPERF_Initialized
= TRUE
;
86 /****************************************************************************
87 * QueryPerformanceCounter (KERNEL32.@)
89 BOOL WINAPI
QueryPerformanceCounter(PLARGE_INTEGER counter
)
93 if (!QUERYPERF_Initialized
)
96 #if defined(__i386__) && defined(__GNUC__)
97 if (QUERYPERF_RDTSC_Use
)
99 /* i586 optimized version */
100 __asm__
__volatile__ ( "rdtsc"
101 : "=a" (counter
->s
.LowPart
), "=d" (counter
->s
.HighPart
) );
104 /* fall back to generic routine (ie, for i386, i486) */
107 /* generic routine */
108 gettimeofday( &tv
, NULL
);
109 counter
->QuadPart
= (LONGLONG
)tv
.tv_usec
+ (LONGLONG
)tv
.tv_sec
* 1000000LL;
113 /****************************************************************************
114 * QueryPerformanceFrequency (KERNEL32.@)
116 BOOL WINAPI
QueryPerformanceFrequency(PLARGE_INTEGER frequency
)
118 if (!QUERYPERF_Initialized
)
121 #if defined(__i386__) && defined(__GNUC__)
122 if (QUERYPERF_RDTSC_Use
)
124 frequency
->QuadPart
= QUERYPERF_RDTSC_Frequency
;
129 frequency
->s
.LowPart
= 1000000;
130 frequency
->s
.HighPart
= 0;
134 /****************************************************************************
135 * FlushInstructionCache (KERNEL32.@)
137 BOOL WINAPI
FlushInstructionCache(DWORD x
,DWORD y
,DWORD z
) {
138 if (GetVersion() & 0x80000000) return TRUE
; /* not NT, always TRUE */
139 FIXME_(debug
)("(0x%08lx,0x%08lx,0x%08lx): stub\n",x
,y
,z
);
143 /***********************************************************************
144 * GetSystemPowerStatus (KERNEL32.@)
146 BOOL WINAPI
GetSystemPowerStatus(LPSYSTEM_POWER_STATUS sps_ptr
)
148 return FALSE
; /* no power management support */
152 /***********************************************************************
153 * SetSystemPowerState (KERNEL32.@)
155 BOOL WINAPI
SetSystemPowerState(BOOL suspend_or_hibernate
,
158 /* suspend_or_hibernate flag: w95 does not support
159 this feature anyway */
174 /******************************************************************************
175 * CreateMailslotA [KERNEL32.@]
177 HANDLE WINAPI
CreateMailslotA( LPCSTR lpName
, DWORD nMaxMessageSize
,
178 DWORD lReadTimeout
, LPSECURITY_ATTRIBUTES sa
)
180 FIXME("(%s,%ld,%ld,%p): stub\n", debugstr_a(lpName
),
181 nMaxMessageSize
, lReadTimeout
, sa
);
186 /******************************************************************************
187 * CreateMailslotW [KERNEL32.@] Creates a mailslot with specified name
190 * lpName [I] Pointer to string for mailslot name
191 * nMaxMessageSize [I] Maximum message size
192 * lReadTimeout [I] Milliseconds before read time-out
193 * sa [I] Pointer to security structure
196 * Success: Handle to mailslot
197 * Failure: INVALID_HANDLE_VALUE
199 HANDLE WINAPI
CreateMailslotW( LPCWSTR lpName
, DWORD nMaxMessageSize
,
200 DWORD lReadTimeout
, LPSECURITY_ATTRIBUTES sa
)
202 FIXME("(%s,%ld,%ld,%p): stub\n", debugstr_w(lpName
),
203 nMaxMessageSize
, lReadTimeout
, sa
);
208 /******************************************************************************
209 * GetMailslotInfo [KERNEL32.@] Retrieves info about specified mailslot
212 * hMailslot [I] Mailslot handle
213 * lpMaxMessageSize [O] Address of maximum message size
214 * lpNextSize [O] Address of size of next message
215 * lpMessageCount [O] Address of number of messages
216 * lpReadTimeout [O] Address of read time-out
222 BOOL WINAPI
GetMailslotInfo( HANDLE hMailslot
, LPDWORD lpMaxMessageSize
,
223 LPDWORD lpNextSize
, LPDWORD lpMessageCount
,
224 LPDWORD lpReadTimeout
)
226 FIXME("(%04x): stub\n",hMailslot
);
227 if (lpMaxMessageSize
) *lpMaxMessageSize
= (DWORD
)NULL
;
228 if (lpNextSize
) *lpNextSize
= (DWORD
)NULL
;
229 if (lpMessageCount
) *lpMessageCount
= (DWORD
)NULL
;
230 if (lpReadTimeout
) *lpReadTimeout
= (DWORD
)NULL
;
235 /******************************************************************************
236 * GetCompressedFileSizeA [KERNEL32.@]
239 * This should call the W function below
241 DWORD WINAPI
GetCompressedFileSizeA(
243 LPDWORD lpFileSizeHigh
)
245 FIXME("(...): stub\n");
250 /******************************************************************************
251 * GetCompressedFileSizeW [KERNEL32.@]
254 * Success: Low-order doubleword of number of bytes
255 * Failure: 0xffffffff
257 DWORD WINAPI
GetCompressedFileSizeW(
258 LPCWSTR lpFileName
, /* [in] Pointer to name of file */
259 LPDWORD lpFileSizeHigh
) /* [out] Receives high-order doubleword of size */
261 FIXME("(%s,%p): stub\n",debugstr_w(lpFileName
),lpFileSizeHigh
);
266 /******************************************************************************
267 * SetComputerNameA [KERNEL32.@]
269 BOOL WINAPI
SetComputerNameA( LPCSTR lpComputerName
)
271 LPWSTR lpComputerNameW
= HEAP_strdupAtoW(GetProcessHeap(),0,lpComputerName
);
272 BOOL ret
= SetComputerNameW(lpComputerNameW
);
273 HeapFree(GetProcessHeap(),0,lpComputerNameW
);
278 /******************************************************************************
279 * SetComputerNameW [KERNEL32.@]
282 * lpComputerName [I] Address of new computer name
286 BOOL WINAPI
SetComputerNameW( LPCWSTR lpComputerName
)
288 FIXME("(%s): stub\n", debugstr_w(lpComputerName
));
292 /******************************************************************************
293 * CreateIoCompletionPort (KERNEL32.@)
295 HANDLE WINAPI
CreateIoCompletionPort(HANDLE hFileHandle
,
296 HANDLE hExistingCompletionPort
, DWORD dwCompletionKey
,
297 DWORD dwNumberOfConcurrentThreads
)
299 FIXME("(%04x, %04x, %08lx, %08lx): stub.\n", hFileHandle
, hExistingCompletionPort
, dwCompletionKey
, dwNumberOfConcurrentThreads
);
303 /******************************************************************************
304 * GetQueuedCompletionStatus (KERNEL32.@)
306 BOOL WINAPI
GetQueuedCompletionStatus(
307 HANDLE CompletionPort
, LPDWORD lpNumberOfBytesTransferred
,
308 LPDWORD lpCompletionKey
, LPOVERLAPPED
*lpOverlapped
, DWORD dwMilliseconds
310 FIXME("(%x,%p,%p,%p,%ld), stub!\n",CompletionPort
,lpNumberOfBytesTransferred
,lpCompletionKey
,lpOverlapped
,dwMilliseconds
);
311 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);