1 /* This testcase is part of GDB, the GNU debugger. 2 3 Copyright 2011-2023 Free Software Foundation, Inc. 4 5 This program is free software; you can redistribute it and/or modify 6 it under the terms of the GNU General Public License as published by 7 the Free Software Foundation; either version 3 of the License, or 8 (at your option) any later version. 9 10 This program is distributed in the hope that it will be useful, 11 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 GNU General Public License for more details. 14 15 You should have received a copy of the GNU General Public License 16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 17 18 /* Target-specific way of forcing an instruction label. */ 19 #ifdef __mips__ 20 #define START_INSNS asm (".insn"); 21 #else 22 #define START_INSNS 23 #endif 24 25 /* Use DW_LANG_Fortran90 for case insensitive DWARF. */ 26 asm (".globl cu_text_start"); 27 asm ("cu_text_start:"); 28 START_INSNS 29 30 asm (".globl FUNC_lang_start"); 31 asm (".p2align 4"); 32 asm ("FUNC_lang_start:"); 33 START_INSNS 34 35 void 36 FUNC_lang (void) 37 { 38 } 39 40 asm (".globl FUNC_lang_end"); 41 asm ("FUNC_lang_end:"); 42 43 /* Symbol is present only in ELF .symtab. */ 44 45 void 46 FUNC_symtab (void) 47 { 48 } 49 50 int 51 main (void) 52 { 53 FUNC_lang (); 54 FUNC_symtab (); 55 return 0; 56 } 57 58 asm (".globl cu_text_end"); 59 asm ("cu_text_end:"); 60