@@ -220,8 +220,9 @@ for the Cursor if one hasn't been created yet.
220
220
= cut
221
221
222
222
. sub ' MATCH' :method :subid (' Regex_Cursor_meth_MATCH' )
223
- .local pmc cur_class , match
223
+ .local pmc cur_class , match , match_class
224
224
cur_class = get_global ' $?CLASS'
225
+ match_class = get_hll_global [" Regex" ], " Match"
225
226
match = getattribute self , cur_class , ' $!match'
226
227
if null match goto match_make
227
228
$P0 = get_global ' $!TRUE'
@@ -232,16 +233,16 @@ for the Cursor if one hasn't been created yet.
232
233
match_make:
233
234
match = self . ' new_match' ()
234
235
setattribute self , cur_class , ' $!match' , match
235
- setattribute match , ' $!cursor' , self
236
+ setattribute match , match_class , ' $!cursor' , self
236
237
.local pmc target , from , to
237
238
target = getattribute self , cur_class , ' $!target'
238
- setattribute match , ' $!target' , target
239
+ setattribute match , match_class , ' $!target' , target
239
240
$I0 = repr_get_attr_int self , cur_class , ' $!from'
240
241
from = box $I0
241
- setattribute match , ' $!from' , from
242
+ repr_bind_attr_int match , match_class , ' $!from' , $I0
242
243
$I0 = repr_get_attr_int self , cur_class , ' $!pos'
243
244
to = box $I0
244
- setattribute match , ' $!to' , to
245
+ repr_bind_attr_int match , match_class , ' $!to' , $I0
245
246
246
247
# Create any arrayed subcaptures.
247
248
.local pmc caparray , caparray_it , caphash
0 commit comments