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