Skip to content
Snippets Groups Projects
Commit e8070c83 authored by Eric Botcazou's avatar Eric Botcazou Committed by Pierre-Marie de Rodat
Browse files

[Ada] Avoid artificial underflow in System.Val_Real

gcc/ada/

	* libgnat/s-valrea.adb (Maxexp32): New constant array.
	(Maxexp64): Likewise.
	(Maxexp80): Likewise.
	(Integer_to_Real): New local constants Maxexp and B.
	When the exponent is too negative, do the divison in two steps.
parent a0d40c5c
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment