-- Chain handling.
-- Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold
--
-- GHDL is free software; you can redistribute it and/or modify it under
-- the terms of the GNU General Public License as published by the Free
-- Software Foundation; either version 2, or (at your option) any later
-- version.
--
-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
-- WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-- for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
package body Iir_Chains is
function Get_Chain_Length (First : Iir) return Natural
is
Res : Natural := 0;
El : Iir := First;
begin
while El /= Null_Iir loop
Res := Res + 1;
El := Get_Chain (El);
end loop;
return Res;
end Get_Chain_Length;
procedure Append_Chain
(N : Iir; Field : Nodes_Meta.Fields_Enum; Chain : Iir)
is
use Nodes_Meta;
N_Chain : Iir;
Next_Chain : Iir;
begin
N_Chain := Get_Iir (N, Field);
if Is_Null (N_Chain) then
Set_Iir (N, Field, Chain);
else
loop
Next_Chain := Get_Chain (N_Chain);
if Is_Null (Next_Chain) then
Set_Chain (N_Chain, Chain);
exit;
end if;
N_Chain := Next_Chain;
end loop;
end if;
end Append_Chain;
procedure Sub_Chain_Init (First, Last : out Iir) is
begin
First := Null_Iir;
Last := Null_Iir;
end Sub_Chain_Init;
procedure Sub_Chain_Append (First, Last : in out Iir; El : Iir) is
begin
pragma Assert (El /= Null_Iir);
if First = Null_Iir then
First := El;
else
Set_Chain (Last, El);
end if;
Last := El;
end Sub_Chain_Append;
procedure Sub_Chain_Append_Chain (First, Last : in out Iir;
First_Sub, Last_Sub : Iir) is
begin
pragma Assert (First_Sub /= Null_Iir);
if First = Null_Iir then
First := First_Sub;
else
Set_Chain (Last, First_Sub);
end if;
Last := Last_Sub;
end Sub_Chain_Append_Chain;
function Is_Chain_Length_One (Chain : Iir) return Boolean is
begin
return Chain /= Null_Iir and then Get_Chain (Chain) = Null_Iir;
end Is_Chain_Length_One;
procedure Insert (Last : Iir; El : Iir) is
begin
Set_Chain (El, Get_Chain (Last));
Set_Chain (Last, El);
end Insert;
procedure Insert_Incr (Last : in out Iir; El : Iir) is
begin
Set_Chain (El, Get_Chain (Last));
Set_Chain (Last, El);
Last := El;
end Insert_Incr;
end Iir_Chains;
12'>platforms/STM32L1xx/stm32_isr.h
blob: bbb45141f46e36376633b06f457269b59b54ee94 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/*
ChibiOS/RT - Copyright (C) 2006,2007,2008,2009,2010,
2011,2012 Giovanni Di Sirio.
This file is part of ChibiOS/RT.
ChibiOS/RT is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
ChibiOS/RT is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
/**
* @file STM32L1xx/stm32_isr.h
* @brief ISR remapper driver header.
*
* @addtogroup STM32L1xx_ISR
* @{
*/
#ifndef _STM32_ISR_H_
#define _STM32_ISR_H_
/*===========================================================================*/
/* Driver constants. */
/*===========================================================================*/
/**
* @name ISR names and numbers remapping
* @{
*/
/*
* TIM units.
*/
#define STM32_TIM2_HANDLER TIM2_IRQHandler
#define STM32_TIM3_HANDLER TIM3_IRQHandler
#define STM32_TIM4_HANDLER TIM4_IRQHandler
#define STM32_TIM2_NUMBER TIM2_IRQn
#define STM32_TIM3_NUMBER TIM3_IRQn
#define STM32_TIM4_NUMBER TIM4_IRQn
/*
* USART units.
*/
#define STM32_USART1_HANDLER USART1_IRQHandler
#define STM32_USART2_HANDLER USART2_IRQHandler
#define STM32_USART3_HANDLER USART3_IRQHandler
#define STM32_USART1_NUMBER USART1_IRQn
#define STM32_USART2_NUMBER USART2_IRQn
#define STM32_USART3_NUMBER USART3_IRQn
/*
* USB units.
*/
#define STM32_USB1_HP_HANDLER Vector8C
#define STM32_USB1_LP_HANDLER Vector90
#define STM32_USB1_HP_NUMBER USB_HP_IRQn
#define STM32_USB1_LP_NUMBER USB_LP_IRQn
/** @} */
/*===========================================================================*/
/* Driver pre-compile time settings. */
/*===========================================================================*/
/*===========================================================================*/
/* Derived constants and error checks. */
/*===========================================================================*/
/*===========================================================================*/
/* Driver data structures and types. */
/*===========================================================================*/
/*===========================================================================*/
/* Driver macros. */
/*===========================================================================*/
/*===========================================================================*/
/* External declarations. */
/*===========================================================================*/
#endif /* _STM32_ISR_H_ */
/** @} */
|