URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [rtems-20020807/] [c/] [src/] [lib/] [libbsp/] [sparc/] [shared/] [gnatcommon.c] - Blame information for rev 1765

Details | Compare with Previous | View Log


/*
 *
 * Support for gnat/rtems interrupts and exception handling.
 * Jiri Gaisler, ESA/ESTEC, 17-02-1999.
 *
 */
 
#include <bsp.h>
#include <signal.h>
 
/*
 * Synchronous trap handler. Map the trap number of SIGFPE, SIGSEGV
 * or SIGILL to generate the corresponding Ada exception.
 */
 
rtems_isr __gnat_exception_handler
  (rtems_vector_number trap)
{
  rtems_unsigned32 real_trap;
  rtems_unsigned32 signal;
 
  real_trap = SPARC_REAL_TRAP_NUMBER (trap);
  switch (real_trap)
    {
    case 0x08:                  /* FPU exception */
    case 0x0A:                  /* TAG overflow */
    case 0x82:                  /* divide by zero */
      signal = SIGFPE;          /* Will cause Constraint_Error */
      break;
    case 0x01:                  /* Instruction access exception */
    case 0x09:                  /* Data access exception */
      signal = SIGSEGV;         /* Will cause Storage_Error */
      break;
    default:                    /* Anything else ... */
      signal = SIGILL;          /* Will cause Program_Error */
      break;
    }
  kill (getpid (), signal);
}
 
/*
 * Asynchronous trap handler. As it happens, the interrupt trap numbers for
 * SPARC is 17 - 31, so we just map then directly on the same signal number.
 */
 
rtems_isr __gnat_interrupt_handler
  (rtems_vector_number trap)
{
  rtems_unsigned32 real_trap;
 
  real_trap = SPARC_REAL_TRAP_NUMBER (trap);
 
  kill (getpid (), real_trap);
 
}
 
/*
 * Default signal handler with error reporting
 */
 
void
__gnat_signals_Abnormal_termination_handler (int signo)
{
  switch (signo)
    {
    case SIGFPE:
      DEBUG_puts ("\nConstraint_Error\n");
      break;
    case SIGSEGV:
      DEBUG_puts ("\nStorage_Error\n");
      break;
    default:
      DEBUG_puts ("\nProgram_Error\n");
      break;
    }
  exit (1);
}
 
const struct sigaction __gnat_error_vector =
{0, -1,
 {__gnat_signals_Abnormal_termination_handler}};
 
void
__gnat_install_handler_common (int t1, int t2)
{
  rtems_unsigned32 trap;
  rtems_isr_entry previous_isr;
 
  sigaction (SIGSEGV, &__gnat_error_vector, NULL);
  sigaction (SIGFPE, &__gnat_error_vector, NULL);
  sigaction (SIGILL, &__gnat_error_vector, NULL);
 
  for (trap = 0; trap < 256; trap++)
    {
 
      /*
         *  Skip window overflow, underflow, and flush as well as software
         *  trap 0 which we will use as a shutdown. Also avoid trap 0x70 - 0x7f
         *  which cannot happen and where some of the space is used to pass
         *  paramaters to the program.  0x80 for system traps and
         *  0x81 - 0x83 by the remote debugging stub.
         *  Avoid two bsp specific interrupts which normally are used
         *  by the real-time clock and UART B.
       */
 
      if ((trap >= 0x11) && (trap <= 0x1f))
        {
          if ((trap != t1) && (trap != t2))
            rtems_interrupt_catch (__gnat_interrupt_handler, trap, &previous_isr);
        }
      else if ((trap != 5 && trap != 6) && ((trap < 0x70) || (trap > 0x83)))
        set_vector (__gnat_exception_handler, SPARC_SYNCHRONOUS_TRAP (trap), 1);
    }
}

