diff options
Diffstat (limited to 'utils')
-rw-r--r-- | utils/h2xs.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 5c3fcff51e..0a065ecce8 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; |