extern cctab
, block
, rcexpr
;
rcexpr(block(1,easystmt()+103,tree
,lbl
,cond
),cctab
);
extern space
, ospace
, putwrd
, putchar
, line
;
c
=/ 2; /* # addresses per word */
printf("jmp\tl%d\n", lab
);
printf(".data; l%d: 1f; .text; 1:\n", csym
[2]);
printf("cmp -(sp),-(sp)\n");
printf("add $%o,sp\n", ts
);
printf("mov\tsp,r0\nmov\tr0,-(sp)\n");
printf(".data; l%d:1f; .bss; 1:.=.+%o; .even; .text\n", s
[2],
printf(".bss; l%d:.=.+%o; .even; .text\n", s
[2], len
);
return((l
=length(c
))==1? 2: l
);
if(a
=n
/b
) /* assignment, not test for equality */
printn(a
, b
); /* recursive */
printf(fmt
,x1
,x2
,x3
,x4
,x5
,x6
,x7
,x8
,x9
)
extern printn
, putchar
, namsiz
, ncpw
;
adx
= &x1
; /* argument pointer */
while((c
= *fmt
++) != '%') {
if(x
<0) { /* - infinity */