6776 struct block *gen_relation(code, a0, a1, reversed)  in gen_relation()  argument
6778      struct arth *a0, *a1;
6785     s1 = xfer_to_a(a0);
6799     sappend(a0->s, a1->s);
6801     b->stmts = a0->s;
6803     free_reg(a0->regno);
6807     if (a0->b)
6811             gen_and(a0->b, tmp = a1->b);
6814             tmp = a0->b;
6878 struct arth *gen_arth(code, a0, a1)  in gen_arth()  argument
6880      struct arth *a0, *a1;
6885     s1 = xfer_to_a(a0);
6891     sappend(a0->s, a1->s);
6893     free_reg(a0->regno);
6897     a0->regno = s0->s.k = alloc_reg();
6898     sappend(a0->s, s0);
6900     return a0;