diff options
| author | Tim Jenness <tjenness@cpan.org> | 2001-03-27 06:34:03 -1000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 14:43:59 +0000 |
| commit | aa921f48035f298291146b3a8d6f142ec7cf8696 (patch) | |
| tree | f5f514731aad1d3e6e03aa687f33a008208947bc /ext/XS | |
| parent | 7272584d0d275e06fe4442e1b6aecb95109596e4 (diff) | |
| download | perl-aa921f48035f298291146b3a8d6f142ec7cf8696.tar.gz | |
Re: [PATCH] Typemap testing
Message-ID: <Pine.LNX.4.30.0103271633030.21198-100000@lapaki.jach.hawaii.edu>
p4raw-id: //depot/perl@9402
Diffstat (limited to 'ext/XS')
| -rw-r--r-- | ext/XS/Typemap/Typemap.pm | 2 | ||||
| -rw-r--r-- | ext/XS/Typemap/Typemap.xs | 8 | ||||
| -rw-r--r-- | ext/XS/Typemap/typemap | 1 |
3 files changed, 10 insertions, 1 deletions
diff --git a/ext/XS/Typemap/Typemap.pm b/ext/XS/Typemap/Typemap.pm index f14a0d20fa..ccfdfb1a81 100644 --- a/ext/XS/Typemap/Typemap.pm +++ b/ext/XS/Typemap/Typemap.pm @@ -67,7 +67,7 @@ $VERSION = '0.01'; T_REF_IV_PTR_IN T_REF_IV_PTR_OUT T_PTROBJ_IN T_PTROBJ_OUT T_OPAQUE_IN T_OPAQUE_array - T_OPAQUEPTR_IN T_OPAQUEPTR_OUT + T_OPAQUEPTR_IN T_OPAQUEPTR_OUT T_OPAQUEPTR_OUT_short T_ARRAY T_STDIO_open T_STDIO_close T_STDIO_print /); diff --git a/ext/XS/Typemap/Typemap.xs b/ext/XS/Typemap/Typemap.xs index 7c24c447c1..ce8bb7cccd 100644 --- a/ext/XS/Typemap/Typemap.xs +++ b/ext/XS/Typemap/Typemap.xs @@ -584,6 +584,14 @@ T_OPAQUEPTR_OUT( ptr ) OUTPUT: RETVAL +short +T_OPAQUEPTR_OUT_short( ptr ) + shortOPQ * ptr + CODE: + RETVAL = *ptr; + OUTPUT: + RETVAL + =item T_OPAQUE This can be used to store pointers to non-pointer types in an SV. It diff --git a/ext/XS/Typemap/typemap b/ext/XS/Typemap/typemap index 909221d059..12928c4dc2 100644 --- a/ext/XS/Typemap/typemap +++ b/ext/XS/Typemap/typemap @@ -15,3 +15,4 @@ intArray * T_ARRAY intOpq T_IV intOpq * T_OPAQUEPTR shortOPQ T_OPAQUE +shortOPQ * T_OPAQUEPTR |