Index: micropolis-activity/src/tcl/tclcmdah.c =================================================================== --- micropolis-activity/src/tcl/tclcmdah.c +++ micropolis-activity/src/tcl/tclcmdah.c 2008-01-20 04:27:56.000000000 +0200 @@ -886,7 +886,7 @@ if (useTwoWords) { sprintf(dst+dstSize, newFormat, twoWordValue); } else if (useShort) { - int tmp = (int)oneWordValue; + long tmp = (long)oneWordValue; sprintf(dst+dstSize, newFormat, (short)tmp); } else { sprintf(dst+dstSize, newFormat, oneWordValue); Index: micropolis-activity/src/tk/tkargv.c =================================================================== --- micropolis-activity/src/tk/tkargv.c +++ micropolis-activity/src/tk/tkargv.c 2008-01-20 04:28:08.000000000 +0200 @@ -178,7 +178,7 @@ infoPtr = matchPtr; switch (infoPtr->type) { case TK_ARGV_CONSTANT: - *((int *) infoPtr->dst) = (int) infoPtr->src; + *((long *) infoPtr->dst) = (long) infoPtr->src; break; case TK_ARGV_INT: if (argc == 0) { Index: micropolis-activity/src/tk/tkbind.c =================================================================== --- micropolis-activity/src/tk/tkbind.c +++ micropolis-activity/src/tk/tkbind.c 2008-01-20 04:29:23.000000000 +0200 @@ -1191,7 +1191,7 @@ string[1] = 0; hPtr = Tcl_FindHashEntry(&keySymTable, string); if (hPtr != NULL) { - patPtr->detail = (int) Tcl_GetHashValue(hPtr); + patPtr->detail = (long) Tcl_GetHashValue(hPtr); } else { if (isprint(*p)) { patPtr->detail = *p; @@ -1304,7 +1304,7 @@ "\" for non-key event", (char *) NULL); return NULL; } - patPtr->detail = (int) Tcl_GetHashValue(hPtr); + patPtr->detail = (long) Tcl_GetHashValue(hPtr); /* * Don't get upset about the shift modifier with keys: @@ -1779,7 +1779,7 @@ * runs out. */ int spaceNeeded, cvtFlags; /* Used to substitute string as proper Tcl * list element. */ - int number, flags; + long number, flags; #define NUM_SIZE 40 register char *string; char numStorage[NUM_SIZE+1]; @@ -2026,7 +2026,7 @@ number = eventPtr->xcreatewindow.border_width; goto doNumber; case 'D': - number = (int) eventPtr->xany.display; + number = (long) eventPtr->xany.display; goto doNumber; case 'E': number = (int) eventPtr->xany.send_event; Index: micropolis-activity/src/sim/w_x.c =================================================================== --- micropolis-activity/src/sim/w_x.c +++ micropolis-activity/src/sim/w_x.c 2008-01-20 04:32:39.000000000 +0200 @@ -902,7 +902,7 @@ } view->data = (unsigned char *)shmat(view->shminfo->shmid, 0, 0); - if ((int)view->data == -1) { + if ((long)view->data == -1) { perror("shmat"); fprintf(stderr, "Darn, Micropolis can't find any memory to share with display \"%s\".\n",