OSDN Git Service

fortran/
[pf3gnuchains/gcc-fork.git] / gcc / insn-addr.h
1 /* Macros to support INSN_ADDRESSES
2    Copyright (C) 2000 Free Software Foundation, Inc.
3
4 This file is part of GCC.
5
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 2, or (at your option) any later
9 version.
10
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING.  If not, write to the Free
18 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
19 02110-1301, USA.  */
20
21 #ifndef GCC_INSN_ADDR_H
22 #define GCC_INSN_ADDR_H 
23
24 #include "varray.h"
25
26 extern GTY(()) varray_type insn_addresses_;
27 extern int insn_current_address;
28
29 #define INSN_ADDRESSES_DEFN() varray_type insn_addresses_
30 #define INSN_ADDRESSES(id) VARRAY_INT (insn_addresses_, (id))
31 #define INSN_ADDRESSES_ALLOC(size) \
32   VARRAY_INT_INIT (insn_addresses_, (size), "insn_addresses")
33 #define INSN_ADDRESSES_FREE() (insn_addresses_ = 0)
34 #define INSN_ADDRESSES_SET_P() (insn_addresses_ != 0)
35 #define INSN_ADDRESSES_SIZE() VARRAY_SIZE (insn_addresses_)
36 #define INSN_ADDRESSES_NEW(insn, addr) do \
37   {                                                                     \
38     unsigned insn_uid__ = INSN_UID ((insn));                            \
39     int insn_addr__ = (addr);                                           \
40                                                                         \
41     if (INSN_ADDRESSES_SET_P ())                                        \
42       {                                                                 \
43         if (INSN_ADDRESSES_SIZE () <= insn_uid__)                       \
44           VARRAY_GROW (insn_addresses_, insn_uid__ + 1);                \
45         INSN_ADDRESSES (insn_uid__) = insn_addr__;                      \
46       }                                                                 \
47   }                                                                     \
48 while (0)
49
50 #endif /* ! GCC_INSN_ADDR_H */