Changes to support GDB running on DOS using GO32 and H8 support

	* defs.h: if xm.h doesn't define FOPEN_RB, include "fopen-same.h",
	allowing hosts with different text and binary file formats to
	work.
	* coffread.c (read_coff_symtab): changed calling convention and
	operation - now it opens its own file with FOPEN_RB rather than
	duping and fdopening the provided handle.
	* dbxread.c, cplus-dem.c: #include mangling.
	* exec.c: If O_BINARY isn't defined, set it to 0, call openp for
	binary files oring in the right bit.
	* utils.c, terminal.h, inflow.c: hackery because dos doesn't have terminals.
	* remote-hms.c: cleanup to use the new remote serial stuff
	* serial.h, ser-termios.c, ser-go32.c: newfiles to provide host
	independent remote terminal I/O.
	* remote.c: if DONT_USE_REMOTE is defined, then don't use it.
	* source.c (openp): fix off by one problem removing / - can now
	open a source file in the root directory with DOS.
	* values.c (value_as_pointer): remove bogus address bits from
	long. (unpack_long): unpack into unsigned long/short if pointer.

1 files changed, 330 insertions, 0 deletions

diff --git a/gdb/ser-go32.c b/gdb/ser-go32.c
new file mode 100644
index 0000000..2a493bc
--- /dev/null
+++ b/gdb/ser-go32.c
@@ -0,0 +1,330 @@
+/* Remote serial interface for GO32 
+
+   Copyright 1992
+   Free Software Foundation, Inc.
+
+This file is part of GDB.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include <stdio.h>
+#include <sys/dos.h>
+
+#include "defs.h"
+#include "serial.h"
+
+
+#define SIGNATURE 0x4154
+#define VERSION 1
+#define OFFSET 0x104
+
+/*#define MONO 1*/
+
+#define dprintf if(0)printf
+
+#ifdef __GNUC__
+#define far
+#define peek(a,b) (*(unsigned short *)(0xe0000000 + (a)*16 + (b)))
+#endif
+
+typedef struct {
+  short jmp_op;
+  short signature;
+  short version;
+  short buffer_start;
+  short buffer_end;
+  short getp;
+  short putp;
+  short iov;
+} ASYNC_STRUCT;
+
+static ASYNC_STRUCT far *async;
+static int iov;
+#define com_rb	iov
+#define com_tb	iov
+#define com_ier	iov+1
+#define com_ifr	iov+2
+#define com_bfr	iov+3
+#define com_mcr	iov+4
+#define com_lsr	iov+5
+#define com_msr	iov+6
+
+#if MONO
+#include <sys/pc.h>
+static int mono_pos=0;
+#define mono_rx 0x07
+#define mono_tx 0x70
+
+void mono_put(char byte, char attr)
+{
+  ScreenSecondary[320+mono_pos+80] = 0x0720;
+  ScreenSecondary[320+mono_pos] = (attr<<8) | (byte&0xff);
+  mono_pos = (mono_pos+1) % 1200;
+}
+
+#endif
+
+static char far *aptr(short p)
+{
+#ifdef __GNUC__
+  return (char *)((unsigned)async - OFFSET + p);
+#else
+  return (char far *)MK_FP(FP_SEG(async), p);
+#endif
+}
+
+static ASYNC_STRUCT far *getivec(int which)
+{
+  ASYNC_STRUCT far *a;
+
+  if (peek(0, which*4) != OFFSET)
+    return 0;
+#ifdef __GNUC__
+  a = (ASYNC_STRUCT *)(0xe0000000 + peek(0, which*4+2)*16 + peek(0, which*4));
+
+#else
+  a = (ASYNC_STRUCT far *)MK_FP(peek(0,which*4+2),peek(0,which*4));
+#endif
+  if (a->signature != SIGNATURE)
+    return 0;
+  if (a->version != VERSION)
+    return 0;
+  return a;
+}
+
+int dos_async_init()
+{
+  int i;
+  ASYNC_STRUCT far *a1;
+  ASYNC_STRUCT far *a2;
+  a1 = getivec(12);
+  a2 = getivec(11);
+  async = 0;
+  if (a1)
+    async = a1;
+  if (a2)
+    async = a2;
+  if (a1 && a2)
+  {
+    if (a1 < a2)
+      async = a1;
+    else
+      async = a2;
+  }
+  if (async == 0)
+  {
+    error("GDB can not connect to asynctsr program, check that it is installed\n\
+and that serial I/O is not being redirected (perhaps by NFS)\n\n\
+example configuration:\n\
+C> mode com2:9600,n,8,1,p\n\
+C> asynctsr 2\n\
+C> gdb \n");
+
+  }
+  iov = async->iov;
+  outportb(com_ier, 0x0f);
+  outportb(com_bfr, 0x03);
+  outportb(com_mcr, 0x0b);
+  async->getp = async->putp = async->buffer_start;
+  
+#if MONO
+  for (i=0; i<1200; i++)
+    ScreenSecondary[320+i] = 0x0720;
+#endif
+  if (iov > 0x300)
+    return 1;
+  else
+    return 2;
+}
+
+dos_async_tx(char c)
+{
+  dprintf("dos_async_tx: enter %x - with IOV %x", c, com_lsr);
+  fflush(stdout);
+  while (~inportb(com_lsr) & 0x20);
+  outportb(com_tb, c);
+#if MONO
+  mono_put(c, mono_tx);
+#endif
+  dprintf("exit\n");
+}
+
+int dos_async_ready()
+{
+  return (async->getp != async->putp);
+}
+
+int dos_async_rx()
+{
+  char rv;
+  dprintf("dos_async_rx: enter - ");
+  fflush(stdout);
+  while (!dos_async_ready())
+   if (kbhit())
+   {
+     printf("abort!\n");
+     return 0;
+   }
+  dprintf("async=%x getp=%x\n", async, async->getp);
+  fflush(stdout);
+  rv = *aptr(async->getp++);
+#if MONO
+  mono_put(rv, mono_rx);
+#endif
+  if (async->getp >= async->buffer_end)
+   async->getp = async->buffer_start;
+  dprintf("exit %x\n", rv);
+  return rv;
+}
+
+int dos_kb_ready()
+{
+  return (peek(0x40,0x1a) != peek(0x40,0x1c));
+}
+
+int dos_kb_rx()
+{
+#ifdef __GNUC__
+  return getkey();
+#else
+  return getch();
+#endif
+}
+
+int dosasync_read(int fd, char *buffer, int length, int timeout)
+{
+  long now, then;
+  int l = length;
+  time (&now);
+  then = now+timeout;
+  dprintf("dosasync_read: enter(%d,%d)\n", length, timeout);
+  while (l--)
+  {
+    if (timeout)
+    {
+      while (!dos_async_ready())
+      {
+        time (&now);
+        if (now == then)
+        {
+          dprintf("dosasync_read: timeout(%d)\n", length-l-1);
+          return length-l-1;
+        }
+      }
+    }
+    *buffer++ = dos_async_rx();
+  }
+  dprintf("dosasync_read: exit %d\n", length);
+  return length;
+}
+
+int dosasync_write(int fd, CONST char *buffer, int length)
+{
+  int l = length;
+  while (l--)
+   dos_async_tx(*buffer++);
+  return length;
+}
+
+
+
+char *strlwr(char *s)
+{
+  char *p = s;
+  while (*s)
+  {
+    if ((*s >= 'A') && (*s <= 'Z'))
+      *s += 'a'-'A';
+    s++;
+  }
+  return p;
+}
+
+sigsetmask() {
+}
+
+
+
+static int fd;
+
+CONST char *
+DEFUN_VOID(serial_default_name)
+{
+  return "com1";
+}
+
+
+void
+DEFUN_VOID(serial_raw)
+{
+/* Always in raw mode */
+}
+
+
+int
+DEFUN(serial_open,(name),
+      CONST char *name)
+{
+  fd = dos_async_init();
+  if (fd) return 1;
+  return 0;
+}
+
+int
+DEFUN(serial_timedreadchar,(to, ok),
+      int to AND
+      int *ok)
+{
+  char buf;
+  if ( dosasync_read(fd, &buf, 1, to))  
+  {
+    *ok = 1;
+  }
+  else
+  {
+    *ok = 0;
+  }
+  return buf;
+}
+
+int
+DEFUN(serial_setbaudrate,(rate),
+      int rate)
+{
+  return 0;
+}
+
+int
+DEFUN(serial_nextbaudrate,(rate),
+      int rate)
+{
+  return 0;
+}
+
+int
+DEFUN(serial_write,(str, len),
+      CONST char *str AND
+      int len)
+{
+  dosasync_write(fd, str, len);
+}
+
+int
+DEFUN_VOID(serial_close)
+{
+
+
+}
+