re PR target/57744 (Power8 support has problems with quad word atomic instructions)
[official-gcc.git] / gcc / java / resource.c
blob54403d9f187e61334fabe78852a1bb6da5eef0d6
1 /* Functions related to building resource files.
2 Copyright (C) 1996-2013 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
11 GCC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>.
20 Java and all Java-based marks are trademarks or registered trademarks
21 of Sun Microsystems, Inc. in the United States and other countries.
22 The Free Software Foundation is independent of Sun Microsystems, Inc. */
24 #include "config.h"
25 #include "system.h"
26 #include "coretypes.h"
27 #include "tree.h"
28 #include "java-tree.h"
29 #include "jcf.h"
30 #include "diagnostic-core.h"
31 #include "toplev.h"
32 #include "parse.h"
33 #include "function.h"
34 #include "ggc.h"
35 #include "tree-iterator.h"
36 #include "cgraph.h"
38 /* A list of all the resources files. */
39 static GTY(()) vec<tree, va_gc> *resources;
41 void
42 compile_resource_data (const char *name, const char *buffer, int length)
44 tree rtype, field = NULL_TREE, data_type, rinit, data, decl;
45 vec<constructor_elt, va_gc> *v = NULL;
47 data_type = build_prim_array_type (unsigned_byte_type_node,
48 strlen (name) + length);
49 rtype = make_node (RECORD_TYPE);
50 PUSH_FIELD (input_location,
51 rtype, field, "name_length", unsigned_int_type_node);
52 PUSH_FIELD (input_location,
53 rtype, field, "resource_length", unsigned_int_type_node);
54 PUSH_FIELD (input_location, rtype, field, "data", data_type);
55 FINISH_RECORD (rtype);
56 START_RECORD_CONSTRUCTOR (v, rtype);
57 PUSH_FIELD_VALUE (v, "name_length",
58 build_int_cst (NULL_TREE, strlen (name)));
59 PUSH_FIELD_VALUE (v, "resource_length",
60 build_int_cst (NULL_TREE, length));
61 data = build_string (strlen(name) + length, buffer);
62 TREE_TYPE (data) = data_type;
63 PUSH_FIELD_VALUE (v, "data", data);
64 FINISH_RECORD_CONSTRUCTOR (rinit, v, rtype);
65 TREE_CONSTANT (rinit) = 1;
67 decl = build_decl (input_location,
68 VAR_DECL, java_mangle_resource_name (name), rtype);
69 TREE_STATIC (decl) = 1;
70 TREE_PUBLIC (decl) = 1;
71 java_hide_decl (decl);
72 DECL_ARTIFICIAL (decl) = 1;
73 DECL_IGNORED_P (decl) = 1;
74 TREE_READONLY (decl) = 1;
75 TREE_THIS_VOLATILE (decl) = 0;
76 DECL_INITIAL (decl) = rinit;
77 layout_decl (decl, 0);
78 pushdecl (decl);
79 rest_of_decl_compilation (decl, global_bindings_p (), 0);
80 varpool_finalize_decl (decl);
82 vec_safe_push (resources, decl);
85 void
86 write_resource_constructor (tree *list_p)
88 tree decl, t, register_resource_fn;
89 unsigned ix;
91 if (resources == NULL)
92 return;
94 t = build_function_type_list (void_type_node, ptr_type_node, NULL);
95 t = build_decl (input_location,
96 FUNCTION_DECL, get_identifier ("_Jv_RegisterResource"), t);
97 TREE_PUBLIC (t) = 1;
98 DECL_EXTERNAL (t) = 1;
99 register_resource_fn = t;
101 /* Write out entries in the same order in which they were defined. */
102 FOR_EACH_VEC_ELT (*resources, ix, decl)
104 t = build_fold_addr_expr (decl);
105 t = build_call_expr (register_resource_fn, 1, t);
106 append_to_statement_list (t, list_p);
110 /* Generate a byte array representing the contents of FILENAME. The
111 array is assigned a unique local symbol. The array represents a
112 compiled Java resource, which is accessed by the runtime using
113 NAME. */
114 void
115 compile_resource_file (const char *name, const char *filename)
117 struct stat stat_buf;
118 int fd;
119 char *buffer;
121 fd = open (filename, O_RDONLY | O_BINARY);
122 if (fd < 0)
124 perror ("Failed to read resource file");
125 return;
127 if (fstat (fd, &stat_buf) != 0
128 || ! S_ISREG (stat_buf.st_mode))
130 perror ("Could not figure length of resource file");
131 return;
133 buffer = XNEWVEC (char, strlen (name) + stat_buf.st_size);
134 strcpy (buffer, name);
135 read (fd, buffer + strlen (name), stat_buf.st_size);
136 close (fd);
138 compile_resource_data (name, buffer, stat_buf.st_size);
141 #include "gt-java-resource.h"