diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-11-24 21:06:36 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-11-24 21:45:22 -0700 |
commit | 5aaab254c02795622bdf42e348ad8473aa1fc643 (patch) | |
tree | 341c84b4a4867c96c3bcd4a63d34c244356054ce /doio.c | |
parent | a8bd0d47f960000fee81e97d55dd5e8bac15e034 (diff) | |
download | perl-5aaab254c02795622bdf42e348ad8473aa1fc643.tar.gz |
Remove "register" declarations
This finishes the removal of register declarations started by
eb578fdb5569b91c28466a4d1939e381ff6ceaf4. It neglected the ones in
function parameter declarations, and didn't include things in dist, ext,
and lib, which this does include
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -61,7 +61,7 @@ #include <signal.h> bool -Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw, +Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num_svs) { @@ -706,7 +706,7 @@ say_false: } PerlIO * -Perl_nextargv(pTHX_ register GV *gv) +Perl_nextargv(pTHX_ GV *gv) { dVAR; SV *sv; @@ -1199,7 +1199,7 @@ my_chsize(int fd, Off_t length) #endif /* !HAS_TRUNCATE && !HAS_CHSIZE */ bool -Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) +Perl_do_print(pTHX_ SV *sv, PerlIO *fp) { dVAR; @@ -1382,7 +1382,7 @@ S_exec_failed(pTHX_ const char *cmd, int fd, int do_report) } bool -Perl_do_aexec5(pTHX_ SV *really, register SV **mark, register SV **sp, +Perl_do_aexec5(pTHX_ SV *really, SV **mark, SV **sp, int fd, int do_report) { dVAR; @@ -1571,7 +1571,7 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report) #endif I32 -Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp) +Perl_apply(pTHX_ I32 type, SV **mark, SV **sp) { dVAR; I32 val; @@ -1874,7 +1874,7 @@ nothing in the core. /* Do the permissions allow some operation? Assumes statcache already set. */ #ifndef VMS /* VMS' cando is in vms.c */ bool -Perl_cando(pTHX_ Mode_t mode, bool effective, register const Stat_t *statbufp) +Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t *statbufp) /* effective is a flag, true for EUID, or for checking if the effective gid * is in the list of groups returned from getgroups(). */ |