LIV2/bebbo-gcc
1
0
Fork 0
mirror of https://github.com/LIV2/bebbo-gcc.git synced 2025-12-06 00:23:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

fortran for Amiga

Browse Source
This commit is contained in:
bebbo 2023-12-11 18:41:01 +01:00
parent 64e5a1f979
commit 1d37b993f6
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgfortran/configure vendored
View File

@ -5768,7 +5768,14 @@ fi
# Add -Wall -fno-repack-arrays -fno-underscoring if we are using GCC. # Add -Wall -fno-repack-arrays -fno-underscoring if we are using GCC.
if test "x$GCC" = "xyes"; then if test "x$GCC" = "xyes"; then
AM_FCFLAGS="-I . -Wall -Werror -fimplicit-none -fno-repack-arrays -fno-underscoring" case "${host_cpu}" in
amiga*)
AM_FCFLAGS="-I . -Wall -Werror -fimplicit-none -fno-repack-arrays"
;;
*)
AM_FCFLAGS="-I . -Wall -Werror -fimplicit-none -fno-repack-arrays -fno-underscoring"
;;
esac
## We like to use C11 and C99 routines when available. This makes ## We like to use C11 and C99 routines when available. This makes
## sure that ## sure that
## __STDC_VERSION__ is set such that libc includes make them available. ## __STDC_VERSION__ is set such that libc includes make them available.

4
libgfortran/runtime/compile_options.c
View File

@ -29,7 +29,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
/* Useful compile-time options will be stored in here. */ /* Useful compile-time options will be stored in here. */
compile_options_t compile_options; compile_options_t compile_options;
#ifndef LIBGFOR_MINIMAL #if !defined(LIBGFOR_MINIMAL) && !defined(__AMIGA__)
static volatile sig_atomic_t fatal_error_in_progress = 0; static volatile sig_atomic_t fatal_error_in_progress = 0;
@ -167,7 +167,7 @@ set_options (int num, int options[])
if (num >= 9) if (num >= 9)
compile_options.fpe_summary = options[8]; compile_options.fpe_summary = options[8];
#ifndef LIBGFOR_MINIMAL #if !defined(LIBGFOR_MINIMAL) && !defined(__AMIGA__)
/* If backtrace is required, we set signal handlers on the POSIX /* If backtrace is required, we set signal handlers on the POSIX
2001 signals with core action. */ 2001 signals with core action. */
if (compile_options.backtrace) if (compile_options.backtrace)

4
libgfortran/runtime/error.c
View File

@ -175,7 +175,9 @@ sys_abort (void)
|| (options.backtrace == -1 && compile_options.backtrace == 1)) || (options.backtrace == -1 && compile_options.backtrace == 1))
{ {
estr_write ("\nProgram aborted. Backtrace:\n"); estr_write ("\nProgram aborted. Backtrace:\n");
#ifndef __AMIGA__
show_backtrace (false); show_backtrace (false);
#endif
signal (SIGABRT, SIG_DFL); signal (SIGABRT, SIG_DFL);
} }
@ -193,7 +195,9 @@ exit_error (int status)
|| (options.backtrace == -1 && compile_options.backtrace == 1)) || (options.backtrace == -1 && compile_options.backtrace == 1))
{ {
estr_write ("\nError termination. Backtrace:\n"); estr_write ("\nError termination. Backtrace:\n");
#ifndef __AMIGA__
show_backtrace (false); show_backtrace (false);
#endif
} }
exit (status); exit (status);
} }