Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / pow_ii.c

diff --git a/libf2c/libF77/pow_ii.c b/libf2c/libF77/pow_ii.c
deleted file mode 100644 (file)
index 84d1c7e..0000000
--- a/libf2c/libF77/pow_ii.c
+++ /dev/null
@@ -1,33 +0,0 @@
-#include "f2c.h"
-
-#ifdef KR_headers
-integer pow_ii(ap, bp) integer *ap, *bp;
-#else
-integer pow_ii(integer *ap, integer *bp)
-#endif
-{
-       integer pow, x, n;
-       unsigned long u;
-
-       x = *ap;
-       n = *bp;
-
-       if (n <= 0) {
-               if (n == 0 || x == 1)
-                       return 1;
-               if (x != -1)
-                       return x == 0 ? 1/x : 0;
-               n = -n;
-               }
-       u = n;
-       for(pow = 1; ; )
-               {
-               if(u & 01)
-                       pow *= x;
-               if(u >>= 1)
-                       x *= x;
-               else
-                       break;
-               }
-       return(pow);
-       }