@@ -190,10 +190,10 @@ package ExtUtils::ParseXS::Node::xsub;
190
190
# Process an entire XSUB definition
191
191
192
192
BEGIN { $build_subclass -> (' ' , # parent
193
- ' decl' , # Node::xsub_decl object holding this XSUB declaration
193
+ ' decl' , # Node::xsub_decl object holding this XSUB's declaration
194
194
195
195
# Boolean flags: they indicate that at least one of each specified
196
- # keywords has # been seen in this XSUB
196
+ # keyword has been seen in this XSUB
197
197
' seen_ALIAS' ,
198
198
' seen_INTERFACE' ,
199
199
' seen_INTERFACE_MACRO' ,
@@ -214,21 +214,20 @@ BEGIN { $build_subclass->('', # parent
214
214
#
215
215
# CODE_sets_ST0 is a flag indicating that something within a CODE
216
216
# block is doing 'ST(0) = ..' or similar. This is a workaround for
217
- # a bug. See the code comments "Horrible 'void' return arg count hack"
217
+ # a bug: see the code comments "Horrible 'void' return arg count hack"
218
218
# in Node::CODE::parse() for more details.
219
219
' CODE_sets_ST0' , # Bool
220
220
' XSRETURN_count_basic' , # Int
221
221
' XSRETURN_count_extra' , # Int
222
222
223
- # these maintain the alias parsing state across potentially multiple
223
+ # These maintain the alias parsing state across potentially multiple
224
224
# ALIAS keywords and or lines:
225
225
226
226
' map_alias_name_to_value' , # Hash: maps seen alias names to their value
227
227
228
- # Hash of hash of bools:
228
+ ' map_alias_value_to_name_seen_hash ' , # Hash of hash of bools:
229
229
# indicates which alias names have been
230
230
# used for each value.
231
- ' map_alias_value_to_name_seen_hash' ,
232
231
233
232
' alias_clash_hinted' , # Bool: an ALIAS warn-hint has been emitted.
234
233
@@ -239,10 +238,12 @@ BEGIN { $build_subclass->('', # parent
239
238
# name, map the short (PREFIX removed) name
240
239
# to the original name.
241
240
241
+ # Maintain the ATTRS parsing state across potentially multiple
242
+ # ATTRS keywords and or lines:
243
+
242
244
' attributes' , # Array of strings: all ATTRIBUTE keywords
243
245
# (possibly multiple space-separated
244
246
# keywords per string).
245
-
246
247
)};
247
248
248
249
@@ -545,7 +546,7 @@ sub boot_code {
545
546
| cv = $newXS (\" $xname \" , XS_$cname$file_arg$proto_arg );
546
547
| XSANY.any_i32 = $value ;
547
548
EOF
548
- $pxs -> {need_boot_cv } = 1;
549
+ $pxs -> {need_boot_cv } = 1;
549
550
}
550
551
}
551
552
elsif ($pxs -> {cur_xsub }{attributes }) {
556
557
| cv = $newXS (\" $pname \" , XS_$cname$file_arg$proto_arg );
557
558
| apply_attrs_string("$pxs ->{PACKAGE_name}", cv, "$attrs ", 0);
558
559
EOF
559
- $pxs -> {need_boot_cv } = 1;
560
+ $pxs -> {need_boot_cv } = 1;
560
561
}
561
562
elsif ( $self -> {seen_INTERFACE }
562
563
or $self -> {seen_INTERFACE_MACRO })
0 commit comments