mirrors/Nim
1
0
Fork 0
mirror of https://github.com/nim-lang/Nim.git synced 2026-06-04 10:54:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix #14010(fix std/registry + arc) (#17551)

Browse Source 
* fix nim js cmp fails at CT

* fix #14010

* Update tests/stdlib/tregistry.nim

Co-authored-by: Timothee Cour <timothee.cour2@gmail.com>

* Update tregistry.nim

Co-authored-by: Timothee Cour <timothee.cour2@gmail.com>
This commit is contained in:
flywind
2021-03-29 16:50:58 +08:00
committed by GitHub
parent b36182b0a4
commit 085580a2c8
2 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/windows/registry.nim
View File

@@ -54,16 +54,18 @@ proc getUnicodeValue*(path, key: string; handle: HKEY): string =
var newHandle: HKEY
call regOpenKeyEx(handle, hh, 0, KEY_READ or KEY_WOW64_64KEY, newHandle)
call regGetValue(newHandle, nil, kk, flags, nil, nil, addr bufsize)
var res = newWideCString("", bufsize)
call regGetValue(newHandle, nil, kk, flags, nil, cast[pointer](res),
addr bufsize)
result = res $ bufsize
if bufSize > 0:
var res = newWideCString(bufsize)
call regGetValue(newHandle, nil, kk, flags, nil, addr res[0],
addr bufsize)
result = res $ bufsize
call regCloseKey(newHandle)
else:
var res = newWideCString("", bufsize)
call regGetValue(handle, hh, kk, flags, nil, cast[pointer](res),
addr bufsize)
result = res $ bufsize
if bufSize > 0:
var res = newWideCString(bufsize)
call regGetValue(handle, hh, kk, flags, nil, addr res[0],
addr bufsize)
result = res $ bufsize
proc regSetValue(key: HKEY, lpSubKey, lpValueName: WideCString,
dwType: int32; lpData: WideCString; cbData: int32): int32 {.

15
tests/stdlib/tregistry.nim Normal file
View File

@@ -0,0 +1,15 @@
discard """
disabled: "unix"
matrix: "--gc:refc; --gc:arc"
"""
when defined(windows):
import std/registry
block: # bug #14010
let path = "Environment"
let key = "D20210328T202842_key"
let val = "D20210328T202842_val"
let handle = HKEY_CURRENT_USER
setUnicodeValue("Environment", key, val, handle)
doAssert getUnicodeValue(path, key, handle) == val