* contrib/vmlog/vmlog_cacao.h (vmlog_cacao_signl_type): New function.

* contrib/vmlog/vmlog_cacao.c (vmlog_cacao_signl_type): Likewise.

--HG--
branch : edwin-replacement
extra : transplant_source : %19%1D%94-%60e%DB%1Am%40%27%21%A4%28/R%AF%B8z%DD

diff --git a/contrib/vmlog/vmlog_cacao.c b/contrib/vmlog/vmlog_cacao.c
index 57de7f2074c134eb4b6663b62568f2f785d67577..fee43c59e397d8126734e4836faf2e8349574a30 100644 (file)
--- a/contrib/vmlog/vmlog_cacao.c
+++ b/contrib/vmlog/vmlog_cacao.c
@@ -161,6 +161,19 @@ void vmlog_cacao_signl(const char *name)
                        name, strlen(name));
 }
 
+void vmlog_cacao_signl_type(int type)
+{
+       char message[20];
+
+       if (!vmlog_global_log)
+               return;
+
+       sprintf(message, "EXC %d", type);
+
+       vmlog_log_signl(vmlog_global_log,(void*) THREADOBJECT,
+                       message, strlen(message));
+}
+
 void vmlog_cacao_init_options(void)
 {
        vmlog_cacao_options = vmlog_opt_new();

diff --git a/contrib/vmlog/vmlog_cacao.h b/contrib/vmlog/vmlog_cacao.h
index 7d455c657a14031ec5654ba73de30fb19d7a5786..b7c412a8bc3135abb2693524c80c0b06146e4177 100644 (file)
--- a/contrib/vmlog/vmlog_cacao.h
+++ b/contrib/vmlog/vmlog_cacao.h
@@ -40,6 +40,7 @@ void vmlog_cacao_rerol_method(methodinfo *m);
 void vmlog_cacao_throw(java_object_t *xptr);
 void vmlog_cacao_catch(java_object_t *xptr);
 void vmlog_cacao_signl(const char *name);
+void vmlog_cacao_signl_type(int type);
 
 #endif