From: Arvid Norlander <anmaster@tele2.se>
Date: Thu, 20 Nov 2008 19:59:08 +0000 (-0500)
Subject: Cast the expression tp-tuples to int, this is needed on platforms where sizeof(int... 
X-Git-Tag: 0.29~168
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=2339cb417ec8eaee74319925fda568323f7d1f24;p=intercal.git

Cast the expression tp-tuples to int, this is needed on platforms where sizeof(int) != sizeof(ptrdiff_t), such as x86_64.
---

diff --git a/src/perpet.c b/src/perpet.c
index 4ef3a3b..0e6ecdf 100644
--- a/src/perpet.c
+++ b/src/perpet.c
@@ -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, "}");