diff --git a/src/bbtsub.c b/src/bbtsub.c
index 9b52530..3b2cfe5 100644
--- a/src/bbtsub.c
+++ b/src/bbtsub.c
@@ -942,7 +942,7 @@ LispPTR bitshade_bitmap(LispPTR *args) {
 
   texture = args[0];
   {
-    register temp;
+    register int temp;
     temp = GetTypeNumber(texture);
     if (((temp == TYPE_LITATOM) && (texture != NIL_PTR)) || (temp == TYPE_LISTP)) {
       PUNT_TO_BLTSHADEBITMAP;
diff --git a/src/ldeboot.c b/src/ldeboot.c
index dbb25eb..d379179 100644
--- a/src/ldeboot.c
+++ b/src/ldeboot.c
@@ -69,7 +69,7 @@ char filetorun[30];
 /*									*/
 /************************************************************************/
 
-main(int argc, char *argv[])
+int main(int argc, char *argv[])
 {
   char Earg[30], Ename[30], **newargv;
   int i;
diff --git a/src/lineblt8.c b/src/lineblt8.c
index 30bc2a1..81d71c8 100644
--- a/src/lineblt8.c
+++ b/src/lineblt8.c
@@ -41,7 +41,7 @@ unsigned int BMask_tbl[] = {0xf, 7, 3, 1};
 **************************************************************/
 #define WriteLongW(srcpattern, destptr, op1, op2)                                    \
   {                                                                                  \
-    register cnt;                                                                    \
+    register int cnt;                                                                \
     register u_char *des, *src;                                                      \
     for (cnt = 0, des = (u_char *)destptr, src = (u_char *)(&(srcpattern)); cnt < 4; \
          cnt++, des++, src++)                                                        \
@@ -152,7 +152,7 @@ void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, regi
 {
   static unsigned char beforecolor0 = 0;
   static unsigned char beforecolor1 = 0;
-  static color_array[COLOR8ARRAYSIZE];
+  static int color_array[COLOR8ARRAYSIZE];
 
   extern DLword REPLACE_atom;
   extern DLword INPUT_atom;
@@ -163,14 +163,14 @@ void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, regi
   DLword *baseword; /* Assume dest word always quad aligned */
 
   if (sourcetype == INVERT_atom) {
-    register tempcol;
+    register int tempcol;
     tempcol = color0;
     color0 = color1;
     color1 = tempcol;
   }
   if ((beforecolor0 != color0) || (beforecolor1 != color1)) {
     /* making color-mapped array */
-    register i;
+    register int i;
     register u_int longcol0, longcol1;
 
     beforecolor0 = color0;
diff --git a/src/loopsops.c b/src/loopsops.c
index c892185..652dff7 100644
--- a/src/loopsops.c
+++ b/src/loopsops.c
@@ -191,7 +191,7 @@ LispPTR LCFetchMethodOrHelp(register LispPTR object, register LispPTR selector)
     LispPTR supers = ((struct LCClass *)Addr68k_from_LADDR(cur_class))->supers;
 
     for (;;) {
-      register i = 0;
+      register int i = 0;
       register LispPTR val;
       register LispPTR *selectorptr;
       register struct LCClass *classptr;
@@ -241,7 +241,7 @@ LispPTR LCFetchMethod(register LispPTR class, register LispPTR selector) {
     LispPTR supers = ((struct LCClass *)Addr68k_from_LADDR(cur_class))->supers;
 
     for (;;) {
-      register i = 0;
+      register int i = 0;
       register LispPTR val;
       register struct LCClass *classptr;
       register LispPTR *selectorptr;