diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-12-01 13:00:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-01 15:48:13 +0000 |
| commit | 50fb311132b0e2e94d55d38160ba1815c5c89f0d (patch) | |
| tree | 92eea49d2aafe590742a0edcb564e3c1c1c9f406 /pp.c | |
| parent | 596596d5aabe9911959c06896187615f7af0c5c1 (diff) | |
| download | perl-50fb311132b0e2e94d55d38160ba1815c5c89f0d.tar.gz | |
[REPATCH] reference pointer comparison
Message-ID: <20011201130017.I21702@plum.flirble.org>
p4raw-id: //depot/perl@13401
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 28 |
1 files changed, 20 insertions, 8 deletions
@@ -1544,11 +1544,14 @@ PP(pp_lt) } #endif #ifndef NV_PRESERVES_UV - else if (SvROK(TOPs) && SvROK(TOPm1s)) { - SP--; - SETs(boolSV(SvRV(TOPs) < SvRV(TOPp1s))); - RETURN; - } +#ifdef PERL_PRESERVE_IVUV + else +#endif + if (SvROK(TOPs) && SvROK(TOPm1s)) { + SP--; + SETs(boolSV(SvRV(TOPs) < SvRV(TOPp1s))); + RETURN; + } #endif { dPOPnv; @@ -1619,7 +1622,10 @@ PP(pp_gt) } #endif #ifndef NV_PRESERVES_UV - else if (SvROK(TOPs) && SvROK(TOPm1s)) { +#ifdef PERL_PRESERVE_IVUV + else +#endif + if (SvROK(TOPs) && SvROK(TOPm1s)) { SP--; SETs(boolSV(SvRV(TOPs) > SvRV(TOPp1s))); RETURN; @@ -1694,7 +1700,10 @@ PP(pp_le) } #endif #ifndef NV_PRESERVES_UV - else if (SvROK(TOPs) && SvROK(TOPm1s)) { +#ifdef PERL_PRESERVE_IVUV + else +#endif + if (SvROK(TOPs) && SvROK(TOPm1s)) { SP--; SETs(boolSV(SvRV(TOPs) <= SvRV(TOPp1s))); RETURN; @@ -1769,7 +1778,10 @@ PP(pp_ge) } #endif #ifndef NV_PRESERVES_UV - else if (SvROK(TOPs) && SvROK(TOPm1s)) { +#ifdef PERL_PRESERVE_IVUV + else +#endif + if (SvROK(TOPs) && SvROK(TOPm1s)) { SP--; SETs(boolSV(SvRV(TOPs) >= SvRV(TOPp1s))); RETURN; |