Fix seg fault wrapping some constant variable (%constant) types

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11137 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2009-02-21 00:56:41 +00:00
commit 1f69806cbb
3 changed files with 5 additions and 4 deletions

View file

@ -1,6 +1,9 @@
Version 1.3.39 (in progress)
============================
2008-02-21: wsfulton
[Allegrocl] Fix seg fault wrapping some constant variable (%constant) types.
2008-02-20: wsfulton
[CFFI] Fix seg faults when for %extend and using statements.

View file

@ -114,9 +114,8 @@ run_testcase = \
env LD_LIBRARY_PATH=.:$$LD_LIBRARY_PATH $(RUNTOOL) $(ALLEGROCLBIN) -batch -s $(srcdir)/$(SCRIPTPREFIX)$*$(SCRIPTSUFFIX);) \
fi;
# Clean: (does nothing, we dont generate extra allegrocl code)
%.clean:
@rm -f $*.cl
clean:
$(MAKE) -f $(top_builddir)/$(EXAMPLES)/Makefile allegrocl_clean

View file

@ -2813,11 +2813,10 @@ int ALLEGROCL::constantWrapper(Node *n) {
}
SwigType_add_qualifier(const_type, "const");
SwigType_add_qualifier(const_type, "static");
String *ppcname = NewStringf("ACLppc_%s", Getattr(n, "sym:name"));
// Printf(f_runtime, "static const %s = %s;\n", SwigType_lstr(const_type, ppcname), const_val);
Printf(f_runtime, "%s = %s;\n", SwigType_lstr(const_type, ppcname), const_val);
Printf(f_runtime, "static %s = %s;\n", SwigType_lstr(const_type, ppcname), const_val);
Setattr(n, "name", ppcname);
SetFlag(n, "feature:immutable");