19 lines
349 B
C
19 lines
349 B
C
|
#include "libc/runtime/runtime.h"
|
||
|
|
#include "third_party/f2c/f2c.h"
|
||
|
|
#include "third_party/f2c/internal.h"
|
||
|
|
|
||
|
|
/**
|
||
|
|
* This gives the effect of
|
||
|
|
*
|
||
|
|
* subroutine exit(rc)
|
||
|
|
* integer*4 rc
|
||
|
|
* stop
|
||
|
|
* end
|
||
|
|
*
|
||
|
|
* with the added side effect of supplying rc as the program's exit code.
|
||
|
|
*/
|
||
|
|
void exit_(integer *rc) {
|
||
|
|
f_exit();
|
||
|
|
exit(*rc);
|
||
|
|
}
|