jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[allegrocl] Use fully qualified symbol name for cl::identity

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11935 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Mikel Bancroft 2010-03-10 19:38:24 +00:00
commit 541bc7d435
2 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGES.current
View file

@ -1,6 +1,9 @@
Version 2.0.0 (in progress) Version 2.0.0 (in progress)
============================ ============================
2010-03-10: mutandiz (Mikel Bancroft)
[allegrocl] Use fully qualified symbol name of cl::identity in emit_defun().
2010-03-06: wsfulton 2010-03-06: wsfulton
[Java] The intermediary JNI class modifiers are now public by default meaning these [Java] The intermediary JNI class modifiers are now public by default meaning these
intermediary low level functions are now accessible by default from outside any package intermediary low level functions are now accessible by default from outside any package

7
Source/Modules/allegrocl.cxx
View file

@ -1669,13 +1669,8 @@ int ALLEGROCL::top(Node *n) {
Printf(f_clhead, "(in-package :%s)\n", module_name); Printf(f_clhead, "(in-package :%s)\n", module_name);
// Swig_print_tree(n);
Language::top(n); Language::top(n);
// SwigType_emit_type_table(f_runtime,f_cxx_wrapper);
// Swig_print_tree(n);
#ifdef ALLEGROCL_TYPE_DEBUG #ifdef ALLEGROCL_TYPE_DEBUG
dump_linked_types(stderr); dump_linked_types(stderr);
#endif #endif
@ -2538,7 +2533,7 @@ int ALLEGROCL::emit_defun(Node *n, File *fcl) {
// NewStringf("(push (swig-ff-call%s) ACL_result)", wrap->locals))); // NewStringf("(push (swig-ff-call%s) ACL_result)", wrap->locals)));
String *ldestructor = Copy(lclass); String *ldestructor = Copy(lclass);
if (ff_foreign_ptr) if (ff_foreign_ptr)
Replaceall(ldestructor, ldestructor, "identity"); Replaceall(ldestructor, ldestructor, "cl::identity");
else else
Replaceall(ldestructor, ":type :class", ":type :destructor"); Replaceall(ldestructor, ":type :class", ":type :destructor");
Replaceall(wrap->code, "$ldestructor", ldestructor); Replaceall(wrap->code, "$ldestructor", ldestructor);