Selaa lähdekoodia

Added support for debugger messages

ceriel 34 vuotta sitten
vanhempi
commit
9ce9dc654f

+ 2 - 0
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

+ 5 - 0
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);

+ 19 - 0
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();
+}

+ 2 - 2
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):