lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From nwelln...@apache.org
Subject [1/2] git commit: Autogenerate call to Perl bootstrap function
Date Tue, 08 Jul 2014 14:53:20 GMT
Repository: lucy-clownfish
Updated Branches:
  refs/heads/master 2433806e8 -> f4e7f6c09


Autogenerate call to Perl bootstrap function


Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/7f78db45
Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/7f78db45
Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/7f78db45

Branch: refs/heads/master
Commit: 7f78db45f5deaec077add980603b40331de0a127
Parents: 2433806
Author: Nick Wellnhofer <wellnhofer@aevum.de>
Authored: Tue Jul 8 14:25:25 2014 +0200
Committer: Nick Wellnhofer <wellnhofer@aevum.de>
Committed: Tue Jul 8 14:25:25 2014 +0200

----------------------------------------------------------------------
 compiler/src/CFCPerl.c                           | 7 +++++--
 runtime/perl/buildlib/Clownfish/Build/Binding.pm | 3 ---
 2 files changed, 5 insertions(+), 5 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/7f78db45/compiler/src/CFCPerl.c
----------------------------------------------------------------------
diff --git a/compiler/src/CFCPerl.c b/compiler/src/CFCPerl.c
index df5d7d4..ef4a875 100644
--- a/compiler/src/CFCPerl.c
+++ b/compiler/src/CFCPerl.c
@@ -365,6 +365,9 @@ S_xs_file_contents(CFCPerl *self, const char *generated_xs,
         "\n"
         "MODULE = %s   PACKAGE = %s\n"
         "\n"
+        "BOOT:\n"
+        "    %s();\n"
+        "\n"
         "void\n"
         "_init_autobindings()\n"
         "PPCODE:\n"
@@ -379,8 +382,8 @@ S_xs_file_contents(CFCPerl *self, const char *generated_xs,
         "%s";
     char *contents
         = CFCUtil_sprintf(pattern, self->header, generated_xs,
-                          self->boot_class, self->boot_class, xs_init,
-                          hand_rolled_xs, self->footer);
+                          self->boot_class, self->boot_class, self->boot_func,
+                          xs_init, hand_rolled_xs, self->footer);
 
     return contents;
 }

http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/7f78db45/runtime/perl/buildlib/Clownfish/Build/Binding.pm
----------------------------------------------------------------------
diff --git a/runtime/perl/buildlib/Clownfish/Build/Binding.pm b/runtime/perl/buildlib/Clownfish/Build/Binding.pm
index 3fc9bf1..01f87f8 100644
--- a/runtime/perl/buildlib/Clownfish/Build/Binding.pm
+++ b/runtime/perl/buildlib/Clownfish/Build/Binding.pm
@@ -39,9 +39,6 @@ sub bind_clownfish {
     my $xs_code = <<'END_XS_CODE';
 MODULE = Clownfish    PACKAGE = Clownfish
 
-BOOT:
-    cfish_Clownfish_bootstrap();
-
 IV
 _dummy_function()
 CODE:


Mime
View raw message