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
+22
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