gnu-stabs.h

   1 /* Copyright (C) 1991, 1992, 1994 Free Software Foundation, Inc.
   2 This file is part of the GNU C Library.
   3
   4 The GNU C Library is free software; you can redistribute it and/or
   5 modify it under the terms of the GNU Library General Public License as
   6 published by the Free Software Foundation; either version 2 of the
   7 License, or (at your option) any later version.
   8
   9 The GNU C Library is distributed in the hope that it will be useful,
  10 but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 Library General Public License for more details.
  13
  14 You should have received a copy of the GNU Library General Public
  15 License along with the GNU C Library; see the file COPYING.LIB.  If
  16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  17 Cambridge, MA 02139, USA.  */
  18
  19 #ifndef __GNU_STABS_H
  20
  21 #define __GNU_STABS_H   1
  22
  23 #ifdef  HAVE_GNU_LD
  24
  25 /* Alias a function:
  26         function_alias(creat, _creat, int, (file, mode),
  27                        DEFUN(creat, (file, mode),
  28                              CONST char *file AND int mode))
  29    Yes, this is very repetitive.  Nothing you can do about it, so shut up.  */
  30 #define function_alias(name, _name, type, args, defun) \
  31   symbol_alias (_name, name);
  32
  33 #define function_alias_void(name, _name, args, defun) \
  34   symbol_alias (_name, name);
  35
  36 /* Make references to ALIAS refer to SYMBOL.  */
  37 #ifdef  __STDC__
  38 #define symbol_alias(symbol, alias)     \
  39   asm(".stabs \"" "_" #alias "\",11,0,0,0\n"\
  40       ".stabs \"" "_" #symbol "\",1,0,0,0")
  41 #else
  42 /* Your assembler better grok this right!  */
  43 #define symbol_alias(symbol, alias)     \
  44   asm(".stabs \"_/**/alias\",11,0,0,0\n.stabs \"_/**/symbol\",1,0,0,0")
  45 #endif
  46
  47 /* Issue a warning message from the linker whenever SYMBOL is referenced.  */
  48 #ifdef  __STDC__
  49 #define warn_references(symbol, msg)    \
  50   asm(".stabs \"" msg "\",30,0,0,0\n"   \
  51       ".stabs \"_" #symbol "\",1,0,0,0")
  52 #else
  53 #define warn_references(symbol, msg)    \
  54   asm(".stabs msg,30,0,0,0\n.stabs \"_/**/symbol\",1,0,0,0")
  55 #endif
  56
  57 #ifdef  __STDC__
  58 #define stub_warning(name) \
  59   warn_references(name, \
  60                   "warning: " #name " is not implemented and will always fail")
  61 #else
  62 #define stub_warning(name) \
  63   warn_references(name, \
  64                   "warning: name is not implemented and will always fail")
  65 #endif
  66
  67 #ifdef  __STDC__
  68 #define text_set_element(set, symbol)   \
  69   asm(".stabs \"_" #set "\",23,0,0,_" #symbol)
  70 #define data_set_element(set, symbol)   \
  71   asm(".stabs \"_" #set "\",25,0,0,_" #symbol)
  72 #define bss_set_element(set, symbol)    \
  73   asm(".stabs \"_" #set "\",27,0,0,_" #symbol)
  74 #else
  75 #define text_set_element(set, symbol)   \
  76   asm(".stabs \"_/**/set\",23,0,0,_/**/symbol")
  77 #define data_set_element(set, symbol)   \
  78   asm(".stabs \"_/**/set\",25,0,0,_/**/symbol")
  79 #define bss_set_element(set, symbol)    \
  80   asm(".stabs \"_/**/set\",27,0,0,_/**/symbol")
  81 #endif
  82
  83 #else   /* No GNU stabs.  */
  84
  85 #define function_alias(name, _name, type, args, defun) \
  86   type defun { return _name args; }
  87
  88 #define function_alias_void(name, _name, args, defun) \
  89   void defun { _name args; }
  90
  91 #endif  /* GNU stabs.  */
  92
  93 #endif  /* gnu-stabs.h  */