Stop timer interrupts before doing a execve.
This commit is contained in:
		
							parent
							
								
									4ba631031d
								
							
						
					
					
						commit
						4406337368
					
				| 
						 | 
					@ -109,8 +109,9 @@ s48_value scheme_exec(s48_value prog, s48_value argv, s48_value env)
 | 
				
			||||||
      unix_env[j] = s48_extract_string(S48_VECTOR_REF(env,j));
 | 
					      unix_env[j] = s48_extract_string(S48_VECTOR_REF(env,j));
 | 
				
			||||||
    unix_env[envlen] = NULL;
 | 
					    unix_env[envlen] = NULL;
 | 
				
			||||||
  }
 | 
					  }
 | 
				
			||||||
 | 
					  s48_stop_alarm_interrupts();
 | 
				
			||||||
  execve(s48_extract_string (prog), unix_argv, unix_env); /* Do it. */
 | 
					  execve(s48_extract_string (prog), unix_argv, unix_env); /* Do it. */
 | 
				
			||||||
 | 
					  s48_start_alarm_interrupts();
 | 
				
			||||||
  e = errno;
 | 
					  e = errno;
 | 
				
			||||||
  if( env != S48_TRUE ) {
 | 
					  if( env != S48_TRUE ) {
 | 
				
			||||||
    Free(unix_env);
 | 
					    Free(unix_env);
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue