mirror/v
1
0
Fork 0
mirror of https://github.com/vlang/v.git synced 2023-08-10 21:13:21 +03:00
Code Issues Projects Releases Wiki Activity

os: fix using Win32-API with TCC32 (#10496)

Browse Source
This commit is contained in:
Bastian Buck
2021-06-21 13:14:58 +02:00
committed by GitHub
parent 45c6b6493b
commit 1e9e717111
3 changed files with 44 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
vlib/os/os_windows.c.v
View File

@@ -9,8 +9,7 @@ import strings
fn C.CreateSymbolicLinkW(&u16, &u16, u32) int
// See https://docs.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-createhardlinkw
// TCC gets builder error
// fn C.CreateHardLinkW(&u16, &u16, C.SECURITY_ATTRIBUTES) int
fn C.CreateHardLinkW(&u16, &u16, C.SECURITY_ATTRIBUTES) int
fn C._getpid() int
@@ -321,7 +320,7 @@ pub fn execute(cmd string) Result {
pub fn symlink(origin string, target string) ?bool {
// this is a temporary fix for TCC32 due to runtime error
// TODO: patch TCC32
// TODO: find the cause why TCC32 for Windows does not work without the compiletime option
$if x64 || x32 {
mut flags := 0
if is_dir(origin) {
@@ -344,8 +343,6 @@ pub fn symlink(origin string, target string) ?bool {
}
pub fn link(origin string, target string) ?bool {
/*
// TODO: TCC gets builder error
res := C.CreateHardLinkW(target.to_wide(), origin.to_wide(), C.NULL)
// 1 = success, != 1 failure => https://stackoverflow.com/questions/33010440/createsymboliclink-on-windows-10
if res != 1 {
@@ -355,12 +352,6 @@ pub fn link(origin string, target string) ?bool {
return error('C.CreateHardLinkW reported success, but link still does not exist')
}
return true
*/
res := execute('fsutil hardlink create $target $origin')
if res.exit_code != 0 {
return error(res.output)
}
return true
}
pub fn (mut f File) close() {