110484Sdlw /* 2*17578Sdlw * "@(#)exit_.c 1.2" 310484Sdlw */ 410484Sdlw 510484Sdlw 610484Sdlw exit_(n) 710484Sdlw long *n; 810484Sdlw { 9*17578Sdlw int exitcode; 10*17578Sdlw 11*17578Sdlw #if vax 12*17578Sdlw if (nargs() == 0) 13*17578Sdlw exitcode = 0; 14*17578Sdlw else 15*17578Sdlw #endif vax 16*17578Sdlw exitcode = *n; /* take any segmentation violation here */ 1710484Sdlw f_exit(); 1810484Sdlw _cleanup(); 19*17578Sdlw exit(exitcode); 2010484Sdlw } 21