File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 9292 := Musinfo.Instance.Resource_By_Name
9393 (Name => Musinfo.Utils.To_Name (Str => Linux_Status_Name),
9494 Kind => Musinfo.Res_Memory);
95- Cur_State, Unused_Diag : SK.Word64;
95+ Cur_State, Diag : SK.Word64;
9696 begin
9797 if Mem_Res = Musinfo.Null_Resource
9898 or else Mem_Res.Mem_Data.Address /= Linux_Status_Address
110110 end if ;
111111
112112 Cur_State := SK.Word64 (Linux_Status.State);
113- Unused_Diag := SK.Word64 (Linux_Status.Diagnostics);
113+ Diag := SK.Word64 (Linux_Status.Diagnostics);
114114
115115 Success := (Cur_State = SK.Word64 (Mucontrol.Status.STATE_RUNNING));
116116 if Success then
121121 Debug_Ops.Put_Line (Item => " State : "
122122 & SK.Strings.Img (Item => Cur_State));
123123 Debug_Ops.Put_Line (Item => " Diagnostics: "
124- & SK.Strings.Img (Item => Unused_Diag ));
124+ & SK.Strings.Img (Item => Diag ));
125125 end if ;
126126 end ;
127127 end Setup_Monitored_Subject ;
You can’t perform that action at this time.
0 commit comments