diff --git a/src/descriptors-register.adb b/src/descriptors-register.adb index 9bbfb71..574911b 100644 --- a/src/descriptors-register.adb +++ b/src/descriptors-register.adb @@ -137,7 +137,7 @@ package body Descriptors.Register is elsif Is_Register_Property (Tag) then Read_Register_Property (Child, Result.Reg_Properties); - elsif Tag = "modifiedWriteValue" then + elsif Tag = "modifiedWriteValues" then Result.Mod_Write_Values := Get_Value (Child); elsif Tag = "readAction" then @@ -228,6 +228,10 @@ package body Descriptors.Register is return Unbounded.Null_Unbounded_String; end if; + if R1.Reg_Properties.Size /= R2.Reg_Properties.Size then + return Unbounded.Null_Unbounded_String; + end if; + if R1.Dim /= R2.Dim then return Unbounded.Null_Unbounded_String; end if;