Repository: lucy-clownfish Updated Branches: refs/heads/master 165f9ffff -> a32faa7c3
Fix segfault with empty PerlClass registry Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/a32faa7c Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/a32faa7c Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/a32faa7c Branch: refs/heads/master Commit: a32faa7c3a876557fbb7ab760c145ec394654c9b Parents: 165f9ff Author: Nick Wellnhofer <[email protected]> Authored: Mon Aug 4 17:39:19 2014 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Mon Aug 4 17:41:00 2014 +0200 ---------------------------------------------------------------------- compiler/src/CFCPerlClass.c | 3 +++ 1 file changed, 3 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/a32faa7c/compiler/src/CFCPerlClass.c ---------------------------------------------------------------------- diff --git a/compiler/src/CFCPerlClass.c b/compiler/src/CFCPerlClass.c index ab8c846..7c018de 100644 --- a/compiler/src/CFCPerlClass.c +++ b/compiler/src/CFCPerlClass.c @@ -150,6 +150,9 @@ CFCPerlClass_singleton(const char *class_name) { CFCPerlClass** CFCPerlClass_registry() { + if (!registry) { + registry = (CFCPerlClass**)CALLOCATE(1, sizeof(CFCPerlClass*)); + } return registry; }
