be careful around 1L and friends

2010-05-11 00:18:12 +01:00
parent 99dafc9172
commit c52dda489b
8 changed files with 27 additions and 30 deletions
--- a/C/arith2.c
+++ b/C/arith2.c
@@ -542,12 +542,12 @@ ipow(Int x, Int p)
 {
  Int r;

-  if (p == 0) return 1L;
+  if (p == 0) return ((CELL)1);
  if (x == 0 && p > 0) return 0L;
  if(p < 0) 
-    return (-p % 2) ? x : 1L;
+    return (-p % 2) ? x : ((CELL)1);
 	
-  r = 1L;
+  r = ((CELL)1);
  for(;;) {
    if(p & 1) {
      if (mul_overflow((r*x), r, x)) {