binutils-gdb/gdb/ser-go32.c

965 lines
22 KiB
C
Raw Normal View History

2000-02-02 01:21:19 +01:00
/* Remote serial interface for local (hardwired) serial ports for GO32.
2007-01-09 18:59:20 +01:00
Copyright (C) 1992, 1993, 2000, 2001, 2007 Free Software Foundation, Inc.
Contributed by Nigel Stephens, Algorithmics Ltd. (nigel@algor.co.uk).
This version uses DPMI interrupts to handle buffered i/o
without the separate "asynctsr" program.
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
* breakpoint.c: * arm-tdep.c: * ia64-tdep.c: * i386-tdep.c: * hpread.c: * hppa-tdep.c: * hppa-hpux-tdep.c: * gnu-nat.c: * gdbtypes.c: * gdbarch.h: * gdbarch.c: * eval.c: * dwarf2read.c: * dbxread.c: * copying: * symfile.c: * stabsread.c: * sh64-tdep.c: * sh-tdep.c: * s390-tdep.c: * rs6000-tdep.c: * remote.c: * remote-mips.c: * mips-tdep.c: * mdebugread.c: * linux-nat.c: * infrun.c: * xcoffread.c: * win32-nat.c: * valops.c: * utils.c: * tracepoint.c: * target.c: * symtab.c: * c-exp.y: * ada-valprint.c: * ada-typeprint.c: * ada-lex.l: * ada-lang.h: * ada-lang.c: * ada-exp.y: * alphafbsd-tdep.c: * alphabsd-tdep.h: * alphabsd-tdep.c: * alphabsd-nat.c: * alpha-tdep.h: * alpha-tdep.c: * alpha-osf1-tdep.c: * alpha-nat.c: * alpha-mdebug-tdep.c: * alpha-linux-tdep.c: * alpha-linux-nat.c: * aix-thread.c: * abug-rom.c: * arch-utils.c: * annotate.h: * annotate.c: * amd64obsd-tdep.c: * amd64obsd-nat.c: * amd64nbsd-tdep.c: * amd64nbsd-nat.c: * amd64fbsd-tdep.c: * amd64fbsd-nat.c: * amd64bsd-nat.c: * amd64-tdep.h: * amd64-tdep.c: * amd64-sol2-tdep.c: * amd64-nat.h: * amd64-nat.c: * amd64-linux-tdep.c: * amd64-linux-nat.c: * alphanbsd-tdep.c: * block.h: * block.c: * bfd-target.h: * bfd-target.c: * bcache.h: * bcache.c: * ax.h: * ax-general.c: * ax-gdb.h: * ax-gdb.c: * avr-tdep.c: * auxv.h: * auxv.c: * armnbsd-tdep.c: * armnbsd-nat.c: * arm-tdep.h: * arm-linux-nat.c: * arch-utils.h: * charset.c: * call-cmds.h: * c-valprint.c: * c-typeprint.c: * c-lang.h: * c-lang.c: * buildsym.h: * buildsym.c: * bsd-uthread.h: * bsd-uthread.c: * bsd-kvm.h: * bsd-kvm.c: * breakpoint.h: * core-regset.c: * core-aout.c: * completer.h: * completer.c: * complaints.h: * complaints.c: * command.h: * coffread.c: * coff-solib.h: * coff-solib.c: * coff-pe-read.h: * coff-pe-read.c: * cli-out.h: * cli-out.c: * charset.h: * dink32-rom.c: * dictionary.h: * dictionary.c: * demangle.c: * defs.h: * dcache.h: * dcache.c: * d10v-tdep.c: * cpu32bug-rom.c: * cp-valprint.c: * cp-support.h: * cp-support.c: * cp-namespace.c: * cp-abi.h: * cp-abi.c: * corelow.c: * corefile.c: * environ.c: * elfread.c: * dwarfread.c: * dwarf2loc.c: * dwarf2expr.h: * dwarf2expr.c: * dwarf2-frame.h: * dwarf2-frame.c: * dve3900-rom.c: * dummy-frame.h: * dummy-frame.c: * dsrec.c: * doublest.h: * doublest.c: * disasm.h: * disasm.c: * fork-child.c: * findvar.c: * fbsd-nat.h: * fbsd-nat.c: * f-valprint.c: * f-typeprint.c: * f-lang.h: * f-lang.c: * expression.h: * expprint.c: * exec.h: * exec.c: * exceptions.h: * exceptions.c: * event-top.h: * event-top.c: * event-loop.h: * event-loop.c: * gdb.c: * gdb-stabs.h: * gdb-events.h: * gdb-events.c: * gcore.c: * frv-tdep.h: * frv-tdep.c: * frv-linux-tdep.c: * frame.h: * frame.c: * frame-unwind.h: * frame-unwind.c: * frame-base.h: * frame-base.c: * gdb_vfork.h: * gdb_thread_db.h: * gdb_string.h: * gdb_stat.h: * gdb_regex.h: * gdb_ptrace.h: * gdb_proc_service.h: * gdb_obstack.h: * gdb_locale.h: * gdb_dirent.h: * gdb_curses.h: * gdb_assert.h: * gdbarch.sh: * gdb.h: * hpux-thread.c: * hppabsd-nat.c: * hppa-tdep.h: * hpacc-abi.c: * h8300-tdep.c: * gregset.h: * go32-nat.c: * gnu-v3-abi.c: * gnu-v2-abi.h: * gnu-v2-abi.c: * gnu-nat.h: * glibc-tdep.c: * gdbtypes.h: * gdbcore.h: * gdbcmd.h: * i386nbsd-tdep.c: * i386nbsd-nat.c: * i386gnu-tdep.c: * i386gnu-nat.c: * i386fbsd-tdep.c: * i386fbsd-nat.c: * i386bsd-tdep.c: * i386bsd-nat.h: * i386bsd-nat.c: * i386-tdep.h: * i386-sol2-nat.c: * i386-nto-tdep.c: * i386-nat.c: * i386-linux-tdep.h: * i386-linux-tdep.c: * i386-linux-nat.c: * i386-cygwin-tdep.c: * inf-ttrace.c: * inf-ptrace.h: * inf-ptrace.c: * inf-loop.h: * inf-loop.c: * inf-child.h: * inf-child.c: * ia64-tdep.h: * ia64-linux-nat.c: * i387-tdep.h: * i387-tdep.c: * i386v4-nat.c: * i386v-nat.c: * i386obsd-tdep.c: * i386obsd-nat.c: * kod.c: * jv-valprint.c: * jv-typeprint.c: * jv-lang.h: * jv-lang.c: * irix5-nat.c: * iq2000-tdep.c: * interps.h: * interps.c: * inftarg.c: * inflow.h: * inflow.c: * inferior.h: * infcmd.c: * infcall.h: * infcall.c: * inf-ttrace.h: * m32r-tdep.h: * m32r-tdep.c: * m32r-rom.c: * m32r-linux-tdep.c: * m32r-linux-nat.c: * m2-valprint.c: * m2-typeprint.c: * m2-lang.h: * m2-lang.c: * lynx-nat.c: * linux-thread-db.c: * linux-nat.h: * linespec.c: * libunwind-frame.h: * libunwind-frame.c: * language.h: * language.c: * macroexp.c: * macrocmd.c: * m88kbsd-nat.c: * m88k-tdep.h: * m88k-tdep.c: * m68klinux-tdep.c: * m68klinux-nat.c: * m68kbsd-tdep.c: * m68kbsd-nat.c: * m68k-tdep.h: * m68k-tdep.c: * mips-linux-nat.c: * mips-irix-tdep.c: * minsyms.c: * memattr.h: * memattr.c: * mem-break.c: * mdebugread.h: * main.h: * main.c: * macrotab.h: * macrotab.c: * macroscope.h: * macroscope.c: * macroexp.h: * nbsd-tdep.c: * mt-tdep.c: * monitor.h: * monitor.c: * mn10300-tdep.h: * mn10300-tdep.c: * mn10300-linux-tdep.c: * mipsv4-nat.c: * mipsread.c: * mipsnbsd-tdep.h: * mipsnbsd-tdep.c: * mipsnbsd-nat.c: * mips64obsd-tdep.c: * mips64obsd-nat.c: * mips-tdep.h: * mips-mdebug-tdep.c: * mips-linux-tdep.c: * osabi.h: * osabi.c: * ocd.h: * ocd.c: * observer.c: * objfiles.h: * objfiles.c: * objc-lang.h: * objc-lang.c: * objc-exp.y: * nto-tdep.h: * nto-tdep.c: * nto-procfs.c: * nlmread.c: * nbsd-tdep.h: * ppcobsd-tdep.c: * ppcobsd-nat.c: * ppcnbsd-tdep.h: * ppcnbsd-tdep.c: * ppcnbsd-nat.c: * ppcbug-rom.c: * ppc-tdep.h: * ppc-sysv-tdep.c: * ppc-linux-tdep.c: * ppc-linux-nat.c: * ppc-bdm.c: * parser-defs.h: * parse.c: * p-valprint.c: * p-typeprint.c: * p-lang.h: * p-lang.c: * remote-fileio.h: * remote-fileio.c: * remote-est.c: * remote-e7000.c: * regset.h: * regset.c: * reggroups.h: * reggroups.c: * regcache.h: * regcache.c: * proc-why.c: * proc-service.c: * proc-events.c: * printcmd.c: * ppcobsd-tdep.h: * sentinel-frame.h: * sentinel-frame.c: * scm-valprint.c: * scm-tags.h: * scm-lang.h: * scm-lang.c: * scm-exp.c: * s390-tdep.h: * rom68k-rom.c: * remote.h: * remote-utils.c: * remote-st.c: * remote-sim.c: * remote-sds.c: * remote-rdp.c: * remote-rdi.c: * remote-hms.c: * sim-regno.h: * shnbsd-tdep.h: * shnbsd-tdep.c: * shnbsd-nat.c: * sh-tdep.h: * serial.h: * serial.c: * ser-unix.h: * ser-unix.c: * ser-tcp.c: * ser-pipe.c: * ser-go32.c: * ser-e7kpc.c: * ser-base.h: * ser-base.c: * solib.c: * solib-svr4.h: * solib-svr4.c: * solib-sunos.c: * solib-som.h: * solib-som.c: * solib-pa64.h: * solib-pa64.c: * solib-osf.c: * solib-null.c: * solib-legacy.c: * solib-irix.c: * solib-frv.c: * solib-aix5.c: * sol-thread.c: * sparc64-linux-tdep.c: * sparc64-linux-nat.c: * sparc-tdep.h: * sparc-tdep.c: * sparc-sol2-tdep.c: * sparc-sol2-nat.c: * sparc-nat.h: * sparc-nat.c: * sparc-linux-tdep.c: * sparc-linux-nat.c: * source.h: * source.c: * somread.c: * solist.h: * solib.h: * std-regs.c: * stack.h: * stack.c: * stabsread.h: * sparcobsd-tdep.c: * sparcnbsd-tdep.c: * sparcnbsd-nat.c: * sparc64obsd-tdep.c: * sparc64nbsd-tdep.c: * sparc64nbsd-nat.c: * sparc64fbsd-tdep.c: * sparc64fbsd-nat.c: * sparc64-tdep.h: * sparc64-tdep.c: * sparc64-sol2-tdep.c: * sparc64-nat.c: * ui-file.c: * typeprint.h: * typeprint.c: * tramp-frame.h: * tramp-frame.c: * trad-frame.h: * trad-frame.c: * tracepoint.h: * top.c: * tobs.inc: * thread.c: * terminal.h: * target.h: * symfile.h: * stop-gdb.c: * vaxbsd-nat.c: * vax-tdep.h: * vax-tdep.c: * vax-nat.c: * varobj.h: * varobj.c: * value.h: * value.c: * valprint.h: * valprint.c: * v850-tdep.c: * uw-thread.c: * user-regs.c: * ui-out.h: * ui-out.c: * ui-file.h: * xcoffsolib.h: * xcoffsolib.c: * wrapper.c: * wince.c: * wince-stub.h: * wince-stub.c: * vaxobsd-tdep.c: * vaxnbsd-tdep.c: * gdb_gcore.sh: * copying.c: * configure.ac: * aclocal.m4: * acinclude.m4: * reply_mig_hack.awk: * observer.sh: * gdb_mbuild.sh: * arm-linux-tdep.c: * blockframe.c: * dbug-rom.c: * environ.h: * dwarf2loc.h: * gdb-events.sh: * glibc-tdep.h: * gdb_wait.h: * gdbthread.h: * i386-sol2-tdep.c: * hppabsd-tdep.c: * hppa-linux-nat.c: * hppa-hpux-nat.c: * ia64-linux-tdep.c: * infptrace.c: * linespec.h: * maint.c: * mips-mdebug-tdep.h: * remote-m32r-sdi.c: * s390-nat.c: * rs6000-nat.c: * remote-utils.h: * sh3-rom.c: * sh-linux-tdep.c: * top.h: * symtab.h: * symmisc.c: * symfile-mem.c: * srec.h: * user-regs.h: * version.h: * valarith.c: * xstormy16-tdep.c: * wrapper.h: * Makefile.in: * f-exp.y: * cris-tdep.c: * cp-name-parser.y: * procfs.c: * proc-utils.h: * proc-flags.c: * proc-api.c: * p-exp.y: * m68hc11-tdep.c: * m2-exp.y: * kod.h: * kod-cisco.c: * jv-exp.y: * hppa-linux-tdep.c: Add (c) after Copyright. Update the FSF address.
2005-12-17 23:34:03 +01:00
Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA. */
#include "defs.h"
#include "gdbcmd.h"
#include "serial.h"
#include "gdb_string.h"
/*
* NS16550 UART registers
*/
#define COM1ADDR 0x3f8
#define COM2ADDR 0x2f8
#define COM3ADDR 0x3e8
#define COM4ADDR 0x3e0
#define com_data 0 /* data register (R/W) */
#define com_dlbl 0 /* divisor latch low (W) */
#define com_ier 1 /* interrupt enable (W) */
#define com_dlbh 1 /* divisor latch high (W) */
#define com_iir 2 /* interrupt identification (R) */
#define com_fifo 2 /* FIFO control (W) */
#define com_lctl 3 /* line control register (R/W) */
#define com_cfcr 3 /* line control register (R/W) */
#define com_mcr 4 /* modem control register (R/W) */
#define com_lsr 5 /* line status register (R/W) */
#define com_msr 6 /* modem status register (R/W) */
/*
* Constants for computing 16 bit baud rate divisor (lower byte
* in com_dlbl, upper in com_dlbh) from 1.8432MHz crystal. Divisor is
* 1.8432 MHz / (16 * X) for X bps. If the baud rate can't be set
* to within +- (desired_rate*SPEED_TOLERANCE/1000) bps, we fail.
*/
#define COMTICK (1843200/16)
#define SPEED_TOLERANCE 30 /* thousandths; real == desired +- 3.0% */
/* interrupt enable register */
#define IER_ERXRDY 0x1 /* int on rx ready */
#define IER_ETXRDY 0x2 /* int on tx ready */
#define IER_ERLS 0x4 /* int on line status change */
#define IER_EMSC 0x8 /* int on modem status change */
/* interrupt identification register */
#define IIR_FIFO_MASK 0xc0 /* set if FIFOs are enabled */
#define IIR_IMASK 0xf /* interrupt cause mask */
#define IIR_NOPEND 0x1 /* nothing pending */
#define IIR_RLS 0x6 /* receive line status */
#define IIR_RXRDY 0x4 /* receive ready */
#define IIR_RXTOUT 0xc /* receive timeout */
#define IIR_TXRDY 0x2 /* transmit ready */
#define IIR_MLSC 0x0 /* modem status */
/* fifo control register */
#define FIFO_ENABLE 0x01 /* enable fifo */
#define FIFO_RCV_RST 0x02 /* reset receive fifo */
#define FIFO_XMT_RST 0x04 /* reset transmit fifo */
#define FIFO_DMA_MODE 0x08 /* enable dma mode */
#define FIFO_TRIGGER_1 0x00 /* trigger at 1 char */
#define FIFO_TRIGGER_4 0x40 /* trigger at 4 chars */
#define FIFO_TRIGGER_8 0x80 /* trigger at 8 chars */
#define FIFO_TRIGGER_14 0xc0 /* trigger at 14 chars */
/* character format control register */
#define CFCR_DLAB 0x80 /* divisor latch */
#define CFCR_SBREAK 0x40 /* send break */
#define CFCR_PZERO 0x30 /* zero parity */
#define CFCR_PONE 0x20 /* one parity */
#define CFCR_PEVEN 0x10 /* even parity */
#define CFCR_PODD 0x00 /* odd parity */
#define CFCR_PENAB 0x08 /* parity enable */
#define CFCR_STOPB 0x04 /* 2 stop bits */
#define CFCR_8BITS 0x03 /* 8 data bits */
#define CFCR_7BITS 0x02 /* 7 data bits */
#define CFCR_6BITS 0x01 /* 6 data bits */
#define CFCR_5BITS 0x00 /* 5 data bits */
/* modem control register */
#define MCR_LOOPBACK 0x10 /* loopback */
#define MCR_IENABLE 0x08 /* output 2 = int enable */
#define MCR_DRS 0x04 /* output 1 = xxx */
#define MCR_RTS 0x02 /* enable RTS */
#define MCR_DTR 0x01 /* enable DTR */
/* line status register */
#define LSR_RCV_FIFO 0x80 /* error in receive fifo */
#define LSR_TSRE 0x40 /* transmitter empty */
#define LSR_TXRDY 0x20 /* transmitter ready */
#define LSR_BI 0x10 /* break detected */
#define LSR_FE 0x08 /* framing error */
#define LSR_PE 0x04 /* parity error */
#define LSR_OE 0x02 /* overrun error */
#define LSR_RXRDY 0x01 /* receiver ready */
#define LSR_RCV_MASK 0x1f
/* modem status register */
#define MSR_DCD 0x80
#define MSR_RI 0x40
#define MSR_DSR 0x20
#define MSR_CTS 0x10
#define MSR_DDCD 0x08
#define MSR_TERI 0x04
#define MSR_DDSR 0x02
#define MSR_DCTS 0x01
#include <time.h>
1999-05-05 16:45:51 +02:00
#include <dos.h>
#include <go32.h>
#include <dpmi.h>
typedef unsigned long u_long;
/* 16550 rx fifo trigger point */
#define FIFO_TRIGGER FIFO_TRIGGER_4
/* input buffer size */
#define CBSIZE 4096
#define RAWHZ 18
#ifdef DOS_STATS
#define CNT_RX 16
#define CNT_TX 17
#define CNT_STRAY 18
#define CNT_ORUN 19
#define NCNT 20
1999-07-07 22:19:36 +02:00
static int intrcnt;
static int cnts[NCNT];
static char *cntnames[NCNT] =
{
/* h/w interrupt counts. */
1999-07-07 22:19:36 +02:00
"mlsc", "nopend", "txrdy", "?3",
"rxrdy", "?5", "rls", "?7",
"?8", "?9", "?a", "?b",
"rxtout", "?d", "?e", "?f",
/* s/w counts. */
1999-07-07 22:19:36 +02:00
"rxcnt", "txcnt", "stray", "swoflo"
};
#define COUNT(x) cnts[x]++
#else
1999-07-07 22:19:36 +02:00
#define COUNT(x)
#endif
/* Main interrupt controller port addresses. */
#define ICU_BASE 0x20
#define ICU_OCW2 (ICU_BASE + 0)
#define ICU_MASK (ICU_BASE + 1)
/* Original interrupt controller mask register. */
1999-07-07 22:19:36 +02:00
unsigned char icu_oldmask;
/* Maximum of 8 interrupts (we don't handle the slave icu yet). */
#define NINTR 8
static struct intrupt
1999-07-07 22:19:36 +02:00
{
char inuse;
struct dos_ttystate *port;
_go32_dpmi_seginfo old_rmhandler;
_go32_dpmi_seginfo old_pmhandler;
_go32_dpmi_seginfo new_rmhandler;
_go32_dpmi_seginfo new_pmhandler;
_go32_dpmi_registers regs;
}
intrupts[NINTR];
static struct dos_ttystate
1999-07-07 22:19:36 +02:00
{
int base;
int irq;
int refcnt;
struct intrupt *intrupt;
int fifo;
int baudrate;
unsigned char cbuf[CBSIZE];
unsigned int first;
unsigned int count;
int txbusy;
unsigned char old_mcr;
int ferr;
int perr;
int oflo;
int msr;
}
ports[4] =
{
1999-07-07 22:19:36 +02:00
{
COM1ADDR, 4, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
1999-07-07 22:19:36 +02:00
}
,
{
COM2ADDR, 3, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
1999-07-07 22:19:36 +02:00
}
,
{
COM3ADDR, 4, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
1999-07-07 22:19:36 +02:00
}
,
{
COM4ADDR, 3, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
1999-07-07 22:19:36 +02:00
}
};
2001-07-11 19:52:32 +02:00
static int dos_open (struct serial *scb, const char *name);
static void dos_raw (struct serial *scb);
static int dos_readchar (struct serial *scb, int timeout);
static int dos_setbaudrate (struct serial *scb, int rate);
static int dos_write (struct serial *scb, const char *str, int len);
static void dos_close (struct serial *scb);
static serial_ttystate dos_get_tty_state (struct serial *scb);
static int dos_set_tty_state (struct serial *scb, serial_ttystate state);
2000-05-25 15:55:48 +02:00
static int dos_baudconv (int rate);
#define inb(p,a) inportb((p)->base + (a))
#define outb(p,a,v) outportb((p)->base + (a), (v))
#define disable() asm volatile ("cli");
#define enable() asm volatile ("sti");
static int
2000-07-30 03:48:28 +02:00
dos_getc (volatile struct dos_ttystate *port)
{
1999-07-07 22:19:36 +02:00
int c;
1999-07-07 22:19:36 +02:00
if (port->count == 0)
return -1;
1999-07-07 22:19:36 +02:00
c = port->cbuf[port->first];
disable ();
port->first = (port->first + 1) & (CBSIZE - 1);
port->count--;
enable ();
return c;
}
1999-07-07 22:19:36 +02:00
static int
2000-07-30 03:48:28 +02:00
dos_putc (int c, struct dos_ttystate *port)
{
1999-07-07 22:19:36 +02:00
if (port->count >= CBSIZE - 1)
return -1;
port->cbuf[(port->first + port->count) & (CBSIZE - 1)] = c;
port->count++;
return 0;
}
1999-07-07 22:19:36 +02:00
static void
2000-07-30 03:48:28 +02:00
dos_comisr (int irq)
{
struct dos_ttystate *port;
unsigned char iir, lsr, c;
disable (); /* Paranoia */
outportb (ICU_OCW2, 0x20); /* End-Of-Interrupt */
#ifdef DOS_STATS
++intrcnt;
#endif
port = intrupts[irq].port;
1999-07-07 22:19:36 +02:00
if (!port)
{
COUNT (CNT_STRAY);
1999-07-07 22:19:36 +02:00
return; /* not open */
}
while (1)
{
iir = inb (port, com_iir) & IIR_IMASK;
1999-07-07 22:19:36 +02:00
switch (iir)
{
1999-07-07 22:19:36 +02:00
case IIR_RLS:
lsr = inb (port, com_lsr);
goto rx;
1999-07-07 22:19:36 +02:00
case IIR_RXTOUT:
case IIR_RXRDY:
lsr = 0;
1999-07-07 22:19:36 +02:00
rx:
do
{
c = inb (port, com_data);
if (lsr & (LSR_BI | LSR_FE | LSR_PE | LSR_OE))
{
if (lsr & (LSR_BI | LSR_FE))
port->ferr++;
else if (lsr & LSR_PE)
port->perr++;
if (lsr & LSR_OE)
port->oflo++;
}
if (dos_putc (c, port) < 0)
{
COUNT (CNT_ORUN);
}
else
{
COUNT (CNT_RX);
}
}
while ((lsr = inb (port, com_lsr)) & LSR_RXRDY);
break;
1999-07-07 22:19:36 +02:00
case IIR_MLSC:
/* could be used to flowcontrol Tx */
port->msr = inb (port, com_msr);
break;
1999-07-07 22:19:36 +02:00
case IIR_TXRDY:
port->txbusy = 0;
break;
case IIR_NOPEND:
/* no more pending interrupts, all done */
return;
default:
/* unexpected interrupt, ignore */
break;
}
COUNT (iir);
1999-07-07 22:19:36 +02:00
}
}
#define ISRNAME(x) dos_comisr##x
#define ISR(x) static void ISRNAME(x)(void) {dos_comisr(x);}
ISR (0) ISR (1) ISR (2) ISR (3) /* OK */
ISR (4) ISR (5) ISR (6) ISR (7) /* OK */
typedef void (*isr_t) (void);
static isr_t isrs[NINTR] =
{
1999-07-07 22:19:36 +02:00
ISRNAME (0), ISRNAME (1), ISRNAME (2), ISRNAME (3),
ISRNAME (4), ISRNAME (5), ISRNAME (6), ISRNAME (7)
};
1999-07-07 22:19:36 +02:00
static struct intrupt *
dos_hookirq (unsigned int irq)
{
struct intrupt *intr;
unsigned int vec;
isr_t isr;
if (irq >= NINTR)
return 0;
intr = &intrupts[irq];
if (intr->inuse)
return 0;
1999-07-07 22:19:36 +02:00
vec = 0x08 + irq;
isr = isrs[irq];
/* setup real mode handler */
_go32_dpmi_get_real_mode_interrupt_vector (vec, &intr->old_rmhandler);
1999-07-07 22:19:36 +02:00
intr->new_rmhandler.pm_selector = _go32_my_cs ();
intr->new_rmhandler.pm_offset = (u_long) isr;
if (_go32_dpmi_allocate_real_mode_callback_iret (&intr->new_rmhandler,
&intr->regs))
{
return 0;
}
if (_go32_dpmi_set_real_mode_interrupt_vector (vec, &intr->new_rmhandler))
{
return 0;
}
1999-07-07 22:19:36 +02:00
/* setup protected mode handler */
1999-07-07 22:19:36 +02:00
_go32_dpmi_get_protected_mode_interrupt_vector (vec, &intr->old_pmhandler);
1999-07-07 22:19:36 +02:00
intr->new_pmhandler.pm_selector = _go32_my_cs ();
intr->new_pmhandler.pm_offset = (u_long) isr;
_go32_dpmi_allocate_iret_wrapper (&intr->new_pmhandler);
if (_go32_dpmi_set_protected_mode_interrupt_vector (vec,
&intr->new_pmhandler))
{
return 0;
}
/* setup interrupt controller mask */
disable ();
outportb (ICU_MASK, inportb (ICU_MASK) & ~(1 << irq));
enable ();
intr->inuse = 1;
return intr;
}
static void
2000-07-30 03:48:28 +02:00
dos_unhookirq (struct intrupt *intr)
{
unsigned int irq, vec;
unsigned char mask;
irq = intr - intrupts;
vec = 0x08 + irq;
/* restore old interrupt mask bit */
mask = 1 << irq;
disable ();
outportb (ICU_MASK, inportb (ICU_MASK) | (mask & icu_oldmask));
enable ();
/* remove real mode handler */
_go32_dpmi_set_real_mode_interrupt_vector (vec, &intr->old_rmhandler);
_go32_dpmi_free_real_mode_callback (&intr->new_rmhandler);
1999-07-07 22:19:36 +02:00
/* remove protected mode handler */
_go32_dpmi_set_protected_mode_interrupt_vector (vec, &intr->old_pmhandler);
_go32_dpmi_free_iret_wrapper (&intr->new_pmhandler);
intr->inuse = 0;
}
1999-07-07 22:19:36 +02:00
static int
2001-07-11 19:52:32 +02:00
dos_open (struct serial *scb, const char *name)
{
struct dos_ttystate *port;
int fd, i;
if (strncasecmp (name, "/dev/", 5) == 0)
name += 5;
else if (strncasecmp (name, "\\dev\\", 5) == 0)
name += 5;
if (strlen (name) != 4 || strncasecmp (name, "com", 3) != 0)
{
errno = ENOENT;
return -1;
}
if (name[3] < '1' || name[3] > '4')
{
errno = ENOENT;
return -1;
}
/* FIXME: this is a Bad Idea (tm)! One should *never* invent file
handles, since they might be already used by other files/devices.
The Right Way to do this is to create a real handle by dup()'ing
some existing one. */
fd = name[3] - '1';
port = &ports[fd];
if (port->refcnt++ > 0)
{
/* Device already opened another user. Just point at it. */
scb->fd = fd;
return 0;
}
/* force access to ID reg */
1999-07-07 22:19:36 +02:00
outb (port, com_cfcr, 0);
outb (port, com_iir, 0);
for (i = 0; i < 17; i++)
{
if ((inb (port, com_iir) & 0x38) == 0)
goto ok;
(void) inb (port, com_data); /* clear recv */
}
errno = ENODEV;
return -1;
ok:
/* disable all interrupts in chip */
1999-07-07 22:19:36 +02:00
outb (port, com_ier, 0);
/* tentatively enable 16550 fifo, and see if it responds */
outb (port, com_fifo,
FIFO_ENABLE | FIFO_RCV_RST | FIFO_XMT_RST | FIFO_TRIGGER);
1999-07-07 22:19:36 +02:00
sleep (1);
port->fifo = ((inb (port, com_iir) & IIR_FIFO_MASK) == IIR_FIFO_MASK);
/* clear pending status reports. */
1999-07-07 22:19:36 +02:00
(void) inb (port, com_lsr);
(void) inb (port, com_msr);
/* enable external interrupt gate (to avoid floating IRQ) */
1999-07-07 22:19:36 +02:00
outb (port, com_mcr, MCR_IENABLE);
/* hook up interrupt handler and initialise icu */
port->intrupt = dos_hookirq (port->irq);
if (!port->intrupt)
{
1999-07-07 22:19:36 +02:00
outb (port, com_mcr, 0);
outb (port, com_fifo, 0);
errno = ENODEV;
return -1;
}
disable ();
/* record port */
1999-07-07 22:19:36 +02:00
port->intrupt->port = port;
scb->fd = fd;
/* clear rx buffer, tx busy flag and overflow count */
port->first = port->count = 0;
port->txbusy = 0;
port->oflo = 0;
/* set default baud rate and mode: 9600,8,n,1 */
i = dos_baudconv (port->baudrate = 9600);
1999-07-07 22:19:36 +02:00
outb (port, com_cfcr, CFCR_DLAB);
outb (port, com_dlbl, i & 0xff);
outb (port, com_dlbh, i >> 8);
outb (port, com_cfcr, CFCR_8BITS);
/* enable all interrupts */
1999-07-07 22:19:36 +02:00
outb (port, com_ier, IER_ETXRDY | IER_ERXRDY | IER_ERLS | IER_EMSC);
/* enable DTR & RTS */
1999-07-07 22:19:36 +02:00
outb (port, com_mcr, MCR_DTR | MCR_RTS | MCR_IENABLE);
enable ();
return 0;
}
static void
2001-07-11 19:52:32 +02:00
dos_close (struct serial *scb)
{
1999-07-07 22:19:36 +02:00
struct dos_ttystate *port;
struct intrupt *intrupt;
1999-07-07 22:19:36 +02:00
if (!scb)
return;
port = &ports[scb->fd];
if (port->refcnt-- > 1)
return;
1999-07-07 22:19:36 +02:00
if (!(intrupt = port->intrupt))
return;
/* disable interrupts, fifo, flow control */
disable ();
port->intrupt = 0;
intrupt->port = 0;
outb (port, com_fifo, 0);
outb (port, com_ier, 0);
enable ();
/* unhook handler, and disable interrupt gate */
dos_unhookirq (intrupt);
outb (port, com_mcr, 0);
/* Check for overflow errors */
if (port->oflo)
{
fprintf_unfiltered (gdb_stderr,
"Serial input overruns occurred.\n");
fprintf_unfiltered (gdb_stderr, "This system %s handle %d baud.\n",
port->fifo ? "cannot" : "needs a 16550 to",
port->baudrate);
}
}
1999-07-07 22:19:36 +02:00
static int
2001-07-11 19:52:32 +02:00
dos_noop (struct serial *scb)
{
return 0;
}
static void
2001-07-11 19:52:32 +02:00
dos_raw (struct serial *scb)
{
/* Always in raw mode */
}
static int
2001-07-11 19:52:32 +02:00
dos_readchar (struct serial *scb, int timeout)
{
struct dos_ttystate *port = &ports[scb->fd];
long then;
int c;
1999-07-07 22:19:36 +02:00
then = rawclock () + (timeout * RAWHZ);
while ((c = dos_getc (port)) < 0)
{
if (timeout >= 0 && (rawclock () - then) >= 0)
return SERIAL_TIMEOUT;
}
return c;
}
static serial_ttystate
2001-07-11 19:52:32 +02:00
dos_get_tty_state (struct serial *scb)
{
struct dos_ttystate *port = &ports[scb->fd];
struct dos_ttystate *state;
/* Are they asking about a port we opened? */
if (port->refcnt <= 0)
{
/* We've never heard about this port. We should fail this call,
unless they are asking about one of the 3 standard handles,
in which case we pretend the handle was open by us if it is
connected to a terminal device. This is beacuse Unix
terminals use the serial interface, so GDB expects the
standard handles to go through here. */
if (scb->fd >= 3 || !isatty (scb->fd))
return NULL;
}
state = (struct dos_ttystate *) xmalloc (sizeof *state);
*state = *port;
return (serial_ttystate) state;
}
static int
2001-07-11 19:52:32 +02:00
dos_set_tty_state (struct serial *scb, serial_ttystate ttystate)
{
struct dos_ttystate *state;
state = (struct dos_ttystate *) ttystate;
dos_setbaudrate (scb, state->baudrate);
return 0;
}
static int
2001-07-11 19:52:32 +02:00
dos_noflush_set_tty_state (struct serial *scb, serial_ttystate new_ttystate,
serial_ttystate old_ttystate)
{
struct dos_ttystate *state;
state = (struct dos_ttystate *) new_ttystate;
dos_setbaudrate (scb, state->baudrate);
return 0;
}
static int
2001-07-11 19:52:32 +02:00
dos_flush_input (struct serial *scb)
{
struct dos_ttystate *port = &ports[scb->fd];
1999-07-07 22:19:36 +02:00
disable ();
port->first = port->count = 0;
if (port->fifo)
1999-07-07 22:19:36 +02:00
outb (port, com_fifo, FIFO_ENABLE | FIFO_RCV_RST | FIFO_TRIGGER);
enable ();
2000-02-29 08:45:13 +01:00
return 0;
}
static void
2001-07-11 19:52:32 +02:00
dos_print_tty_state (struct serial *scb, serial_ttystate ttystate,
struct ui_file *stream)
{
/* Nothing to print */
return;
}
static int
2000-07-30 03:48:28 +02:00
dos_baudconv (int rate)
{
long x, err;
1999-07-07 22:19:36 +02:00
if (rate <= 0)
return -1;
#define divrnd(n, q) (((n) * 2 / (q) + 1) / 2) /* divide and round off */
1999-07-07 22:19:36 +02:00
x = divrnd (COMTICK, rate);
if (x <= 0)
return -1;
1999-07-07 22:19:36 +02:00
err = divrnd (1000 * COMTICK, x * rate) - 1000;
if (err < 0)
err = -err;
if (err > SPEED_TOLERANCE)
return -1;
#undef divrnd
return x;
}
static int
2001-07-11 19:52:32 +02:00
dos_setbaudrate (struct serial *scb, int rate)
{
1999-07-07 22:19:36 +02:00
struct dos_ttystate *port = &ports[scb->fd];
1999-07-07 22:19:36 +02:00
if (port->baudrate != rate)
{
int x;
unsigned char cfcr;
x = dos_baudconv (rate);
if (x <= 0)
{
fprintf_unfiltered (gdb_stderr, "%d: impossible baudrate\n", rate);
errno = EINVAL;
return -1;
}
disable ();
cfcr = inb (port, com_cfcr);
outb (port, com_cfcr, CFCR_DLAB);
outb (port, com_dlbl, x & 0xff);
outb (port, com_dlbh, x >> 8);
outb (port, com_cfcr, cfcr);
port->baudrate = rate;
enable ();
}
return 0;
}
static int
2001-07-11 19:52:32 +02:00
dos_setstopbits (struct serial *scb, int num)
{
1999-07-07 22:19:36 +02:00
struct dos_ttystate *port = &ports[scb->fd];
unsigned char cfcr;
1999-07-07 22:19:36 +02:00
disable ();
cfcr = inb (port, com_cfcr);
switch (num)
{
case SERIAL_1_STOPBITS:
outb (port, com_cfcr, cfcr & ~CFCR_STOPB);
break;
case SERIAL_1_AND_A_HALF_STOPBITS:
case SERIAL_2_STOPBITS:
outb (port, com_cfcr, cfcr | CFCR_STOPB);
break;
default:
enable ();
return 1;
}
enable ();
return 0;
}
static int
2001-07-11 19:52:32 +02:00
dos_write (struct serial *scb, const char *str, int len)
{
volatile struct dos_ttystate *port = &ports[scb->fd];
int fifosize = port->fifo ? 16 : 1;
long then;
int cnt;
1999-07-07 22:19:36 +02:00
while (len > 0)
{
/* send the data, fifosize bytes at a time */
cnt = fifosize > len ? len : fifosize;
port->txbusy = 1;
/* Francisco Pastor <fpastor.etra-id@etra.es> says OUTSB messes
up the communications with UARTs with FIFOs. */
#ifdef UART_FIFO_WORKS
1999-07-07 22:19:36 +02:00
outportsb (port->base + com_data, str, cnt);
str += cnt;
len -= cnt;
#else
for ( ; cnt > 0; cnt--, len--)
outportb (port->base + com_data, *str++);
#endif
#ifdef DOS_STATS
1999-07-07 22:19:36 +02:00
cnts[CNT_TX] += cnt;
#endif
1999-07-07 22:19:36 +02:00
/* wait for transmission to complete (max 1 sec) */
then = rawclock () + RAWHZ;
while (port->txbusy)
{
if ((rawclock () - then) >= 0)
{
errno = EIO;
return SERIAL_ERROR;
}
}
}
return 0;
}
static int
2001-07-11 19:52:32 +02:00
dos_sendbreak (struct serial *scb)
{
volatile struct dos_ttystate *port = &ports[scb->fd];
unsigned char cfcr;
long then;
1999-07-07 22:19:36 +02:00
cfcr = inb (port, com_cfcr);
outb (port, com_cfcr, cfcr | CFCR_SBREAK);
/* 0.25 sec delay */
then = rawclock () + RAWHZ / 4;
while ((rawclock () - then) < 0)
continue;
1999-07-07 22:19:36 +02:00
outb (port, com_cfcr, cfcr);
return 0;
}
static struct serial_ops dos_ops =
{
"hardwire",
0,
dos_open,
dos_close,
dos_readchar,
dos_write,
dos_noop, /* flush output */
dos_flush_input,
dos_sendbreak,
dos_raw,
dos_get_tty_state,
dos_set_tty_state,
dos_print_tty_state,
dos_noflush_set_tty_state,
dos_setbaudrate,
dos_setstopbits,
dos_noop, /* wait for output to drain */
2001-07-11 19:52:32 +02:00
(void (*)(struct serial *, int))NULL /* change into async mode */
};
static void
dos_info (char *arg, int from_tty)
{
struct dos_ttystate *port;
#ifdef DOS_STATS
int i;
#endif
1999-07-07 22:19:36 +02:00
for (port = ports; port < &ports[4]; port++)
{
if (port->baudrate == 0)
continue;
printf_filtered ("Port:\tCOM%ld (%sactive)\n", (long)(port - ports) + 1,
port->intrupt ? "" : "not ");
printf_filtered ("Addr:\t0x%03x (irq %d)\n", port->base, port->irq);
printf_filtered ("16550:\t%s\n", port->fifo ? "yes" : "no");
printf_filtered ("Speed:\t%d baud\n", port->baudrate);
1999-07-07 22:19:36 +02:00
printf_filtered ("Errs:\tframing %d parity %d overflow %d\n\n",
port->ferr, port->perr, port->oflo);
}
#ifdef DOS_STATS
printf_filtered ("\nTotal interrupts: %d\n", intrcnt);
for (i = 0; i < NCNT; i++)
if (cnts[i])
printf_filtered ("%s:\t%d\n", cntnames[i], cnts[i]);
#endif
}
void
2000-07-30 03:48:28 +02:00
_initialize_ser_dos (void)
{
serial_add_interface (&dos_ops);
/* Save original interrupt mask register. */
icu_oldmask = inportb (ICU_MASK);
/* Mark fixed motherboard irqs as inuse. */
intrupts[0].inuse = /* timer tick */
intrupts[1].inuse = /* keyboard */
1999-07-07 22:19:36 +02:00
intrupts[2].inuse = 1; /* slave icu */
add_setshow_zinteger_cmd ("com1base", class_obscure, &ports[0].base, _("\
Set COM1 base i/o port address."), _("\
Show COM1 base i/o port address."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com1irq", class_obscure, &ports[0].irq, _("\
Set COM1 interrupt request."), _("\
Show COM1 interrupt request."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com2base", class_obscure, &ports[1].base, _("\
Set COM2 base i/o port address."), _("\
Show COM2 base i/o port address."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com2irq", class_obscure, &ports[1].irq, _("\
Set COM2 interrupt request."), _("\
Show COM2 interrupt request."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com3base", class_obscure, &ports[2].base, _("\
Set COM3 base i/o port address."), _("\
Show COM3 base i/o port address."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com3irq", class_obscure, &ports[2].irq, _("\
Set COM3 interrupt request."), _("\
Show COM3 interrupt request."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com4base", class_obscure, &ports[3].base, _("\
Set COM4 base i/o port address."), _("\
Show COM4 base i/o port address."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_setshow_zinteger_cmd ("com4irq", class_obscure, &ports[3].irq, _("\
Set COM4 interrupt request."), _("\
Show COM4 interrupt request."), NULL,
NULL,
NULL, /* FIXME: i18n: */
&setlist, &showlist);
add_info ("serial", dos_info,
_("Print DOS serial port status."));
}