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

various small corrections

Browse source
This commit is contained in:
erikb 1986-04-17 14:42:54 +00:00
parent d3d6e637d6
commit 53255dcf48
3 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lang/cem/cemcom/domacro.c
View file

@ -352,11 +352,12 @@ do_ifdef(how)
*/ */
push_if(); push_if();
if (id = GetIdentifier()) { if (id = GetIdentifier()) {
if ((how && !(id && id->id_macro)) || if (
(!how && id && id->id_macro)) (how && !(id && id->id_macro))
{ /* this id is not defined */ ||
(!how && id && id->id_macro)
) /* this id is not defined */
skip_block(); skip_block();
}
else else
SkipRestOfLine(); SkipRestOfLine();
} }
@ -390,9 +391,8 @@ do_line(l)
{ {
struct token tk; struct token tk;
LineNumber = l; LineNumber = l - 1; /* the number of the next input line */
/* is there a filespecifier? */ if (GetToken(&tk) == STRING) /* is there a filespecifier? */
if (GetToken(&tk) == STRING)
FileName = tk.tk_bts; FileName = tk.tk_bts;
SkipRestOfLine(); SkipRestOfLine();
} }

2
lang/cem/cemcom/dumpidf.c
View file

@ -352,7 +352,7 @@ p1_expr(lvl, expr)
break; break;
case String: case String:
{ {
char bts2str(); char *bts2str();
print( print(
"%s\n", "%s\n",

5
lang/cem/cemcom/stack.c
View file

@ -210,12 +210,15 @@ unstack_world()
#ifdef DEBUG #ifdef DEBUG
if (options['a']) { if (options['a']) {
print("\"%s\", %s, %s, %s\n", char *symbol2str();
print("\"%s\", %s, %s, %s, %s\n",
idf->id_text, idf->id_text,
(def->df_alloc == 0) ? "no alloc" : (def->df_alloc == 0) ? "no alloc" :
(def->df_alloc == ALLOC_SEEN) ? "alloc seen" : (def->df_alloc == ALLOC_SEEN) ? "alloc seen" :
(def->df_alloc == ALLOC_DONE) ? "alloc done" : (def->df_alloc == ALLOC_DONE) ? "alloc done" :
"illegal alloc info", "illegal alloc info",
symbol2str(def->df_sc),
def->df_initialized ? "init" : "no init", def->df_initialized ? "init" : "no init",
def->df_used ? "used" : "not used"); def->df_used ? "used" : "not used");
} }