From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Jul 1997 03:03:10 +0000 (+0000)
Subject: (current_lock_owner, lock_file_1): Add casts.
X-Git-Tag: emacs-20.1~1239
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3609a53bf61ca804ed6b59bdcc7b62fa356aaa88;p=emacs.git

(current_lock_owner, lock_file_1): Add casts.
---

diff --git a/src/filelock.c b/src/filelock.c
index 69c4c40c011..d92e0476bad 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -133,8 +133,8 @@ lock_file_1 (lfname, force)
      int force;
 {
   register int err;
-  char *user_name = XSTRING (Fuser_login_name (Qnil))->data;
-  char *host_name = XSTRING (Fsystem_name ())->data;
+  char *user_name = (char *) XSTRING (Fuser_login_name (Qnil))->data;
+  char *host_name = (char *) XSTRING (Fsystem_name ())->data;
   char *lock_info_str = alloca (strlen (user_name) + strlen (host_name)
                                 + LOCK_PID_MAX + 5);
 
@@ -195,7 +195,7 @@ current_lock_owner (owner, lfname)
      read it to determine return value, so allocate it.  */
   if (!owner)
     {
-      owner = alloca (sizeof (lock_info_type));
+      owner = (lock_info_type *) alloca (sizeof (lock_info_type));
       local_owner = 1;
     }