Added support for debugger messages

diff --git a/modules/src/em_mes/.distr b/modules/src/em_mes/.distr
index 0e7e203..fca6e41 100644 (file)
--- a/modules/src/em_mes/.distr
+++ b/modules/src/em_mes/.distr
@@ -8,5 +8,7 @@ C_ms_opt.c
 C_ms_par.c
 C_ms_reg.c
 C_ms_src.c
+C_ms_std.c
+C_ms_stb.c
 Makefile
 em_mes.3

diff --git a/modules/src/em_mes/C_ms_stb.c b/modules/src/em_mes/C_ms_stb.c
index cfd22ae..94fd406 100644 (file)
--- a/modules/src/em_mes/C_ms_stb.c
+++ b/modules/src/em_mes/C_ms_stb.c
@@ -12,6 +12,7 @@ C_ms_stb_cst(s, e1, e2, e3)
        arith   e3;
 {
        C_mes_begin(ms_stb);
+       if (s) C_scon(s, (arith) (strlen(s)+1));
        C_cst((arith)e1);
        C_cst((arith)e2);
        C_cst(e3);
@@ -25,6 +26,7 @@ C_ms_stb_dlb(s, e1, e2, l, off)
        arith   off;
 {
        C_mes_begin(ms_stb);
+       if (s) C_scon(s, (arith) (strlen(s)+1));
        C_cst((arith)e1);
        C_cst((arith)e2);
        C_dlb(l, off);
@@ -38,6 +40,7 @@ C_ms_stb_dnam(s, e1, e2, l, off)
        arith   off;
 {
        C_mes_begin(ms_stb);
+       if (s) C_scon(s, (arith) (strlen(s)+1));
        C_cst((arith)e1);
        C_cst((arith)e2);
        C_dnam(l, off);
@@ -50,6 +53,7 @@ C_ms_stb_ilb(s, e1, e2, l)
        label   l;
 {
        C_mes_begin(ms_stb);
+       if (s) C_scon(s, (arith) (strlen(s)+1));
        C_cst((arith)e1);
        C_cst((arith)e2);
        C_ilb(l);
@@ -62,6 +66,7 @@ C_ms_stb_pnam(s, e1, e2, p)
        char    *p;
 {
        C_mes_begin(ms_stb);
+       if (s) C_scon(s, (arith) (strlen(s)+1));
        C_cst((arith)e1);
        C_cst((arith)e2);
        C_pnam(p);

diff --git a/modules/src/em_mes/C_ms_std.c b/modules/src/em_mes/C_ms_std.c
new file mode 100644 (file)
index 0000000..675c38d
--- /dev/null
+++ b/modules/src/em_mes/C_ms_std.c
@@ -0,0 +1,19 @@
+/* $Header$ */
+/*
+ * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+#include <em.h>
+#include <em_mes.h>
+
+C_ms_std(s, e1, l)
+       char *s;
+       int e1;
+       int l;
+{
+       C_mes_begin(ms_std);
+       if (s) C_scon(s, (arith) (strlen(s)+1));
+       C_cst((arith) e1);
+       C_cst((arith) l);
+       C_mes_end();
+}

diff --git a/modules/src/em_mes/Makefile b/modules/src/em_mes/Makefile
index 3404ac8..4064900 100644 (file)
--- a/modules/src/em_mes/Makefile
+++ b/modules/src/em_mes/Makefile
@@ -10,10 +10,10 @@ LIBSUF = a
 
 SRC =  C_ms_err.c C_ms_opt.c C_ms_emx.c C_ms_reg.c C_ms_src.c\
        C_ms_flt.c C_ms_com.c C_ms_par.c C_ms_ego.c C_ms_gto.c\
-       C_ms_stb.c C_ms_lin.c
+       C_ms_stb.c C_ms_std.c
 OBJ =  C_ms_err.$(SUF) C_ms_opt.$(SUF) C_ms_emx.$(SUF) C_ms_reg.$(SUF) C_ms_src.$(SUF)\
        C_ms_flt.$(SUF) C_ms_com.$(SUF) C_ms_par.$(SUF) C_ms_ego.$(SUF) C_ms_gto.$(SUF)\
-       C_ms_stb.$(SUF) C_ms_lin.$(SUF)
+       C_ms_stb.$(SUF) C_ms_std.$(SUF)
 
 .SUFFIXES: .$(SUF)
 .c.$(SUF):