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/05/18 21:29:35 UTC
[09/10] lucy-clownfish git commit: Remove XSBind_enable_overload
Remove XSBind_enable_overload
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/2aac5c21
Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/2aac5c21
Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/2aac5c21
Branch: refs/heads/master
Commit: 2aac5c21f3146b5c542fc027a6ec20c952d396c0
Parents: bea287d
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Tue May 12 17:52:03 2015 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Mon May 18 21:25:33 2015 +0200
----------------------------------------------------------------------
runtime/perl/xs/XSBind.c | 6 ------
runtime/perl/xs/XSBind.h | 6 ------
2 files changed, 12 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/2aac5c21/runtime/perl/xs/XSBind.c
----------------------------------------------------------------------
diff --git a/runtime/perl/xs/XSBind.c b/runtime/perl/xs/XSBind.c
index 9322098..1e2aa7e 100644
--- a/runtime/perl/xs/XSBind.c
+++ b/runtime/perl/xs/XSBind.c
@@ -401,12 +401,6 @@ XSBind_trap(SV *routine, SV *context) {
return cfish_Err_trap(S_attempt_perl_call, &args);
}
-void
-XSBind_enable_overload(pTHX_ void *pobj) {
- SV *perl_obj = (SV*)pobj;
- SvAMAGIC_on(perl_obj);
-}
-
static bool
S_extract_from_sv(pTHX_ SV *value, void *target, const char *label,
bool required, int type, cfish_Class *klass,
http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/2aac5c21/runtime/perl/xs/XSBind.h
----------------------------------------------------------------------
diff --git a/runtime/perl/xs/XSBind.h b/runtime/perl/xs/XSBind.h
index 93e0c03..976d3da 100644
--- a/runtime/perl/xs/XSBind.h
+++ b/runtime/perl/xs/XSBind.h
@@ -153,11 +153,6 @@ cfish_XSBind_str_to_sv(pTHX_ cfish_String *str);
cfish_Err*
cfish_XSBind_trap(SV *routine, SV *context);
-/** Turn on overloading for the supplied Perl object and its class.
- */
-CFISH_VISIBLE void
-cfish_XSBind_enable_overload(pTHX_ void *pobj);
-
/** Process hash-style params passed to an XS subroutine. The varargs must be
* a NULL-terminated series of ALLOT_ macros.
*
@@ -328,7 +323,6 @@ cfish_XSBind_allot_params(pTHX_ SV** stack, int32_t start,
#define XSBind_bb_to_sv cfish_XSBind_bb_to_sv
#define XSBind_str_to_sv cfish_XSBind_str_to_sv
#define XSBind_trap cfish_XSBind_trap
-#define XSBind_enable_overload cfish_XSBind_enable_overload
#define XSBind_allot_params cfish_XSBind_allot_params
#define ALLOT_I8 XSBIND_ALLOT_I8
#define ALLOT_I16 XSBIND_ALLOT_I16