From 45b72f25aeedf0850f6bde742f98b537c9092bfc Mon Sep 17 00:00:00 2001 From: "Matthew J. Black" Date: Mon, 2 Sep 2024 16:08:53 -0500 Subject: [PATCH 1/3] Fixed issue with fun QueueUserAPC being added to crystal stdlib. Fixed spec because heapapi.cr in lib_c isnt loaded by default as of v1.13.0. --- spec/system/registry_spec.cr | 1 + src/win32cr/system/threading.cr | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/spec/system/registry_spec.cr b/spec/system/registry_spec.cr index 7a306f9..499767e 100644 --- a/spec/system/registry_spec.cr +++ b/spec/system/registry_spec.cr @@ -1,3 +1,4 @@ +require "c/heapapi" require "../spec_helper" require "../../src/win32cr/system/registry" diff --git a/src/win32cr/system/threading.cr b/src/win32cr/system/threading.cr index aaeaa60..4e5991b 100644 --- a/src/win32cr/system/threading.cr +++ b/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 From 32b39353a95a58ac317fd51637731fd31313501a Mon Sep 17 00:00:00 2001 From: "Matthew J. Black" Date: Mon, 2 Sep 2024 16:12:07 -0500 Subject: [PATCH 2/3] Version bumped to 0.3.7 --- shard.yml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/shard.yml b/shard.yml index b8f18b4..75b7431 100644 --- a/shard.yml +++ b/shard.yml @@ -1,9 +1,9 @@ name: win32cr -version: 0.3.6 +version: 0.3.7 authors: - Matthew J. Black -crystal: 1.11.0 +crystal: 1.13.2 license: MIT From 3cdc025c12e2af95b641def106b597a62044ffd1 Mon Sep 17 00:00:00 2001 From: "Matthew J. Black" Date: Mon, 2 Sep 2024 16:16:51 -0500 Subject: [PATCH 3/3] Bumped crystal version to 1.13.2 --- .github/workflows/crystal.yml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/.github/workflows/crystal.yml b/.github/workflows/crystal.yml index 2f98e27..46f4dd3 100644 --- a/.github/workflows/crystal.yml +++ b/.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