diff options
Diffstat (limited to 'gcc/config/avr/avr-c.cc')
| -rw-r--r-- | gcc/config/avr/avr-c.cc | 509 |
1 files changed, 509 insertions, 0 deletions
diff --git a/gcc/config/avr/avr-c.cc b/gcc/config/avr/avr-c.cc new file mode 100644 index 0000000..4f0273a --- /dev/null +++ b/gcc/config/avr/avr-c.cc @@ -0,0 +1,509 @@ +/* Copyright (C) 2009-2022 Free Software Foundation, Inc. + Contributed by Anatoly Sokolov (aesok@post.ru) + + This file is part of GCC. + + GCC is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3, or (at your option) + any later version. + + GCC is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GCC; see the file COPYING3. If not see + <http://www.gnu.org/licenses/>. */ + +/* Not included in avr.c since this requires C front end. */ + +#define IN_TARGET_CODE 1 + +#include "config.h" +#include "system.h" +#include "coretypes.h" +#include "target.h" +#include "c-family/c-common.h" +#include "stor-layout.h" +#include "langhooks.h" +#include "memmodel.h" +#include "tm_p.h" + +/* IDs for all the AVR builtins. */ + +enum avr_builtin_id + { +#define DEF_BUILTIN(NAME, N_ARGS, TYPE, CODE, LIBNAME) \ + AVR_BUILTIN_ ## NAME, +#include "builtins.def" +#undef DEF_BUILTIN + + AVR_BUILTIN_COUNT + }; + + +/* Implement `TARGET_RESOLVE_OVERLOADED_PLUGIN'. */ + +static tree +avr_resolve_overloaded_builtin (unsigned int iloc, tree fndecl, void *vargs) +{ + tree type0, type1, fold = NULL_TREE; + enum avr_builtin_id id = AVR_BUILTIN_COUNT; + location_t loc = (location_t) iloc; + vec<tree, va_gc> &args = * (vec<tree, va_gc>*) vargs; + + switch (DECL_MD_FUNCTION_CODE (fndecl)) + { + default: + break; + + case AVR_BUILTIN_ABSFX: + if (args.length() != 1) + { + error_at (loc, "%qs expects 1 argument but %d given", + "absfx", (int) args.length()); + + fold = error_mark_node; + break; + } + + type0 = TREE_TYPE (args[0]); + + if (!FIXED_POINT_TYPE_P (type0)) + { + error_at (loc, "%qs expects a fixed-point value as argument", + "absfx"); + + fold = error_mark_node; + } + + switch (TYPE_MODE (type0)) + { + case E_QQmode: id = AVR_BUILTIN_ABSHR; break; + case E_HQmode: id = AVR_BUILTIN_ABSR; break; + case E_SQmode: id = AVR_BUILTIN_ABSLR; break; + case E_DQmode: id = AVR_BUILTIN_ABSLLR; break; + + case E_HAmode: id = AVR_BUILTIN_ABSHK; break; + case E_SAmode: id = AVR_BUILTIN_ABSK; break; + case E_DAmode: id = AVR_BUILTIN_ABSLK; break; + case E_TAmode: id = AVR_BUILTIN_ABSLLK; break; + + case E_UQQmode: + case E_UHQmode: + case E_USQmode: + case E_UDQmode: + case E_UHAmode: + case E_USAmode: + case E_UDAmode: + case E_UTAmode: + warning_at (loc, 0, "using %qs with unsigned type has no effect", + "absfx"); + return args[0]; + + default: + error_at (loc, "no matching fixed-point overload found for %qs", + "absfx"); + + fold = error_mark_node; + break; + } + + fold = targetm.builtin_decl (id, true); + + if (fold != error_mark_node) + fold = build_function_call_vec (loc, vNULL, fold, &args, NULL); + + break; // absfx + + case AVR_BUILTIN_ROUNDFX: + if (args.length() != 2) + { + error_at (loc, "%qs expects 2 arguments but %d given", + "roundfx", (int) args.length()); + + fold = error_mark_node; + break; + } + + type0 = TREE_TYPE (args[0]); + type1 = TREE_TYPE (args[1]); + + if (!FIXED_POINT_TYPE_P (type0)) + { + error_at (loc, "%qs expects a fixed-point value as first argument", + "roundfx"); + + fold = error_mark_node; + } + + if (!INTEGRAL_TYPE_P (type1)) + { + error_at (loc, "%qs expects an integer value as second argument", + "roundfx"); + + fold = error_mark_node; + } + + switch (TYPE_MODE (type0)) + { + case E_QQmode: id = AVR_BUILTIN_ROUNDHR; break; + case E_HQmode: id = AVR_BUILTIN_ROUNDR; break; + case E_SQmode: id = AVR_BUILTIN_ROUNDLR; break; + case E_DQmode: id = AVR_BUILTIN_ROUNDLLR; break; + + case E_UQQmode: id = AVR_BUILTIN_ROUNDUHR; break; + case E_UHQmode: id = AVR_BUILTIN_ROUNDUR; break; + case E_USQmode: id = AVR_BUILTIN_ROUNDULR; break; + case E_UDQmode: id = AVR_BUILTIN_ROUNDULLR; break; + + case E_HAmode: id = AVR_BUILTIN_ROUNDHK; break; + case E_SAmode: id = AVR_BUILTIN_ROUNDK; break; + case E_DAmode: id = AVR_BUILTIN_ROUNDLK; break; + case E_TAmode: id = AVR_BUILTIN_ROUNDLLK; break; + + case E_UHAmode: id = AVR_BUILTIN_ROUNDUHK; break; + case E_USAmode: id = AVR_BUILTIN_ROUNDUK; break; + case E_UDAmode: id = AVR_BUILTIN_ROUNDULK; break; + case E_UTAmode: id = AVR_BUILTIN_ROUNDULLK; break; + + default: + error_at (loc, "no matching fixed-point overload found for %qs", + "roundfx"); + + fold = error_mark_node; + break; + } + + fold = targetm.builtin_decl (id, true); + + if (fold != error_mark_node) + fold = build_function_call_vec (loc, vNULL, fold, &args, NULL); + + break; // roundfx + + case AVR_BUILTIN_COUNTLSFX: + if (args.length() != 1) + { + error_at (loc, "%qs expects 1 argument but %d given", + "countlsfx", (int) args.length()); + + fold = error_mark_node; + break; + } + + type0 = TREE_TYPE (args[0]); + + if (!FIXED_POINT_TYPE_P (type0)) + { + error_at (loc, "%qs expects a fixed-point value as first argument", + "countlsfx"); + + fold = error_mark_node; + } + + switch (TYPE_MODE (type0)) + { + case E_QQmode: id = AVR_BUILTIN_COUNTLSHR; break; + case E_HQmode: id = AVR_BUILTIN_COUNTLSR; break; + case E_SQmode: id = AVR_BUILTIN_COUNTLSLR; break; + case E_DQmode: id = AVR_BUILTIN_COUNTLSLLR; break; + + case E_UQQmode: id = AVR_BUILTIN_COUNTLSUHR; break; + case E_UHQmode: id = AVR_BUILTIN_COUNTLSUR; break; + case E_USQmode: id = AVR_BUILTIN_COUNTLSULR; break; + case E_UDQmode: id = AVR_BUILTIN_COUNTLSULLR; break; + + case E_HAmode: id = AVR_BUILTIN_COUNTLSHK; break; + case E_SAmode: id = AVR_BUILTIN_COUNTLSK; break; + case E_DAmode: id = AVR_BUILTIN_COUNTLSLK; break; + case E_TAmode: id = AVR_BUILTIN_COUNTLSLLK; break; + + case E_UHAmode: id = AVR_BUILTIN_COUNTLSUHK; break; + case E_USAmode: id = AVR_BUILTIN_COUNTLSUK; break; + case E_UDAmode: id = AVR_BUILTIN_COUNTLSULK; break; + case E_UTAmode: id = AVR_BUILTIN_COUNTLSULLK; break; + + default: + error_at (loc, "no matching fixed-point overload found for %qs", + "countlsfx"); + + fold = error_mark_node; + break; + } + + fold = targetm.builtin_decl (id, true); + + if (fold != error_mark_node) + fold = build_function_call_vec (loc, vNULL, fold, &args, NULL); + + break; // countlsfx + } + + return fold; +} + + +/* Implement `REGISTER_TARGET_PRAGMAS'. */ + +void +avr_register_target_pragmas (void) +{ + gcc_assert (ADDR_SPACE_GENERIC == ADDR_SPACE_RAM); + + /* Register address spaces. The order must be the same as in the respective + enum from avr.h (or designated initializers must be used in avr.c). + We always register all address spaces even if some of them make no + sense for some targets. Diagnose for non-supported spaces will be + emit by TARGET_ADDR_SPACE_DIAGNOSE_USAGE. */ + + for (int i = 0; i < ADDR_SPACE_COUNT; i++) + { + gcc_assert (i == avr_addrspace[i].id); + + if (!ADDR_SPACE_GENERIC_P (i)) + c_register_addr_space (avr_addrspace[i].name, avr_addrspace[i].id); + } + + targetm.resolve_overloaded_builtin = avr_resolve_overloaded_builtin; +} + + +/* Transform LO into uppercase and write the result to UP. + You must provide enough space for UP. Return UP. */ + +static char* +avr_toupper (char *up, const char *lo) +{ + char *up0 = up; + + for (; *lo; lo++, up++) + *up = TOUPPER (*lo); + + *up = '\0'; + + return up0; +} + +/* Worker function for TARGET_CPU_CPP_BUILTINS. */ + +void +avr_cpu_cpp_builtins (struct cpp_reader *pfile) +{ + builtin_define_std ("AVR"); + + /* __AVR_DEVICE_NAME__ and avr_mcu_types[].macro like __AVR_ATmega8__ + are defined by -D command option, see device-specs file. */ + + if (avr_arch->macro) + cpp_define_formatted (pfile, "__AVR_ARCH__=%s", avr_arch->macro); + if (AVR_HAVE_RAMPD) cpp_define (pfile, "__AVR_HAVE_RAMPD__"); + if (AVR_HAVE_RAMPX) cpp_define (pfile, "__AVR_HAVE_RAMPX__"); + if (AVR_HAVE_RAMPY) cpp_define (pfile, "__AVR_HAVE_RAMPY__"); + if (AVR_HAVE_RAMPZ) cpp_define (pfile, "__AVR_HAVE_RAMPZ__"); + if (AVR_HAVE_ELPM) cpp_define (pfile, "__AVR_HAVE_ELPM__"); + if (AVR_HAVE_ELPMX) cpp_define (pfile, "__AVR_HAVE_ELPMX__"); + if (AVR_HAVE_MOVW) cpp_define (pfile, "__AVR_HAVE_MOVW__"); + if (AVR_HAVE_LPMX) cpp_define (pfile, "__AVR_HAVE_LPMX__"); + + if (avr_arch->asm_only) + cpp_define (pfile, "__AVR_ASM_ONLY__"); + if (AVR_HAVE_MUL) + { + cpp_define (pfile, "__AVR_ENHANCED__"); + cpp_define (pfile, "__AVR_HAVE_MUL__"); + } + + if (AVR_HAVE_JMP_CALL) + cpp_define (pfile, "__AVR_HAVE_JMP_CALL__"); + + if (avr_arch->have_jmp_call) + cpp_define (pfile, "__AVR_MEGA__"); + + if (AVR_SHORT_CALLS) + cpp_define (pfile, "__AVR_SHORT_CALLS__"); + + if (AVR_XMEGA) + cpp_define (pfile, "__AVR_XMEGA__"); + + if (AVR_TINY) + { + cpp_define (pfile, "__AVR_TINY__"); + + /* Define macro "__AVR_TINY_PM_BASE_ADDRESS__" with mapped program memory + start address. This macro shall be used where mapped program + memory is accessed, eg. copying data section (__do_copy_data) + contents to data memory region. + NOTE: + Program memory of AVR_TINY devices cannot be accessed directly, + it has been mapped to the data memory. For AVR_TINY devices + (ATtiny4/5/9/10/20 and 40) mapped program memory starts at 0x4000. */ + + cpp_define_formatted (pfile, "__AVR_TINY_PM_BASE_ADDRESS__=0x%x", + avr_arch->flash_pm_offset); + } + + if (avr_arch->flash_pm_offset) + cpp_define_formatted (pfile, "__AVR_PM_BASE_ADDRESS__=0x%x", + avr_arch->flash_pm_offset); + + if (AVR_HAVE_EIJMP_EICALL) + { + cpp_define (pfile, "__AVR_HAVE_EIJMP_EICALL__"); + cpp_define (pfile, "__AVR_3_BYTE_PC__"); + } + else + { + cpp_define (pfile, "__AVR_2_BYTE_PC__"); + } + + if (AVR_HAVE_8BIT_SP) + cpp_define (pfile, "__AVR_HAVE_8BIT_SP__"); + else + cpp_define (pfile, "__AVR_HAVE_16BIT_SP__"); + + if (AVR_HAVE_SPH) + cpp_define (pfile, "__AVR_HAVE_SPH__"); + else + cpp_define (pfile, "__AVR_SP8__"); + + if (TARGET_NO_INTERRUPTS) + cpp_define (pfile, "__NO_INTERRUPTS__"); + + if (TARGET_SKIP_BUG) + { + cpp_define (pfile, "__AVR_ERRATA_SKIP__"); + + if (AVR_HAVE_JMP_CALL) + cpp_define (pfile, "__AVR_ERRATA_SKIP_JMP_CALL__"); + } + + if (TARGET_RMW) + cpp_define (pfile, "__AVR_ISA_RMW__"); + + cpp_define_formatted (pfile, "__AVR_SFR_OFFSET__=0x%x", + avr_arch->sfr_offset); + +#ifdef WITH_AVRLIBC + cpp_define (pfile, "__WITH_AVRLIBC__"); +#endif /* WITH_AVRLIBC */ + + // From configure --with-libf7={|libgcc|math|math-symbols|yes|no} + +#ifdef WITH_LIBF7_LIBGCC + cpp_define (pfile, "__WITH_LIBF7_LIBGCC__"); +#endif /* WITH_LIBF7_LIBGCC */ + +#ifdef WITH_LIBF7_MATH + cpp_define (pfile, "__WITH_LIBF7_MATH__"); +#endif /* WITH_LIBF7_MATH */ + +#ifdef WITH_LIBF7_MATH_SYMBOLS + cpp_define (pfile, "__WITH_LIBF7_MATH_SYMBOLS__"); +#endif /* WITH_LIBF7_MATH_SYMBOLS */ + + // From configure --with-double={|32|32,64|64,32|64} + +#ifdef HAVE_DOUBLE_MULTILIB + cpp_define (pfile, "__HAVE_DOUBLE_MULTILIB__"); +#endif + +#ifdef HAVE_DOUBLE64 + cpp_define (pfile, "__HAVE_DOUBLE64__"); +#endif + +#ifdef HAVE_DOUBLE32 + cpp_define (pfile, "__HAVE_DOUBLE32__"); +#endif + +#if defined (WITH_DOUBLE64) + cpp_define (pfile, "__DEFAULT_DOUBLE__=64"); +#elif defined (WITH_DOUBLE32) + cpp_define (pfile, "__DEFAULT_DOUBLE__=32"); +#else +#error "align this with config.gcc" +#endif + + // From configure --with-long-double={|32|32,64|64,32|64|double} + +#ifdef HAVE_LONG_DOUBLE_MULTILIB + cpp_define (pfile, "__HAVE_LONG_DOUBLE_MULTILIB__"); +#endif + +#ifdef HAVE_LONG_DOUBLE64 + cpp_define (pfile, "__HAVE_LONG_DOUBLE64__"); +#endif + +#ifdef HAVE_LONG_DOUBLE32 + cpp_define (pfile, "__HAVE_LONG_DOUBLE32__"); +#endif + +#ifdef HAVE_LONG_DOUBLE_IS_DOUBLE + cpp_define (pfile, "__HAVE_LONG_DOUBLE_IS_DOUBLE__"); +#endif + +#if defined (WITH_LONG_DOUBLE64) + cpp_define (pfile, "__DEFAULT_LONG_DOUBLE__=64"); +#elif defined (WITH_LONG_DOUBLE32) + cpp_define (pfile, "__DEFAULT_LONG_DOUBLE__=32"); +#else +#error "align this with config.gcc" +#endif + + // From configure --with-double-comparison={2|3} --with-libf7. + +#if defined (WITH_DOUBLE_COMPARISON) +#if WITH_DOUBLE_COMPARISON == 2 || WITH_DOUBLE_COMPARISON == 3 + /* The number of states a DFmode comparison libcall might take and + reflects what avr.c:FLOAT_LIB_COMPARE_RETURNS_BOOL returns for + DFmode. GCC's default is 3-state, but some libraries like LibF7 + implement true / false (2-state). */ + cpp_define_formatted (pfile, "__WITH_DOUBLE_COMPARISON__=%d", + WITH_DOUBLE_COMPARISON); +#else +#error "align this with config.gcc" +#endif +#else +#error "align this with config.gcc" +#endif + + /* Define builtin macros so that the user can easily query whether + non-generic address spaces (and which) are supported or not. + This is only supported for C. For C++, a language extension is needed + (as mentioned in ISO/IEC DTR 18037; Annex F.2) which is not + implemented in GCC up to now. */ + + if (lang_GNU_C ()) + { + for (int i = 0; i < ADDR_SPACE_COUNT; i++) + if (!ADDR_SPACE_GENERIC_P (i) + /* Only supply __FLASH<n> macro if the address space is reasonable + for this target. The address space qualifier itself is still + supported, but using it will throw an error. */ + && avr_addr_space_supported_p ((addr_space_t) i)) + { + const char *name = avr_addrspace[i].name; + char *Name = (char*) alloca (1 + strlen (name)); + + cpp_define (pfile, avr_toupper (Name, name)); + } + } + + /* Define builtin macros so that the user can easily query whether or + not a specific builtin is available. */ + +#define DEF_BUILTIN(NAME, N_ARGS, TYPE, CODE, LIBNAME) \ + cpp_define (pfile, "__BUILTIN_AVR_" #NAME); +#include "builtins.def" +#undef DEF_BUILTIN + + /* Builtin macros for the __int24 and __uint24 type. */ + + cpp_define_formatted (pfile, "__INT24_MAX__=8388607%s", + INT_TYPE_SIZE == 8 ? "LL" : "L"); + cpp_define (pfile, "__INT24_MIN__=(-__INT24_MAX__-1)"); + cpp_define_formatted (pfile, "__UINT24_MAX__=16777215%s", + INT_TYPE_SIZE == 8 ? "ULL" : "UL"); +} |