Change 11528 by jhi@alpha on 2001/08/01 12:18:59
Subject: [PATCH 5.7.2] Allow for long long in h2xs
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Tue, 31 Jul 2001 05:39:09 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/utils/h2xs.PL#63 edit
Differences ...
==== //depot/perl/utils/h2xs.PL#63 (text) ====
Index: perl/utils/h2xs.PL
--- perl/utils/h2xs.PL.~1~ Wed Aug 1 06:30:05 2001
+++ perl/utils/h2xs.PL Wed Aug 1 06:30:05 2001
@@ -1587,6 +1587,8 @@
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;
End of Patch.
