1 |
712 |
jeremybenn |
/* Simulate storage of variables into target memory, header.
|
2 |
|
|
Copyright (C) 2007, 2008, 2010
|
3 |
|
|
Free Software Foundation, Inc.
|
4 |
|
|
Contributed by Paul Thomas and Brooks Moses
|
5 |
|
|
|
6 |
|
|
This file is part of GCC.
|
7 |
|
|
|
8 |
|
|
GCC is free software; you can redistribute it and/or modify it under
|
9 |
|
|
the terms of the GNU General Public License as published by the Free
|
10 |
|
|
Software Foundation; either version 3, or (at your option) any later
|
11 |
|
|
version.
|
12 |
|
|
|
13 |
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
14 |
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
15 |
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
16 |
|
|
for more details.
|
17 |
|
|
|
18 |
|
|
You should have received a copy of the GNU General Public License
|
19 |
|
|
along with GCC; see the file COPYING3. If not see
|
20 |
|
|
<http://www.gnu.org/licenses/>. */
|
21 |
|
|
|
22 |
|
|
#ifndef GFC_TARGET_MEMORY_H
|
23 |
|
|
#define GFC_TARGET_MEMORY_H
|
24 |
|
|
|
25 |
|
|
/* Convert a BOZ to REAL or COMPLEX. */
|
26 |
|
|
bool gfc_convert_boz (gfc_expr *, gfc_typespec *);
|
27 |
|
|
|
28 |
|
|
/* Return the size of an expression in its target representation. */
|
29 |
|
|
size_t gfc_target_expr_size (gfc_expr *);
|
30 |
|
|
|
31 |
|
|
/* Write a constant expression in binary form to a target buffer. */
|
32 |
|
|
int gfc_encode_character (int, int, const gfc_char_t *, unsigned char *,
|
33 |
|
|
size_t);
|
34 |
|
|
int gfc_target_encode_expr (gfc_expr *, unsigned char *, size_t);
|
35 |
|
|
|
36 |
|
|
/* Read a target buffer into a constant expression. */
|
37 |
|
|
|
38 |
|
|
int gfc_interpret_integer (int, unsigned char *, size_t, mpz_t);
|
39 |
|
|
int gfc_interpret_float (int, unsigned char *, size_t, mpfr_t);
|
40 |
|
|
int gfc_interpret_complex (int, unsigned char *, size_t, mpc_t);
|
41 |
|
|
int gfc_interpret_logical (int, unsigned char *, size_t, int *);
|
42 |
|
|
int gfc_interpret_character (unsigned char *, size_t, gfc_expr *);
|
43 |
|
|
int gfc_interpret_derived (unsigned char *, size_t, gfc_expr *);
|
44 |
|
|
int gfc_target_interpret_expr (unsigned char *, size_t, gfc_expr *, bool);
|
45 |
|
|
|
46 |
|
|
/* Merge overlapping equivalence initializers for trans-common.c. */
|
47 |
|
|
size_t gfc_merge_initializers (gfc_typespec, gfc_expr *,
|
48 |
|
|
unsigned char *, unsigned char *,
|
49 |
|
|
size_t);
|
50 |
|
|
|
51 |
|
|
#endif /* GFC_TARGET_MEMORY_H */
|