diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2011-10-12 10:13:10 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-10-12 10:13:10 +0000 |
| commit | adb7dc9f4414e23bad1815fe592f74cfe7ff956e (patch) | |
| tree | 45893170056bf765d6d3a1b30abaed7d0ba684ea /tcl_class.c | |
| parent | a3e880fded283532ebd709160278f0aff768066d (diff) | |
some fixes
svn path=/trunk/externals/loaders/tclpd/; revision=15573
Diffstat (limited to 'tcl_class.c')
| -rw-r--r-- | tcl_class.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tcl_class.c b/tcl_class.c index b5d98d9..4e17bc7 100644 --- a/tcl_class.c +++ b/tcl_class.c @@ -233,7 +233,7 @@ t_tcl* tclpd_new(t_symbol* classsym, int ac, t_atom* at) { return x; error: - tclpd_interp_error(TCL_ERROR); + tclpd_interp_error(NULL, TCL_ERROR); for(int i = 0; i < (ac+2); i++) { if(!av[i]) break; Tcl_DecrRefCount(av[i]); @@ -302,7 +302,7 @@ void tclpd_inlet_anything(t_tcl* x, int inlet, t_symbol* s, int ac, t_atom* at) return; error: - tclpd_interp_error(TCL_ERROR); + tclpd_interp_error(x, TCL_ERROR); for(int i=0; i < (ac+3); i++) { if(!av[i]) break; Tcl_DecrRefCount(av[i]); @@ -399,12 +399,12 @@ void tclpd_save(t_gobj* z, t_binbuf* b) { } } else { pd_error(x, "Tcl: object save: failed"); - tclpd_interp_error(result); + tclpd_interp_error(x, result); } Tcl_DecrRefCount(res); } else { pd_error(x, "Tcl: object save: failed"); - tclpd_interp_error(result); + tclpd_interp_error(x, result); } Tcl_DecrRefCount(av[0]); Tcl_DecrRefCount(av[1]); @@ -427,7 +427,7 @@ void tclpd_properties(t_gobj* z, t_glist* owner) { if(result != TCL_OK) { //res = Tcl_GetObjResult(tcl_for_pd); pd_error(x, "Tcl: object properties: failed"); - tclpd_interp_error(result); + tclpd_interp_error(x, result); } Tcl_DecrRefCount(av[0]); Tcl_DecrRefCount(av[1]); |