Add unimplemented and unreachable procedures; make os.exit a diverging procedure

This commit is contained in:
gingerBill
2018-10-13 13:19:52 +01:00
parent 73e9dbbf8c
commit 42b42db675
5 changed files with 31 additions and 8 deletions
+2 -2
View File
@@ -139,7 +139,7 @@ foreign libc {
@(link_name="calloc") _unix_calloc :: proc(num, size: int) -> rawptr ---;
@(link_name="free") _unix_free :: proc(ptr: rawptr) ---;
@(link_name="realloc") _unix_realloc :: proc(ptr: rawptr, size: int) -> rawptr ---;
@(link_name="getenv") _unix_getenv :: proc(cstring) -> cstring ---;
@(link_name="getenv") _unix_getenv :: proc(cstring) -> cstring --- -> !;
@(link_name="exit") _unix_exit :: proc(status: int) ---;
}
@@ -241,7 +241,7 @@ getenv :: proc(name: string) -> (string, bool) {
return string(cstr), true;
}
exit :: proc(code: int) {
exit :: proc(code: int) -> ! {
_unix_exit(code);
}
+1 -1
View File
@@ -255,7 +255,7 @@ getenv :: proc(name: string) -> (string, bool) {
return string(cstr), true;
}
exit :: inline proc(code: int) {
exit :: inline proc(code: int) -> ! {
_unix_exit(code);
}
+1 -1
View File
@@ -245,7 +245,7 @@ heap_free :: proc(ptr: rawptr) {
}
exit :: proc(code: int) {
exit :: proc(code: int) -> ! {
win32.exit_process(u32(code));
}