Zero_String: UB_Text;
RNum: FH_Float := Num + EPSILON;
begin
+ --
+ -- FIXME!!!
+ -- Dear yourself from the future. If you are reading this, it means that the
+ -- number formatting function has glitched out again! Do not try to fix it no matter
+ -- how generous supply of coffee and beer you have at hand. Look up how the actually
+ -- smart people have solved this in the sixites and just adapt their solution for fuck's sake!
+ --
+ -- Also, did anything "useful" come out of this? (you know what I'm talking about)...
+ --
if Num = 0.0 then
Log_Num := 1.0;
else