Mercurial > ecos

annotate packages/hal/sparclite/arch/current/src/vec_ivsr.S @ 66:bf00f99aec69 ecos-sw-2000-02-02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
author jlarmour
date Wed, 02 Feb 2000 19:57:02 +0000
parents c38311975d4f
children e0c0827131d1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
1 /*===========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
2 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
3 // vec_ivsr.S
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
4 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
5 // SPARClite vectors: interrupt vector service routine
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
6 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
7 //===========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
8 //####COPYRIGHTBEGIN####
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
9 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
10 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
11 // The contents of this file are subject to the Red Hat eCos Public License
66
bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents: 64
diff changeset
12 // Version 1.1 (the "License"); you may not use this file except in
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
13 // compliance with the License. You may obtain a copy of the License at
66
bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents: 64
diff changeset
14 // http://www.redhat.com/
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
15 //
66
bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents: 64
diff changeset
16 // Software distributed under the License is distributed on an "AS IS"
64
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
18 // License for the specific language governing rights and limitations under
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
19 // the License.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
20 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
21 // The Original Code is eCos - Embedded Configurable Operating System,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
22 // released September 30, 1998.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
23 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
24 // The Initial Developer of the Original Code is Red Hat.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
25 // Portions created by Red Hat are
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
26 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
27 // All Rights Reserved.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
28 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents: 40
diff changeset
29 //
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
30 //###COPYRIGHTEND####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
31 //===========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
32 //#####DESCRIPTIONBEGIN####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
33 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
34 // Author(s): hmt
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
35 // Contributors: hmt
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
36 // Date: 1999-02-20
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
37 // Purpose: SPARClite vector code
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
38 // Description: see vectors.S; this is the default vector service routine
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
39 // for interrupts.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
40 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
41 //####DESCRIPTIONEND####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
42 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
43 //=========================================================================*/
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
44
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
45 !----------------------------------------------------------------------------
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
46
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
47 .file "vec_ivsr.S"
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
48
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
49 !----------------------------------------------------------------------------
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
50
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
51 #include <pkgconf/system.h>
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
52 #include <pkgconf/hal.h>
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
53
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
54 #ifdef CYGPKG_KERNEL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
55 # include <pkgconf/kernel.h>
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
56 #else
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
57 # undef CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
58 # undef CYGFUN_HAL_COMMON_KERNEL_SUPPORT
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
59 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
60
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
61 !------------------------------------------------------------------------
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
62
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
63 #include <cyg/hal/vectors.h>
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
64
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
65 #define DELAYS_AFTER_WRPSR_SAME_WINDOW
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
66 #define DELAYS_AFTER_WRWIM
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
67
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
68 ! Macro to mark the stack as we descend, for debugging, because it is likely
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
69 ! that actually running the ISR won~t touch the stack, but the memory needs
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
70 ! to be there. Normally blank.
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
71 //#define MARKSTACKUSED st %sp, [ %sp ]
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
72 #define MARKSTACKUSED
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
73
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
74 !------------------------------------------------------------------------
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
75
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
76 .text
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
77
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
78 !---------------------------------------------------------------------------
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
79 ! default interrupt VSR, which calls the appropriate ISR after scheduler
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
80 ! lock and interrupt masking, then interrupt_end(). interrupt_end() must be
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
81 ! called with interrupts enabled, on the original thread stack (no separate
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
82 ! interrupt stack) or with interrupts masked, on the original stack (when
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
83 ! separate interrupt stack is supported).
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
84
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
85 .global hal_default_interrupt_vsr
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
86 hal_default_interrupt_vsr:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
87 ! here,locals have been set up as follows:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
88 ! %l0 = psr (with this CWP/window-level in it)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
89 ! %l1 = pc
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
90 ! %l2 = npc
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
91 ! %l3 = vector number (1-15 for interrupts)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
92 ! and we are in our own register window, though it is likely that
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
93 ! the next one will need to be saved before we can use it:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
94 ! ie. this one is the invalid register window.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
95
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
96 ! must establish a safe stack before re-enabling interrupts + traps
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
97 and %l0, __WINBITS, %l7 ! CWP extracted
40
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
98 ! no inc/dec here, so no need for special measures for not-8-windows
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
99 mov 1, %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
100 sll %l6, %l7, %l6 ! 1 << CWP
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
101 rd %wim, %l5
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
102 cmp %l5, %l6 ! are they the same?
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
103 bne 1f ! No, so the stack is OK as is.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
104
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
105 ! now do by hand an overflow trap, effectively
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
106 mov %g1, %l7 ! (DELAY SLOT)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
107 srl %l5, 1, %l5
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
108 sll %l6, __WINSIZE-1, %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
109 or %l6, %l5, %g1 ! new WIM in %g1 so we can get it
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
110 ! within the save:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
111 save ! Slip into next window
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
112 mov %g1, %wim ! Install the new wim
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
113 ! (invalidates current window!)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
114 #ifdef DELAYS_AFTER_WRWIM
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
115 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
116 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
117 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
118 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
119
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
120 std %l0, [%sp + 0 * 4] ! save L & I registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
121 std %l2, [%sp + 2 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
122 std %l4, [%sp + 4 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
123 std %l6, [%sp + 6 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
124
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
125 std %i0, [%sp + 8 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
126 std %i2, [%sp + 10 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
127 std %i4, [%sp + 12 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
128 std %i6, [%sp + 14 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
129
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
130 restore ! Go back to trap window.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
131 mov %l7, %g1 ! Restore %g1
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
132
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
133 1: ! now save away the regs we must preserve
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
134 sub %fp, 32 * 4, %sp
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
135 #ifdef CYGDBG_HAL_COMMON_INTERRUPTS_SAVE_MINIMUM_CONTEXT
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
136 std %g0, [%sp + 16 * 4] ! save G registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
137 std %g2, [%sp + 18 * 4] ! (set %g0 place to 0 to flag special context)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
138 std %g4, [%sp + 20 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
139 std %g6, [%sp + 22 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
140 #else // not CYGDBG_HAL_COMMON_INTERRUPTS_SAVE_MINIMUM_CONTEXT
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
141 std %l0, [%sp + 0 * 4] ! save L & I registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
142 std %l2, [%sp + 2 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
143 std %l4, [%sp + 4 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
144 std %l6, [%sp + 6 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
145
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
146 std %i0, [%sp + 8 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
147 std %i2, [%sp + 10 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
148 std %i4, [%sp + 12 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
149 std %i6, [%sp + 14 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
150
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
151 st %g1, [%sp + 17 * 4] ! save G registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
152 std %g2, [%sp + 18 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
153 std %g4, [%sp + 20 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
154 std %g6, [%sp + 22 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
155
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
156 ! no point whatsoever in saving O registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
157
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
158 ! and save the CWP in %g0 save place
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
159 st %l0, [%sp + 16 * 4]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
160 #endif // ! CYGDBG_HAL_COMMON_INTERRUPTS_SAVE_MINIMUM_CONTEXT
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
161
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
162 sub %sp, 24 * 4, %sp ! fresh frame including
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
163 ! arg spill area for callees
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
164 MARKSTACKUSED ! kilroy was here
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
165
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
166 #ifdef CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
167 ! we will switch to the interrupt stack unless already running on it
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
168
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
169 .extern cyg_interrupt_stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
170 .extern cyg_interrupt_stack_base
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
171 set cyg_interrupt_stack, %g1
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
172 set cyg_interrupt_stack_base, %g2
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
173
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
174 cmp %sp, %g2 ! below base?
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
175 blu 1f ! if so, switch.
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
176 cmp %sp, %g1 ! below top? (DELAY SLOT)
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
177 blu 2f ! if so, DON~T switch.
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
178 nop ! (DELAY SLOT)
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
179 1: ! switch to the interrupt stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
180 st %sp, [ %g1 ] ! there is spare above stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
181 sub %g1, 24 * 4, %sp ! fresh frame including
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
182 ! arg spill area for callees
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
183 MARKSTACKUSED ! kilroy was here
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
184 2:
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
185 ! continue as before, already in the interrupt stack.
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
186 #endif // CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
187
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
188 #ifdef CYGFUN_HAL_COMMON_KERNEL_SUPPORT
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
189 ! Lock the scheduler
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
190 .extern SCHED_LOCK_MANGLED_NAME
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
191 sethi %hi(SCHED_LOCK_MANGLED_NAME), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
192 ld [ %l7 + %lo(SCHED_LOCK_MANGLED_NAME) ], %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
193 add %l6, 1, %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
194 st %l6, [ %l7 + %lo(SCHED_LOCK_MANGLED_NAME) ]
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
195 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
196
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
197 ! HELP_GDB_WITH_BACKTRACE
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
198 mov %i7, %l5 ! preserve it in l5
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
199 mov %l1, %i7 ! bogus return link here
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
200
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
201 ! and we must preserve the Y register (multiply/divide auxiliary)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
202 ! over these calls; we will keep it in %l4 which is otherwise unused.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
203 rd %y, %l4
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
204
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
205 ! Now we can reenable traps and mask off only lower prio interrupts:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
206 andn %l0, 0xf00, %l7 ! clear PIL field
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
207 or %l7, 0x0e0, %l7 ! and ET (+S,PS)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
208 sll %l3, 8, %l6 ! trap number (1-15) into PIL bitfield
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
209 wr %l7, %l6, %psr ! and enable!
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
210 #ifdef DELAYS_AFTER_WRPSR_SAME_WINDOW
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
211 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
212 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
213 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
214 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
215 ! now call the ISR and so on with the appropriate args:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
216 ! ie.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
217 ! isr_retcode = (*(hal_interrupt_handlers[ vector ]))
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
218 ! ( vector, hal_interrupt_data[ vector ] );
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
219
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
220 ! from hal_arch.h
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
221 !// ISR tables
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
222 !CYG_ADDRESS hal_interrupt_handlers[CYGNUM_HAL_ISR_COUNT];
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
223 !CYG_ADDRWORD hal_interrupt_data[CYGNUM_HAL_ISR_COUNT];
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
224 !CYG_ADDRESS hal_interrupt_objects[CYGNUM_HAL_ISR_COUNT];
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
225
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
226 mov %l3, %o0
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
227 sll %l3, 2, %l3 ! %l3 to a word offset
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
228 sethi %hi(hal_interrupt_data), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
229 or %l7, %lo(hal_interrupt_data), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
230 ld [ %l7 + %l3 ], %o1
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
231
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
232 sethi %hi(hal_interrupt_handlers), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
233 or %l7, %lo(hal_interrupt_handlers), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
234 ld [ %l7 + %l3 ], %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
235 call %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
236 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
237
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
238 #ifdef CYGFUN_HAL_COMMON_KERNEL_SUPPORT
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
239 ! We only need to call _interrupt_end() when there is a kernel
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
240 ! present to do any tidying up.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
241
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
242 #ifdef CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
243 ! now we switch back to the user stack (if we~re at the top
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
244 ! of the interrupt stack).
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
245
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
246 or %l0, 0xfe0, %l7
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
247 wr %l7, %psr ! Interrupts all masked, ET
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
248 #ifdef DELAYS_AFTER_WRPSR_SAME_WINDOW
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
249 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
250 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
251 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
252 #endif
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
253
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
254 .extern cyg_interrupt_stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
255 set cyg_interrupt_stack - (24 * 4), %g1
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
256
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
257 cmp %sp, %g1 ! is SP less?
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
258 blu 1f ! if so, do not change back
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
259 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
260 ! switch to the thread stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
261 ld [ %g1 + (24 * 4) ], %sp ! there is spare above stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
262 1:
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
263
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
264 #else // CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
265 ! First restore the processor interrupt level to that interrupted
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
266 ! (otherwise a task-switch runs at the current PIL) on the assumption
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
267 ! that the ISR dealt with the interrupt source per se, so it is safe
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
268 ! to unmask it, effectively:
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
269 or %l0, 0x0e0, %l7 ! original PSR and ET (+S,PS)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
270 wr %l7, %psr ! and enable!
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
271 #ifdef DELAYS_AFTER_WRPSR_SAME_WINDOW
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
272 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
273 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
274 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
275 #endif
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
276 #endif // CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
277
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
278 ! then call interrupt_end( isr_retcode, &intr_object, &regsave )
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
279 ! to unlock the scheduler and do any rescheduling that~s needed.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
280 ! argument 0 (isr_retcode) is already in place in %o0
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
281 sethi %hi(hal_interrupt_objects), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
282 or %l7, %lo(hal_interrupt_objects), %l7
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
283 ld [ %l7 + %l3 ], %o1
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
284 add %sp, 24 * 4, %o2 ! saved regset (maybe tiny)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
285
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
286 .extern interrupt_end
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
287 call interrupt_end
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
288 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
289 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
290
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
291 ! restore the Y register having done our callouts to C
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
292 wr %l4, %y
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
293
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
294 ! We can reinstall the original CWP here; even if interrupt_end()
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
295 ! performed a reschedule (ie. yield/resume pair) we will be in the
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
296 ! same window. The window is preserved by reschedule precisely
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
297 ! because it is impossible atomically to disable traps here without
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
298 ! involving a CWP living in a register for a time when other
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
299 ! interrupts may occur.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
300
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
301 ! disable traps (using the saved psr is fastest way)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
302 wr %l0, %psr ! restores flags, disables traps, and old PIL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
303 #ifdef DELAYS_AFTER_WRPSR_SAME_WINDOW
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
304 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
305 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
306 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
307 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
308
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
309 ! HELP_GDB_WITH_BACKTRACE
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
310 mov %l5, %i7 ! restore (unused) return link
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
311
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
312 ! and restore other saved regs
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
313 ! (see CYGDBG_HAL_COMMON_INTERRUPTS_SAVE_MINIMUM_CONTEXT)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
314 add %sp, 24 * 4, %sp ! undo fresh frame
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
315
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
316 ld [%sp + 17 * 4], %g1 ! restore G registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
317 ldd [%sp + 18 * 4], %g2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
318 ldd [%sp + 20 * 4], %g4
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
319 ldd [%sp + 22 * 4], %g6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
320
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
321 ! and do NOT restore any other registers L, I or O
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
322
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
323 ! Now test for window underflow here and fix up if needs be.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
324 !
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
325 ! Why? interrupt_end() might have yielded us, when only
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
326 ! its own frame was restored; its own return to us caused a
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
327 ! window underflow trap, as would our return to interruptee
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
328 ! unless we deal with it now.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
329
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
330 add %l0, 1, %l7 ! interruptee~s CWP plus noise
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
331 and %l7, __WINBITS, %l7 ! CWP only
40
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
332 #if 8 == __WINSIZE
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
333 ! it is in range already
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
334 #else // expect 5 or 6 or 7 windows
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
335 cmp %l7, __WINSIZE
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
336 bge,a 567f ! taken: do delay slot, handle overflow
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
337 mov 0, %l7 ! only if .ge. above
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
338 567:
a3cc6665b684 Merge from eCos master repository on 1999-10-01-07:47:04-BST
jlarmour
parents: 8
diff changeset
339 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
340 mov 1, %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
341 sll %l6, %l7, %l6 ! 1 << CWP
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
342 rd %wim, %l5
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
343 cmp %l5, %l6 ! are they the same?
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
344 bne 2f ! No, so the stack is OK as is.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
345
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
346 ! now do by hand an underflow trap, effectively
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
347 sll %l5, 1, %l5 ! Rotate wim left
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
348 srl %l6, __WINSIZE-1, %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
349 wr %l5, %l6, %wim
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
350 #ifdef DELAYS_AFTER_WRWIM
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
351 nop ! are these delays needed?
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
352 nop ! (following restore uses wim)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
353 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
354 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
355 restore ! Interruptee~s window
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
356 ldd [%sp + 0 * 4], %l0 ! restore L & I registers
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
357 ldd [%sp + 2 * 4], %l2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
358 ldd [%sp + 4 * 4], %l4
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
359 ldd [%sp + 6 * 4], %l6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
360
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
361 ldd [%sp + 8 * 4], %i0
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
362 ldd [%sp + 10 * 4], %i2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
363 ldd [%sp + 12 * 4], %i4
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
364 ldd [%sp + 14 * 4], %i6
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
365 save ! Back to trap window
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
366
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
367 2: ! restore the condition codes, PSR and PIL and return from trap.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
368 wr %l0, %psr ! restores flags, disables traps, and old PIL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
369 #ifdef DELAYS_AFTER_WRPSR_SAME_WINDOW
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
370 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
371 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
372 nop
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
373 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
374 jmpl %l1, %g0
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
375 rett %l2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
376
8
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
377 !----------------------------------------------------------------------------
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
378
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
379 #ifdef CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
380
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
381 ! This routine can only be called from a thread stack, maybe
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
382 ! with interrupts (but not traps) disabled.
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
383 ! It switches to the interrupt stack then calls back to the
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
384 ! kernel to execute DSRs.
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
385
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
386 .global hal_interrupt_stack_call_pending_DSRs
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
387 hal_interrupt_stack_call_pending_DSRs:
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
388 save %sp, -24 * 4, %sp
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
389
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
390 MARKSTACKUSED ! kilroy was here
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
391
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
392 ! be atomic
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
393 rd %psr, %l0
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
394 andn %l0, 0x20, %l1 ! clear ET to disable traps
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
395 wr %l1, %psr ! into the PSR
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
396 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
397 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
398 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
399
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
400 mov %sp, %l7 ! save calling stack location
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
401
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
402 ! now switch stack to the interrupt stack, plus some headroom
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
403 ! for saving a register set if we are interrupted
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
404 .extern cyg_interrupt_stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
405 set cyg_interrupt_stack - 4 * 24, %sp
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
406
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
407 MARKSTACKUSED ! kilroy was here
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
408
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
409 ! and enable interrupts unconditionally to call the DSRs
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
410 or %l0, 0x0e0, %l2 ! set ET, S, PS
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
411 andn %l2, 0xf00, %l2 ! PIL to zero
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
412 wr %l2, %psr ! into the PSR
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
413 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
414 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
415 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
416
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
417 .extern cyg_interrupt_call_pending_DSRs
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
418 call cyg_interrupt_call_pending_DSRs
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
419 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
420
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
421 mov %l7, %sp ! restore calling stack
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
422
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
423 wr %l0, %psr ! restore interrupt status
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
424 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
425 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
426 nop
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
427
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
428 ret
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
429 restore
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
430 #endif // CYGIMP_HAL_COMMON_INTERRUPTS_USE_INTERRUPT_STACK
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
431
ece80412419a Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents: 2
diff changeset
432 !----------------------------------------------------------------------------
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
433
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
434 ! end of vec_ivsr.S