suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win32: fix transaction creation

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-30 10:43:52 -07:00
parent 05046c07a8
commit 678bfa7fca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/file.c
View File

@ -3740,7 +3740,7 @@ static Scheme_Object *delete_file(int argc, Scheme_Object **argv)
#ifdef DOS_FILE_SYSTEM #ifdef DOS_FILE_SYSTEM
static int tried_get_transaction; static int tried_get_transaction;
typedef HANDLE (WINAPI * CreateTransaction_proc)(void*, LPGUID, DWORD, DWORD, DWORD, DWORD, wchar_t); typedef HANDLE (WINAPI * CreateTransaction_proc)(void*, LPGUID, DWORD, DWORD, DWORD, DWORD, wchar_t*);
static CreateTransaction_proc mzCreateTransaction; static CreateTransaction_proc mzCreateTransaction;
typedef BOOL (WINAPI * CommitTransaction_proc)(HANDLE); typedef BOOL (WINAPI * CommitTransaction_proc)(HANDLE);
static CommitTransaction_proc mzCommitTransaction; static CommitTransaction_proc mzCommitTransaction;
@ -3801,7 +3801,7 @@ static Scheme_Object *rename_file(int argc, Scheme_Object **argv)
if (mzCreateTransaction) { if (mzCreateTransaction) {
HANDLE t; HANDLE t;
tried_transaction = 1; tried_transaction = 1;
t = mzCreateTransaction(NULL, 0, 0, 0, 0, 0, 0); t = mzCreateTransaction(NULL, 0, 0, 0, 0, 0, NULL);
if (t) { if (t) {
if (mzMoveFileTransactedW(WIDE_PATH_COPY(src), if (mzMoveFileTransactedW(WIDE_PATH_COPY(src),
WIDE_PATH(dest), WIDE_PATH(dest),