entered into RCS
[kopensolaris-gnu/glibc.git] / gnu-stabs.h
1 /* Copyright (C) 1991 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 /* Make references to ALIAS refer to SYMBOL.  */
34 #ifdef  __STDC__
35 #define symbol_alias(symbol, alias)     \
36   asm(".stabs \"" "_" #alias "\",11,0,0,0\n"\
37       ".stabs \"" "_" #symbol "\",1,0,0,0")
38 #else
39 /* Your assembler better grok this right!  */
40 #define symbol_alias(symbol, alias)     \
41   asm(".stabs \"_/**/alias\",11,0,0,0\n.stabs \"_/**/symbol\",1,0,0,0")
42 #endif
43
44 /* Issue a warning message from the linker whenever SYMBOL is referenced.  */
45 #ifdef  __STDC__
46 #define warn_references(symbol, msg)    \
47   asm(".stabs \"" msg "\",30,0,0,0\n"   \
48       ".stabs \"_" #symbol "\",1,0,0,0")
49 #else
50 #define warn_references(symbol, msg)    \
51   asm(".stabs msg,30,0,0,0\n.stabs \"_/**/symbol\",1,0,0,0")
52 #endif
53
54 #ifdef  __STDC__
55 #define stub_warning(name) \
56   warn_references(name, \
57                   "warning: " #name " is not implemented and will always fail")
58 #else
59 #define stub_warning(name) \
60   warn_references(name, \
61                   "warning: name is not implemented and will always fail")
62 #endif
63
64 #ifdef  __STDC__
65 #define text_set_element(set, symbol)   \
66   asm(".stabs \"_" #set "\",23,0,0,_" #symbol)
67 #define data_set_element(set, symbol)   \
68   asm(".stabs \"_" #set "\",25,0,0,_" #symbol)
69 #else
70 #define text_set_element(set, symbol)   \
71   asm(".stabs \"_/**/set\",23,0,0,_/**/symbol")
72 #define data_set_element(set, symbol)   \
73   asm(".stabs \"_/**/set\",25,0,0,_/**/symbol")
74 #endif
75
76 #else   /* No GNU stabs.  */
77
78 #define function_alias(name, _name, type, args, defun) \
79   type defun { return name args; }
80
81 #endif  /* GNU stabs.  */
82
83 #endif  /* gnu-stabs.h  */