1 // run-pass
2
3 #![allow(non_camel_case_types)]
4 pub type HANDLE = usize;
5 pub type DWORD = u32;
6 pub type SIZE_T = u32;
7 pub type LPVOID = usize;
8 pub type BOOL = u8;
9
10 #[cfg(windows)]
11 mod kernel32 {
12 use super::{HANDLE, DWORD, SIZE_T, LPVOID, BOOL};
13
14 extern "system" {
GetProcessHeap() -> HANDLE15 pub fn GetProcessHeap() -> HANDLE;
HeapAlloc(hHeap: HANDLE, dwFlags: DWORD, dwBytes: SIZE_T) -> LPVOID16 pub fn HeapAlloc(hHeap: HANDLE, dwFlags: DWORD, dwBytes: SIZE_T)
17 -> LPVOID;
HeapFree(hHeap: HANDLE, dwFlags: DWORD, lpMem: LPVOID) -> BOOL18 pub fn HeapFree(hHeap: HANDLE, dwFlags: DWORD, lpMem: LPVOID) -> BOOL;
19 }
20 }
21
22
23 #[cfg(windows)]
main()24 pub fn main() {
25 let heap = unsafe { kernel32::GetProcessHeap() };
26 let mem = unsafe { kernel32::HeapAlloc(heap, 0, 100) };
27 assert!(mem != 0);
28 let res = unsafe { kernel32::HeapFree(heap, 0, mem) };
29 assert!(res != 0);
30 }
31
32 #[cfg(not(windows))]
main()33 pub fn main() { }
34