Initial import

2020-06-15 07:18:57 -07:00
commit c91b3c5006
14915 changed files with 590219 additions and 0 deletions
--- a/third_party/f2c/exit_.c
+++ b/third_party/f2c/exit_.c
@@ -0,0 +1,18 @@
+#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);
+}