diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-05 21:10:28 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-13 09:58:39 -0700 |
| commit | 6c6525b86477e0001fa63ee65eb355329aeef26a (patch) | |
| tree | d97b303d08ea8da4572ab0f647d1ee60c95ee3de /embed.fnc | |
| parent | 0bd1039c7cc74c239c7d4974b36c261d7fe40bb3 (diff) | |
| download | perl-6c6525b86477e0001fa63ee65eb355329aeef26a.tar.gz | |
regexec.c: Allow for returning shared swash
This changes the function that returns the swash associated with a
bracketed character class so that it returns the original swash and not
a copy. The function is renamed and made accessible only from within
regexec.c, and a new wrapper function with the original name is created
that just calls the other one and returns a copy of the swash.
Thus, all access from outside regexec.c will use a copy which if
overwritten will not harm others; while the option exists from within
regexec.c to use a shared version.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1967,6 +1967,9 @@ ERs |bool |reginclass |NULLOK const regexp * const prog|NN const regnode * const Es |CHECKPOINT|regcppush |I32 parenfloor Es |char* |regcppop |NN const regexp *rex ERsn |U8* |reghop3 |NN U8 *s|I32 off|NN const U8 *lim +ERsM |SV* |core_regclass_swash|NULLOK const regexp *prog \ + |NN const struct regnode *node|bool doinit \ + |NULLOK SV **listsvp|NULLOK SV **altsvp #ifdef XXX_dmq ERsn |U8* |reghop4 |NN U8 *s|I32 off|NN const U8 *llim \ |NN const U8 *rlim |