Commit a040eb79 authored by yoogx's avatar yoogx
Browse files

* Minor reformatting

parent 6ace1843
......@@ -329,8 +329,8 @@ package body Ocarina.Backends.XML_Values is
end if;
V := VT.Table (Value);
Name_Len := 0;
case V.K is
case V.K is
when K_Numeric =>
if V.Sign < 0 then
Add_Char_To_Name_Buffer ('-');
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment