@@ -1095,21 +1095,21 @@ QAST::Operations.add_core_pirop_mapping('multicachefind', 'multi_cache_find', 'P
1095
1095
1096
1096
# Constant mapping.
1097
1097
my % const_map := nqp ::hash(
1098
- ' CCLASS_ANY' , nqp ::const::CCLASS_ANY,
1099
- ' CCLASS_NUMERIC' , nqp ::const::CCLASS_NUMERIC,
1100
- ' CCLASS_WHITESPACE' , nqp ::const::CCLASS_WHITESPACE,
1101
- ' CCLASS_WORD' , nqp ::const::CCLASS_WORD,
1102
- ' CCLASS_NEWLINE' , nqp ::const::CCLASS_NEWLINE,
1103
- ' CCLASS_NEWLINE' , nqp ::const::CCLASS_NEWLINE,
1104
- ' CCLASS_ALPHABETIC' , nqp ::const::CCLASS_ALPHABETIC,
1105
- ' CCLASS_UPPERCASE' , nqp ::const::CCLASS_UPPERCASE,
1106
- ' CCLASS_LOWERCASE' , nqp ::const::CCLASS_LOWERCASE,
1107
- ' CCLASS_NUMERIC' , nqp ::const::CCLASS_NUMERIC,
1108
- ' CCLASS_HEXADECIMAL' , nqp ::const::CCLASS_HEXADECIMAL,
1109
- ' CCLASS_BLANK' , nqp ::const::CCLASS_BLANK,
1110
- ' CCLASS_CONTROL' , nqp ::const::CCLASS_CONTROL,
1111
- ' CCLASS_PUNCTUATION' , nqp ::const::CCLASS_PUNCTUATION,
1112
- ' CCLASS_ALPHANUMERIC' , nqp ::const::CCLASS_ALPHANUMERIC
1098
+ ' CCLASS_ANY' , pir ::const::CCLASS_ANY,
1099
+ ' CCLASS_NUMERIC' , pir ::const::CCLASS_NUMERIC,
1100
+ ' CCLASS_WHITESPACE' , pir ::const::CCLASS_WHITESPACE,
1101
+ ' CCLASS_WORD' , pir ::const::CCLASS_WORD,
1102
+ ' CCLASS_NEWLINE' , pir ::const::CCLASS_NEWLINE,
1103
+ ' CCLASS_NEWLINE' , pir ::const::CCLASS_NEWLINE,
1104
+ ' CCLASS_ALPHABETIC' , pir ::const::CCLASS_ALPHABETIC,
1105
+ ' CCLASS_UPPERCASE' , pir ::const::CCLASS_UPPERCASE,
1106
+ ' CCLASS_LOWERCASE' , pir ::const::CCLASS_LOWERCASE,
1107
+ ' CCLASS_NUMERIC' , pir ::const::CCLASS_NUMERIC,
1108
+ ' CCLASS_HEXADECIMAL' , pir ::const::CCLASS_HEXADECIMAL,
1109
+ ' CCLASS_BLANK' , pir ::const::CCLASS_BLANK,
1110
+ ' CCLASS_CONTROL' , pir ::const::CCLASS_CONTROL,
1111
+ ' CCLASS_PUNCTUATION' , pir ::const::CCLASS_PUNCTUATION,
1112
+ ' CCLASS_ALPHANUMERIC' , pir ::const::CCLASS_ALPHANUMERIC
1113
1113
);
1114
1114
QAST ::Operations. add_core_op(' const' , -> $ qastcomp , $ op {
1115
1115
if nqp ::existskey(% const_map , $ op . name ) {
0 commit comments