/* Input functions for reading LTO sections.
- Copyright 2009 Free Software Foundation, Inc.
+ Copyright 2009, 2010 Free Software Foundation, Inc.
Contributed by Kenneth Zadeck <zadeck@naturalbridge.com>
This file is part of GCC.
#include "system.h"
#include "coretypes.h"
#include "tm.h"
-#include "toplev.h"
#include "tree.h"
#include "expr.h"
#include "flags.h"
#include "cgraph.h"
#include "function.h"
#include "ggc.h"
-#include "diagnostic.h"
+#include "diagnostic-core.h"
#include "except.h"
#include "vec.h"
#include "timevar.h"
{
"decls",
"function_body",
- "static_initializer",
+ "statics",
"cgraph",
- "varpool",
+ "vars",
"refs",
- "jump_funcs"
- "ipa_pure_const",
- "ipa_reference",
+ "jmpfuncs",
+ "pureconst",
+ "reference",
"symtab",
- "opts"
+ "opts",
+ "cgraphopt",
+ "inline"
};
-unsigned char
-lto_input_1_unsigned (struct lto_input_block *ib)
-{
- if (ib->p >= ib->len)
- internal_error ("bytecode stream: trying to read %d bytes "
- "after the end of the input buffer", ib->p - ib->len);
-
- return (ib->data[ib->p++]);
-}
-
/* Read an ULEB128 Number of IB. */
}
+/* Unpack VAL from BP in a variant of uleb format. */
+
+unsigned HOST_WIDE_INT
+bp_unpack_var_len_unsigned (struct bitpack_d *bp)
+{
+ unsigned HOST_WIDE_INT result = 0;
+ int shift = 0;
+ unsigned HOST_WIDE_INT half_byte;
+
+ while (true)
+ {
+ half_byte = bp_unpack_value (bp, 4);
+ result |= (half_byte & 0x7) << shift;
+ shift += 3;
+ if ((half_byte & 0x8) == 0)
+ return result;
+ }
+}
+
+
+/* Unpack VAL from BP in a variant of sleb format. */
+
+HOST_WIDE_INT
+bp_unpack_var_len_int (struct bitpack_d *bp)
+{
+ HOST_WIDE_INT result = 0;
+ int shift = 0;
+ unsigned HOST_WIDE_INT half_byte;
+
+ while (true)
+ {
+ half_byte = bp_unpack_value (bp, 4);
+ result |= (half_byte & 0x7) << shift;
+ shift += 3;
+ if ((half_byte & 0x8) == 0)
+ {
+ if ((shift < HOST_BITS_PER_WIDE_INT) && (half_byte & 0x4))
+ result |= - ((HOST_WIDE_INT)1 << shift);
+
+ return result;
+ }
+ }
+}
+
+
/* Hooks so that the ipa passes can call into the lto front end to get
sections. */
struct lto_in_decl_state *
lto_new_in_decl_state (void)
{
- struct lto_in_decl_state *state;
-
- state = ((struct lto_in_decl_state *) ggc_alloc (sizeof (*state)));
- memset (state, 0, sizeof (*state));
- return state;
+ return ggc_alloc_cleared_lto_in_decl_state ();
}
/* Delete STATE and its components. */
slot = htab_find_slot (file_data->function_decl_states, &temp, NO_INSERT);
return slot? ((struct lto_in_decl_state*) *slot) : NULL;
}
+
+
+/* Report read pass end of the section. */
+
+void
+lto_section_overrun (struct lto_input_block *ib)
+{
+ fatal_error ("bytecode stream: trying to read %d bytes "
+ "after the end of the input buffer", ib->p - ib->len);
+}
+
+/* Report out of range value. */
+
+void
+lto_value_range_error (const char *purpose, HOST_WIDE_INT val,
+ HOST_WIDE_INT min, HOST_WIDE_INT max)
+{
+ fatal_error ("%s out of range: Range is %i to %i, value is %i",
+ purpose, (int)min, (int)max, (int)val);
+}