More code reuse via separate sub-units where SVD fielts differ

Author: nocko

arch/ARM/Nordic/drivers/nrf51/nrf-adc.adb

@@ -45,9 +45,9 @@ package body nRF.ADC is
    begin
       ADC_Periph.CONFIG.RES  :=
         (case Res is
-            when 8  => CONFIG_RES_Field_8BIT,
-            when 9  => CONFIG_RES_Field_9BIT,
-            when 10 => CONFIG_RES_Field_10BIT);
+            when 8  => Val_8BIT,
+            when 9  => Val_9BIT,
+            when 10 => Val_10BIT);
    end Set_Resolution;
 
    -------------------

arch/ARM/Nordic/drivers/nrf51/nrf-clock-set_high_freq_external_frequency.adb

@@ -0,0 +1,7 @@
+separate(nRF.Clock)
+procedure Set_High_Freq_External_Frequency (Freq : High_Freq_Ext_Freq) is
+begin
+   CLOCK_Periph.XTALFREQ.XTALFREQ := (case Freq is
+      when HFCLK_16MHz => Val_16Mhz,
+      when HFCLK_32MHz => Val_32Mhz);
+end Set_High_Freq_External_Frequency;

arch/ARM/Nordic/drivers/nrf51/nrf-clock.adb

@@ -0,0 +1,5 @@
+separate(nRF.Interrupts)
+procedure Disable (Int : Interrupt_Name) is
+begin
+   Cortex_M.NVIC.Disable (Int'Enum_Rep);
+end Disable;

arch/ARM/Nordic/drivers/nrf51/nrf-interrupts-disable.adb

@@ -0,0 +1,5 @@
+separate(nRF.Interrupts)
+procedure Enable (Int : Interrupt_Name) is
+begin
+   Cortex_M.NVIC.Enable (Int'Enum_Rep);
+end Enable;

arch/ARM/Nordic/drivers/nrf51/nrf-interrupts-enable.adb

@@ -0,0 +1,8 @@
+separate(nRF.PPI)
+procedure Add_To_Group
+  (Chan  : Channel_ID;
+   Group : Group_ID)
+is
+begin
+   PPI_Periph.CHG (Group).CH.Arr (Chan) := Included;
+end Add_To_Group;

arch/ARM/Nordic/drivers/nrf51/nrf-ppi-add_to_group.adb

@@ -0,0 +1,7 @@
+separate(nRF.PPI)
+procedure Disable_Channel (Chan : Channel_ID) is
+   Arr : CHENCLR_CH_Field_Array := (others => Chenclr_Ch0_Field_Reset);
+begin
+   Arr (Chan) := Clear;
+   PPI_Periph.CHENCLR.CH.Arr := Arr;
+end Disable_Channel;

arch/ARM/Nordic/drivers/nrf51/nrf-ppi-disable_channel.adb

@@ -0,0 +1,7 @@
+separate(nRF.PPI)
+procedure Enable_Channel (Chan : Channel_ID) is
+   Arr : CHENSET_CH_Field_Array := (others => Chenset_Ch0_Field_Reset);
+begin
+   Arr (Chan) := Set;
+   PPI_Periph.CHENSET.CH.Arr := Arr;
+end Enable_Channel;

arch/ARM/Nordic/drivers/nrf51/nrf-ppi-enable_channel.adb

@@ -0,0 +1,8 @@
+separate(nRF.PPI)
+procedure Remove_From_Group
+  (Chan  : Channel_ID;
+   Group : Group_ID)
+is
+begin
+   PPI_Periph.CHG (Group).CH.Arr (Chan) := Excluded;
+end Remove_From_Group;