[perl #31000] [PATCH] to go on top of perl #30995

[via RT]

# New Ticket Created by  Jarkko Hietaniemi 
# Please include the string:  [perl #31000]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31000 >


To accommodate even more sizeof() combinations and to avoid duplicate
cases in those, ummm, cases.

-- 
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'.  It is 'dead'." -- Jack Cohen


--- classes/unmanagedstruct.pmc.dist    2004-08-08 23:30:23.000000000 +0300
+++ classes/unmanagedstruct.pmc 2004-08-08 23:31:41.000000000 +0300
@@ -225,11 +225,11 @@
 #endif
         case enum_type_int:
             return *(int*) p;
-#if LONG_SIZE == 4
+#if (LONG_SIZE == 4) && !(INT_SIZE == 4) /* Unlikely combination. */
         case enum_type_int32:
         case enum_type_uint32:
 #endif
-#if LONG_SIZE == 8
+#if (LONG_SIZE == 8) && !(INT_SIZE == 8)
         case enum_type_int64:
         case enum_type_uint64:
 #endif