/[gcl]/gcl/o/file.d
ViewVC logotype

Diff of /gcl/o/file.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by camm, Sat May 7 02:44:56 2005 UTC revision 1.45 by camm, Fri Jun 10 15:13:53 2005 UTC
# Line 391  object if_exists, if_does_not_exist; Line 391  object if_exists, if_does_not_exist;
391                      FEerror("Cannot write .gz filename",0);                      FEerror("Cannot write .gz filename",0);
392                    st.st_self=buf;                    st.st_self=buf;
393                    st.st_dim=st.st_fillp=strlen(buf);                    st.st_dim=st.st_fillp=strlen(buf);
394                    st.t=t_string;                    set_type_of(&st,t_string);
395                    if (file_exists((object)&st)) {                    if (file_exists((object)&st)) {
396                      FILE *pp;                      FILE *pp;
397                      int n;                      int n;
# Line 2687  maccept(object x) { Line 2687  maccept(object x) {
2687  static void  static void
2688  rmc(int e,void *pid) {  rmc(int e,void *pid) {
2689    
2690    kill((int)pid,SIGTERM);    kill((int)(unsigned long)pid,SIGTERM);
2691    
2692  }  }
2693  #endif  #endif
# Line 2823  object x=Cnil; Line 2823  object x=Cnil;
2823        break;        break;
2824      default:      default:
2825        if (daemon != sKpersistent) {        if (daemon != sKpersistent) {
2826          on_exit(rmc,(void *)pid);          on_exit(rmc,(void *)(unsigned long)pid);
2827          x=make_fixnum(pid);          x=make_fixnum(pid);
2828        } else        } else
2829          x=Cnil;          x=Cnil;

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26