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

diff --git a/src/ChangeLog b/src/ChangeLog
index 8c40923fefa9b4cbeb9ee67f2398b4fd3568897f..47d24852a66203950a47a4690eb2c36999d501d2 100644 (file)
--- 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 e7494a2755ddcc52cb1a0d9f05db77c8a2ec88c4..42179d97e82caafa6751dee369a000fd332801b9 100644 (file)
--- 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;