+ STM32.CAN module

This commit is contained in:
Vovanium 2021-10-21 18:49:51 +03:00
parent 54322ecf4b
commit a4b81bc692

View file

@ -1,4 +1,4 @@
package STM32.ADC is package STM32.ADC with Pure is
-- SR -- SR
@ -319,7 +319,7 @@ package STM32.ADC is
end record; end record;
type ADC1_Registers is record type ADC_Registers is record
SR : Status_Register; SR : Status_Register;
pragma Volatile_Full_Access (SR); pragma Volatile_Full_Access (SR);
CR1 : Control_Register_1; CR1 : Control_Register_1;
@ -361,7 +361,7 @@ package STM32.ADC is
DR : Integer range 0 .. 2**16 - 1 := 0; DR : Integer range 0 .. 2**16 - 1 := 0;
pragma Volatile_Full_Access (DR); pragma Volatile_Full_Access (DR);
end record; end record;
for ADC1_Registers use record for ADC_Registers use record
SR at 16#00# range 0 .. 31; SR at 16#00# range 0 .. 31;
CR1 at 16#04# range 0 .. 31; CR1 at 16#04# range 0 .. 31;
CR2 at 16#08# range 0 .. 31; CR2 at 16#08# range 0 .. 31;
@ -517,7 +517,7 @@ package STM32.ADC is
pragma Volatile_Full_Access (CCR); pragma Volatile_Full_Access (CCR);
CDR : Common_Data_Register; CDR : Common_Data_Register;
pragma Volatile_Full_Access (CDR); pragma Volatile_Full_Access (CDR);
end record; end record with Volatile;
for Common_ADC_Registers use record for Common_ADC_Registers use record
CSR at 16#00# range 0 .. 31; CSR at 16#00# range 0 .. 31;
CCR at 16#04# range 0 .. 31; CCR at 16#04# range 0 .. 31;