From f4e1a15dfbf319a69abfb32c0468e4ecedaec78a Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 30 Jul 1990 16:05:27 +0000
Subject: [PATCH] Added support for debugger messages

---
 modules/src/em_mes/.distr     |  2 ++
 modules/src/em_mes/C_ms_stb.c |  5 +++++
 modules/src/em_mes/C_ms_std.c | 19 +++++++++++++++++++
 modules/src/em_mes/Makefile   |  4 ++--
 4 files changed, 28 insertions(+), 2 deletions(-)
 create mode 100644 modules/src/em_mes/C_ms_std.c

diff --git a/modules/src/em_mes/.distr b/modules/src/em_mes/.distr
index 0e7e2035c..fca6e4123 100644
--- 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 cfd22ae8c..94fd406c1 100644
--- 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
index 000000000..675c38d3d
--- /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 3404ac878..406490059 100644
--- 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):