Skip to content

Commit 93f602a

Browse files
committed
Rebuild documentation to reflect changes to register stuffer and Fix Styling
1 parent ddb17d6 commit 93f602a

File tree

4 files changed

+32
-24
lines changed

4 files changed

+32
-24
lines changed

src/components/register_stuffer/component-register_stuffer-implementation.adb

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -241,32 +241,32 @@ package body Component.Register_Stuffer.Implementation is
241241
end if;
242242

243243
declare
244-
Arr : Register_Stuffer_Packet_Array.T := [others => Packed_U32.Pack(Packed_U32.U'(Value => 0))];
244+
Arr : Register_Stuffer_Packet_Array.T := [others => Packed_U32.Pack (Packed_U32.U'(Value => 0))];
245245
begin
246246
-- Loop on Number of Registers:
247247
-- Somehow get the underlying integer from num_registers
248-
for Register in 0 .. Arg.Value-1 loop
249-
if not Self.Is_Address_Valid(Arg.Address + Storage_Offset(Register*4)) then
248+
for Register in 0 .. Arg.Value - 1 loop
249+
if not Self.Is_Address_Valid (Arg.Address + Storage_Offset (Register * 4)) then
250250
return Failure;
251251
end if;
252252
declare
253253
-- Define the register at the appropriate address:
254-
Reg : Packed_U32.Register_T_Le with Import, Convention => Ada, Address => Arg.Address + Storage_Offset(Register*4);
254+
Reg : Packed_U32.Register_T_Le with Import, Convention => Ada, Address => Arg.Address + Storage_Offset (Register * 4);
255255
-- Read the register value:
256256
Reg_Copy : constant Packed_U32.T := Packed_U32.Swap_Endianness (Packed_U32.T_Le (Reg));
257257
begin
258258
-- Load the register value, in Reg_Copy to the Packet type.
259-
Arr(Register) := Reg_Copy;
259+
Arr (Register) := Reg_Copy;
260260
end;
261261
end loop;
262262
-- Construct and Send the packet based upon the returned array of register values
263-
Self.Packet_T_Send_If_Connected (Self.Packets.Register_Packet_Truncate (The_Time,
263+
Self.Packet_T_Send_If_Connected (Self.Packets.Register_Packet_Truncate (The_Time,
264264
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
265265
Header => Register_Stuffer_Packet_Header.U'(
266266
Start_Address => Arg.Address,
267267
Num_Registers => Arg.Value
268268
),
269-
Buffer => Register_Stuffer_Packet_Array.Unpack(Arr)
269+
Buffer => Register_Stuffer_Packet_Array.Unpack (Arr)
270270
))
271271
));
272272
end;
Binary file not shown.

src/components/register_stuffer/doc/register_stuffer.tex

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -50,10 +50,18 @@ \subsection{Data Products}
5050

5151
\input{build/tex/register_stuffer_data_products.tex}
5252

53+
\subsection{Data Dependencies}
54+
55+
\input{build/tex/register_stuffer_data_dependencies.tex}
56+
5357
\subsection{Packets}
5458

5559
\input{build/tex/register_stuffer_packets.tex}
5660

61+
\subsection{Faults}
62+
63+
\input{build/tex/register_stuffer_faults.tex}
64+
5765
\section{Unit Tests}
5866

5967
\input{build/tex/register_stuffer_unit_test.tex}

src/components/register_stuffer/test/register_stuffer_tests-implementation.adb

Lines changed: 17 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -435,19 +435,19 @@ package body Register_Stuffer_Tests.Implementation is
435435
Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get_Count, 1);
436436

437437
-- 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+
440440
declare
441441
Packed_Register_Array : Register_Stuffer_Packet_Array.U;
442442
begin
443443
-- Packed Array is 0-indexed vs Normal is 1-indexed
444444
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));
446446
end loop;
447447

448448
-- Check packet contents:
449449
Register_Stuffer_Packet_Assert.Eq (
450-
T.Register_Packet_History.Get (1),
450+
T.Register_Packet_History.Get (1),
451451
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
452452
Header => Register_Stuffer_Packet_Header.U'(
453453
Start_Address => Register_Array'Address,
@@ -464,20 +464,20 @@ package body Register_Stuffer_Tests.Implementation is
464464
-- registers by command.
465465
overriding procedure Test_Nominal_Dump_Max_Registers (Self : in out Instance) is
466466
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
468468
begin
469469
return I; -- Simply return the index
470470
end Generate_Index_Value;
471-
471+
472472
-- Create array using a loop and expression function ((packet_buffer_size - 20) / 8)
473473
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);
475475

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))];
478478
begin
479479
-- 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)));
481481
Natural_Assert.Eq (T.Command_Response_T_Recv_Sync_History.Get_Count, 1);
482482
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));
483483

@@ -495,20 +495,20 @@ package body Register_Stuffer_Tests.Implementation is
495495
Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get_Count, 1);
496496

497497
-- 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));
499499

500-
-- Check the packet
500+
-- Check the packet
501501
declare
502502
Packed_Register_Array : Register_Stuffer_Packet_Array.U;
503503
begin
504504
-- Packed Array is 0-indexed vs Normal is 1-indexed
505505
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));
507507
end loop;
508508

509509
-- Check packet contents:
510510
Register_Stuffer_Packet_Assert.Eq (
511-
T.Register_Packet_History.Get (1),
511+
T.Register_Packet_History.Get (1),
512512
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
513513
Header => Register_Stuffer_Packet_Header.U'(
514514
Start_Address => Large_Index_Array'Address,
@@ -545,14 +545,14 @@ package body Register_Stuffer_Tests.Implementation is
545545
Natural_Assert.Eq (T.Packet_T_Recv_Sync_History.Get_Count, 1);
546546

547547
-- 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+
550550
declare
551551
Packed_Register_Array : constant Register_Stuffer_Packet_Array.U := [others => Packed_U32.U'(Value => 0)];
552552
begin
553553
-- Check packet contents:
554554
Register_Stuffer_Packet_Assert.Eq (
555-
T.Register_Packet_History.Get (1),
555+
T.Register_Packet_History.Get (1),
556556
Register_Stuffer_Packet.Pack (Register_Stuffer_Packet.U'(
557557
Header => Register_Stuffer_Packet_Header.U'(
558558
Start_Address => Register_Array'Address,

0 commit comments

Comments
 (0)