-- 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_ */

/** @} */