mirrors/Odin
1
0
Fork 0
mirror of https://github.com/odin-lang/Odin.git synced 2026-01-07 21:43:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

4
core/os/os_linux.odin
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);
}

2
core/os/os_osx.odin
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);
}

2
core/os/os_windows.odin
View File

@@ -245,7 +245,7 @@ heap_free :: proc(ptr: rawptr) {
}
exit :: proc(code: int) {
exit :: proc(code: int) -> ! {
win32.exit_process(u32(code));
}

22
core/runtime/core.odin
View File

@@ -590,6 +590,28 @@ panic :: proc "contextless" (message: string, loc := #caller_location) -> ! {
p("Panic", message, loc);
}
@(builtin)
unimplemented :: proc "contextless" (message := "", loc := #caller_location) -> ! {
p := context.assertion_failure_proc;
if p == nil {
p = default_assertion_failure_proc;
}
p("not yet implemented", message, loc);
}
@(builtin)
unreachable :: proc "contextless" (message := "", loc := #caller_location) -> ! {
p := context.assertion_failure_proc;
if p == nil {
p = default_assertion_failure_proc;
}
if message != "" {
p("internal error", message, loc);
} else {
p("internal error", "entered unreachable code", loc);
}
}
// Dynamic Array

9
src/ir.cpp
View File

@@ -1645,6 +1645,10 @@ irValue *ir_emit_bitcast(irProcedure *proc, irValue *data, Type *type) {
return ir_emit(proc, ir_instr_conv(proc, irConv_bitcast, data, ir_type(data), type));
}
void ir_emit_unreachable(irProcedure *proc) {
ir_emit(proc, ir_instr_unreachable(proc));
}
irValue *ir_emit_transmute(irProcedure *proc, irValue *value, Type *t);
irValue *ir_address_from_load_or_generate_local(irProcedure *proc, irValue *val);
irValue *ir_emit_struct_ep(irProcedure *proc, irValue *s, i32 index);
@@ -1749,6 +1753,7 @@ irValue *ir_emit_call(irProcedure *p, irValue *value, Array<irValue *> args, Pro
if (abi_rt != results) {
result = ir_emit_transmute(p, result, rt);
}
return result;
}
@@ -1838,10 +1843,6 @@ void ir_close_scope(irProcedure *proc, irDeferExitKind kind, irBlock *block) {
void ir_emit_unreachable(irProcedure *proc) {
ir_emit(proc, ir_instr_unreachable(proc));
}
void ir_emit_return(irProcedure *proc, irValue *v) {
ir_emit_defer_stmts(proc, irDeferExit_Return, nullptr);