diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 12:22:03 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 12:22:03 +0000 |
| commit | 108ccc4560b5d414559c30fa02e7c3ad3a9302f1 (patch) | |
| tree | db51e3c933a3c8242dbbd1d8e945845a80d83576 /XSUB.h | |
| parent | 16086051be220686bdbfcd84683c8399f345d235 (diff) | |
| download | perl-108ccc4560b5d414559c30fa02e7c3ad3a9302f1.tar.gz | |
XSRETURN_UV was missing.
p4raw-id: //depot/perl@21086
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -143,6 +143,9 @@ handled by C<xsubpp>. =for apidoc Am|void|XSRETURN_IV|IV iv Return an integer from an XSUB immediately. Uses C<XST_mIV>. +=for apidoc Am|void|XSRETURN_UV|IV uv +Return an integer from an XSUB immediately. Uses C<XST_mUV>. + =for apidoc Am|void|XSRETURN_NV|NV nv Return a double from an XSUB immediately. Uses C<XST_mNV>. @@ -180,6 +183,7 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. */ #define XST_mIV(i,v) (ST(i) = sv_2mortal(newSViv(v)) ) +#define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) ) #define XST_mNV(i,v) (ST(i) = sv_2mortal(newSVnv(v)) ) #define XST_mPV(i,v) (ST(i) = sv_2mortal(newSVpv(v,0))) #define XST_mPVN(i,v,n) (ST(i) = sv_2mortal(newSVpvn(v,n))) @@ -194,6 +198,7 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. } STMT_END #define XSRETURN_IV(v) STMT_START { XST_mIV(0,v); XSRETURN(1); } STMT_END +#define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END #define XSRETURN_NV(v) STMT_START { XST_mNV(0,v); XSRETURN(1); } STMT_END #define XSRETURN_PV(v) STMT_START { XST_mPV(0,v); XSRETURN(1); } STMT_END #define XSRETURN_PVN(v,n) STMT_START { XST_mPVN(0,v,n); XSRETURN(1); } STMT_END |