Remove Err_To_Host The specialization was only needed to enable overloading of Perl objects.
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/bea287db Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/bea287db Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/bea287db Branch: refs/heads/master Commit: bea287db46c020e2744593e72f2f16b5c958d06e Parents: 63accb5 Author: Nick Wellnhofer <[email protected]> Authored: Tue May 12 17:50:32 2015 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Mon May 18 21:25:33 2015 +0200 ---------------------------------------------------------------------- runtime/c/src/Clownfish/Err.c | 7 ------- runtime/core/Clownfish/Err.cfh | 3 --- runtime/example-lang/src/Clownfish/Err.c | 6 ------ runtime/go/ext/clownfish.c | 7 ------- runtime/perl/xs/XSBind.c | 10 ---------- 5 files changed, 33 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/bea287db/runtime/c/src/Clownfish/Err.c ---------------------------------------------------------------------- diff --git a/runtime/c/src/Clownfish/Err.c b/runtime/c/src/Clownfish/Err.c index ec588db..1956293 100644 --- a/runtime/c/src/Clownfish/Err.c +++ b/runtime/c/src/Clownfish/Err.c @@ -177,13 +177,6 @@ Err_do_throw(Err *error) { } } -void* -Err_To_Host_IMP(Err *self) { - UNUSED_VAR(self); - THROW(ERR, "TODO"); - UNREACHABLE_RETURN(void*); -} - void Err_throw_mess(Class *klass, String *message) { UNUSED_VAR(klass); http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/bea287db/runtime/core/Clownfish/Err.cfh ---------------------------------------------------------------------- diff --git a/runtime/core/Clownfish/Err.cfh b/runtime/core/Clownfish/Err.cfh index da63a0f..db56849 100644 --- a/runtime/core/Clownfish/Err.cfh +++ b/runtime/core/Clownfish/Err.cfh @@ -55,9 +55,6 @@ public class Clownfish::Err inherits Clownfish::Obj { public incremented String* To_String(Err *self); - void* - To_Host(Err *self); - /** Concatenate the supplied argument onto the internal "mess". */ public void http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/bea287db/runtime/example-lang/src/Clownfish/Err.c ---------------------------------------------------------------------- diff --git a/runtime/example-lang/src/Clownfish/Err.c b/runtime/example-lang/src/Clownfish/Err.c index 6cb5027..9134900 100644 --- a/runtime/example-lang/src/Clownfish/Err.c +++ b/runtime/example-lang/src/Clownfish/Err.c @@ -36,12 +36,6 @@ cfish_Err_do_throw(cfish_Err *err) { THROW(CFISH_ERR, "TODO"); } -void* -CFISH_Err_To_Host_IMP(cfish_Err *self) { - THROW(CFISH_ERR, "TODO"); - UNREACHABLE_RETURN(void*); -} - void cfish_Err_throw_mess(cfish_Class *klass, cfish_String *message) { THROW(CFISH_ERR, "TODO"); http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/bea287db/runtime/go/ext/clownfish.c ---------------------------------------------------------------------- diff --git a/runtime/go/ext/clownfish.c b/runtime/go/ext/clownfish.c index c6f5f0b..dc88dee 100644 --- a/runtime/go/ext/clownfish.c +++ b/runtime/go/ext/clownfish.c @@ -219,13 +219,6 @@ Err_do_throw(Err *error) { GoCfish_PanicErr(error); } -void* -Err_To_Host_IMP(Err *self) { - UNUSED_VAR(self); - THROW(ERR, "TODO"); - UNREACHABLE_RETURN(void*); -} - void Err_throw_mess(Class *klass, String *message) { UNUSED_VAR(klass); http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/bea287db/runtime/perl/xs/XSBind.c ---------------------------------------------------------------------- diff --git a/runtime/perl/xs/XSBind.c b/runtime/perl/xs/XSBind.c index 4e45e13..9322098 100644 --- a/runtime/perl/xs/XSBind.c +++ b/runtime/perl/xs/XSBind.c @@ -977,16 +977,6 @@ cfish_Err_do_throw(cfish_Err *err) { LEAVE; } -void* -CFISH_Err_To_Host_IMP(cfish_Err *self) { - dTHX; - CFISH_Err_To_Host_t super_to_host - = CFISH_SUPER_METHOD_PTR(CFISH_ERR, CFISH_Err_To_Host); - SV *perl_obj = (SV*)super_to_host(self); - XSBind_enable_overload(aTHX_ perl_obj); - return perl_obj; -} - void cfish_Err_throw_mess(cfish_Class *klass, cfish_String *message) { CFISH_UNUSED_VAR(klass);
