diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-04-18 16:18:30 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-21 15:38:30 +0000 |
| commit | 27da23d53ccce622bc51822f59df8def79b4df95 (patch) | |
| tree | 1202440e0fbf7a2fc1bb54993d11cda7b245f1b4 /pad.c | |
| parent | ec0624293b57ae07d6b2c32bae099d4f163e7e07 (diff) | |
| download | perl-27da23d53ccce622bc51822f59df8def79b4df95.tar.gz | |
Symbian port of Perl
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@24271
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1119,6 +1119,7 @@ Tidy up a pad after we've finished compiling it: void Perl_pad_tidy(pTHX_ padtidy_type type) { + dVAR; PADOFFSET ix; ASSERT_CURPAD_ACTIVE("pad_tidy"); @@ -1368,6 +1369,7 @@ any outer lexicals. CV * Perl_cv_clone(pTHX_ CV *proto) { + dVAR; I32 ix; AV* protopadlist = CvPADLIST(proto); const AV* protopad_name = (AV*)*av_fetch(protopadlist, 0, FALSE); |