You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2015/12/01 17:10:10 UTC
[4/6] lucy-clownfish git commit: Un-inline XSBind_sv_defined
Un-inline XSBind_sv_defined
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/7ad8fd8e
Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/7ad8fd8e
Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/7ad8fd8e
Branch: refs/heads/master
Commit: 7ad8fd8e462170f2c82b2f7f80a8100a88e444e2
Parents: dfc084e
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Tue Dec 1 16:02:56 2015 +0100
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Tue Dec 1 16:06:03 2015 +0100
----------------------------------------------------------------------
runtime/perl/xs/XSBind.c | 7 +++++++
runtime/perl/xs/XSBind.h | 8 ++------
2 files changed, 9 insertions(+), 6 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/7ad8fd8e/runtime/perl/xs/XSBind.c
----------------------------------------------------------------------
diff --git a/runtime/perl/xs/XSBind.c b/runtime/perl/xs/XSBind.c
index 314387b..813afe0 100644
--- a/runtime/perl/xs/XSBind.c
+++ b/runtime/perl/xs/XSBind.c
@@ -89,6 +89,13 @@ XSBind_foster_obj(pTHX_ SV *sv, cfish_Class *klass) {
}
bool
+XSBind_sv_defined(pTHX_ SV *sv) {
+ if (!sv || !SvANY(sv)) { return false; }
+ if (SvGMAGICAL(sv)) { mg_get(sv); }
+ return !!SvOK(sv);
+}
+
+bool
XSBind_sv_true(pTHX_ SV *sv) {
return !!SvTRUE(sv);
}
http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/7ad8fd8e/runtime/perl/xs/XSBind.h
----------------------------------------------------------------------
diff --git a/runtime/perl/xs/XSBind.h b/runtime/perl/xs/XSBind.h
index fd9f4a2..98e48c7 100644
--- a/runtime/perl/xs/XSBind.h
+++ b/runtime/perl/xs/XSBind.h
@@ -64,12 +64,8 @@ cfish_XSBind_foster_obj(pTHX_ SV *sv, cfish_Class *klass);
/** Test whether an SV is defined. Handles "get" magic, unlike SvOK on its
* own.
*/
-static CFISH_INLINE bool
-cfish_XSBind_sv_defined(pTHX_ SV *sv) {
- if (!sv || !SvANY(sv)) { return false; }
- if (SvGMAGICAL(sv)) { mg_get(sv); }
- return !!SvOK(sv);
-}
+CFISH_VISIBLE bool
+cfish_XSBind_sv_defined(pTHX_ SV *sv);
/** Test whether an SV is true. Wraps the expensive SvTRUE macro in a
* function.