diff options
| author | Craig A. Berry <craigberry@mac.com> | 2016-02-19 15:33:10 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2016-02-19 16:02:19 -0600 |
| commit | 0172e63ff9dbdedac30a79ff56b7e0299d8d8b71 (patch) | |
| tree | 77de5ba27739fd61b736ac06f4c56344f6197448 | |
| parent | 8f6e7200d0a5f084322eaef83fc8def57c54c37a (diff) | |
| download | perl-0172e63ff9dbdedac30a79ff56b7e0299d8d8b71.tar.gz | |
Cast PL_dump_re_max_len to avoid type mismatch warning.
Specifically this one on VMS:
|| ! grok_atoUV(dump_len_string, &PL_dump_re_max_len, NULL))
.....................................^
%CC-W-PTRMISMATCH, In this statement, the referenced type of the
pointer value "&(my_perl->Idump_re_max_len)" is "unsigned int",
which is not compatible with "unsigned long".
This was new code in 2bfbbbaf9ef1783ba.
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -6720,7 +6720,7 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count, #ifdef DEBUGGING dump_len_string = PerlEnv_getenv("PERL_DUMP_RE_MAX_LEN"); if ( ! dump_len_string - || ! grok_atoUV(dump_len_string, &PL_dump_re_max_len, NULL)) + || ! grok_atoUV(dump_len_string, (UV *)&PL_dump_re_max_len, NULL)) { PL_dump_re_max_len = 0; } |