add fail: label for the get methods always, just in case someone write a 'varout' typemap that need it

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8682 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-02-02 22:56:15 +00:00
commit 41beef4aba
4 changed files with 12 additions and 24 deletions

View file

@ -1433,22 +1433,19 @@ public:
Wrapper_add_local(getf,"_val","VALUE _val");
tm = Swig_typemap_lookup_new("varout",n, name, 0);
int addfail = 0;
if (tm) {
Replaceall(tm,"$result","_val");
Replaceall(tm,"$target","_val");
Replaceall(tm,"$source",name);
/* Printv(getf->code,tm, NIL); */
addfail = emit_action_code(n, getf, tm);
emit_action_code(n, getf, tm);
} else {
Swig_warning(WARN_TYPEMAP_VAROUT_UNDEF, input_file, line_number,
"Unable to read variable of type %s\n", SwigType_str(t,0));
}
Printv(getf->code, tab4, "return _val;\n", NIL);
if (addfail) {
Append(getf->code,"fail:\n");
Append(getf->code," return Qnil;\n");
}
Append(getf->code,"fail:\n");
Append(getf->code," return Qnil;\n");
Append(getf->code,"}\n");
Wrapper_print(getf,f_wrappers);