![[BACK]](/icons/back.gif){kind=icon}
Return to bcode.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / dc|
Return to bcode.c CVS log | Up to [local] / src / usr.bin / dc |
| version 1.5, 2003/09/22 14:49:16 | version 1.6, 2003/09/28 19:15:53 | ||
|---|---|---|---|
|
|
||
| reg = readch(); | reg = readch(); | ||
| if (0 <= reg && reg < UCHAR_MAX) { | if (0 <= reg && reg < UCHAR_MAX) { | ||
| inumber = pop_number(); | inumber = pop_number(); | ||
| if (inumber == NULL) | |||
| return; | |||
| value = pop(); | value = pop(); | ||
| if (inumber == NULL) { | if (value == NULL) { | ||
| if (value != NULL) | free_number(inumber); | ||
| stack_free_value(value); | |||
| return; | return; | ||
| } | } | ||
| index = get_ulong(inumber); | index = get_ulong(inumber); |