TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 06:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

a68: fix float standard conversion routine

Browse Source 
This commit fixes the implementation of the `float' standard
conversion routine, by amending a typo that originates in the Revised
Report.  It also makes the routine to properly handle short short and
short int arguments.

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org

libga68/ChangeLog

	* standard.a68.in (float): Fix typo from RR and handle short* int
	arguments properly.

gcc/testsuite/ChangeLog

	* algol68/execute/float-1.a68: New test.
This commit is contained in:
Jose E. Marchesi
2026-03-14 16:58:53 +01:00
parent 83b35da8f5
commit 317c097a25
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/testsuite/algol68/execute/float-1.a68 Normal file
View File

@@ -0,0 +1,3 @@
begin assert(float(123.4567,12,5,2) = "+12.34567e+1");
assert(float(123.4567,-10,5,-1) = " 1.23457e2")
end

13
libga68/standard.a68.in
View File

@@ -114,21 +114,26 @@ def
case v in
{iter L {} {long} {long long}}
{iter L_ {} {long_} {long_long_}}
{iter S {} {LENG} {LENG LENG}}
({L} real x):
if int before = ABS width - ABS exp - (after /= 0 | after+1 | 0) - 2;
SIGN before + SIGN after > 0
then string s, {L} real y := ABS x, int p := 0;
{L_}standardize (y, before, after, p);
s := fixed (SIGN (x * y), SIGN width * (ABS width - ABS exp - 1),
after) + "*^" + whole (p, exp);
s := fixed ({S} SIGN x * y, SIGN width * (ABS width - ABS exp - 1),
after) + "e" + whole (p, exp);
if exp = 0 OR char_in_string (errorchar, loc int, s)
then float (x, width, (after /= 0 | after-1 | 0),
(exp > 0 | exp+1 | exp-1))
else s
fi
else { XXX undefined } skip; ABS width * errorchar
fi,
({L} int x): float ({L} real (x), width, after, exp)
fi
{reti {,}}
,
{iter L {short short} {short} {} {long} {long long}}
{iter R {LENG LENG} {LENG} {} {} {}}
({L} int x): float ({L} real ({R} x), width, after, exp)
{reti {,}}
esac;