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

Made to compile with DEBUG off

Browse source
This commit is contained in:
ceriel 1988-09-02 13:55:54 +00:00
parent 83b92a8af2
commit 79ac11bd40
9 changed files with 23 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
util/ego/share/debug.c
View file

@ -70,7 +70,6 @@ badassertion(file,line) char *file; unsigned line; {
fprintf(stderr,"assertion failed file %s, line %u\n",file,line); fprintf(stderr,"assertion failed file %s, line %u\n",file,line);
error("assertion"); error("assertion");
} }
#endif
/* Valid Address */ /* Valid Address */
VA(a) short *a; { VA(a) short *a; {
@ -148,3 +147,4 @@ VP(p) proc_p p; {
error("VP: unlikely p_nrlabels: %d", nrlabs); error("VP: unlikely p_nrlabels: %d", nrlabs);
} }
} }
#endif

2
util/ego/share/debug.h
View file

@ -6,7 +6,7 @@
/* D E B U G G I N G T O O L S */ /* D E B U G G I N G T O O L S */
/* TEMPORARY: */ /* TEMPORARY: */
#define DEBUG /* #define DEBUG */
extern int linecount; /* # lines in this file */ extern int linecount; /* # lines in this file */
extern bool verbose_flag; /* generate verbose output ? */ extern bool verbose_flag; /* generate verbose output ? */

2
util/ego/share/get.c
View file

@ -427,7 +427,7 @@ line_p read_line(p_out)
} }
STATIC message(lnp) message(lnp)
line_p lnp; line_p lnp;
{ {
/* See if lnp is some useful message. /* See if lnp is some useful message.

8
util/ego/share/get.h
View file

@ -56,3 +56,11 @@ extern bool getunit(); /* (FILE *gf,*lf; short kind_out;
* variable 'mesregs'. The proc read * variable 'mesregs'. The proc read
* is returned in p_out. * is returned in p_out.
*/ */
extern message(); /* (line_p lnp)
* See if lnp is some useful message.
* (e.g. a message telling that a
* certain local variable will never be
* referenced indirectly, so it may be
* put in a register.
* If so, add it to the mesregs set.)
*/

2
util/ego/share/go.c
View file

@ -140,9 +140,11 @@ no_action() { }
core_usage() core_usage()
{ {
#ifdef DEBUG
if (core_flag) { if (core_flag) {
coreusage(); coreusage();
} }
#endif
} }
report(s,n) report(s,n)

2
util/ego/share/locals.c
View file

@ -182,7 +182,7 @@ make_localtab(p)
STATIC find_local(off,nr_out,found_out) find_local(off,nr_out,found_out)
offset off; offset off;
short *nr_out; short *nr_out;
bool *found_out; bool *found_out;

5
util/ego/share/locals.h
View file

@ -21,6 +21,11 @@ extern var_nr(); /* (line_p l; short *nr_out;bool *found_out)
* Compute the 'variable number' of the * Compute the 'variable number' of the
* variable referenced by EM instruction l. * variable referenced by EM instruction l.
*/ */
extern find_local(); /* (offset off; short *nr_out; bool *found_out)
* Try to find the local variable at the given
* offset. Return its local-number.
*/
/* Every global variable for which ud-info is maintained has /* Every global variable for which ud-info is maintained has
* a 'global variable number' (o_globnr). Every useful local * a 'global variable number' (o_globnr). Every useful local

2
util/ego/share/put.c
View file

@ -124,7 +124,7 @@ STATIC outobject(obj) obj_p obj; {
} }
STATIC outproc(p) proc_p p; { outproc(p) proc_p p; {
outshort((short) p->p_id); outshort((short) p->p_id);
} }

4
util/ego/share/put.h
View file

@ -15,7 +15,9 @@ extern outshort(); /* (short i)
extern outoff(); /* (offset off) extern outoff(); /* (offset off)
* Write an offset to curoutp * Write an offset to curoutp
*/ */
extern outproc(); /* (proc_p p)
* Write a procid to curoutp
*/
extern putdtable(); /* (dblock_p head, FILE *df) extern putdtable(); /* (dblock_p head, FILE *df)
* Write the data block table to file df, * Write the data block table to file df,
* preceded by its length. * preceded by its length.