diff options
| author | Kevin Ryde <user42@zip.com.au> | 2003-12-31 00:32:08 +0100 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2003-12-31 00:32:08 +0100 |
| commit | 213aefefa331874b5c4402a8ba1c3c74ea350a9e (patch) | |
| tree | f646b3c8b7a2ff58b9cb98f9c1c180b0bff524a3 /demos/perl | |
| parent | 110fc47be9f5218145f25f11460e976aad04dde7 (diff) | |
| download | gmp-213aefefa331874b5c4402a8ba1c3c74ea350a9e.tar.gz | |
* demos/perl/typemap (gmp_UV): New type.
Diffstat (limited to 'demos/perl')
| -rw-r--r-- | demos/perl/typemap | 4 |
1 files changed, 4 insertions, 0 deletions
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)); |