diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-07-31 01:39:09 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-01 12:18:59 +0000 |
| commit | 40292913857a1f6673784ce0d71c8906c48c369b (patch) | |
| tree | c2f285fbf530ab5d7d8a2b716777ab7acd132f93 /utils | |
| parent | 9df548ee6c72d2540cc8aac7e738eff1202a7278 (diff) | |
| download | perl-40292913857a1f6673784ce0d71c8906c48c369b.tar.gz | |
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
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; |