6611 |
|
|
6612 |
code[1+LINK_SIZE] = OP_CREF; |
code[1+LINK_SIZE] = OP_CREF; |
6613 |
skipbytes = 1+IMM2_SIZE; |
skipbytes = 1+IMM2_SIZE; |
6614 |
refsign = -1; |
refsign = -1; /* => not a number */ |
6615 |
|
namelen = -1; /* => not a name; must set to avoid warning */ |
6616 |
|
name = NULL; /* Always set to avoid warning */ |
6617 |
|
recno = 0; /* Always set to avoid warning */ |
6618 |
|
|
6619 |
/* Check for a test for recursion in a named group. */ |
/* Check for a test for recursion in a named group. */ |
6620 |
|
|
6651 |
|
|
6652 |
if (refsign >= 0) |
if (refsign >= 0) |
6653 |
{ |
{ |
|
recno = 0; |
|
6654 |
while (IS_DIGIT(*ptr)) |
while (IS_DIGIT(*ptr)) |
6655 |
{ |
{ |
6656 |
recno = recno * 10 + (int)(*ptr - CHAR_0); |
recno = recno * 10 + (int)(*ptr - CHAR_0); |