From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sun, 1 May 2005 11:34:54 +0000 (+0000)
Subject: (get_frame_size) [VMS]: Use a fresh i/o channel.
X-Git-Tag: ttn-vms-21-2-B4~636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a72c2d97a8df00371150fe9d3dffd84559fd0479;p=emacs.git

(get_frame_size) [VMS]: Use a fresh i/o channel.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 8c40923fefa..47d24852a66 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2005-05-01  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* sysdep.c (get_frame_size) [VMS]: Use a fresh i/o channel.
+
 2005-04-30  Richard M. Stallman  <rms@gnu.org>
 
 	* fileio.c (Ffind_file_name_handler): Handle the `operations'
diff --git a/src/sysdep.c b/src/sysdep.c
index e7494a2755d..42179d97e82 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -1718,10 +1718,16 @@ get_frame_size (widthp, heightp)
 #else
 #ifdef VMS
 
+  /* Use a fresh channel since the current one may have stale info
+     (for example, from prior to a suspend); and to avoid a dependency
+     in the init sequence.  */
+  int chan;
   struct sensemode tty;
 
-  SYS$QIOW (0, input_fd, IO$_SENSEMODE, &tty, 0, 0,
-	    &tty.class, 12, 0, 0, 0, 0);
+  SYS$ASSIGN (&input_dsc, &chan, 0, 0);
+  SYS$QIOW (0, chan, IO$_SENSEMODE, &tty, 0, 0,
+            &tty.class, 12, 0, 0, 0, 0);
+  SYS$DASSGN (chan);
   *widthp = tty.scr_wid;
   *heightp = tty.scr_len;