cli/q
Code Issues 1 Pull Requests Activity

Fixed incorrect const values

Browse Source
This commit is contained in:
Eduard Urbach
2025-02-21 13:47:56 +01:00
parent 04ece57b27
commit 1ca61190eb
22 changed files with 93 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/sys/sys_windows.q
View File

@ -1,31 +1,17 @@
read(fd int64, buffer *any, length int64) -> int64 {
read(fd int64, buffer *byte, length int64) -> int64 {
fd = kernel32.GetStdHandle(-10 - fd)
kernel32.ReadConsole(fd, buffer, length, 0)
return length
}
write(fd int64, buffer *any, length int64) -> int64 {
write(fd int64, buffer *byte, length int64) -> int64 {
fd = kernel32.GetStdHandle(-10 - fd)
kernel32.WriteConsoleA(fd, buffer, length, 0)
return length
}
mmap(address int, length int, protection int, flags int) -> *any {
return kernel32.VirtualAlloc(address, length, flags, protection)
}
munmap(address *any, length int) -> int {
return kernel32.VirtualFree(address, length, mem.decommit)
}
const mem {
decommit 0x4000
}
extern kernel32 {
GetStdHandle(handle int64) -> int64
ReadConsole(fd int64, buffer *any, length uint32, written *uint32) -> bool
VirtualAlloc(address int, length int, flags int, protection int)
VirtualFree(address *any, length int, type int) -> bool
WriteConsoleA(fd int64, buffer *any, length uint32, written *uint32) -> bool
ReadConsole(fd int64, buffer *byte, length uint32, written *uint32) -> bool
WriteConsoleA(fd int64, buffer *byte, length uint32, written *uint32) -> bool
}