diff options
author | Dale Rahn <drahn@cvs.openbsd.org> | 2004-02-29 19:27:25 +0000 |
---|---|---|
committer | Dale Rahn <drahn@cvs.openbsd.org> | 2004-02-29 19:27:25 +0000 |
commit | 06bbcaeb9d33fce156543e2d84b1df4a0a9e1127 (patch) | |
tree | 8614ca58169c994e07adc995d206e8434b020c5d /gnu/lib/libf2c/libF77/h_sign.c | |
parent | 4a95829907bd98f42503d9e6f91af8df4c9313ab (diff) |
Import of libf2c from gcc3.3.2
Diffstat (limited to 'gnu/lib/libf2c/libF77/h_sign.c')
-rw-r--r-- | gnu/lib/libf2c/libF77/h_sign.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/lib/libf2c/libF77/h_sign.c b/gnu/lib/libf2c/libF77/h_sign.c new file mode 100644 index 00000000000..7b06c157a74 --- /dev/null +++ b/gnu/lib/libf2c/libF77/h_sign.c @@ -0,0 +1,12 @@ +#include "f2c.h" + +#ifdef KR_headers +shortint h_sign(a,b) shortint *a, *b; +#else +shortint h_sign(shortint *a, shortint *b) +#endif +{ +shortint x; +x = (*a >= 0 ? *a : - *a); +return( *b >= 0 ? x : -x); +} |