diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-20 18:35:59 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-20 18:35:59 +0000 |
commit | ac02b386c2e5743b6ea96486af6ba2cc6583c12a (patch) | |
tree | 5018b05085fd9966e0908f77a7474277f4f01c0c /src/vm_engine.c | |
parent | 2a63758b46a9f1b896e209a00b2f718ecd4a8b6f (diff) | |
download | guile-ac02b386c2e5743b6ea96486af6ba2cc6583c12a.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/vm_engine.c')
-rw-r--r-- | src/vm_engine.c | 31 |
1 files changed, 19 insertions, 12 deletions
diff --git a/src/vm_engine.c b/src/vm_engine.c index dc02f8fdf..30b8a5873 100644 --- a/src/vm_engine.c +++ b/src/vm_engine.c @@ -123,40 +123,47 @@ vm_run (SCM vm, SCM program, SCM args) /* Errors */ { vm_error_unbound: - err_msg = scm_makfrom0str ("Unbound variable: ~A"); + err_msg = scm_makfrom0str ("VM: Unbound variable: ~A"); goto vm_error; vm_error_wrong_type_arg: - err_msg = scm_makfrom0str ("Wrong type argument"); + err_msg = scm_makfrom0str ("VM: Wrong type argument"); err_args = SCM_EOL; goto vm_error; vm_error_wrong_num_args: - err_msg = scm_makfrom0str ("Wrong number of arguments"); + err_msg = scm_makfrom0str ("VM: Wrong number of arguments"); err_args = SCM_EOL; goto vm_error; vm_error_wrong_type_apply: - err_msg = scm_makfrom0str ("Wrong type to apply: ~S"); + err_msg = scm_makfrom0str ("VM: Wrong type to apply: ~S"); err_args = SCM_LIST1 (program); goto vm_error; -#if VM_CHECK_IP - vm_error_invalid_address: - err_msg = scm_makfrom0str ("Invalid program address"); + vm_error_stack_overflow: + err_msg = scm_makfrom0str ("VM: Stack overflow"); err_args = SCM_EOL; goto vm_error; -#endif - vm_error_stack_overflow: - err_msg = scm_makfrom0str ("Stack overflow"); + vm_error_stack_underflow: + err_msg = scm_makfrom0str ("VM: Stack underflow"); err_args = SCM_EOL; goto vm_error; - vm_error_stack_underflow: - err_msg = scm_makfrom0str ("Stack underflow"); +#if VM_CHECK_IP + vm_error_invalid_address: + err_msg = scm_makfrom0str ("VM: Invalid program address"); err_args = SCM_EOL; goto vm_error; +#endif + +#if VM_CHECK_EXTERNAL + vm_error_external: + err_msg = scm_makfrom0str ("VM: Invalid external access"); + err_args = SCM_EOL; + goto vm_error; +#endif vm_error: SYNC_ALL (); |