Sfoglia il codice sorgente

Added debugger message routines

ceriel 34 anni fa
parent
commit
8444bc32fb

+ 15 - 0
modules/src/em_mes/C_ms_lin.c

@@ -0,0 +1,15 @@
+/* $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_lin(l)
+	int l;
+{
+	C_mes_begin(ms_lin);
+	C_cst((arith) l);
+	C_mes_end();
+}

+ 69 - 0
modules/src/em_mes/C_ms_stb.c

@@ -0,0 +1,69 @@
+/* $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_stb_cst(s, e1, e2, e3)
+	char	*s;
+	int	e1, e2;
+	arith	e3;
+{
+	C_mes_begin(ms_stb);
+	C_cst((arith)e1);
+	C_cst((arith)e2);
+	C_cst(e3);
+	C_mes_end();
+}
+
+C_ms_stb_dlb(s, e1, e2, l, off)
+	char	*s;
+	int	e1, e2;
+	label	l;
+	arith	off;
+{
+	C_mes_begin(ms_stb);
+	C_cst((arith)e1);
+	C_cst((arith)e2);
+	C_dlb(l, off);
+	C_mes_end();
+}
+
+C_ms_stb_dnam(s, e1, e2, l, off)
+	char	*s;
+	int	e1, e2;
+	char	*l;
+	arith	off;
+{
+	C_mes_begin(ms_stb);
+	C_cst((arith)e1);
+	C_cst((arith)e2);
+	C_dnam(l, off);
+	C_mes_end();
+}
+
+C_ms_stb_ilb(s, e1, e2, l)
+	char	*s;
+	int	e1, e2;
+	label	l;
+{
+	C_mes_begin(ms_stb);
+	C_cst((arith)e1);
+	C_cst((arith)e2);
+	C_ilb(l);
+	C_mes_end();
+}
+
+C_ms_stb_pnam(s, e1, e2, p)
+	char	*s;
+	int	e1, e2;
+	char	*p;
+{
+	C_mes_begin(ms_stb);
+	C_cst((arith)e1);
+	C_cst((arith)e2);
+	C_pnam(p);
+	C_mes_end();
+}

+ 4 - 2
modules/src/em_mes/Makefile

@@ -9,9 +9,11 @@ SUF = o
 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_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
 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_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)
 
 .SUFFIXES: .$(SUF)
 .c.$(SUF):

+ 37 - 4
modules/src/em_mes/em_mes.3

@@ -36,6 +36,36 @@ em_mes \- EM-message generating routines
 .B arith offs, siz;
 .PP
 .B C_ms_gto()
+.PP
+.B C_ms_stb_cst(s, e1, e2, e3)
+.B char *s;
+.B int e1, e2;
+.B arith e3;
+.PP
+.B C_ms_stb_dlb(s, e1, e2, l, off)
+.B char *s;
+.B int e1, e2;
+.B label l;
+.B arith off;
+.PP
+.B C_ms_stb_dnam(s, e1, e2, l, off)
+.B char *s;
+.B int e1, e2;
+.B char *l;
+.B arith off;
+.PP
+.B C_ms_stb_ilb(s, e1, e2, l)
+.B char *s;
+.B int e1, e2;
+.B label l;
+.PP
+.B C_ms_stb_pnam(s, e1, e2, p)
+.B char *s;
+.B int e1, e2;
+.B char *p;
+.PP
+.B C_ms_lin(l)
+.B int l;
 .fi
 .SH DESCRIPTION
 This set of routines forms a front end for the
@@ -123,6 +153,13 @@ The parameters needed are conform to the format of the message.
 .PP
 .BR C_ms_gto ()
 can be invoked to indicate that a procedure uses a non-local goto.
+.PP
+The
+.B C_ms_stb
+and
+.B C_ms_lin
+routines produce a message that a back-end can use for (debugger) symbol table
+entries.
 .SH FILES
 .nf
 ~em/modules/h/em.h
@@ -141,7 +178,3 @@ The
 .BR C_ms_ext ()
 routine has not yet been implemented, since this message uses
 a variable number of arguments.
-.PP
-Please report other bugs to the author.
-.SH AUTHOR
-Erik Baalbergen <erikb@vu44.UUCP>