From: Andreas Schwab <schwab@suse.de>
Date: Sat, 27 Nov 2004 22:09:40 +0000 (+0000)
Subject: (lock_file_1): Call get_boot_time early.  Increase
X-Git-Tag: ttn-vms-21-2-B4~3594
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ba93ac05d20ea926b077237900dd92962aaeba4;p=emacs.git

(lock_file_1): Call get_boot_time early.  Increase
buffer size.
---

diff --git a/src/filelock.c b/src/filelock.c
index cbf3f860a92..84540f79330 100644
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -377,6 +377,9 @@ lock_file_1 (lfname, force)
   char *host_name;
   char *lock_info_str;
 
+  /* Call this first because it can GC.  */
+  boot_time = get_boot_time ();
+
   if (STRINGP (Fuser_login_name (Qnil)))
     user_name = (char *)SDATA (Fuser_login_name (Qnil));
   else
@@ -386,9 +389,8 @@ lock_file_1 (lfname, force)
   else
     host_name = "";
   lock_info_str = (char *)alloca (strlen (user_name) + strlen (host_name)
-				  + LOCK_PID_MAX + 5);
+				  + LOCK_PID_MAX + 30);
 
-  boot_time = get_boot_time ();
   if (boot_time)
     sprintf (lock_info_str, "%s@%s.%lu:%lu", user_name, host_name,
 	     (unsigned long) getpid (), (unsigned long) boot_time);