Merge pull request #45 from mjblack/fix_dup_and_heap_alloc_err

Fix fun up and missing HeapAlloc fun

.github/workflows/crystal.yml

@@ -20,11 +20,11 @@ jobs:
   build:
     runs-on: windows-2019
     steps:
-    - name: Install Crystal 1.11.0
+    - name: Install Crystal 1.13.2
       shell: pwsh
       run: |
-        (New-Object Net.WebClient).DownloadFile("https://github.com/crystal-lang/crystal/releases/download/1.11.0/crystal-1.11.0-windows-x86_64-msvc-unsupported.exe", "$PWD\crystal-1.11.0-windows-x86_64-msvc-unsupported.exe")
-        $code = Start-Process .\crystal-1.11.0-windows-x86_64-msvc-unsupported.exe -Wait -ArgumentList "/VERYSILENT","/SP-","/SUPPRESSMSGBOXES","/LOG=$PWD\OUTPUT.LOG" -Verb RunAs
+        (New-Object Net.WebClient).DownloadFile("https://github.com/crystal-lang/crystal/releases/download/1.13.2/crystal-1.13.2-windows-x86_64-msvc-unsupported.exe", "$PWD\crystal-1.13.2-windows-x86_64-msvc-unsupported.exe")
+        $code = Start-Process .\crystal-1.13.2-windows-x86_64-msvc-unsupported.exe -Wait -ArgumentList "/VERYSILENT","/SP-","/SUPPRESSMSGBOXES","/LOG=$PWD\OUTPUT.LOG" -Verb RunAs
         dir $env:LOCALAPPDATA\Programs\Crystal
     - name: crystal version
       shell: pwsh

shard.yml

@@ -1,9 +1,9 @@
 name: win32cr
-version: 0.3.6
+version: 0.3.7
 
 authors:
   - Matthew J. Black <[email protected]>
 
-crystal: 1.11.0
+crystal: 1.13.2
 
 license: MIT

spec/system/registry_spec.cr

@@ -1,3 +1,4 @@
+require "c/heapapi"
 require "../spec_helper"
 require "../../src/win32cr/system/registry"
 

src/win32cr/system/threading.cr

@@ -875,7 +875,8 @@ lib LibWin32
   fun QueryDepthSList(listhead : SLIST_HEADER*) : UInt16
 
   # Params # pfnapc : PAPCFUNC [In],hthread : LibC::HANDLE [In],dwdata : LibC::UINT_PTR [In]
-  fun QueueUserAPC(pfnapc : PAPCFUNC, hthread : LibC::HANDLE, dwdata : LibC::UINT_PTR) : UInt32
+  # Commented out because function is part of Lib C
+  #fun QueueUserAPC(pfnapc : PAPCFUNC, hthread : LibC::HANDLE, dwdata : LibC::UINT_PTR) : UInt32
 
   # Params # apcroutine : PAPCFUNC [In],thread : LibC::HANDLE [In],data : LibC::UINT_PTR [In],flags : QUEUE_USER_APC_FLAGS [In]
   fun QueueUserAPC2(apcroutine : PAPCFUNC, thread : LibC::HANDLE, data : LibC::UINT_PTR, flags : QUEUE_USER_APC_FLAGS) : LibC::BOOL