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 2014/03/18 17:37:07 UTC
[lucy-commits] git commit: Fix Perl bindings for $parcel->lookup_struct_sym
Repository: lucy-clownfish
Updated Branches:
refs/heads/master b2657985b -> ecf4907c9
Fix Perl bindings for $parcel->lookup_struct_sym
Switch to S_cfcbase_to_perlref.
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/ecf4907c
Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/ecf4907c
Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/ecf4907c
Branch: refs/heads/master
Commit: ecf4907c9ef5d8fe0b5f0074f17b57d4277d63e3
Parents: b265798
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Tue Mar 18 16:00:50 2014 +0100
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Tue Mar 18 16:02:18 2014 +0100
----------------------------------------------------------------------
compiler/perl/lib/Clownfish/CFC.xs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/ecf4907c/compiler/perl/lib/Clownfish/CFC.xs
----------------------------------------------------------------------
diff --git a/compiler/perl/lib/Clownfish/CFC.xs b/compiler/perl/lib/Clownfish/CFC.xs
index daa2b35..a9a08ed 100644
--- a/compiler/perl/lib/Clownfish/CFC.xs
+++ b/compiler/perl/lib/Clownfish/CFC.xs
@@ -1155,12 +1155,13 @@ add_struct_sym(self, struct_sym)
PPCODE:
CFCParcel_add_struct_sym(self, struct_sym);
-CFCParcel*
+SV*
lookup_struct_sym(self, struct_sym)
CFCParcel *self;
const char *struct_sym;
CODE:
- RETVAL = CFCParcel_lookup_struct_sym(self, struct_sym);
+ CFCParcel *parcel = CFCParcel_lookup_struct_sym(self, struct_sym);
+ RETVAL = S_cfcbase_to_perlref(parcel);
OUTPUT: RETVAL
void