diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-19 12:49:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-19 12:49:41 +0000 |
| commit | 81e118e078828ea41cd654ee18f4193484a89cf3 (patch) | |
| tree | 62637e08be5499f11f20df252b484d835c58e171 /proto.h | |
| parent | 41bd693c38b93b50972065296573f26c13cc43d1 (diff) | |
| download | perl-81e118e078828ea41cd654ee18f4193484a89cf3.tar.gz | |
Removed duplicated code (in pp.c and mg.c) by introducing
do_vecget(). NOTE: the calling convention of do_vecset()
changes, too: the `offset' that is assigned to LvTARGOFF(TARG)
in pp_vec() is no more multiplied by `size' in pp_vec(),
the multiplication is now done in do_vecset().
Also fix a cpp thinko in change #4002.
p4raw-link: @4002 on //depot/cfgperl: 24db6c0d56fddf85ee587fc1cb1dbce678fa6a8c
p4raw-id: //depot/cfgperl@4004
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -125,6 +125,7 @@ VIRTUAL void Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg); VIRTUAL Off_t Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence); VIRTUAL Off_t Perl_do_tell(pTHX_ GV* gv); VIRTUAL I32 Perl_do_trans(pTHX_ SV* sv); +VIRTUAL UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size); VIRTUAL void Perl_do_vecset(pTHX_ SV* sv); VIRTUAL void Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right); VIRTUAL OP* Perl_dofile(pTHX_ OP* term); |