From a993e18ae75824e94d1e53087615698f01c17778 Mon Sep 17 00:00:00 2001 From: cvs2svn Date: Tue, 14 Aug 2007 02:52:48 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'gcc-vendor-gcc_4_2_1_20070718_SVN126787'. --- contrib/libf2c/libF77/qbitbits.c | 62 ---------------------------------------- 1 file changed, 62 deletions(-) delete mode 100644 contrib/libf2c/libF77/qbitbits.c (limited to 'contrib/libf2c/libF77/qbitbits.c') diff --git a/contrib/libf2c/libF77/qbitbits.c b/contrib/libf2c/libF77/qbitbits.c deleted file mode 100644 index f72858e7a339..000000000000 --- a/contrib/libf2c/libF77/qbitbits.c +++ /dev/null @@ -1,62 +0,0 @@ -#include "f2c.h" - -#ifndef LONGBITS -#define LONGBITS 32 -#endif - -#ifndef LONG8BITS -#define LONG8BITS (2*LONGBITS) -#endif - -integer -qbit_bits (longint a, integer b, integer len) -{ - /* Assume 2's complement arithmetic */ - - ulongint x, y; - - x = (ulongint) a; - y = (ulongint) - 1L; - x >>= b; - y <<= len; - return (longint) (x & y); -} - -longint -qbit_cshift (longint a, integer b, integer len) -{ - ulongint x, y, z; - - x = (ulongint) a; - if (len <= 0) - { - if (len == 0) - return 0; - goto full_len; - } - if (len >= LONG8BITS) - { - full_len: - if (b >= 0) - { - b %= LONG8BITS; - return (longint) (x << b | x >> (LONG8BITS - b)); - } - b = -b; - b %= LONG8BITS; - return (longint) (x << (LONG8BITS - b) | x >> b); - } - y = z = (unsigned long) -1; - y <<= len; - z &= ~y; - y &= x; - x &= z; - if (b >= 0) - { - b %= len; - return (longint) (y | (z & (x << b | x >> (len - b)))); - } - b = -b; - b %= len; - return (longint) (y | (z & (x >> b | x << (len - b)))); -} -- cgit v1.2.3