Allow for long long in h2xs

Message-ID: <20010731053909.A1810@math.ohio-state.edu>

(with a note about the case of UV being equal to long long)

p4raw-id: //depot/perl@11528

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 5c3fcff..0a065ec 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -1587,6 +1587,8 @@ sub assign_typemap_entry {
     print "Type mutation via typedefs: $otype ==> $type\n" if $opt_d;
     $entry = assign_typemap_entry($type);
   }
+  # XXX good do better if our UV happens to be long long
+  return "T_NV" if $type =~ /^(unsigned\s+)?long\s+(long|double)\z/;
   $entry ||= $typemap{$otype}
     || (td_is_struct($type) ? "T_OPAQUE_STRUCT" : "T_PTROBJ");
   $typemap{$otype} = $entry;