@@ -90,7 +90,7 @@ inline op nqp_bigint_abs(out PMC, in PMC) :base_core {
90
90
mp_abs(a, get_bigint(interp, $1));
91
91
}
92
92
93
- inline op nqp_bigint_cmp(out INT, in PMC, in PMC) :base_cor {
93
+ inline op nqp_bigint_cmp(out INT, in PMC, in PMC) :base_core {
94
94
mp_int *a = get_bigint(interp, $2);
95
95
mp_int *b = get_bigint(interp, $3);
96
96
$1 = mp_cmp(a, b);
@@ -100,13 +100,13 @@ inline op nqp_bigint_bool(out INT, in PMC) :base_core {
100
100
$1 = !mp_iszero(get_bigint(interp, $2));
101
101
}
102
102
103
- inline op nqp_bigint_eq(out INT, in PMC, in PMC) :base_cor {
103
+ inline op nqp_bigint_eq(out INT, in PMC, in PMC) :base_core {
104
104
mp_int *a = get_bigint(interp, $2);
105
105
mp_int *b = get_bigint(interp, $3);
106
106
$1 = MP_EQ == mp_cmp(a, b);
107
107
}
108
108
109
- inline op nqp_bigint_ne(out INT, in PMC, in PMC) :base_cor {
109
+ inline op nqp_bigint_ne(out INT, in PMC, in PMC) :base_core {
110
110
mp_int *a = get_bigint(interp, $2);
111
111
mp_int *b = get_bigint(interp, $3);
112
112
$1 = MP_EQ != mp_cmp(a, b);
@@ -118,19 +118,19 @@ inline op nqp_bigint_gt(out INT, in PMC, in PMC) :base_cor {
118
118
$1 = MP_GT == mp_cmp(a, b);
119
119
}
120
120
121
- inline op nqp_bigint_ge(out INT, in PMC, in PMC) :base_cor {
121
+ inline op nqp_bigint_ge(out INT, in PMC, in PMC) :base_core {
122
122
mp_int *a = get_bigint(interp, $2);
123
123
mp_int *b = get_bigint(interp, $3);
124
124
$1 = MP_LT != mp_cmp(a, b);
125
125
}
126
126
127
- inline op nqp_bigint_lt(out INT, in PMC, in PMC) :base_cor {
127
+ inline op nqp_bigint_lt(out INT, in PMC, in PMC) :base_core {
128
128
mp_int *a = get_bigint(interp, $2);
129
129
mp_int *b = get_bigint(interp, $3);
130
130
$1 = MP_LT == mp_cmp(a, b);
131
131
}
132
132
133
- inline op nqp_bigint_le(out INT, in PMC, in PMC) :base_cor {
133
+ inline op nqp_bigint_le(out INT, in PMC, in PMC) :base_core {
134
134
mp_int *a = get_bigint(interp, $2);
135
135
mp_int *b = get_bigint(interp, $3);
136
136
$1 = MP_GT != mp_cmp(a, b);
@@ -187,28 +187,28 @@ inline op nqp_bigint_shl(out PMC, in PMC, in INT) :base_core {
187
187
mp_mul_2d(a, $3, b);
188
188
}
189
189
190
- inline op nqp_bigint_band(out PMC, in PMC, in PMC) :base_cor {
190
+ inline op nqp_bigint_band(out PMC, in PMC, in PMC) :base_core {
191
191
mp_int *a = get_bigint(interp, $2);
192
192
mp_int *b = get_bigint(interp, $3);
193
193
$1 = REPR($2)->allocate(interp, STABLE($2));
194
194
REPR($1)->initialize(interp, STABLE($1), OBJECT_BODY($1));
195
195
mp_and(a, b, get_bigint(interp, $1));
196
196
}
197
- inline op nqp_bigint_bor(out PMC, in PMC, in PMC) :base_cor {
197
+ inline op nqp_bigint_bor(out PMC, in PMC, in PMC) :base_core {
198
198
mp_int *a = get_bigint(interp, $2);
199
199
mp_int *b = get_bigint(interp, $3);
200
200
$1 = REPR($2)->allocate(interp, STABLE($2));
201
201
REPR($1)->initialize(interp, STABLE($1), OBJECT_BODY($1));
202
202
mp_or(a, b, get_bigint(interp, $1));
203
203
}
204
- inline op nqp_bigint_bxor(out PMC, in PMC, in PMC) :base_cor {
204
+ inline op nqp_bigint_bxor(out PMC, in PMC, in PMC) :base_core {
205
205
mp_int *a = get_bigint(interp, $2);
206
206
mp_int *b = get_bigint(interp, $3);
207
207
$1 = REPR($2)->allocate(interp, STABLE($2));
208
208
REPR($1)->initialize(interp, STABLE($1), OBJECT_BODY($1));
209
209
mp_xor(a, b, get_bigint(interp, $1));
210
210
}
211
- inline op nqp_bigint_bnot(out PMC, in PMC) :base_cor {
211
+ inline op nqp_bigint_bnot(out PMC, in PMC) :base_core {
212
212
mp_int *a = get_bigint(interp, $2);
213
213
mp_int *b;
214
214
$1 = REPR($2)->allocate(interp, STABLE($2));
0 commit comments