CONSOLE: Show error if module calls exit()

Author: chrisws

ChangeLog

@@ -1,3 +1,7 @@
+2023-08-27 (12.27)
+	COMMON: Fix parameter number error when calling a unit sub/func
+	COMMON: Show a runtime error if a module calls exit()
+
 2023-06-18 (12.27)
 	COMMON: Fix redim regression
 	PLUGINS: Added mechanism for cleaning up resources when the associated map falls out of scope

src/common/sberr.c

@@ -379,6 +379,10 @@ void err_network() {
   rt_raise(ERR_NETWORK);
 }
 
+void err_abnormal_exit() {
+  rt_raise(ERR_ABNORMAL_EXIT);
+}
+
 /**
  * the DONE message
  */

src/common/sberr.h

@@ -79,6 +79,7 @@ void err_array();
 void err_form_input();
 void err_memory();
 void err_network();
+void err_abnormal_exit();
 void err_throw(const char *fmt, ...);
 int  err_handle_error(const char *err, var_p_t var);
 void inf_done(void);

src/languages/messages.en.h

@@ -231,3 +231,4 @@
 #define ERR_DIRWALK_MISSING_USE "DIRWALK: missing USE statement"
 #define ERR_DIRWALK_CANT_OPEN   "DIRWALK: can't open %s"
 #define ERR_LINE_LENGTH         "Line length limit exceeded at text: '%s'"
+#define ERR_ABNORMAL_EXIT       "Abnormal exit"

src/platform/console/main.cpp

@@ -400,7 +400,7 @@ bool wait_for_file(const char *file, uint32_t modifiedTime) {
 
 static void exit_handler(void) {
   if (count_tasks()) {
-    err_stackunderflow();
+    err_abnormal_exit();
   }
 }