ONEW,
ONOT, OCOM, OPLUS, OMINUS,
OOROR,
- OPANIC, OPANICN, OPRINT, OPRINTN,
+ OPANIC, OPRINT, OPRINTN,
OSEND, OSENDNB,
OSLICE, OSLICEARR, OSLICESTR,
ORECV,
"make", LNAME, Txxx, OMAKE,
"new", LNAME, Txxx, ONEW,
"panic", LNAME, Txxx, OPANIC,
- "panicln", LNAME, Txxx, OPANICN,
"print", LNAME, Txxx, OPRINT,
"println", LNAME, Txxx, OPRINTN,
"real", LNAME, Txxx, OREAL,
case OMAKE:
case ONEW:
case OPANIC:
- case OPANICN:
case OPRINT:
case OPRINTN:
case OCALL:
case OMAKE:
case ONEW:
case OPANIC:
- case OPANICN:
case OPRINT:
case OPRINTN:
fmtprint(f, "%#O(", n->op);
[ONOT] = "!",
[OOROR] = "||",
[OOR] = "|",
- [OPANICN] = "panicln",
[OPANIC] = "panic",
[OPLUS] = "+",
[OPRINTN] = "println",
goto ret;
case OPANIC:
- case OPANICN:
case OPRINT:
case OPRINTN:
ok |= Etop;
case OGOTO:
case ORETURN:
case OPANIC:
- case OPANICN:
return 0;
break;
}
case OPRINT:
case OPRINTN:
case OPANIC:
- case OPANICN:
case OEMPTY:
if(n->typecheck == 0)
fatal("missing typecheck");
case OPRINT:
case OPRINTN:
case OPANIC:
- case OPANICN:
walkexprlist(n->left->list, &n->ninit);
n->left = walkprint(n->left, &n->ninit, 1);
break;
case OPRINT:
case OPRINTN:
case OPANIC:
- case OPANICN:
walkexprlist(n->list, init);
n = walkprint(n, init, 0);
goto ret;
else
calls = list(calls, mkcall("printsp", T, init));
}
- notfirst = op == OPRINTN || op == OPANICN;
+ notfirst = op == OPRINTN;
n = l->n;
if(n->op == OLITERAL) {
if(defer) {
if(op == OPRINTN)
fmtprint(&fmt, "\n");
- if(op == OPANIC || op == OPANICN)
+ if(op == OPANIC)
fmtprint(&fmt, "%%!");
on = syslook("printf", 1);
on->type = functype(nil, intypes, nil);
typechecklist(calls, Etop);
walkexprlist(calls, init);
- if(op == OPANIC || op == OPANICN)
+ if(op == OPANIC)
r = mkcall("panicl", T, nil);
else
r = nod(OEMPTY, N, N);