error("Illegal indirection");
return((t
>>2) & 077770 | t
&07);
return((t
<<2)&077740 | (t
&07) | 010);
extern cctab
, block
, rcexpr
;
rcexpr(block(1,easystmt()+103,tree
,lbl
,cond
),cctab
);
extern space
, putwrd
, putchar
, line
;
c
=/ 2; /* # addresses per word */
printf("jmp\tl%d\n", lab
);
printf("cmp -(sp),-(sp)\n");
printf("add $%o,sp\n", ts
);
if (((t
=p
[1])&077770) == 0) /* not a reference */
if ((t
&030) == 030) /* array */
if (cs
>=hshtab
) /* in namelist */
error("Compiler error (length)");
error("Unimplemented pointer conversion");
if (((l
=length(cs
))&01) != 0)
if (((l
=tlength(cs
))&01) != 0)
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 */