- regnext - dig the "next" pointer out of a node */
| 1145 | - regnext - dig the "next" pointer out of a node |
| 1146 | */ |
| 1147 | static char * |
| 1148 | regnext( register char *p ) |
| 1149 | { |
| 1150 | register int offset; |
| 1151 | |
| 1152 | if (p == ®dummy) |
| 1153 | return(NULL); |
| 1154 | |
| 1155 | offset = NEXT(p); |
| 1156 | if (offset == 0) |
| 1157 | return(NULL); |
| 1158 | |
| 1159 | if (OP(p) == BACK) |
| 1160 | return(p-offset); |
| 1161 | else |
| 1162 | return(p+offset); |
| 1163 | } |
| 1164 | |
| 1165 | #ifdef DEBUG |
| 1166 |