Change 13401 by jhi@alpha on 2001/12/01 15:48:13
Subject: [REPATCH] reference pointer comparison
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Sat, 1 Dec 2001 13:00:17 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/pp.c#316 edit
Differences ...
==== //depot/perl/pp.c#316 (text) ====
Index: perl/pp.c
--- perl/pp.c.~1~ Sat Dec 1 09:00:05 2001
+++ perl/pp.c Sat Dec 1 09:00:05 2001
@@ -1544,11 +1544,14 @@
}
#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 @@
}
#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 @@
}
#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 @@
}
#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;
End of Patch.
