https://gcc.gnu.org/g:23f43aa6bddccf1a02cd8c6d797bfd0d2c0bf8f8
commit r17-429-g23f43aa6bddccf1a02cd8c6d797bfd0d2c0bf8f8 Author: Jose E. Marchesi <[email protected]> Date: Sun May 10 12:16:24 2026 +0200 a68: remove unimplemented math functions from is_mappable_routine The is_mappable_routine function has to identify all routines that are lengthety-mapped. This includes math functions like sin and cos. This patch removes the handling of several math routines that we are not implementing as compiler builtins: arccosdg cbrt curt gammaincgf arccotdg cosdg erf sindg arcsindg cospi erfc sinpi arctandg cot gamma tandg beta cotdg gammainc tanpi betainc cotpi gammaincg If these routines ever get added to the extended standard prelude, it will be as regular procedures rather than compiler builtins. Signed-off-by: Jose E. Marchesi <[email protected]> Reported-by: "Nelson H. F. Beebe" <[email protected]> gcc/algol68/ChangeLog * a68-parser-taxes.cc (is_mappable_routine): Remove handling of non-implemented math functions. Diff: --- gcc/algol68/a68-parser-taxes.cc | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/gcc/algol68/a68-parser-taxes.cc b/gcc/algol68/a68-parser-taxes.cc index 6227732ebc64..52065531f6b1 100644 --- a/gcc/algol68/a68-parser-taxes.cc +++ b/gcc/algol68/a68-parser-taxes.cc @@ -142,41 +142,17 @@ is_mappable_routine (const char *z) /* Math routines. */ ACCEPT (z, "arccos"); - ACCEPT (z, "arccosdg"); ACCEPT (z, "arccot"); - ACCEPT (z, "arccotdg"); ACCEPT (z, "arcsin"); - ACCEPT (z, "arcsindg"); ACCEPT (z, "arctan"); - ACCEPT (z, "arctandg"); - ACCEPT (z, "beta"); - ACCEPT (z, "betainc"); - ACCEPT (z, "cbrt"); ACCEPT (z, "cos"); - ACCEPT (z, "cosdg"); - ACCEPT (z, "cospi"); - ACCEPT (z, "cot"); - ACCEPT (z, "cot"); - ACCEPT (z, "cotdg"); - ACCEPT (z, "cotpi"); - ACCEPT (z, "curt"); - ACCEPT (z, "erf"); - ACCEPT (z, "erfc"); ACCEPT (z, "exp"); - ACCEPT (z, "gamma"); - ACCEPT (z, "gammainc"); - ACCEPT (z, "gammaincg"); - ACCEPT (z, "gammaincgf"); ACCEPT (z, "ln"); ACCEPT (z, "log"); ACCEPT (z, "pi"); ACCEPT (z, "sin"); - ACCEPT (z, "sindg"); - ACCEPT (z, "sinpi"); ACCEPT (z, "sqrt"); ACCEPT (z, "tan"); - ACCEPT (z, "tandg"); - ACCEPT (z, "tanpi"); /* Random generator. */ ACCEPT (z, "nextrandom"); ACCEPT (z, "random");
