@@ -435,19 +435,19 @@ package body Register_Stuffer_Tests.Implementation is
435
435
Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get_Count, 1 );
436
436
437
437
-- Check packet length:
438
- Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get (1 ).Header.Buffer_Length, Packet_Header_Length + 4 * 1 );
439
-
438
+ Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get (1 ).Header.Buffer_Length, Packet_Header_Length + 4 * 1 );
439
+
440
440
declare
441
441
Packed_Register_Array : Register_Stuffer_Packet_Array.U;
442
442
begin
443
443
-- Packed Array is 0-indexed vs Normal is 1-indexed
444
444
for I in Register_Array'Range loop
445
- Packed_Register_Array (I - 1 ) := Packed_U32.U'( Value => Register_Array (I));
445
+ Packed_Register_Array (I - 1 ) := Packed_U32.U'(Value => Register_Array (I));
446
446
end loop ;
447
447
448
448
-- Check packet contents:
449
449
Register_Stuffer_Packet_Assert.Eq (
450
- T.Register_Packet_History.Get (1 ),
450
+ T.Register_Packet_History.Get (1 ),
451
451
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
452
452
Header => Register_Stuffer_Packet_Header.U'(
453
453
Start_Address => Register_Array'Address,
@@ -464,20 +464,20 @@ package body Register_Stuffer_Tests.Implementation is
464
464
-- registers by command.
465
465
overriding procedure Test_Nominal_Dump_Max_Registers (Self : in out Instance) is
466
466
T : Component.Register_Stuffer.Implementation.Tester.Instance_Access renames Self.Tester;
467
- function Generate_Index_Value (I : Interfaces.Unsigned_32) return Interfaces.Unsigned_32 is
467
+ function Generate_Index_Value (I : Interfaces.Unsigned_32) return Interfaces.Unsigned_32 is
468
468
begin
469
469
return I; -- Simply return the index
470
470
end Generate_Index_Value ;
471
-
471
+
472
472
-- Create array using a loop and expression function ((packet_buffer_size - 20) / 8)
473
473
Packet_Header_Length : constant Natural := Register_Stuffer_Packet_Header.Serialization.Serialized_Length;
474
- Packet_Max_Registers : constant Natural := (Configuration.Packet_Buffer_Size - Packet_Header_Length)/ (Packet_Header_Length- 4 );
474
+ Packet_Max_Registers : constant Natural := (Configuration.Packet_Buffer_Size - Packet_Header_Length) / (Packet_Header_Length - 4 );
475
475
476
- Large_Index_Array : array (1 .. Packet_Max_Registers) of Interfaces.Unsigned_32 :=
477
- [for I in 1 .. Packet_Max_Registers => Generate_Index_Value(Interfaces.Unsigned_32(I))];
476
+ Large_Index_Array : array (1 .. Packet_Max_Registers) of Interfaces.Unsigned_32 :=
477
+ [for I in 1 .. Packet_Max_Registers => Generate_Index_Value (Interfaces.Unsigned_32 (I))];
478
478
begin
479
479
-- The Internal is 0-indexed, so we sub 1 to convert from 1->0
480
- T.Command_T_Send (T.Commands.Dump_Registers ((Address => Large_Index_Array'Address, Value => Packet_Max_Registers - 1 )));
480
+ T.Command_T_Send (T.Commands.Dump_Registers ((Address => Large_Index_Array'Address, Value => Packet_Max_Registers - 1 )));
481
481
Natural_Assert.Eq (T.Command_Response_T_Recv_Sync_History.Get_Count, 1 );
482
482
Command_Response_Assert.Eq (T.Command_Response_T_Recv_Sync_History.Get (1 ), (Source_Id => 0 , Registration_Id => 0 , Command_Id => T.Commands.Get_Dump_Registers_Id, Status => Success));
483
483
@@ -495,20 +495,20 @@ package body Register_Stuffer_Tests.Implementation is
495
495
Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get_Count, 1 );
496
496
497
497
-- Check packet length:
498
- Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get (1 ).Header.Buffer_Length, Packet_Header_Length + 4 * (Packet_Max_Registers - 1 ));
498
+ Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get (1 ).Header.Buffer_Length, Packet_Header_Length + 4 * (Packet_Max_Registers - 1 ));
499
499
500
- -- Check the packet
500
+ -- Check the packet
501
501
declare
502
502
Packed_Register_Array : Register_Stuffer_Packet_Array.U;
503
503
begin
504
504
-- Packed Array is 0-indexed vs Normal is 1-indexed
505
505
for I in Large_Index_Array'Range loop
506
- Packed_Register_Array (I - 1 ) := Packed_U32.U'( Value => Large_Index_Array (I));
506
+ Packed_Register_Array (I - 1 ) := Packed_U32.U'(Value => Large_Index_Array (I));
507
507
end loop ;
508
508
509
509
-- Check packet contents:
510
510
Register_Stuffer_Packet_Assert.Eq (
511
- T.Register_Packet_History.Get (1 ),
511
+ T.Register_Packet_History.Get (1 ),
512
512
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
513
513
Header => Register_Stuffer_Packet_Header.U'(
514
514
Start_Address => Large_Index_Array'Address,
@@ -545,14 +545,14 @@ package body Register_Stuffer_Tests.Implementation is
545
545
Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get_Count, 1 );
546
546
547
547
-- Check packet length:
548
- Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get (1 ).Header.Buffer_Length, Packet_Header_Length + 4 * 0 );
549
-
548
+ Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get (1 ).Header.Buffer_Length, Packet_Header_Length + 4 * 0 );
549
+
550
550
declare
551
551
Packed_Register_Array : constant Register_Stuffer_Packet_Array.U := [others => Packed_U32.U'(Value => 0 )];
552
552
begin
553
553
-- Check packet contents:
554
554
Register_Stuffer_Packet_Assert.Eq (
555
- T.Register_Packet_History.Get (1 ),
555
+ T.Register_Packet_History.Get (1 ),
556
556
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
557
557
Header => Register_Stuffer_Packet_Header.U'(
558
558
Start_Address => Register_Array'Address,
0 commit comments