27 |
|
|
28 |
#include "num_include.h" |
#include "num_include.h" |
29 |
|
|
30 |
|
static void |
31 |
|
zero_divisor(void); |
32 |
|
|
33 |
object fixnum_add(int i, int j) |
object fixnum_add(int i, int j) |
34 |
{ |
{ |
35 |
|
|
62 |
} |
} |
63 |
} |
} |
64 |
|
|
65 |
object |
/* static object */ |
66 |
fixnum_times(int i, int j) |
/* fixnum_times(int i, int j) */ |
67 |
{ |
/* { */ |
68 |
|
|
69 |
MPOP(return,mulss,i,j); |
/* MPOP(return,mulss,i,j); */ |
70 |
} |
/* } */ |
71 |
|
|
72 |
object |
static object |
73 |
number_to_complex(object x) |
number_to_complex(object x) |
74 |
{ |
{ |
75 |
object z; |
object z; |
1019 |
vs_top = vs_base+1; |
vs_top = vs_base+1; |
1020 |
} |
} |
1021 |
|
|
1022 |
void |
static void |
1023 |
zero_divisor(void) |
zero_divisor(void) |
1024 |
{ |
{ |
1025 |
FEerror("Zero divisor.", 0); |
FEerror("Zero divisor.", 0); |