gdb/ser-go32.c

   1 /* Remote serial interface for local (hardwired) serial ports for GO32.
   2    Copyright (C) 1992-2014 Free Software Foundation, Inc.
   3
   4    Contributed by Nigel Stephens, Algorithmics Ltd. (nigel@algor.co.uk).
   5
   6    This version uses DPMI interrupts to handle buffered i/o
   7    without the separate "asynctsr" program.
   8
   9    This file is part of GDB.
  10
  11    This program is free software; you can redistribute it and/or modify
  12    it under the terms of the GNU General Public License as published by
  13    the Free Software Foundation; either version 3 of the License, or
  14    (at your option) any later version.
  15
  16    This program is distributed in the hope that it will be useful,
  17    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19    GNU General Public License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  23
  24 #include "defs.h"
  25 #include "gdbcmd.h"
  26 #include "serial.h"
  27 #include <string.h>
  28
  29
  30 /*
  31  * NS16550 UART registers
  32  */
  33
  34 #define COM1ADDR        0x3f8
  35 #define COM2ADDR        0x2f8
  36 #define COM3ADDR        0x3e8
  37 #define COM4ADDR        0x3e0
  38
  39 #define com_data        0       /* data register (R/W) */
  40 #define com_dlbl        0       /* divisor latch low (W) */
  41 #define com_ier         1       /* interrupt enable (W) */
  42 #define com_dlbh        1       /* divisor latch high (W) */
  43 #define com_iir         2       /* interrupt identification (R) */
  44 #define com_fifo        2       /* FIFO control (W) */
  45 #define com_lctl        3       /* line control register (R/W) */
  46 #define com_cfcr        3       /* line control register (R/W) */
  47 #define com_mcr         4       /* modem control register (R/W) */
  48 #define com_lsr         5       /* line status register (R/W) */
  49 #define com_msr         6       /* modem status register (R/W) */
  50
  51 /*
  52  * Constants for computing 16 bit baud rate divisor (lower byte
  53  * in com_dlbl, upper in com_dlbh) from 1.8432MHz crystal.  Divisor is
  54  * 1.8432 MHz / (16 * X) for X bps.  If the baud rate can't be set
  55  * to within +- (desired_rate*SPEED_TOLERANCE/1000) bps, we fail.
  56  */
  57 #define COMTICK         (1843200/16)
  58 #define SPEED_TOLERANCE 30      /* thousandths; real == desired +- 3.0% */
  59
  60 /* interrupt enable register */
  61 #define IER_ERXRDY      0x1     /* int on rx ready */
  62 #define IER_ETXRDY      0x2     /* int on tx ready */
  63 #define IER_ERLS        0x4     /* int on line status change */
  64 #define IER_EMSC        0x8     /* int on modem status change */
  65
  66 /* interrupt identification register */
  67 #define IIR_FIFO_MASK   0xc0    /* set if FIFOs are enabled */
  68 #define IIR_IMASK       0xf     /* interrupt cause mask */
  69 #define IIR_NOPEND      0x1     /* nothing pending */
  70 #define IIR_RLS         0x6     /* receive line status */
  71 #define IIR_RXRDY       0x4     /* receive ready */
  72 #define IIR_RXTOUT      0xc     /* receive timeout */
  73 #define IIR_TXRDY       0x2     /* transmit ready */
  74 #define IIR_MLSC        0x0     /* modem status */
  75
  76
  77 /* fifo control register */
  78 #define FIFO_ENABLE     0x01    /* enable fifo */
  79 #define FIFO_RCV_RST    0x02    /* reset receive fifo */
  80 #define FIFO_XMT_RST    0x04    /* reset transmit fifo */
  81 #define FIFO_DMA_MODE   0x08    /* enable dma mode */
  82 #define FIFO_TRIGGER_1  0x00    /* trigger at 1 char */
  83 #define FIFO_TRIGGER_4  0x40    /* trigger at 4 chars */
  84 #define FIFO_TRIGGER_8  0x80    /* trigger at 8 chars */
  85 #define FIFO_TRIGGER_14 0xc0    /* trigger at 14 chars */
  86
  87 /* character format control register */
  88 #define CFCR_DLAB       0x80    /* divisor latch */
  89 #define CFCR_SBREAK     0x40    /* send break */
  90 #define CFCR_PZERO      0x30    /* zero parity */
  91 #define CFCR_PONE       0x20    /* one parity */
  92 #define CFCR_PEVEN      0x10    /* even parity */
  93 #define CFCR_PODD       0x00    /* odd parity */
  94 #define CFCR_PENAB      0x08    /* parity enable */
  95 #define CFCR_STOPB      0x04    /* 2 stop bits */
  96 #define CFCR_8BITS      0x03    /* 8 data bits */
  97 #define CFCR_7BITS      0x02    /* 7 data bits */
  98 #define CFCR_6BITS      0x01    /* 6 data bits */
  99 #define CFCR_5BITS      0x00    /* 5 data bits */
 100
 101 /* modem control register */
 102 #define MCR_LOOPBACK    0x10    /* loopback */
 103 #define MCR_IENABLE     0x08    /* output 2 = int enable */
 104 #define MCR_DRS         0x04    /* output 1 = xxx */
 105 #define MCR_RTS         0x02    /* enable RTS */
 106 #define MCR_DTR         0x01    /* enable DTR */
 107
 108 /* line status register */
 109 #define LSR_RCV_FIFO    0x80    /* error in receive fifo */
 110 #define LSR_TSRE        0x40    /* transmitter empty */
 111 #define LSR_TXRDY       0x20    /* transmitter ready */
 112 #define LSR_BI          0x10    /* break detected */
 113 #define LSR_FE          0x08    /* framing error */
 114 #define LSR_PE          0x04    /* parity error */
 115 #define LSR_OE          0x02    /* overrun error */
 116 #define LSR_RXRDY       0x01    /* receiver ready */
 117 #define LSR_RCV_MASK    0x1f
 118
 119 /* modem status register */
 120 #define MSR_DCD         0x80
 121 #define MSR_RI          0x40
 122 #define MSR_DSR         0x20
 123 #define MSR_CTS         0x10
 124 #define MSR_DDCD        0x08
 125 #define MSR_TERI        0x04
 126 #define MSR_DDSR        0x02
 127 #define MSR_DCTS        0x01
 128
 129 #include <time.h>
 130 #include <dos.h>
 131 #include <go32.h>
 132 #include <dpmi.h>
 133 typedef unsigned long u_long;
 134
 135 /* 16550 rx fifo trigger point */
 136 #define FIFO_TRIGGER    FIFO_TRIGGER_4
 137
 138 /* input buffer size */
 139 #define CBSIZE  4096
 140
 141 #define RAWHZ   18
 142
 143 #ifdef DOS_STATS
 144 #define CNT_RX          16
 145 #define CNT_TX          17
 146 #define CNT_STRAY       18
 147 #define CNT_ORUN        19
 148 #define NCNT            20
 149
 150 static int intrcnt;
 151 static size_t cnts[NCNT];
 152 static char *cntnames[NCNT] =
 153 {
 154   /* h/w interrupt counts.  */
 155   "mlsc", "nopend", "txrdy", "?3",
 156   "rxrdy", "?5", "rls", "?7",
 157   "?8", "?9", "?a", "?b",
 158   "rxtout", "?d", "?e", "?f",
 159   /* s/w counts.  */
 160   "rxcnt", "txcnt", "stray", "swoflo"
 161 };
 162
 163 #define COUNT(x) cnts[x]++
 164 #else
 165 #define COUNT(x)
 166 #endif
 167
 168 /* Main interrupt controller port addresses.  */
 169 #define ICU_BASE        0x20
 170 #define ICU_OCW2        (ICU_BASE + 0)
 171 #define ICU_MASK        (ICU_BASE + 1)
 172
 173 /* Original interrupt controller mask register.  */
 174 unsigned char icu_oldmask;
 175
 176 /* Maximum of 8 interrupts (we don't handle the slave icu yet).  */
 177 #define NINTR   8
 178
 179 static struct intrupt
 180   {
 181     char inuse;
 182     struct dos_ttystate *port;
 183     _go32_dpmi_seginfo old_rmhandler;
 184     _go32_dpmi_seginfo old_pmhandler;
 185     _go32_dpmi_seginfo new_rmhandler;
 186     _go32_dpmi_seginfo new_pmhandler;
 187     _go32_dpmi_registers regs;
 188   }
 189 intrupts[NINTR];
 190
 191
 192 static struct dos_ttystate
 193   {
 194     int base;
 195     int irq;
 196     int refcnt;
 197     struct intrupt *intrupt;
 198     int fifo;
 199     int baudrate;
 200     unsigned char cbuf[CBSIZE];
 201     unsigned int first;
 202     unsigned int count;
 203     int txbusy;
 204     unsigned char old_mcr;
 205     int ferr;
 206     int perr;
 207     int oflo;
 208     int msr;
 209   }
 210 ports[4] =
 211 {
 212   {
 213     COM1ADDR, 4, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
 214   }
 215   ,
 216   {
 217     COM2ADDR, 3, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
 218   }
 219   ,
 220   {
 221     COM3ADDR, 4, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
 222   }
 223   ,
 224   {
 225     COM4ADDR, 3, 0, NULL, 0, 0, "", 0, 0, 0, 0, 0, 0, 0, 0
 226   }
 227 };
 228
 229 static int dos_open (struct serial *scb, const char *name);
 230 static void dos_raw (struct serial *scb);
 231 static int dos_readchar (struct serial *scb, int timeout);
 232 static int dos_setbaudrate (struct serial *scb, int rate);
 233 static int dos_write (struct serial *scb, const void *buf, size_t count);
 234 static void dos_close (struct serial *scb);
 235 static serial_ttystate dos_get_tty_state (struct serial *scb);
 236 static int dos_set_tty_state (struct serial *scb, serial_ttystate state);
 237 static int dos_baudconv (int rate);
 238
 239 #define inb(p,a)        inportb((p)->base + (a))
 240 #define outb(p,a,v)     outportb((p)->base + (a), (v))
 241 #define disable()       asm volatile ("cli");
 242 #define enable()        asm volatile ("sti");
 243
 244
 245 static int
 246 dos_getc (volatile struct dos_ttystate *port)
 247 {
 248   int c;
 249
 250   if (port->count == 0)
 251     return -1;
 252
 253   c = port->cbuf[port->first];
 254   disable ();
 255   port->first = (port->first + 1) & (CBSIZE - 1);
 256   port->count--;
 257   enable ();
 258   return c;
 259 }
 260
 261
 262 static int
 263 dos_putc (int c, struct dos_ttystate *port)
 264 {
 265   if (port->count >= CBSIZE - 1)
 266     return -1;
 267   port->cbuf[(port->first + port->count) & (CBSIZE - 1)] = c;
 268   port->count++;
 269   return 0;
 270 }
 271 \f
 272
 273
 274 static void
 275 dos_comisr (int irq)
 276 {
 277   struct dos_ttystate *port;
 278   unsigned char iir, lsr, c;
 279
 280   disable ();                   /* Paranoia */
 281   outportb (ICU_OCW2, 0x20);    /* End-Of-Interrupt */
 282 #ifdef DOS_STATS
 283   ++intrcnt;
 284 #endif
 285
 286   port = intrupts[irq].port;
 287   if (!port)
 288     {
 289       COUNT (CNT_STRAY);
 290       return;                   /* not open */
 291     }
 292
 293   while (1)
 294     {
 295       iir = inb (port, com_iir) & IIR_IMASK;
 296       switch (iir)
 297         {
 298
 299         case IIR_RLS:
 300           lsr = inb (port, com_lsr);
 301           goto rx;
 302
 303         case IIR_RXTOUT:
 304         case IIR_RXRDY:
 305           lsr = 0;
 306
 307         rx:
 308           do
 309             {
 310               c = inb (port, com_data);
 311               if (lsr & (LSR_BI | LSR_FE | LSR_PE | LSR_OE))
 312                 {
 313                   if (lsr & (LSR_BI | LSR_FE))
 314                     port->ferr++;
 315                   else if (lsr & LSR_PE)
 316                     port->perr++;
 317                   if (lsr & LSR_OE)
 318                     port->oflo++;
 319                 }
 320
 321               if (dos_putc (c, port) < 0)
 322                 {
 323                   COUNT (CNT_ORUN);
 324                 }
 325               else
 326                 {
 327                   COUNT (CNT_RX);
 328                 }
 329             }
 330           while ((lsr = inb (port, com_lsr)) & LSR_RXRDY);
 331           break;
 332
 333         case IIR_MLSC:
 334           /* could be used to flowcontrol Tx */
 335           port->msr = inb (port, com_msr);
 336           break;
 337
 338         case IIR_TXRDY:
 339           port->txbusy = 0;
 340           break;
 341
 342         case IIR_NOPEND:
 343           /* No more pending interrupts, all done.  */
 344           return;
 345
 346         default:
 347           /* Unexpected interrupt, ignore.  */
 348           break;
 349         }
 350       COUNT (iir);
 351     }
 352 }
 353
 354 #define ISRNAME(x) dos_comisr##x
 355 #define ISR(x) static void ISRNAME(x)(void) {dos_comisr(x);}
 356
 357 ISR (0) ISR (1) ISR (2) ISR (3) /* OK */
 358 ISR (4) ISR (5) ISR (6) ISR (7) /* OK */
 359
 360 typedef void (*isr_t) (void);
 361
 362 static isr_t isrs[NINTR] =
 363   {
 364        ISRNAME (0), ISRNAME (1), ISRNAME (2), ISRNAME (3),
 365        ISRNAME (4), ISRNAME (5), ISRNAME (6), ISRNAME (7)
 366   };
 367 \f
 368
 369
 370 static struct intrupt *
 371 dos_hookirq (unsigned int irq)
 372 {
 373   struct intrupt *intr;
 374   unsigned int vec;
 375   isr_t isr;
 376
 377   if (irq >= NINTR)
 378     return 0;
 379
 380   intr = &intrupts[irq];
 381   if (intr->inuse)
 382     return 0;
 383
 384   vec = 0x08 + irq;
 385   isr = isrs[irq];
 386
 387   /* Setup real mode handler.  */
 388   _go32_dpmi_get_real_mode_interrupt_vector (vec, &intr->old_rmhandler);
 389
 390   intr->new_rmhandler.pm_selector = _go32_my_cs ();
 391   intr->new_rmhandler.pm_offset = (u_long) isr;
 392   if (_go32_dpmi_allocate_real_mode_callback_iret (&intr->new_rmhandler,
 393                                                    &intr->regs))
 394     {
 395       return 0;
 396     }
 397
 398   if (_go32_dpmi_set_real_mode_interrupt_vector (vec, &intr->new_rmhandler))
 399     {
 400       return 0;
 401     }
 402
 403   /* Setup protected mode handler.  */
 404   _go32_dpmi_get_protected_mode_interrupt_vector (vec, &intr->old_pmhandler);
 405
 406   intr->new_pmhandler.pm_selector = _go32_my_cs ();
 407   intr->new_pmhandler.pm_offset = (u_long) isr;
 408   _go32_dpmi_allocate_iret_wrapper (&intr->new_pmhandler);
 409
 410   if (_go32_dpmi_set_protected_mode_interrupt_vector (vec,
 411                                                       &intr->new_pmhandler))
 412     {
 413       return 0;
 414     }
 415
 416   /* Setup interrupt controller mask.  */
 417   disable ();
 418   outportb (ICU_MASK, inportb (ICU_MASK) & ~(1 << irq));
 419   enable ();
 420
 421   intr->inuse = 1;
 422   return intr;
 423 }
 424
 425
 426 static void
 427 dos_unhookirq (struct intrupt *intr)
 428 {
 429   unsigned int irq, vec;
 430   unsigned char mask;
 431
 432   irq = intr - intrupts;
 433   vec = 0x08 + irq;
 434
 435   /* Restore old interrupt mask bit.  */
 436   mask = 1 << irq;
 437   disable ();
 438   outportb (ICU_MASK, inportb (ICU_MASK) | (mask & icu_oldmask));
 439   enable ();
 440
 441   /* Remove real mode handler.  */
 442   _go32_dpmi_set_real_mode_interrupt_vector (vec, &intr->old_rmhandler);
 443   _go32_dpmi_free_real_mode_callback (&intr->new_rmhandler);
 444
 445   /* Remove protected mode handler.  */
 446   _go32_dpmi_set_protected_mode_interrupt_vector (vec, &intr->old_pmhandler);
 447   _go32_dpmi_free_iret_wrapper (&intr->new_pmhandler);
 448   intr->inuse = 0;
 449 }
 450 \f
 451
 452
 453 static int
 454 dos_open (struct serial *scb, const char *name)
 455 {
 456   struct dos_ttystate *port;
 457   int fd, i;
 458
 459   if (strncasecmp (name, "/dev/", 5) == 0)
 460     name += 5;
 461   else if (strncasecmp (name, "\\dev\\", 5) == 0)
 462     name += 5;
 463
 464   if (strlen (name) != 4 || strncasecmp (name, "com", 3) != 0)
 465     {
 466       errno = ENOENT;
 467       return -1;
 468     }
 469
 470   if (name[3] < '1' || name[3] > '4')
 471     {
 472       errno = ENOENT;
 473       return -1;
 474     }
 475
 476   /* FIXME: this is a Bad Idea (tm)!  One should *never* invent file
 477      handles, since they might be already used by other files/devices.
 478      The Right Way to do this is to create a real handle by dup()'ing
 479      some existing one.  */
 480   fd = name[3] - '1';
 481   port = &ports[fd];
 482   if (port->refcnt++ > 0)
 483     {
 484       /* Device already opened another user.  Just point at it.  */
 485       scb->fd = fd;
 486       return 0;
 487     }
 488
 489   /* Force access to ID reg.  */
 490   outb (port, com_cfcr, 0);
 491   outb (port, com_iir, 0);
 492   for (i = 0; i < 17; i++)
 493     {
 494       if ((inb (port, com_iir) & 0x38) == 0)
 495         goto ok;
 496       (void) inb (port, com_data);      /* clear recv */
 497     }
 498   errno = ENODEV;
 499   return -1;
 500
 501 ok:
 502   /* Disable all interrupts in chip.  */
 503   outb (port, com_ier, 0);
 504
 505   /* Tentatively enable 16550 fifo, and see if it responds.  */
 506   outb (port, com_fifo,
 507         FIFO_ENABLE | FIFO_RCV_RST | FIFO_XMT_RST | FIFO_TRIGGER);
 508   sleep (1);
 509   port->fifo = ((inb (port, com_iir) & IIR_FIFO_MASK) == IIR_FIFO_MASK);
 510
 511   /* clear pending status reports.  */
 512   (void) inb (port, com_lsr);
 513   (void) inb (port, com_msr);
 514
 515   /* Enable external interrupt gate (to avoid floating IRQ).  */
 516   outb (port, com_mcr, MCR_IENABLE);
 517
 518   /* Hook up interrupt handler and initialise icu.  */
 519   port->intrupt = dos_hookirq (port->irq);
 520   if (!port->intrupt)
 521     {
 522       outb (port, com_mcr, 0);
 523       outb (port, com_fifo, 0);
 524       errno = ENODEV;
 525       return -1;
 526     }
 527
 528   disable ();
 529
 530   /* record port */
 531   port->intrupt->port = port;
 532   scb->fd = fd;
 533
 534   /* Clear rx buffer, tx busy flag and overflow count.  */
 535   port->first = port->count = 0;
 536   port->txbusy = 0;
 537   port->oflo = 0;
 538
 539   /* Set default baud rate and mode: 9600,8,n,1 */
 540   i = dos_baudconv (port->baudrate = 9600);
 541   outb (port, com_cfcr, CFCR_DLAB);
 542   outb (port, com_dlbl, i & 0xff);
 543   outb (port, com_dlbh, i >> 8);
 544   outb (port, com_cfcr, CFCR_8BITS);
 545
 546   /* Enable all interrupts.  */
 547   outb (port, com_ier, IER_ETXRDY | IER_ERXRDY | IER_ERLS | IER_EMSC);
 548
 549   /* Enable DTR & RTS.  */
 550   outb (port, com_mcr, MCR_DTR | MCR_RTS | MCR_IENABLE);
 551
 552   enable ();
 553
 554   return 0;
 555 }
 556
 557
 558 static void
 559 dos_close (struct serial *scb)
 560 {
 561   struct dos_ttystate *port;
 562   struct intrupt *intrupt;
 563
 564   if (!scb)
 565     return;
 566
 567   port = &ports[scb->fd];
 568
 569   if (port->refcnt-- > 1)
 570     return;
 571
 572   if (!(intrupt = port->intrupt))
 573     return;
 574
 575   /* Disable interrupts, fifo, flow control.  */
 576   disable ();
 577   port->intrupt = 0;
 578   intrupt->port = 0;
 579   outb (port, com_fifo, 0);
 580   outb (port, com_ier, 0);
 581   enable ();
 582
 583   /* Unhook handler, and disable interrupt gate.  */
 584   dos_unhookirq (intrupt);
 585   outb (port, com_mcr, 0);
 586
 587   /* Check for overflow errors.  */
 588   if (port->oflo)
 589     {
 590       fprintf_unfiltered (gdb_stderr,
 591                           "Serial input overruns occurred.\n");
 592       fprintf_unfiltered (gdb_stderr, "This system %s handle %d baud.\n",
 593                           port->fifo ? "cannot" : "needs a 16550 to",
 594                           port->baudrate);
 595     }
 596 }
 597 \f
 598
 599
 600 static int
 601 dos_noop (struct serial *scb)
 602 {
 603   return 0;
 604 }
 605
 606 static void
 607 dos_raw (struct serial *scb)
 608 {
 609   /* Always in raw mode.  */
 610 }
 611
 612 static int
 613 dos_readchar (struct serial *scb, int timeout)
 614 {
 615   struct dos_ttystate *port = &ports[scb->fd];
 616   long then;
 617   int c;
 618
 619   then = rawclock () + (timeout * RAWHZ);
 620   while ((c = dos_getc (port)) < 0)
 621     {
 622       if (timeout >= 0 && (rawclock () - then) >= 0)
 623         return SERIAL_TIMEOUT;
 624     }
 625
 626   return c;
 627 }
 628
 629
 630 static serial_ttystate
 631 dos_get_tty_state (struct serial *scb)
 632 {
 633   struct dos_ttystate *port = &ports[scb->fd];
 634   struct dos_ttystate *state;
 635
 636   /* Are they asking about a port we opened?  */
 637   if (port->refcnt <= 0)
 638     {
 639       /* We've never heard about this port.  We should fail this call,
 640          unless they are asking about one of the 3 standard handles,
 641          in which case we pretend the handle was open by us if it is
 642          connected to a terminal device.  This is beacuse Unix
 643          terminals use the serial interface, so GDB expects the
 644          standard handles to go through here.  */
 645       if (scb->fd >= 3 || !isatty (scb->fd))
 646         return NULL;
 647     }
 648
 649   state = (struct dos_ttystate *) xmalloc (sizeof *state);
 650   *state = *port;
 651   return (serial_ttystate) state;
 652 }
 653
 654 static serial_ttystate
 655 dos_copy_tty_state (struct serial *scb, serial_ttystate ttystate)
 656 {
 657   struct dos_ttystate *state;
 658
 659   state = (struct dos_ttystate *) xmalloc (sizeof *state);
 660   *state = *(struct dos_ttystate *) ttystate;
 661
 662   return (serial_ttystate) state;
 663 }
 664
 665 static int
 666 dos_set_tty_state (struct serial *scb, serial_ttystate ttystate)
 667 {
 668   struct dos_ttystate *state;
 669
 670   state = (struct dos_ttystate *) ttystate;
 671   dos_setbaudrate (scb, state->baudrate);
 672   return 0;
 673 }
 674
 675 static int
 676 dos_noflush_set_tty_state (struct serial *scb, serial_ttystate new_ttystate,
 677                            serial_ttystate old_ttystate)
 678 {
 679   struct dos_ttystate *state;
 680
 681   state = (struct dos_ttystate *) new_ttystate;
 682   dos_setbaudrate (scb, state->baudrate);
 683   return 0;
 684 }
 685
 686 static int
 687 dos_flush_input (struct serial *scb)
 688 {
 689   struct dos_ttystate *port = &ports[scb->fd];
 690
 691   disable ();
 692   port->first = port->count = 0;
 693   if (port->fifo)
 694     outb (port, com_fifo, FIFO_ENABLE | FIFO_RCV_RST | FIFO_TRIGGER);
 695   enable ();
 696   return 0;
 697 }
 698
 699 static void
 700 dos_print_tty_state (struct serial *scb, serial_ttystate ttystate,
 701                      struct ui_file *stream)
 702 {
 703   /* Nothing to print.  */
 704   return;
 705 }
 706
 707 static int
 708 dos_baudconv (int rate)
 709 {
 710   long x, err;
 711
 712   if (rate <= 0)
 713     return -1;
 714
 715 #define divrnd(n, q)    (((n) * 2 / (q) + 1) / 2) /* Divide and round off.  */
 716   x = divrnd (COMTICK, rate);
 717   if (x <= 0)
 718     return -1;
 719
 720   err = divrnd (1000 * COMTICK, x * rate) - 1000;
 721   if (err < 0)
 722     err = -err;
 723   if (err > SPEED_TOLERANCE)
 724     return -1;
 725 #undef divrnd
 726   return x;
 727 }
 728
 729
 730 static int
 731 dos_setbaudrate (struct serial *scb, int rate)
 732 {
 733   struct dos_ttystate *port = &ports[scb->fd];
 734
 735   if (port->baudrate != rate)
 736     {
 737       int x;
 738       unsigned char cfcr;
 739
 740       x = dos_baudconv (rate);
 741       if (x <= 0)
 742         {
 743           fprintf_unfiltered (gdb_stderr, "%d: impossible baudrate\n", rate);
 744           errno = EINVAL;
 745           return -1;
 746         }
 747
 748       disable ();
 749       cfcr = inb (port, com_cfcr);
 750
 751       outb (port, com_cfcr, CFCR_DLAB);
 752       outb (port, com_dlbl, x & 0xff);
 753       outb (port, com_dlbh, x >> 8);
 754       outb (port, com_cfcr, cfcr);
 755       port->baudrate = rate;
 756       enable ();
 757     }
 758
 759   return 0;
 760 }
 761
 762 static int
 763 dos_setstopbits (struct serial *scb, int num)
 764 {
 765   struct dos_ttystate *port = &ports[scb->fd];
 766   unsigned char cfcr;
 767
 768   disable ();
 769   cfcr = inb (port, com_cfcr);
 770
 771   switch (num)
 772     {
 773     case SERIAL_1_STOPBITS:
 774       outb (port, com_cfcr, cfcr & ~CFCR_STOPB);
 775       break;
 776     case SERIAL_1_AND_A_HALF_STOPBITS:
 777     case SERIAL_2_STOPBITS:
 778       outb (port, com_cfcr, cfcr | CFCR_STOPB);
 779       break;
 780     default:
 781       enable ();
 782       return 1;
 783     }
 784   enable ();
 785
 786   return 0;
 787 }
 788
 789 static int
 790 dos_write (struct serial *scb, const void *buf, size_t count)
 791 {
 792   volatile struct dos_ttystate *port = &ports[scb->fd];
 793   size_t fifosize = port->fifo ? 16 : 1;
 794   long then;
 795   size_t cnt;
 796   const char *str = buf;
 797
 798   while (count > 0)
 799     {
 800       /* Send the data, fifosize bytes at a time.  */
 801       cnt = fifosize > count ? count : fifosize;
 802       port->txbusy = 1;
 803       /* Francisco Pastor <fpastor.etra-id@etra.es> says OUTSB messes
 804          up the communications with UARTs with FIFOs.  */
 805 #ifdef UART_FIFO_WORKS
 806       outportsb (port->base + com_data, str, cnt);
 807       str += cnt;
 808       count -= cnt;
 809 #else
 810       for ( ; cnt > 0; cnt--, count--)
 811         outportb (port->base + com_data, *str++);
 812 #endif
 813 #ifdef DOS_STATS
 814       cnts[CNT_TX] += cnt;
 815 #endif
 816       /* Wait for transmission to complete (max 1 sec).  */
 817       then = rawclock () + RAWHZ;
 818       while (port->txbusy)
 819         {
 820           if ((rawclock () - then) >= 0)
 821             {
 822               errno = EIO;
 823               return SERIAL_ERROR;
 824             }
 825         }
 826     }
 827   return 0;
 828 }
 829
 830
 831 static int
 832 dos_sendbreak (struct serial *scb)
 833 {
 834   volatile struct dos_ttystate *port = &ports[scb->fd];
 835   unsigned char cfcr;
 836   long then;
 837
 838   cfcr = inb (port, com_cfcr);
 839   outb (port, com_cfcr, cfcr | CFCR_SBREAK);
 840
 841   /* 0.25 sec delay */
 842   then = rawclock () + RAWHZ / 4;
 843   while ((rawclock () - then) < 0)
 844     continue;
 845
 846   outb (port, com_cfcr, cfcr);
 847   return 0;
 848 }
 849
 850
 851 static const struct serial_ops dos_ops =
 852 {
 853   "hardwire",
 854   dos_open,
 855   dos_close,
 856   NULL,                         /* fdopen, not implemented */
 857   dos_readchar,
 858   dos_write,
 859   dos_noop,                     /* flush output */
 860   dos_flush_input,
 861   dos_sendbreak,
 862   dos_raw,
 863   dos_get_tty_state,
 864   dos_copy_tty_state,
 865   dos_set_tty_state,
 866   dos_print_tty_state,
 867   dos_noflush_set_tty_state,
 868   dos_setbaudrate,
 869   dos_setstopbits,
 870   dos_noop,                     /* Wait for output to drain.  */
 871   (void (*)(struct serial *, int))NULL  /* Change into async mode.  */
 872 };
 873
 874 int
 875 gdb_pipe (int pdes[2])
 876 {
 877   /* No support for pipes.  */
 878   errno = ENOSYS;
 879   return -1;
 880 }
 881
 882 static void
 883 dos_info (char *arg, int from_tty)
 884 {
 885   struct dos_ttystate *port;
 886 #ifdef DOS_STATS
 887   int i;
 888 #endif
 889
 890   for (port = ports; port < &ports[4]; port++)
 891     {
 892       if (port->baudrate == 0)
 893         continue;
 894       printf_filtered ("Port:\tCOM%ld (%sactive)\n", (long)(port - ports) + 1,
 895                        port->intrupt ? "" : "not ");
 896       printf_filtered ("Addr:\t0x%03x (irq %d)\n", port->base, port->irq);
 897       printf_filtered ("16550:\t%s\n", port->fifo ? "yes" : "no");
 898       printf_filtered ("Speed:\t%d baud\n", port->baudrate);
 899       printf_filtered ("Errs:\tframing %d parity %d overflow %d\n\n",
 900                        port->ferr, port->perr, port->oflo);
 901     }
 902
 903 #ifdef DOS_STATS
 904   printf_filtered ("\nTotal interrupts: %d\n", intrcnt);
 905   for (i = 0; i < NCNT; i++)
 906     if (cnts[i])
 907       printf_filtered ("%s:\t%lu\n", cntnames[i], (unsigned long) cnts[i]);
 908 #endif
 909 }
 910
 911 /* -Wmissing-prototypes */
 912 extern initialize_file_ftype _initialize_ser_dos;
 913
 914 void
 915 _initialize_ser_dos (void)
 916 {
 917   serial_add_interface (&dos_ops);
 918
 919   /* Save original interrupt mask register.  */
 920   icu_oldmask = inportb (ICU_MASK);
 921
 922   /* Mark fixed motherboard irqs as inuse.  */
 923   intrupts[0].inuse =           /* timer tick */
 924     intrupts[1].inuse =         /* keyboard */
 925     intrupts[2].inuse = 1;      /* slave icu */
 926
 927   add_setshow_zinteger_cmd ("com1base", class_obscure, &ports[0].base, _("\
 928 Set COM1 base i/o port address."), _("\
 929 Show COM1 base i/o port address."), NULL,
 930                             NULL,
 931                             NULL, /* FIXME: i18n: */
 932                             &setlist, &showlist);
 933
 934   add_setshow_zinteger_cmd ("com1irq", class_obscure, &ports[0].irq, _("\
 935 Set COM1 interrupt request."), _("\
 936 Show COM1 interrupt request."), NULL,
 937                             NULL,
 938                             NULL, /* FIXME: i18n: */
 939                             &setlist, &showlist);
 940
 941   add_setshow_zinteger_cmd ("com2base", class_obscure, &ports[1].base, _("\
 942 Set COM2 base i/o port address."), _("\
 943 Show COM2 base i/o port address."), NULL,
 944                             NULL,
 945                             NULL, /* FIXME: i18n: */
 946                             &setlist, &showlist);
 947
 948   add_setshow_zinteger_cmd ("com2irq", class_obscure, &ports[1].irq, _("\
 949 Set COM2 interrupt request."), _("\
 950 Show COM2 interrupt request."), NULL,
 951                             NULL,
 952                             NULL, /* FIXME: i18n: */
 953                             &setlist, &showlist);
 954
 955   add_setshow_zinteger_cmd ("com3base", class_obscure, &ports[2].base, _("\
 956 Set COM3 base i/o port address."), _("\
 957 Show COM3 base i/o port address."), NULL,
 958                             NULL,
 959                             NULL, /* FIXME: i18n: */
 960                             &setlist, &showlist);
 961
 962   add_setshow_zinteger_cmd ("com3irq", class_obscure, &ports[2].irq, _("\
 963 Set COM3 interrupt request."), _("\
 964 Show COM3 interrupt request."), NULL,
 965                             NULL,
 966                             NULL, /* FIXME: i18n: */
 967                             &setlist, &showlist);
 968
 969   add_setshow_zinteger_cmd ("com4base", class_obscure, &ports[3].base, _("\
 970 Set COM4 base i/o port address."), _("\
 971 Show COM4 base i/o port address."), NULL,
 972                             NULL,
 973                             NULL, /* FIXME: i18n: */
 974                             &setlist, &showlist);
 975
 976   add_setshow_zinteger_cmd ("com4irq", class_obscure, &ports[3].irq, _("\
 977 Set COM4 interrupt request."), _("\
 978 Show COM4 interrupt request."), NULL,
 979                             NULL,
 980                             NULL, /* FIXME: i18n: */
 981                             &setlist, &showlist);
 982
 983   add_info ("serial", dos_info,
 984             _("Print DOS serial port status."));
 985 }