diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WIN32 support

Browse Source
This commit is contained in:
U-w7\vsc
2013-10-30 13:56:35 +00:00
parent 07504e79b3
commit 360e8a9269
7 changed files with 177 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/sysbits.c
View File

@@ -2947,7 +2947,7 @@ recover_space(wchar_t *k, Atom At)
}
static wchar_t *
WideStringFromAtom(Atom KeyAt)
WideStringFromAtom(Atom KeyAt USES_REGS)
{
if (IsWideAtom(KeyAt)) {
return KeyAt->WStrOfAE;
@@ -3001,13 +3001,13 @@ p_win_registry_get_value( USES_REGS1 )
}
NameAt = AtomOfTerm(Name);
k = WideStringFromAtom(KeyAt);
k = WideStringFromAtom(KeyAt PASS_REGS);
if ( !(key=reg_open_key(k, FALSE)) ) {
Yap_Error(EXISTENCE_ERROR_KEY, Key, "argument to win_registry_get_value");
recover_space(k, KeyAt);
return FALSE;
}
name = WideStringFromAtom(NameAt);
name = WideStringFromAtom(NameAt PASS_REGS);
if ( RegQueryValueExW(key, name, NULL, &type, data, &len) == ERROR_SUCCESS ) {
RegCloseKey(key);