diff options
| author | Gaius Mulley <gaiusmod2@gmail.com> | 2023-03-14 19:52:11 +0000 |
|---|---|---|
| committer | Gaius Mulley <gaiusmod2@gmail.com> | 2023-03-14 19:52:11 +0000 |
| commit | 19c5dfc29d83101e415590e778b99e7c37d9b730 (patch) | |
| tree | 44a9e4b644d621b5083c029387285185ee5b5eba /libgm2/libm2pim/dtoa.cc | |
| parent | 71b33f8fb8daa6a7a359f322b24365d9016438fc (diff) | |
| download | gcc-19c5dfc29d83101e415590e778b99e7c37d9b730.zip gcc-19c5dfc29d83101e415590e778b99e7c37d9b730.tar.gz gcc-19c5dfc29d83101e415590e778b99e7c37d9b730.tar.bz2 | |
PR 109125 Modula2 SIGBUS in m2pim_ldtoa_ldtoa
13 regression failures seen on sparc SIGBUS in m2pim_ldtoa_ldtoa.
This patch fixes int bool parameter mismatches between the
definition modules and their C/C++ implementations.
gcc/m2/ChangeLog:
PR modula2/109125
* gm2-libs-ch/cgetopt.c (cgetopt_SetOption): Replace int
for bool.
* gm2-libs-ch/termios.c (doSetUnset): Replace int for bool.
* gm2-libs/Builtins.mod (isfinitef): Correct typo in return
statement.
libgm2/ChangeLog:
PR modula2/109125
* libm2iso/ErrnoCategory.cc (FALSE): Remove.
(TRUE): Remove.
* libm2iso/wrapsock.c (TRUE): Remove.
(FALSE): Remove.
* libm2iso/wraptime.cc (TRUE): Remove.
(FALSE): Remove.
* libm2pim/cgetopt.cc: Replace int for bool for every BOOLEAN
parameter in the definition module.
* libm2pim/dtoa.cc: Ditto.
* libm2pim/ldtoa.cc: Ditto.
* libm2pim/termios.cc: Ditto.
(doSetUnset): Replace int for bool.
Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
Diffstat (limited to 'libgm2/libm2pim/dtoa.cc')
| -rw-r--r-- | libgm2/libm2pim/dtoa.cc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgm2/libm2pim/dtoa.cc b/libgm2/libm2pim/dtoa.cc index c6b573b..18bb079 100644 --- a/libgm2/libm2pim/dtoa.cc +++ b/libgm2/libm2pim/dtoa.cc @@ -198,20 +198,20 @@ EXPORT(calcdecimal) (char *p, int str_size, int ndigits) return x; } -extern "C" int +extern "C" bool EXPORT(calcsign) (char *p, int str_size) { if (p[0] == '-') { memmove (p, p + 1, str_size - 1); - return TRUE; + return true; } else - return FALSE; + return false; } extern "C" char * -EXPORT(dtoa) (double d, int mode, int ndigits, int *decpt, int *sign) +EXPORT(dtoa) (double d, int mode, int ndigits, int *decpt, bool *sign) { char format[50]; char *p; |