From 213aefefa331874b5c4402a8ba1c3c74ea350a9e Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 31 Dec 2003 00:32:08 +0100
Subject: 	* demos/perl/typemap (gmp_UV): New type.

---
 demos/perl/typemap | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'demos/perl')

diff --git a/demos/perl/typemap b/demos/perl/typemap
index d39cd2667..69dc3ec50 100644
--- a/demos/perl/typemap
+++ b/demos/perl/typemap
@@ -38,6 +38,8 @@ ulong_coerce		ULONG_COERCE
 malloced_string		MALLOCED_STRING
 order_noswap		ORDER_NOSWAP
 dummy			DUMMY
+# perl 5.005 doesn't have UV in its standard typemap, so use this instead
+gmp_UV			GMP_UV
 
 
 INPUT
@@ -93,3 +95,5 @@ RANDSTATE
     sv_setref_pv ($arg, rand_class, $var);
 MALLOCED_STRING
     sv_usepvn_mg ($arg, $var, strlen($var));
+GMP_UV
+    sv_setuv ($arg, (UV) ($var));
-- 
cgit v1.2.1