| 1 | |
| 2 | |
| 3 | |
| 4 | char *str; |
| 5 | { |
| 6 | if (exp_is_debugging) { |
| 7 | - fprintf(stderr,str); |
| 8 | - if (exp_logfile) fprintf(exp_logfile,str); |
| 9 | + fprintf(stderr,"%s",str); |
| 10 | + if (exp_logfile) fprintf(exp_logfile,"%s",str); |
| 11 | } |
| 12 | } |
| 13 | |
| 14 | |
| 15 | |
| 16 | |
| 17 | |
| 18 | exp_slave_control(master,1); |
| 19 | |
| 20 | - sprintf(value,"%d",esPtr->fd_slave); |
| 21 | + sprintf(value,"%ld",esPtr->fd_slave); |
| 22 | Tcl_SetVar2(interp,SPAWN_OUT,"slave,fd",value,0); |
| 23 | } |
| 24 | Tcl_SetObjResult (interp, Tcl_NewIntObj (EXP_NOPID)); |