Vovanium
/
stm32-ada
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* peripherial globals to chip file

This commit is contained in:
Vovanium 2021-08-11 17:55:40 +03:00
parent 018ee62d2f
commit 84e75b1c04
11 changed files with 16 additions and 175 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
source/f4/07z/stm32-fsmc-units.ads
View File

@ -1,10 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.FSMC.Units is
pragma Preelaborate;
FSMC : FSMC_Registers
with Volatile, Import, Address => System'To_Address (STM32.Address_Map.FMC_FSMC);
end STM32.FSMC.Units;

27
source/f4/07z/stm32-gpio-units.ads
View File

@ -1,27 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.GPIO.Units is
pragma Preelaborate;
package Address_Map renames STM32.Address_Map;
GPIOA : GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOA);
GPIOC : GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOC);
GPIOD : GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOD);
GPIOE : GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOE);
GPIOF : GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOF);
GPIOG : GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOG);
end STM32.GPIO.Units;

5
source/f4/07z/stm32-rcc.ads
View File

@ -1,5 +0,0 @@
-- BUG: need to make separate unit for F407 etc.
with STM32.F42x.RCC;
package STM32.RCC renames STM32.F42x.RCC;

27
source/f4/07z/stm32-usart-units.ads
View File

@ -1,27 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.USART.Units is
pragma Preelaborate;
package Address_Map renames STM32.Address_Map;
USART1 : USART_Registers
with Volatile, Import, Address => System'To_Address (Address_Map.USART1);
USART2 : USART_Registers
with Volatile, Import, Address => System'To_Address (Address_Map.USART2);
USART3 : USART_Registers
with Volatile, Import, Address => System'To_Address (Address_Map.USART3);
UART4 : USART_Registers
with Volatile, Import, Address => System'To_Address (Address_Map.UART4);
UART5 : USART_Registers
with Volatile, Import, Address => System'To_Address (Address_Map.UART5);
USART6 : USART_Registers
with Volatile, Import, Address => System'To_Address (Address_Map.USART6);
end STM32.USART.Units;

42
source/f4/29z/stm32-gpio-units.ads
View File

@ -1,42 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.GPIO.Units is
pragma Preelaborate;
package Address_Map renames STM32.Address_Map;
GPIOA: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOA);
GPIOB: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOB);
GPIOC: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOC);
GPIOD: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOD);
GPIOE: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOE);
GPIOF: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOF);
GPIOG: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOG);
GPIOH: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOH);
GPIOI: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOI);
GPIOJ: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOJ);
GPIOK: GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOK);
end STM32.GPIO.Units;

32
source/f4/29z/stm32-usart-units.ads
View File

@ -1,32 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.USART.Units is
pragma Preelaborate;
package Address_Map renames STM32.Address_Map;
USART1: USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.USART1);
USART2: USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.USART2);
USART3: USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.USART3);
UART4: USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.UART4);
UART5: USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.UART5);
USART6: USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.USART6);
UART7: USART.USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.UART7);
UART8: USART.USART_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.UART8);
end STM32.USART.Units;

12
source/f4/stm32-exti-units.ads
View File

@ -1,12 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.EXTI.Units is
pragma Preelaborate;
package Address_Map renames STM32.Address_Map;
EXTI : EXTI_Registers
with Volatile, Import, Address => System'To_Address (STM32.Address_Map.EXTI);
end STM32.EXTI.Units;

10
source/f4/stm32-f407-units.ads
View File

@ -1,5 +1,7 @@
with System;
with STM32.Address_Map;
with STM32.EXTI;
with STM32.FSMC;
with STM32.GPIO;
with STM32.RCC;
with STM32.PWR;
@ -9,6 +11,14 @@ with STM32.USART;
package STM32.F407.Units is
pragma Preelaborate;
EXTI : STM32.EXTI.EXTI_Registers
with Volatile, Import, Address => System'To_Address (STM32.Address_Map.EXTI);
FSMC : STM32.FSMC.FSMC_Registers
with Volatile, Import, Address => System'To_Address (STM32.Address_Map.FMC_FSMC);
---
GPIOA: STM32.GPIO.GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOA);

6
source/f4/stm32-f429-units.ads
View File

@ -1,5 +1,6 @@
with System;
with STM32.Address_Map;
with STM32.EXTI;
with STM32.GPIO;
with STM32.LTDC;
with STM32.RCC;
@ -10,6 +11,11 @@ with STM32.USART;
package STM32.F429.Units is
pragma Preelaborate;
EXTI : STM32.EXTI.EXTI_Registers
with Volatile, Import, Address => System'To_Address (STM32.Address_Map.EXTI);
---
GPIOA: STM32.GPIO.GPIO_Registers
with Volatile, Import, Address => System'To_Address(Address_Map.GPIOA);

10
source/f4/stm32-pwr-units.ads
View File

@ -1,10 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.PWR.Units is
pragma Preelaborate;
PWR: PWR_Registers
with Volatile, Import, Address => System'To_Address(STM32.Address_Map.PWR);
end STM32.PWR.Units;

10
source/f4/stm32-syscfg-units.ads
View File

@ -1,10 +0,0 @@
with System;
with STM32.Address_Map;
package STM32.SYSCFG.Units is
pragma Preelaborate;
SYSCFG : SYSCFG_Registers
with Volatile, Import, Address => System'To_Address (STM32.Address_Map.SYSCFG);
end STM32.SYSCFG.Units;