From 8894fdaa8d47bd78e3a4c9944b57c85fdad28a92 Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Mon, 28 Dec 2020 14:23:40 +0700
Subject: [PATCH] Reduce number of `-Wshorten-64-to-32` warnings.

---
 src/dir.c      | 12 ++++++++----
 src/dsk.c      |  3 ++-
 src/initsout.c |  2 +-
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/src/dir.c b/src/dir.c
index 4a52c934..349e8ed4 100644
--- a/src/dir.c
+++ b/src/dir.c
@@ -613,7 +613,8 @@ static int enum_dsk_prop(char *dir, char *name, char *ver, FINFO **finfo_buf)
   register struct dirent *dp;
   register FINFO *prevp;
   register FINFO *nextp;
-  int n, len, rval;
+  int n, rval;
+  size_t len;
   DIR *dirp;
   register struct passwd *pwd;
   struct stat sbuf;
@@ -876,7 +877,8 @@ static int enum_dsk(char *dir, char *name, char *ver, FINFO **finfo_buf)
   register struct dirent *dp;
   register FINFO *prevp;
   register FINFO *nextp;
-  int n, len, rval;
+  int n, rval;
+  size_t len;
   DIR *dirp;
   struct stat sbuf;
   char namebuf[MAXPATHLEN];
@@ -1070,7 +1072,8 @@ static int enum_ufs_prop(char *dir, char *name, char *ver, FINFO **finfo_buf)
   register struct dirent *dp;
   register FINFO *prevp;
   register FINFO *nextp;
-  int n, len, rval;
+  int n, rval;
+  size_t len;
   DIR *dirp;
   register struct passwd *pwd;
   struct stat sbuf;
@@ -1253,7 +1256,8 @@ static int enum_ufs(char *dir, char *name, char *ver, FINFO **finfo_buf)
   register struct dirent *dp;
   register FINFO *prevp;
   register FINFO *nextp;
-  int n, len, rval;
+  int n, rval;
+  size_t len;
   DIR *dirp;
   struct stat sbuf;
   char namebuf[MAXPATHLEN];
diff --git a/src/dsk.c b/src/dsk.c
index bbb99371..ee249087 100644
--- a/src/dsk.c
+++ b/src/dsk.c
@@ -2606,7 +2606,8 @@ static int locate_file(char *dir, char *name)
 
   char path[MAXPATHLEN];
   char nb1[MAXNAMLEN], nb2[MAXNAMLEN];
-  register int type, len;
+  register int type;
+  size_t len;
   DIR *dirp;
   struct dirent *dp;
 
diff --git a/src/initsout.c b/src/initsout.c
index fc3a1dd4..8830bbaf 100644
--- a/src/initsout.c
+++ b/src/initsout.c
@@ -165,7 +165,7 @@ are null terminated instead */
     if ((pwd = getpwuid(getuid())) != NULL) {
       InterfacePage->usernameaddr = 0155001;
       s = (char *)Addr68k_from_LADDR(InterfacePage->usernameaddr);
-      len = strlen(pwd->pw_name);
+      len = (int)strlen(pwd->pw_name);
       /* Lisp reserves 32 words for the BCPL String */
       len = (len < 32 * BYTESPER_DLWORD) ? len : 32 * BYTESPER_DLWORD - 1;
       *s = (char)len;