https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124282
--- Comment #2 from Liam Powell <liam at liampwll dot com> ---
Once again this was not the result of fuzzing. This comes from the project
previously uploaded in PR ada/124226. Refer to the definition of
Prunt.Default_Modules.Internal_Status_Reporter.Status_Schema. Note the
commented out code which I commented out to deal with a previous issue. If this
code is placed back inline as it was originally intended to be then it triggers
the bug. For completeness this is what that code looks like:
overriding
function Status_Schema (This : Module) return
Status_Manager.Status_Group_Maps.Map is
begin
return
["Position" =>
[for A in Axis_Name use Conversions.To_Virtual_String (A'Image) =>
(Kind => Status_Manager.Real_Kind,
Unit => "mm",
Description => "Position of axis " &
Conversions.To_Virtual_String (A'Image),
Condition => "")],
"Print status" =>
["File name" =>
(Kind => Status_Manager.String_Kind,
Unit => "",
Description => "Name of current g-code file.",
Condition => ""),
"Current line" =>
(Kind => Status_Manager.Integer_Kind,
Unit => "",
Description => "Current line in g-code file.",
Condition => ""),
"Paused" =>
(Kind => Status_Manager.Boolean_Kind,
Unit => "",
Description => "True if printer is currently paused.",
Condition => "")]];
end Status_Schema;
