Change 29552 by [EMAIL PROTECTED] on 2006/12/13 20:56:24
Swap the order of PERL_FBM_PREVIOUS_{L,H}_OFFSET_FROM_TABLE on little
endian machines to hint to the compiler that a 16 bit read could work.
Affected files ...
... //depot/perl/sv.h#302 edit
Differences ...
==== //depot/perl/sv.h#302 (text) ====
Index: perl/sv.h
--- perl/sv.h#301~29551~ 2006-12-13 11:55:08.000000000 -0800
+++ perl/sv.h 2006-12-13 12:56:24.000000000 -0800
@@ -1334,8 +1334,13 @@
#define PERL_FBM_TABLE_OFFSET 5 /* Number of bytes between EOS and
table */
#define PERL_FBM_FLAGS_OFFSET_FROM_TABLE -1
/* how many characters in string before rare? */
-#define PERL_FBM_PREVIOUS_L_OFFSET_FROM_TABLE -2
-#define PERL_FBM_PREVIOUS_H_OFFSET_FROM_TABLE -3
+#if (BYTEORDER == 0x4321) || (BYTEORDER == 0x87654321)
+# define PERL_FBM_PREVIOUS_L_OFFSET_FROM_TABLE -2
+# define PERL_FBM_PREVIOUS_H_OFFSET_FROM_TABLE -3
+#else
+# define PERL_FBM_PREVIOUS_H_OFFSET_FROM_TABLE -2
+# define PERL_FBM_PREVIOUS_L_OFFSET_FROM_TABLE -3
+#endif
/* rarest character in string */
#define PERL_FBM_RARE_OFFSET_FROM_TABLE -4
End of Patch.
