d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added debugger message routines

Browse source
This commit is contained in:
ceriel 1990-06-20 11:59:57 +00:00
parent bd82622a2e
commit 8444bc32fb
4 changed files with 125 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
modules/src/em_mes/C_ms_lin.c Normal file
View file

@ -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
modules/src/em_mes/C_ms_stb.c Normal file
View file

@ -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();
}

6
modules/src/em_mes/Makefile
View file

@ -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):

41
modules/src/em_mes/em_mes.3
View file

@ -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>