]> thyrsus.com Git - intercal.git/commitdiff
Cast the expression tp-tuples to int, this is needed on platforms where sizeof(int...
authorArvid Norlander <anmaster@tele2.se>
Thu, 20 Nov 2008 19:59:08 +0000 (14:59 -0500)
committerEric S. Raymond <esr@thyrsus.com>
Thu, 26 Aug 2010 00:35:26 +0000 (20:35 -0400)
src/perpet.c

index 4ef3a3bc7accaefea6f7abcead48ff6c8bf68c36..0e6ecdf954bd2d9ff50fa89ce55a12b6f3e6c81a 100644 (file)
@@ -974,9 +974,9 @@ int main(int argc, char *argv[])
                   {
                     if(!tp->abstainable) continue;
                     if(tp->exechance > 0)
-                      (void) fprintf(ofp, "ICK_INT1 ICKABSTAINED(%d)=0;\n",tp-tuples);
+                      (void) fprintf(ofp, "ICK_INT1 ICKABSTAINED(%d)=0;\n",(int)(tp-tuples));
                     else
-                      (void) fprintf(ofp, "ICK_INT1 ICKABSTAINED(%d)=1;\n",tp-tuples);
+                      (void) fprintf(ofp, "ICK_INT1 ICKABSTAINED(%d)=1;\n",(int)(tp-tuples));
                   }
                 }
                 if(!pickcompile) (void) fprintf(ofp, "}");