Subversion Repositories HelenOS

Rev

Rev 2306 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /*
  2.  * Copyright (c) 2007 Michal Kebrt, Petr Stepan
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  *
  9.  * - Redistributions of source code must retain the above copyright
  10.  *   notice, this list of conditions and the following disclaimer.
  11.  * - Redistributions in binary form must reproduce the above copyright
  12.  *   notice, this list of conditions and the following disclaimer in the
  13.  *   documentation and/or other materials provided with the distribution.
  14.  * - The name of the author may not be used to endorse or promote products
  15.  *   derived from this software without specific prior written permission.
  16.  *
  17.  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  18.  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  19.  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  20.  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  21.  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  22.  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  23.  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  24.  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  25.  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  26.  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27.  */
  28.  
  29. /** @addtogroup arm32
  30.  * @{
  31.  */
  32. /** @file
  33.  */
  34.  
  35. #include <interrupt.h>
  36. #include <ipc/irq.h>
  37. #include <console/chardev.h>
  38. #include <arch/drivers/gxemul.h>
  39. #include <console/console.h>
  40. #include <sysinfo/sysinfo.h>
  41. #include <print.h>
  42. #include <ddi/device.h>
  43. #include <mm/page.h>
  44. #include <arch/machine.h>
  45. #include <arch/debug/print.h>
  46.  
  47. /** Address of devices. */
  48. #define GXEMUL_VIDEORAM            0x10000000
  49. #define GXEMUL_KBD                 0x10000000
  50. #define GXEMUL_HALT_OFFSET         0x10
  51. #define GXEMUL_RTC                 0x15000000
  52. #define GXEMUL_RTC_FREQ_OFFSET     0x100
  53. #define GXEMUL_RTC_ACK_OFFSET      0x110
  54. #define GXEMUL_IRQC                0x16000000
  55. #define GXEMUL_IRQC_MASK_OFFSET    0x4
  56. #define GXEMUL_IRQC_UNMASK_OFFSET  0x8
  57. #define GXEMUL_MP                  0x11000000
  58. #define GXEMUL_MP_MEMSIZE_OFFSET   0x0090
  59.  
  60.  
  61. /** IRQs */
  62. #define GXEMUL_KBD_IRQ      2
  63. #define GXEMUL_TIMER_IRQ    4
  64.  
  65. static gxemul_hw_map_t gxemul_hw_map;
  66. static chardev_t console;
  67. static irq_t gxemul_irq;
  68. static irq_t gxemul_timer_irq;
  69.  
  70. static bool hw_map_init_called = false;
  71.  
  72. static void gxemul_write(chardev_t *dev, const char ch);
  73. static void gxemul_enable(chardev_t *dev);
  74. static void gxemul_disable(chardev_t *dev);
  75. static char gxemul_do_read(chardev_t *dev);
  76.  
  77. static chardev_operations_t gxemul_ops = {
  78.     .resume = gxemul_enable,
  79.     .suspend = gxemul_disable,
  80.     .write = gxemul_write,
  81.     .read = gxemul_do_read,
  82. };
  83.  
  84.  
  85. /** Initializes #gxemul_hw_map. */
  86. void machine_hw_map_init(void)
  87. {
  88.     gxemul_hw_map.videoram = hw_map(GXEMUL_VIDEORAM, PAGE_SIZE);
  89.     gxemul_hw_map.kbd = hw_map(GXEMUL_KBD, PAGE_SIZE);
  90.     gxemul_hw_map.rtc = hw_map(GXEMUL_RTC, PAGE_SIZE);
  91.     gxemul_hw_map.irqc = hw_map(GXEMUL_IRQC, PAGE_SIZE);
  92.  
  93.     gxemul_hw_map.rtc_freq = gxemul_hw_map.rtc + GXEMUL_RTC_FREQ_OFFSET;
  94.     gxemul_hw_map.rtc_ack = gxemul_hw_map.rtc + GXEMUL_RTC_ACK_OFFSET;
  95.     gxemul_hw_map.irqc_mask = gxemul_hw_map.irqc + GXEMUL_IRQC_MASK_OFFSET;
  96.     gxemul_hw_map.irqc_unmask = gxemul_hw_map.irqc + GXEMUL_IRQC_UNMASK_OFFSET;
  97.  
  98.     hw_map_init_called = true;
  99. }
  100.  
  101. /** Putchar that works with gxemul */
  102. void gxemul_write(chardev_t *dev, const char ch)
  103. {
  104.     *((char *) gxemul_hw_map.videoram) = ch;
  105. }
  106.  
  107. /* Called from getc(). */
  108. void gxemul_enable(chardev_t *dev)
  109. {
  110. //  cp0_unmask_int(GXEMUL_KBD_IRQ);
  111.     gxemul_irqc_unmask(GXEMUL_KBD_IRQ);
  112. }
  113.  
  114. /* Called from getc(). */
  115. void gxemul_disable(chardev_t *dev)
  116. {
  117. //  cp0_mask_int(GXEMUL_KBD_IRQ);
  118.     gxemul_irqc_mask(GXEMUL_KBD_IRQ);
  119. }
  120.  
  121. /** Read character using polling, assume interrupts disabled */
  122. static char gxemul_do_read(chardev_t *dev)
  123. {
  124.     char ch;
  125.  
  126.     while (1) {
  127.         ch = *((volatile char *) gxemul_hw_map.kbd);
  128.         if (ch) {
  129.             if (ch == '\r')
  130.                 return '\n';
  131.             if (ch == 0x7f)
  132.                 return '\b';
  133.             return ch;
  134.         }
  135.     }
  136. }
  137.  
  138. /** Process keyboard interrupt. */
  139. static void gxemul_irq_handler(irq_t *irq, void *arg, ...)
  140. {
  141.     if ((irq->notif_cfg.notify) && (irq->notif_cfg.answerbox))
  142.         ipc_irq_send_notif(irq);
  143.     else {
  144.         char ch = 0;
  145.        
  146.             ch = *((char *) gxemul_hw_map.kbd);
  147.             if (ch =='\r')
  148.                 ch = '\n';
  149.             if (ch == 0x7f)
  150.                 ch = '\b';
  151.             chardev_push_character(&console, ch);
  152.     }
  153. }
  154.  
  155. static irq_ownership_t gxemul_claim(void)
  156. {
  157.     return IRQ_ACCEPT;
  158. }
  159.  
  160. void machine_grab_console(void)
  161. {
  162.     ipl_t ipl = interrupts_disable();
  163.     spinlock_lock(&gxemul_irq.lock);
  164.     gxemul_irq.notif_cfg.notify = false;
  165.     spinlock_unlock(&gxemul_irq.lock);
  166.     interrupts_restore(ipl);
  167. }
  168.  
  169. void machine_release_console(void)
  170. {
  171.     ipl_t ipl = interrupts_disable();
  172.     spinlock_lock(&gxemul_irq.lock);
  173.     if (gxemul_irq.notif_cfg.answerbox)
  174.         gxemul_irq.notif_cfg.notify = true;
  175.     spinlock_unlock(&gxemul_irq.lock);
  176.     interrupts_restore(ipl);
  177. }
  178.  
  179.  
  180. /** Return console object representing gxemul console */
  181. void machine_console_init(devno_t devno)
  182. {
  183.     chardev_initialize("gxemul_console", &console, &gxemul_ops);
  184.     stdin = &console;
  185.     stdout = &console;
  186.    
  187.     irq_initialize(&gxemul_irq);
  188.     gxemul_irq.devno = devno;
  189.     gxemul_irq.inr = GXEMUL_KBD_IRQ;
  190.     gxemul_irq.claim = gxemul_claim;
  191.     gxemul_irq.handler = gxemul_irq_handler;
  192.     irq_register(&gxemul_irq);
  193.    
  194. //  cp0_unmask_int(GXEMUL_KBD_IRQ);
  195.     gxemul_irqc_unmask(GXEMUL_KBD_IRQ);
  196.    
  197.     sysinfo_set_item_val("kbd", NULL, true);
  198.     sysinfo_set_item_val("kbd.devno", NULL, devno);
  199.     sysinfo_set_item_val("kbd.inr", NULL, GXEMUL_KBD_IRQ);
  200.     sysinfo_set_item_val("kbd.address.virtual", NULL, gxemul_hw_map.kbd);
  201. }
  202.  
  203. /** Return the mask of active interrupts. */
  204. inline uint32_t gxemul_irqc_get_sources(void)
  205. {
  206.     return *(uint32_t*) gxemul_hw_map.irqc;
  207. }
  208.  
  209. /** Masks interrupt.
  210.  *
  211.  * @param irq interrupt number
  212.  */
  213. inline void gxemul_irqc_mask(uint32_t irq)
  214. {
  215.     *(uint32_t*) gxemul_hw_map.irqc_mask = irq;
  216. }
  217.  
  218. /** Unmasks interrupt.
  219.  *
  220.  * @param irq interrupt number
  221.  */
  222. inline void gxemul_irqc_unmask(uint32_t irq)
  223. {
  224.     *(uint32_t*) gxemul_hw_map.irqc_unmask = irq;
  225. }
  226.  
  227.  
  228. /** Starts gxemul Real Time Clock device, which asserts regular interrupts.
  229.  *
  230.  * @param frequency interrupts frequency (0 disables RTC)
  231.  */
  232. void gxemul_timer_start(uint32_t frequency)
  233. {
  234.     *(uint32_t*) gxemul_hw_map.rtc_freq = frequency;
  235. }
  236.  
  237. static irq_ownership_t gxemul_timer_claim(void)
  238. {
  239.     return IRQ_ACCEPT;
  240. }
  241.  
  242. static void gxemul_timer_irq_handler(irq_t *irq, void *arg, ...)
  243. {
  244.     /* TODO time drifts ??
  245.     unsigned long drift;
  246.  
  247.     drift = cp0_count_read() - nextcount;
  248.     while (drift > cp0_compare_value) {
  249.         drift -= cp0_compare_value;
  250.         CPU->missed_clock_ticks++;
  251.     }
  252.     nextcount = cp0_count_read() + cp0_compare_value - drift;
  253.     cp0_compare_write(nextcount);
  254.     */
  255.  
  256.     /*
  257.     * We are holding a lock which prevents preemption.
  258.     * Release the lock, call clock() and reacquire the lock again.
  259.     */
  260.     spinlock_unlock(&irq->lock);
  261.     clock();
  262.     spinlock_lock(&irq->lock);
  263.  
  264.     /* acknowledge tick */
  265.     *(uint32_t*) gxemul_hw_map.rtc_ack = 0;
  266.    
  267.     /* TODO what's that? *
  268.     if (virtual_timer_fnc != NULL)
  269.         virtual_timer_fnc();
  270.     */
  271. }
  272.  
  273. /**
  274.  * Initializes and registers timer interrupt handler.
  275.  */
  276. void gxemul_timer_irq_init()
  277. {
  278.     irq_initialize(&gxemul_timer_irq);
  279.     gxemul_timer_irq.devno = device_assign_devno();
  280.     gxemul_timer_irq.inr = GXEMUL_TIMER_IRQ;
  281.     gxemul_timer_irq.claim = gxemul_timer_claim;
  282.     gxemul_timer_irq.handler = gxemul_timer_irq_handler;
  283.  
  284.     irq_register(&gxemul_timer_irq);
  285. }
  286.  
  287. void machine_timer_irq_start()
  288. {
  289.     gxemul_timer_irq_init();
  290.     gxemul_timer_start(GXEMUL_TIMER_FREQ);
  291. }
  292.  
  293. size_t machine_get_memory_size(void)
  294. {
  295.     return  *((int*)(GXEMUL_MP + GXEMUL_MP_MEMSIZE_OFFSET));
  296. }
  297.  
  298. void machine_debug_putc(char ch)
  299. {
  300.     char * addr = 0;
  301.     if (!hw_map_init_called) {
  302.         addr = (char *) GXEMUL_KBD;
  303.     } else {
  304.         addr = (char *) gxemul_hw_map.videoram;
  305.     }
  306.  
  307.     *(addr) = ch;
  308. }
  309.  
  310. void machine_cpu_halt(void)
  311. {
  312.     char * addr = 0;
  313.     if (!hw_map_init_called) {
  314.         addr = (char *) GXEMUL_KBD;
  315.     } else {
  316.         addr = (char *) gxemul_hw_map.videoram;
  317.     }
  318.    
  319.     *(addr + GXEMUL_HALT_OFFSET) = '\0';
  320. }
  321.  
  322. void machine_irq_exception(int exc_no, istate_t *istate)
  323. {
  324.     uint32_t sources = gxemul_irqc_get_sources();
  325.     int i = 0;
  326.     for (; i < GXEMUL_IRQC_MAX_IRQ; i++) {
  327.         if (sources & (1 << i)) {
  328.             irq_t *irq = irq_dispatch_and_lock(i);
  329.             if (irq) {
  330.                 /* The IRQ handler was found. */
  331.                 irq->handler(irq, irq->arg);
  332.                 spinlock_unlock(&irq->lock);
  333.             } else {
  334.                 /* Spurious interrupt.*/
  335.                 dprintf("cpu%d: spurious interrupt (inum=%d)\n", CPU->id, i);
  336.             }
  337.         }
  338.     }
  339.     /* TODO remove after testing the above code
  340.             noirq = 0;
  341.             if (i == CONSOLE_IRQ) {
  342.                 char readchar = *(char*)0x10000000;
  343.                 if (readchar == 0) {
  344.                     aux_puts("?");
  345.                 }
  346.                 else {
  347.                     dprintf("%c", readchar);
  348.                 }
  349.                
  350.             }
  351.             else if (i == TIMER_IRQ) {
  352.                 dprintf("\n.\n");
  353.                 //acknowledge
  354.                 *(uint32_t*)0x15000110 = 0;
  355.             }
  356.         }
  357.     }
  358.  
  359.     if (noirq)
  360.     aux_puts("IRQ exception without source\n");*/
  361. }
  362.  
  363. /** @}
  364.  */
  365.