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/07/31 15:56:37 UTC
git commit: Fix whitespace in generated callbacks
Repository: lucy-clownfish
Updated Branches:
refs/heads/master 2981de38d -> 94a0410a0
Fix whitespace in generated callbacks
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/94a0410a
Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/94a0410a
Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/94a0410a
Branch: refs/heads/master
Commit: 94a0410a0104af71c929f40cabd536ed4e263ea6
Parents: 2981de3
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Thu Jul 31 15:56:10 2014 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Thu Jul 31 15:56:10 2014 +0200
----------------------------------------------------------------------
compiler/src/CFCPerlMethod.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/94a0410a/compiler/src/CFCPerlMethod.c
----------------------------------------------------------------------
diff --git a/compiler/src/CFCPerlMethod.c b/compiler/src/CFCPerlMethod.c
index 20a82e6..2aad102 100644
--- a/compiler/src/CFCPerlMethod.c
+++ b/compiler/src/CFCPerlMethod.c
@@ -520,7 +520,7 @@ S_callback_start(CFCMethod *method) {
if (num_args > 1) {
char num_buf[20];
sprintf(num_buf, "%d", (int)strlen(name));
- params = CFCUtil_cat(params, " mPUSHp(\"", name, "\", ",
+ params = CFCUtil_cat(params, " mPUSHp(\"", name, "\", ",
num_buf, ");\n", NULL);
}
@@ -538,7 +538,7 @@ S_callback_start(CFCMethod *method) {
// Convert primitive integer types to IV Perl scalars.
int width = (int)CFCType_get_width(type);
if (width != 0 && width <= 4) {
- params = CFCUtil_cat(params, " mPUSHi(",
+ params = CFCUtil_cat(params, " mPUSHi(",
name, ");\n", NULL);
}
else {
@@ -555,7 +555,7 @@ S_callback_start(CFCMethod *method) {
}
else if (CFCType_is_floating(type)) {
// Convert primitive floating point types to NV Perl scalars.
- params = CFCUtil_cat(params, " mPUSHn(",
+ params = CFCUtil_cat(params, " mPUSHn(",
name, ");\n", NULL);
}
else {