From a4b81bc6922870d32a24047ff6c63daea7df8c3e Mon Sep 17 00:00:00 2001
From: Vovanium <vovanium@protonmail.ch>
Date: Thu, 21 Oct 2021 18:49:51 +0300
Subject: [PATCH] + STM32.CAN module

---
 source/f4/stm32-adc.ads | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/source/f4/stm32-adc.ads b/source/f4/stm32-adc.ads
index 38a85bc..fd33c9c 100644
--- a/source/f4/stm32-adc.ads
+++ b/source/f4/stm32-adc.ads
@@ -1,4 +1,4 @@
-package STM32.ADC is
+package STM32.ADC with Pure is
 
 	-- SR
 
@@ -319,7 +319,7 @@ package STM32.ADC is
 
 	end record;
 
-	type ADC1_Registers is record
+	type ADC_Registers is record
 		SR    : Status_Register;
 		pragma Volatile_Full_Access (SR);
 		CR1   : Control_Register_1;
@@ -361,7 +361,7 @@ package STM32.ADC is
 		DR    : Integer range 0 .. 2**16 - 1  := 0;
 		pragma Volatile_Full_Access (DR);
 	end record;
-	for ADC1_Registers use record
+	for ADC_Registers use record
 		SR    at 16#00# range 0 .. 31;
 		CR1   at 16#04# range 0 .. 31;
 		CR2   at 16#08# range 0 .. 31;
@@ -517,7 +517,7 @@ package STM32.ADC is
 		pragma Volatile_Full_Access (CCR);
 		CDR : Common_Data_Register;
 		pragma Volatile_Full_Access (CDR);
-	end record;
+	end record with Volatile;
 	for Common_ADC_Registers use record
 		CSR at 16#00# range 0 .. 31;
 		CCR at 16#04# range 0 .. 31;