diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 23:57:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 23:57:15 +0000 |
| commit | 91487cfc840e1faf4dbb6a4f7eb906993cbed22f (patch) | |
| tree | e47f2c7ff75e63d5711c0aae47ad0b5570b2f706 /pp_hot.c | |
| parent | f4a52aff9b1e11a878305cd5b36d86036be0dc2b (diff) | |
| download | perl-91487cfc840e1faf4dbb6a4f7eb906993cbed22f.tar.gz | |
Oh, bother. In Tru64 cc -std1 was looking rather nice
in speed (upto 20% speedup in certain operations) but meanwhile
regexps and arithmetics got slower (5-10%) (according to
perlbench average speedup is negligible, and within measuring
flutter, 1%). Therefore retracting all the changes
aimed at getting -std1 to compile cleanly: #12475, #12476,
#12479, #12480, #12481, #12482, #12483, #12484.
p4raw-id: //depot/perl@12485
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -590,7 +590,7 @@ PP(pp_print) goto had_magic; if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) report_evil_fh(gv, io, PL_op->op_type); - SETERRNO(EBADF,VMS_RMS_IFI); + SETERRNO(EBADF,RMS$_IFI); goto just_say_no; } else if (!(fp = IoOFP(io))) { @@ -600,7 +600,7 @@ PP(pp_print) else if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) report_evil_fh(gv, io, PL_op->op_type); } - SETERRNO(EBADF,IoIFP(io)?VMS_RMS_FAC:VMS_RMS_IFI); + SETERRNO(EBADF,IoIFP(io)?RMS$_FAC:RMS$_IFI); goto just_say_no; } else { |