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

Changed debugging information to also work for Solaris 2

Browse source
This commit is contained in:
ceriel 1993-11-10 12:44:24 +00:00
parent 37ab68909b
commit c89c0d2c01
5 changed files with 42 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/m2/comp/declar.g
View file

@ -18,7 +18,6 @@
#include <assert.h>
#include "strict3rd.h"
#include "dbsymtab.h"
#include "idf.h"
#include "LLlex.h"
#include "def.h"
@ -114,17 +113,11 @@ declaration
{ ++proclevel; }
ProcedureHeading(&df, D_PROCEDURE)
{
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_PROCEDURE);
#endif /* DBSYMTAB */
}
';'
block(&(df->prc_body))
IDENT
{
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_PEND);
#endif /* DBSYMTAB */
EndProc(df, dot.TOK_IDF);
--proclevel;
}
@ -540,9 +533,6 @@ ConstantDeclaration
df->con_const = nd->nd_token;
df->df_type = nd->nd_type;
FreeNode(nd);
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_CONST);
#endif /* DBSYMTAB */
}
;

3
lang/m2/comp/enter.c
View file

@ -183,9 +183,6 @@ EnterVarList(Idlist, type, local)
C_ina_dnam(df->var_name);
}
}
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_VARIABLE);
#endif /* DBSYMTAB */
}
FreeNode(Idlist);
}

2
lang/m2/comp/main.c
View file

@ -271,11 +271,13 @@ print("\nNumber of lines read: %d\n", cntlines);
}
#endif
void
No_Mem()
{
fatal("out of memory");
}
void
C_failed()
{
fatal("write failed");

31
lang/m2/comp/program.g
View file

@ -18,8 +18,8 @@
#include <em_code.h>
#include <stb.h>
#include "strict3rd.h"
#include "dbsymtab.h"
#include "strict3rd.h"
#include "main.h"
#include "idf.h"
#include "LLlex.h"
@ -64,16 +64,8 @@ ModuleDeclaration
';'
import(1)*
export(&qualified, &exportlist)
{
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_MODULE);
#endif /* DBSYMTAB */
}
block(&(df->mod_body))
IDENT { EnterExportList(exportlist, qualified);
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_END);
#endif /* DBSYMTAB */
close_scope(SC_CHKFORW|SC_CHKPROC|SC_REVERSE);
match_id(df->df_idf, dot.TOK_IDF);
}
@ -166,9 +158,6 @@ DefinitionModule
DefinitionModule++;
if (!Defined) {
Defined = df;
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_MODULE);
#endif /* DBSYMTAB */
}
}
';'
@ -219,12 +208,12 @@ definition
df->df_type = construct_type(T_HIDDEN, NULLTYPE);
}
]
';'
{
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_TYPE);
#endif /* DBSYMTAB */
#endif
}
';'
]*
|
VAR [ %persistent VariableDeclaration ';' ]*
@ -254,26 +243,12 @@ ProgramModule
df->mod_vis = CurrVis;
CurrentScope->sc_name = "__M2M_";
CurrentScope->sc_definedby = df;
#ifdef DBSYMTAB
if (options['g']) stb_string(df, D_MODULE);
#endif /* DBSYMTAB */
}
}
priority(&(df->mod_priority))
';' import(0)*
block(&(df->mod_body)) IDENT
{
#ifdef DBSYMTAB
if (options['g']) {
if (state == PROGRAM) {
C_ms_stb_cst(df->df_idf->id_text,
N_MAIN,
0,
(arith) 0);
}
stb_string(df, D_END);
}
#endif /* DBSYMTAB */
close_scope(SC_CHKFORW|SC_CHKPROC|SC_REVERSE);
match_id(df->df_idf, dot.TOK_IDF);
}

36
lang/m2/comp/walk.c
View file

@ -60,6 +60,9 @@ static int oldlineno;
static int RegisterMessage();
static int WalkDef();
#ifdef DBSYMTAB
static int stabdef();
#endif
static int MkCalls();
static int UseWarnings();
@ -194,6 +197,19 @@ WalkModule(module)
text_label = 1; /* label at end of initialization routine */
TmpOpen(sc); /* Initialize for temporaries */
C_pro_narg(sc->sc_name);
#ifdef DBSYMTAB
if (options['g']) {
stb_string(module, D_MODULE);
WalkDefList(sc->sc_def, stabdef);
if (state == PROGRAM && module == Defined) {
C_ms_stb_cst(module->df_idf->id_text,
N_MAIN,
0,
(arith) 0);
}
stb_string(module, D_END);
}
#endif
DoPriority();
if (module == Defined) {
/* Body of implementation or program module.
@ -317,6 +333,9 @@ WalkProcedure(procedure)
C_pro_narg(procedure->prc_name);
#ifdef DBSYMTAB
if (options['g']) {
stb_string(procedure, D_PROCEDURE);
WalkDefList(procscope->sc_def, stabdef);
stb_string(procedure, D_PEND);
C_ms_std((char *) 0, N_LBRAC, proclevel);
}
#endif /* DBSYMTAB */
@ -487,6 +506,9 @@ WalkProcedure(procedure)
C_pro(procedure->prc_name, -procscope->sc_off);
#ifdef DBSYMTAB
if (options['g']) {
stb_string(procedure, D_PROCEDURE);
WalkDefList(procscope->sc_def, stabdef);
stb_string(procedure, D_PEND);
C_ms_std((char *) 0, N_LBRAC, proclevel);
}
#endif /* DBSYMTAB */
@ -1115,3 +1137,17 @@ WalkDefList(df, proc)
(*proc)(df);
}
}
#ifdef DBSYMTAB
static int
stabdef(df)
t_def *df;
{
switch(df->df_kind) {
case D_CONST:
case D_VARIABLE:
stb_string(df, df->df_kind);
break;
}
}
#endif