annotate ext/clapack/src/exit_.c @ 209:ccd2019190bf msvc

Some MSVC fixes, including (temporarily, probably) renaming the FFT source file to avoid getting it mixed up with the Vamp SDK one in our object dir
author Chris Cannam
date Thu, 01 Feb 2018 16:34:08 +0000
parents 45330e0d2819
children
rev   line source
Chris@202 1 /* This gives the effect of
Chris@202 2
Chris@202 3 subroutine exit(rc)
Chris@202 4 integer*4 rc
Chris@202 5 stop
Chris@202 6 end
Chris@202 7
Chris@202 8 * with the added side effect of supplying rc as the program's exit code.
Chris@202 9 */
Chris@202 10
Chris@202 11 #include "f2c.h"
Chris@202 12 #undef abs
Chris@202 13 #undef min
Chris@202 14 #undef max
Chris@202 15 #ifndef KR_headers
Chris@202 16 #include "stdlib.h"
Chris@202 17 #ifdef __cplusplus
Chris@202 18 extern "C" {
Chris@202 19 #endif
Chris@202 20 #ifdef __cplusplus
Chris@202 21 extern "C" {
Chris@202 22 #endif
Chris@202 23 extern void f_exit(void);
Chris@202 24 #endif
Chris@202 25
Chris@202 26 void
Chris@202 27 #ifdef KR_headers
Chris@202 28 exit_(rc) integer *rc;
Chris@202 29 #else
Chris@202 30 exit_(integer *rc)
Chris@202 31 #endif
Chris@202 32 {
Chris@202 33 #ifdef NO_ONEXIT
Chris@202 34 f_exit();
Chris@202 35 #endif
Chris@202 36 exit(*rc);
Chris@202 37 }
Chris@202 38 #ifdef __cplusplus
Chris@202 39 }
Chris@202 40 #endif
Chris@202 41 #ifdef __cplusplus
Chris@202 42 }
Chris@202 43 #endif