Line No.	Rev	Author	Line
1	1026	ivang	`/*`
2			`*`
3			`* Support for gnat/rtems interrupts and exception handling.`
4			`* Jiri Gaisler, ESA/ESTEC, 17-02-1999.`
5			`*`
6			`*/`
7
8			`#include <bsp.h>`
9			`#include <signal.h>`
10
11			`/*`
12			`* Synchronous trap handler. Map the trap number of SIGFPE, SIGSEGV`
13			`* or SIGILL to generate the corresponding Ada exception.`
14			`*/`
15
16			`rtems_isr __gnat_exception_handler`
17			`(rtems_vector_number trap)`
18			`{`
19			`rtems_unsigned32 real_trap;`
20			`rtems_unsigned32 signal;`
21
22			`real_trap = SPARC_REAL_TRAP_NUMBER (trap);`
23			`switch (real_trap)`
24			`{`
25			`case 0x08: /* FPU exception */`
26			`case 0x0A: /* TAG overflow */`
27			`case 0x82: /* divide by zero */`
28			`signal = SIGFPE; /* Will cause Constraint_Error */`
29			`break;`
30			`case 0x01: /* Instruction access exception */`
31			`case 0x09: /* Data access exception */`
32			`signal = SIGSEGV; /* Will cause Storage_Error */`
33			`break;`
34			`default: /* Anything else ... */`
35			`signal = SIGILL; /* Will cause Program_Error */`
36			`break;`
37			`}`
38			`kill (getpid (), signal);`
39			`}`
40
41			`/*`
42			`* Asynchronous trap handler. As it happens, the interrupt trap numbers for`
43			`* SPARC is 17 - 31, so we just map then directly on the same signal number.`
44			`*/`
45
46			`rtems_isr __gnat_interrupt_handler`
47			`(rtems_vector_number trap)`
48			`{`
49			`rtems_unsigned32 real_trap;`
50
51			`real_trap = SPARC_REAL_TRAP_NUMBER (trap);`
52
53			`kill (getpid (), real_trap);`
54
55			`}`
56
57			`/*`
58			`* Default signal handler with error reporting`
59			`*/`
60
61			`void`
62			`__gnat_signals_Abnormal_termination_handler (int signo)`
63			`{`
64			`switch (signo)`
65			`{`
66			`case SIGFPE:`
67			`DEBUG_puts ("\nConstraint_Error\n");`
68			`break;`
69			`case SIGSEGV:`
70			`DEBUG_puts ("\nStorage_Error\n");`
71			`break;`
72			`default:`
73			`DEBUG_puts ("\nProgram_Error\n");`
74			`break;`
75			`}`
76			`exit (1);`
77			`}`
78
79			`const struct sigaction __gnat_error_vector =`
80			`{0, -1,`
81			`{__gnat_signals_Abnormal_termination_handler}};`
82
83			`void`
84			`__gnat_install_handler_common (int t1, int t2)`
85			`{`
86			`rtems_unsigned32 trap;`
87			`rtems_isr_entry previous_isr;`
88
89			`sigaction (SIGSEGV, &__gnat_error_vector, NULL);`
90			`sigaction (SIGFPE, &__gnat_error_vector, NULL);`
91			`sigaction (SIGILL, &__gnat_error_vector, NULL);`
92
93			`for (trap = 0; trap < 256; trap++)`
94			`{`
95
96			`/*`
97			`* Skip window overflow, underflow, and flush as well as software`
98			`* trap 0 which we will use as a shutdown. Also avoid trap 0x70 - 0x7f`
99			`* which cannot happen and where some of the space is used to pass`
100			`* paramaters to the program. 0x80 for system traps and`
101			`* 0x81 - 0x83 by the remote debugging stub.`
102			`* Avoid two bsp specific interrupts which normally are used`
103			`* by the real-time clock and UART B.`
104			`*/`
105
106			`if ((trap >= 0x11) && (trap <= 0x1f))`
107			`{`
108			`if ((trap != t1) && (trap != t2))`
109			`rtems_interrupt_catch (__gnat_interrupt_handler, trap, &previous_isr);`
110			`}`
111			`else if ((trap != 5 && trap != 6) && ((trap < 0x70) \|\| (trap > 0x83)))`
112			`set_vector (__gnat_exception_handler, SPARC_SYNCHRONOUS_TRAP (trap), 1);`
113			`}`
114			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [rtems-20020807/] [c/] [src/] [lib/] [libbsp/] [sparc/] [shared/] [gnatcommon.c] - Blame information for rev 1765