diff options
| author | Andy Lester <andy@petdance.com> | 2006-07-02 07:11:39 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-03 16:51:05 +0000 |
| commit | 88e01c9dba7e9c1403ea12dc83a20252782bb76f (patch) | |
| tree | 82275801a324f1d893b13ae45cbf7f628e283431 /perlapi.c | |
| parent | abcf5adaceac1bafa95366e633b9de5667a997e3 (diff) | |
| download | perl-88e01c9dba7e9c1403ea12dc83a20252782bb76f.tar.gz | |
embed.pl enhancements
Message-ID: <20060702171139.GA20266@petdance.com>
Add experimental (and optional) splint support
p4raw-id: //depot/perl@28472
Diffstat (limited to 'perlapi.c')
| -rw-r--r-- | perlapi.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -77,17 +77,17 @@ START_EXTERN_C #undef PL_check #undef PL_fold_locale Perl_ppaddr_t** Perl_Gppaddr_ptr(pTHX) { - static const Perl_ppaddr_t* const ppaddr_ptr = PL_ppaddr; + static Perl_ppaddr_t* const ppaddr_ptr = PL_ppaddr; PERL_UNUSED_CONTEXT; return (Perl_ppaddr_t**)&ppaddr_ptr; } Perl_check_t** Perl_Gcheck_ptr(pTHX) { - static const Perl_check_t* const check_ptr = PL_check; + static Perl_check_t* const check_ptr = PL_check; PERL_UNUSED_CONTEXT; return (Perl_check_t**)&check_ptr; } unsigned char** Perl_Gfold_locale_ptr(pTHX) { - static const unsigned char* const fold_locale_ptr = PL_fold_locale; + static unsigned char* const fold_locale_ptr = PL_fold_locale; PERL_UNUSED_CONTEXT; return (unsigned char**)&fold_locale_ptr; } |