version 1.16, 2003/11/14 20:25:16 |
version 1.17, 2003/11/17 11:12:35 |
|
|
static __inline void print_stack(); |
static __inline void print_stack(); |
static __inline void dup(void); |
static __inline void dup(void); |
static void swap(void); |
static void swap(void); |
|
static void drop(void); |
|
|
static void get_scale(void); |
static void get_scale(void); |
static void set_scale(void); |
static void set_scale(void); |
|
|
{ 'O', get_obase }, |
{ 'O', get_obase }, |
{ 'P', pop_print }, |
{ 'P', pop_print }, |
{ 'Q', quitN }, |
{ 'Q', quitN }, |
|
{ 'R', drop }, |
{ 'S', store_stack }, |
{ 'S', store_stack }, |
{ 'X', push_scale }, |
{ 'X', push_scale }, |
{ 'Z', num_digits }, |
{ 'Z', num_digits }, |
|
|
swap(void) |
swap(void) |
{ |
{ |
stack_swap(&bmachine.stack); |
stack_swap(&bmachine.stack); |
|
} |
|
|
|
static void |
|
drop(void) |
|
{ |
|
struct value *v = pop(); |
|
if (v != NULL) |
|
stack_free_value(v); |
} |
} |
|
|
static void |
static void |