X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=libf2c%2FlibF77%2Flbitshft.c;fp=libf2c%2FlibF77%2Flbitshft.c;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=81b0fdbeaba14a91196f09672d7753a13d51b942;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/libf2c/libF77/lbitshft.c b/libf2c/libF77/lbitshft.c deleted file mode 100644 index 81b0fdbe..00000000 --- a/libf2c/libF77/lbitshft.c +++ /dev/null @@ -1,11 +0,0 @@ -#include "f2c.h" - - integer -#ifdef KR_headers -lbit_shift(a, b) integer a; integer b; -#else -lbit_shift(integer a, integer b) -#endif -{ - return b >= 0 ? a << b : (integer)((uinteger)a >> -b); - }