diff options
Diffstat (limited to '')
| -rw-r--r-- | tools/mpicalc.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tools/mpicalc.c b/tools/mpicalc.c index 2402695d7..828b475b3 100644 --- a/tools/mpicalc.c +++ b/tools/mpicalc.c @@ -179,6 +179,16 @@ do_gcd(void) stackidx--; } +static void +do_rshift(void) +{ + if( stackidx < 1 ) { + fputs("stack underflow\n", stderr); + return; + } + mpi_rshift( stack[stackidx-1],stack[stackidx-1], 1 ); +} + int main(int argc, char **argv) @@ -259,6 +269,9 @@ main(int argc, char **argv) case 'G': do_gcd(); break; + case '>': + do_rshift(); + break; case 'i': /* dummy */ if( !stackidx ) fputs("stack underflow\n", stderr); |