From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 31 Jul 2001 05:39:09 +0000 (-0400)
Subject: Allow for long long in h2xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40292913857a1f6673784ce0d71c8906c48c369b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;