- regtail - set the next-pointer at the end of a node chain */
| 721 | - regtail - set the next-pointer at the end of a node chain |
| 722 | */ |
| 723 | static void |
| 724 | regtail( |
| 725 | char *p, |
| 726 | char *val ) |
| 727 | { |
| 728 | register char *scan; |
| 729 | register char *temp; |
| 730 | register int offset; |
| 731 | |
| 732 | if (p == ®dummy) |
| 733 | return; |
| 734 | |
| 735 | /* Find last node. */ |
| 736 | scan = p; |
| 737 | for (;;) { |
| 738 | temp = regnext(scan); |
| 739 | if (temp == NULL) |
| 740 | break; |
| 741 | scan = temp; |
| 742 | } |
| 743 | |
| 744 | if (OP(scan) == BACK) |
| 745 | offset = scan - val; |
| 746 | else |
| 747 | offset = val - scan; |
| 748 | *(scan+1) = (offset>>8)&0377; |
| 749 | *(scan+2) = offset&0377; |
| 750 | } |
| 751 | |
| 752 | /* |
| 753 | - regoptail - regtail on operand of first argument; nop if operandless |