/* Part of CPP library. (Precompiled header reading/writing.)
|
/* Part of CPP library. (Precompiled header reading/writing.)
|
Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005
|
Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
|
|
This program is free software; you can redistribute it and/or modify it
|
This program is free software; you can redistribute it and/or modify it
|
under the terms of the GNU General Public License as published by the
|
under the terms of the GNU General Public License as published by the
|
Free Software Foundation; either version 2, or (at your option) any
|
Free Software Foundation; either version 2, or (at your option) any
|
later version.
|
later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
|
Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
|
|
|
#include "config.h"
|
#include "config.h"
|
#include "system.h"
|
#include "system.h"
|
#include "cpplib.h"
|
#include "cpplib.h"
|
#include "internal.h"
|
#include "internal.h"
|
#include "hashtab.h"
|
#include "hashtab.h"
|
#include "mkdeps.h"
|
#include "mkdeps.h"
|
|
|
static int write_macdef (cpp_reader *, cpp_hashnode *, void *);
|
static int write_macdef (cpp_reader *, cpp_hashnode *, void *);
|
static int save_idents (cpp_reader *, cpp_hashnode *, void *);
|
static int save_idents (cpp_reader *, cpp_hashnode *, void *);
|
static hashval_t hashmem (const void *, size_t);
|
static hashval_t hashmem (const void *, size_t);
|
static hashval_t cpp_string_hash (const void *);
|
static hashval_t cpp_string_hash (const void *);
|
static int cpp_string_eq (const void *, const void *);
|
static int cpp_string_eq (const void *, const void *);
|
static int count_defs (cpp_reader *, cpp_hashnode *, void *);
|
static int count_defs (cpp_reader *, cpp_hashnode *, void *);
|
static int comp_hashnodes (const void *, const void *);
|
static int comp_hashnodes (const void *, const void *);
|
static int collect_ht_nodes (cpp_reader *, cpp_hashnode *, void *);
|
static int collect_ht_nodes (cpp_reader *, cpp_hashnode *, void *);
|
static int write_defs (cpp_reader *, cpp_hashnode *, void *);
|
static int write_defs (cpp_reader *, cpp_hashnode *, void *);
|
static int save_macros (cpp_reader *, cpp_hashnode *, void *);
|
static int save_macros (cpp_reader *, cpp_hashnode *, void *);
|
|
|
/* This structure represents a macro definition on disk. */
|
/* This structure represents a macro definition on disk. */
|
struct macrodef_struct
|
struct macrodef_struct
|
{
|
{
|
unsigned int definition_length;
|
unsigned int definition_length;
|
unsigned short name_length;
|
unsigned short name_length;
|
unsigned short flags;
|
unsigned short flags;
|
};
|
};
|
|
|
/* This is how we write out a macro definition.
|
/* This is how we write out a macro definition.
|
Suitable for being called by cpp_forall_identifiers. */
|
Suitable for being called by cpp_forall_identifiers. */
|
|
|
static int
|
static int
|
write_macdef (cpp_reader *pfile, cpp_hashnode *hn, void *file_p)
|
write_macdef (cpp_reader *pfile, cpp_hashnode *hn, void *file_p)
|
{
|
{
|
FILE *f = (FILE *) file_p;
|
FILE *f = (FILE *) file_p;
|
switch (hn->type)
|
switch (hn->type)
|
{
|
{
|
case NT_VOID:
|
case NT_VOID:
|
if (! (hn->flags & NODE_POISONED))
|
if (! (hn->flags & NODE_POISONED))
|
return 1;
|
return 1;
|
|
|
case NT_MACRO:
|
case NT_MACRO:
|
if ((hn->flags & NODE_BUILTIN))
|
if ((hn->flags & NODE_BUILTIN))
|
return 1;
|
return 1;
|
|
|
{
|
{
|
struct macrodef_struct s;
|
struct macrodef_struct s;
|
const unsigned char *defn;
|
const unsigned char *defn;
|
|
|
s.name_length = NODE_LEN (hn);
|
s.name_length = NODE_LEN (hn);
|
s.flags = hn->flags & NODE_POISONED;
|
s.flags = hn->flags & NODE_POISONED;
|
|
|
if (hn->type == NT_MACRO)
|
if (hn->type == NT_MACRO)
|
{
|
{
|
defn = cpp_macro_definition (pfile, hn);
|
defn = cpp_macro_definition (pfile, hn);
|
s.definition_length = ustrlen (defn);
|
s.definition_length = ustrlen (defn);
|
}
|
}
|
else
|
else
|
{
|
{
|
defn = NODE_NAME (hn);
|
defn = NODE_NAME (hn);
|
s.definition_length = s.name_length;
|
s.definition_length = s.name_length;
|
}
|
}
|
|
|
if (fwrite (&s, sizeof (s), 1, f) != 1
|
if (fwrite (&s, sizeof (s), 1, f) != 1
|
|| fwrite (defn, 1, s.definition_length, f) != s.definition_length)
|
|| fwrite (defn, 1, s.definition_length, f) != s.definition_length)
|
{
|
{
|
cpp_errno (pfile, CPP_DL_ERROR,
|
cpp_errno (pfile, CPP_DL_ERROR,
|
"while writing precompiled header");
|
"while writing precompiled header");
|
return 0;
|
return 0;
|
}
|
}
|
}
|
}
|
return 1;
|
return 1;
|
|
|
case NT_ASSERTION:
|
case NT_ASSERTION:
|
/* Not currently implemented. */
|
/* Not currently implemented. */
|
return 1;
|
return 1;
|
|
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
}
|
}
|
|
|
/* This structure records the names of the defined macros.
|
/* This structure records the names of the defined macros.
|
It's also used as a callback structure for size_initial_idents
|
It's also used as a callback structure for size_initial_idents
|
and save_idents. */
|
and save_idents. */
|
|
|
struct cpp_savedstate
|
struct cpp_savedstate
|
{
|
{
|
/* A hash table of the defined identifiers. */
|
/* A hash table of the defined identifiers. */
|
htab_t definedhash;
|
htab_t definedhash;
|
/* The size of the definitions of those identifiers (the size of
|
/* The size of the definitions of those identifiers (the size of
|
'definedstrs'). */
|
'definedstrs'). */
|
size_t hashsize;
|
size_t hashsize;
|
/* Number of definitions */
|
/* Number of definitions */
|
size_t n_defs;
|
size_t n_defs;
|
/* Array of definitions. In cpp_write_pch_deps it is used for sorting. */
|
/* Array of definitions. In cpp_write_pch_deps it is used for sorting. */
|
cpp_hashnode **defs;
|
cpp_hashnode **defs;
|
/* Space for the next definition. Definitions are null-terminated
|
/* Space for the next definition. Definitions are null-terminated
|
strings. */
|
strings. */
|
unsigned char *definedstrs;
|
unsigned char *definedstrs;
|
};
|
};
|
|
|
/* Save this identifier into the state: put it in the hash table,
|
/* Save this identifier into the state: put it in the hash table,
|
put the definition in 'definedstrs'. */
|
put the definition in 'definedstrs'. */
|
|
|
static int
|
static int
|
save_idents (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn, void *ss_p)
|
save_idents (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn, void *ss_p)
|
{
|
{
|
struct cpp_savedstate *const ss = (struct cpp_savedstate *)ss_p;
|
struct cpp_savedstate *const ss = (struct cpp_savedstate *)ss_p;
|
|
|
if (hn->type != NT_VOID)
|
if (hn->type != NT_VOID)
|
{
|
{
|
struct cpp_string news;
|
struct cpp_string news;
|
void **slot;
|
void **slot;
|
|
|
news.len = NODE_LEN (hn);
|
news.len = NODE_LEN (hn);
|
news.text= NODE_NAME (hn);
|
news.text= NODE_NAME (hn);
|
slot = htab_find_slot (ss->definedhash, &news, INSERT);
|
slot = htab_find_slot (ss->definedhash, &news, INSERT);
|
if (*slot == NULL)
|
if (*slot == NULL)
|
{
|
{
|
struct cpp_string *sp;
|
struct cpp_string *sp;
|
unsigned char *text;
|
unsigned char *text;
|
|
|
sp = XNEW (struct cpp_string);
|
sp = XNEW (struct cpp_string);
|
*slot = sp;
|
*slot = sp;
|
|
|
sp->len = NODE_LEN (hn);
|
sp->len = NODE_LEN (hn);
|
sp->text = text = XNEWVEC (unsigned char, NODE_LEN (hn));
|
sp->text = text = XNEWVEC (unsigned char, NODE_LEN (hn));
|
memcpy (text, NODE_NAME (hn), NODE_LEN (hn));
|
memcpy (text, NODE_NAME (hn), NODE_LEN (hn));
|
}
|
}
|
}
|
}
|
|
|
return 1;
|
return 1;
|
}
|
}
|
|
|
/* Hash some memory in a generic way. */
|
/* Hash some memory in a generic way. */
|
|
|
static hashval_t
|
static hashval_t
|
hashmem (const void *p_p, size_t sz)
|
hashmem (const void *p_p, size_t sz)
|
{
|
{
|
const unsigned char *p = (const unsigned char *)p_p;
|
const unsigned char *p = (const unsigned char *)p_p;
|
size_t i;
|
size_t i;
|
hashval_t h;
|
hashval_t h;
|
|
|
h = 0;
|
h = 0;
|
for (i = 0; i < sz; i++)
|
for (i = 0; i < sz; i++)
|
h = h * 67 - (*p++ - 113);
|
h = h * 67 - (*p++ - 113);
|
return h;
|
return h;
|
}
|
}
|
|
|
/* Hash a cpp string for the hashtable machinery. */
|
/* Hash a cpp string for the hashtable machinery. */
|
|
|
static hashval_t
|
static hashval_t
|
cpp_string_hash (const void *a_p)
|
cpp_string_hash (const void *a_p)
|
{
|
{
|
const struct cpp_string *a = (const struct cpp_string *) a_p;
|
const struct cpp_string *a = (const struct cpp_string *) a_p;
|
return hashmem (a->text, a->len);
|
return hashmem (a->text, a->len);
|
}
|
}
|
|
|
/* Compare two cpp strings for the hashtable machinery. */
|
/* Compare two cpp strings for the hashtable machinery. */
|
|
|
static int
|
static int
|
cpp_string_eq (const void *a_p, const void *b_p)
|
cpp_string_eq (const void *a_p, const void *b_p)
|
{
|
{
|
const struct cpp_string *a = (const struct cpp_string *) a_p;
|
const struct cpp_string *a = (const struct cpp_string *) a_p;
|
const struct cpp_string *b = (const struct cpp_string *) b_p;
|
const struct cpp_string *b = (const struct cpp_string *) b_p;
|
return (a->len == b->len
|
return (a->len == b->len
|
&& memcmp (a->text, b->text, a->len) == 0);
|
&& memcmp (a->text, b->text, a->len) == 0);
|
}
|
}
|
|
|
/* Save the current definitions of the cpp_reader for dependency
|
/* Save the current definitions of the cpp_reader for dependency
|
checking purposes. When writing a precompiled header, this should
|
checking purposes. When writing a precompiled header, this should
|
be called at the same point in the compilation as cpp_valid_state
|
be called at the same point in the compilation as cpp_valid_state
|
would be called when reading the precompiled header back in. */
|
would be called when reading the precompiled header back in. */
|
|
|
int
|
int
|
cpp_save_state (cpp_reader *r, FILE *f)
|
cpp_save_state (cpp_reader *r, FILE *f)
|
{
|
{
|
/* Save the list of non-void identifiers for the dependency checking. */
|
/* Save the list of non-void identifiers for the dependency checking. */
|
r->savedstate = XNEW (struct cpp_savedstate);
|
r->savedstate = XNEW (struct cpp_savedstate);
|
r->savedstate->definedhash = htab_create (100, cpp_string_hash,
|
r->savedstate->definedhash = htab_create (100, cpp_string_hash,
|
cpp_string_eq, NULL);
|
cpp_string_eq, NULL);
|
cpp_forall_identifiers (r, save_idents, r->savedstate);
|
cpp_forall_identifiers (r, save_idents, r->savedstate);
|
|
|
/* Write out the list of defined identifiers. */
|
/* Write out the list of defined identifiers. */
|
cpp_forall_identifiers (r, write_macdef, f);
|
cpp_forall_identifiers (r, write_macdef, f);
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Calculate the 'hashsize' field of the saved state. */
|
/* Calculate the 'hashsize' field of the saved state. */
|
|
|
static int
|
static int
|
count_defs (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn, void *ss_p)
|
count_defs (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn, void *ss_p)
|
{
|
{
|
struct cpp_savedstate *const ss = (struct cpp_savedstate *)ss_p;
|
struct cpp_savedstate *const ss = (struct cpp_savedstate *)ss_p;
|
|
|
switch (hn->type)
|
switch (hn->type)
|
{
|
{
|
case NT_MACRO:
|
case NT_MACRO:
|
if (hn->flags & NODE_BUILTIN)
|
if (hn->flags & NODE_BUILTIN)
|
return 1;
|
return 1;
|
|
|
/* else fall through. */
|
/* else fall through. */
|
|
|
case NT_VOID:
|
case NT_VOID:
|
{
|
{
|
struct cpp_string news;
|
struct cpp_string news;
|
void **slot;
|
void **slot;
|
|
|
news.len = NODE_LEN (hn);
|
news.len = NODE_LEN (hn);
|
news.text = NODE_NAME (hn);
|
news.text = NODE_NAME (hn);
|
slot = (void **) htab_find (ss->definedhash, &news);
|
slot = (void **) htab_find (ss->definedhash, &news);
|
if (slot == NULL)
|
if (slot == NULL)
|
{
|
{
|
ss->hashsize += NODE_LEN (hn) + 1;
|
ss->hashsize += NODE_LEN (hn) + 1;
|
ss->n_defs += 1;
|
ss->n_defs += 1;
|
}
|
}
|
}
|
}
|
return 1;
|
return 1;
|
|
|
case NT_ASSERTION:
|
case NT_ASSERTION:
|
/* Not currently implemented. */
|
/* Not currently implemented. */
|
return 1;
|
return 1;
|
|
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
}
|
}
|
|
|
/* Collect the identifiers into the state's string table. */
|
/* Collect the identifiers into the state's string table. */
|
static int
|
static int
|
write_defs (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn, void *ss_p)
|
write_defs (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn, void *ss_p)
|
{
|
{
|
struct cpp_savedstate *const ss = (struct cpp_savedstate *)ss_p;
|
struct cpp_savedstate *const ss = (struct cpp_savedstate *)ss_p;
|
|
|
switch (hn->type)
|
switch (hn->type)
|
{
|
{
|
case NT_MACRO:
|
case NT_MACRO:
|
if (hn->flags & NODE_BUILTIN)
|
if (hn->flags & NODE_BUILTIN)
|
return 1;
|
return 1;
|
|
|
/* else fall through. */
|
/* else fall through. */
|
|
|
case NT_VOID:
|
case NT_VOID:
|
{
|
{
|
struct cpp_string news;
|
struct cpp_string news;
|
void **slot;
|
void **slot;
|
|
|
news.len = NODE_LEN (hn);
|
news.len = NODE_LEN (hn);
|
news.text = NODE_NAME (hn);
|
news.text = NODE_NAME (hn);
|
slot = (void **) htab_find (ss->definedhash, &news);
|
slot = (void **) htab_find (ss->definedhash, &news);
|
if (slot == NULL)
|
if (slot == NULL)
|
{
|
{
|
ss->defs[ss->n_defs] = hn;
|
ss->defs[ss->n_defs] = hn;
|
ss->n_defs += 1;
|
ss->n_defs += 1;
|
}
|
}
|
}
|
}
|
return 1;
|
return 1;
|
|
|
case NT_ASSERTION:
|
case NT_ASSERTION:
|
/* Not currently implemented. */
|
/* Not currently implemented. */
|
return 1;
|
return 1;
|
|
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
}
|
}
|
|
|
/* Comparison function for qsort. The arguments point to pointers of
|
/* Comparison function for qsort. The arguments point to pointers of
|
type ht_hashnode *. */
|
type ht_hashnode *. */
|
static int
|
static int
|
comp_hashnodes (const void *px, const void *py)
|
comp_hashnodes (const void *px, const void *py)
|
{
|
{
|
cpp_hashnode *x = *(cpp_hashnode **) px;
|
cpp_hashnode *x = *(cpp_hashnode **) px;
|
cpp_hashnode *y = *(cpp_hashnode **) py;
|
cpp_hashnode *y = *(cpp_hashnode **) py;
|
return ustrcmp (NODE_NAME (x), NODE_NAME (y));
|
return ustrcmp (NODE_NAME (x), NODE_NAME (y));
|
}
|
}
|
|
|
/* Write out the remainder of the dependency information. This should be
|
/* Write out the remainder of the dependency information. This should be
|
called after the PCH is ready to be saved. */
|
called after the PCH is ready to be saved. */
|
|
|
int
|
int
|
cpp_write_pch_deps (cpp_reader *r, FILE *f)
|
cpp_write_pch_deps (cpp_reader *r, FILE *f)
|
{
|
{
|
struct macrodef_struct z;
|
struct macrodef_struct z;
|
struct cpp_savedstate *const ss = r->savedstate;
|
struct cpp_savedstate *const ss = r->savedstate;
|
unsigned char *definedstrs;
|
unsigned char *definedstrs;
|
size_t i;
|
size_t i;
|
|
|
/* Collect the list of identifiers which have been seen and
|
/* Collect the list of identifiers which have been seen and
|
weren't defined to anything previously. */
|
weren't defined to anything previously. */
|
ss->hashsize = 0;
|
ss->hashsize = 0;
|
ss->n_defs = 0;
|
ss->n_defs = 0;
|
cpp_forall_identifiers (r, count_defs, ss);
|
cpp_forall_identifiers (r, count_defs, ss);
|
|
|
ss->defs = XNEWVEC (cpp_hashnode *, ss->n_defs);
|
ss->defs = XNEWVEC (cpp_hashnode *, ss->n_defs);
|
ss->n_defs = 0;
|
ss->n_defs = 0;
|
cpp_forall_identifiers (r, write_defs, ss);
|
cpp_forall_identifiers (r, write_defs, ss);
|
|
|
/* Sort the list, copy it into a buffer, and write it out. */
|
/* Sort the list, copy it into a buffer, and write it out. */
|
qsort (ss->defs, ss->n_defs, sizeof (cpp_hashnode *), &comp_hashnodes);
|
qsort (ss->defs, ss->n_defs, sizeof (cpp_hashnode *), &comp_hashnodes);
|
definedstrs = ss->definedstrs = XNEWVEC (unsigned char, ss->hashsize);
|
definedstrs = ss->definedstrs = XNEWVEC (unsigned char, ss->hashsize);
|
for (i = 0; i < ss->n_defs; ++i)
|
for (i = 0; i < ss->n_defs; ++i)
|
{
|
{
|
size_t len = NODE_LEN (ss->defs[i]);
|
size_t len = NODE_LEN (ss->defs[i]);
|
memcpy (definedstrs, NODE_NAME (ss->defs[i]), len + 1);
|
memcpy (definedstrs, NODE_NAME (ss->defs[i]), len + 1);
|
definedstrs += len + 1;
|
definedstrs += len + 1;
|
}
|
}
|
|
|
memset (&z, 0, sizeof (z));
|
memset (&z, 0, sizeof (z));
|
z.definition_length = ss->hashsize;
|
z.definition_length = ss->hashsize;
|
if (fwrite (&z, sizeof (z), 1, f) != 1
|
if (fwrite (&z, sizeof (z), 1, f) != 1
|
|| fwrite (ss->definedstrs, ss->hashsize, 1, f) != 1)
|
|| fwrite (ss->definedstrs, ss->hashsize, 1, f) != 1)
|
{
|
{
|
cpp_errno (r, CPP_DL_ERROR, "while writing precompiled header");
|
cpp_errno (r, CPP_DL_ERROR, "while writing precompiled header");
|
return -1;
|
return -1;
|
}
|
}
|
free (ss->definedstrs);
|
free (ss->definedstrs);
|
|
|
/* Free the saved state. */
|
/* Free the saved state. */
|
free (ss);
|
free (ss);
|
r->savedstate = NULL;
|
r->savedstate = NULL;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Write out the definitions of the preprocessor, in a form suitable for
|
/* Write out the definitions of the preprocessor, in a form suitable for
|
cpp_read_state. */
|
cpp_read_state. */
|
|
|
int
|
int
|
cpp_write_pch_state (cpp_reader *r, FILE *f)
|
cpp_write_pch_state (cpp_reader *r, FILE *f)
|
{
|
{
|
if (!r->deps)
|
if (!r->deps)
|
r->deps = deps_init ();
|
r->deps = deps_init ();
|
|
|
if (deps_save (r->deps, f) != 0)
|
if (deps_save (r->deps, f) != 0)
|
{
|
{
|
cpp_errno (r, CPP_DL_ERROR, "while writing precompiled header");
|
cpp_errno (r, CPP_DL_ERROR, "while writing precompiled header");
|
return -1;
|
return -1;
|
}
|
}
|
|
|
if (! _cpp_save_file_entries (r, f))
|
if (! _cpp_save_file_entries (r, f))
|
{
|
{
|
cpp_errno (r, CPP_DL_ERROR, "while writing precompiled header");
|
cpp_errno (r, CPP_DL_ERROR, "while writing precompiled header");
|
return -1;
|
return -1;
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
|
|
/* Data structure to transform hash table nodes into a sorted list */
|
/* Data structure to transform hash table nodes into a sorted list */
|
|
|
struct ht_node_list
|
struct ht_node_list
|
{
|
{
|
/* Array of nodes */
|
/* Array of nodes */
|
cpp_hashnode **defs;
|
cpp_hashnode **defs;
|
/* Number of nodes in the array */
|
/* Number of nodes in the array */
|
size_t n_defs;
|
size_t n_defs;
|
/* Size of the allocated array */
|
/* Size of the allocated array */
|
size_t asize;
|
size_t asize;
|
};
|
};
|
|
|
/* Callback for collecting identifiers from hash table */
|
/* Callback for collecting identifiers from hash table */
|
|
|
static int
|
static int
|
collect_ht_nodes (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn,
|
collect_ht_nodes (cpp_reader *pfile ATTRIBUTE_UNUSED, cpp_hashnode *hn,
|
void *nl_p)
|
void *nl_p)
|
{
|
{
|
struct ht_node_list *const nl = (struct ht_node_list *)nl_p;
|
struct ht_node_list *const nl = (struct ht_node_list *)nl_p;
|
|
|
if (hn->type != NT_VOID || hn->flags & NODE_POISONED)
|
if (hn->type != NT_VOID || hn->flags & NODE_POISONED)
|
{
|
{
|
if (nl->n_defs == nl->asize)
|
if (nl->n_defs == nl->asize)
|
{
|
{
|
nl->asize *= 2;
|
nl->asize *= 2;
|
nl->defs = XRESIZEVEC (cpp_hashnode *, nl->defs, nl->asize);
|
nl->defs = XRESIZEVEC (cpp_hashnode *, nl->defs, nl->asize);
|
}
|
}
|
|
|
nl->defs[nl->n_defs] = hn;
|
nl->defs[nl->n_defs] = hn;
|
++nl->n_defs;
|
++nl->n_defs;
|
}
|
}
|
return 1;
|
return 1;
|
}
|
}
|
|
|
|
|
/* Return nonzero if FD is a precompiled header which is consistent
|
/* Return nonzero if FD is a precompiled header which is consistent
|
with the preprocessor's current definitions. It will be consistent
|
with the preprocessor's current definitions. It will be consistent
|
when:
|
when:
|
|
|
- anything that was defined just before the PCH was generated
|
- anything that was defined just before the PCH was generated
|
is defined the same way now; and
|
is defined the same way now; and
|
- anything that was not defined then, but is defined now, was not
|
- anything that was not defined then, but is defined now, was not
|
used by the PCH.
|
used by the PCH.
|
|
|
NAME is used to print warnings if `warn_invalid_pch' is set in the
|
NAME is used to print warnings if `warn_invalid_pch' is set in the
|
reader's flags.
|
reader's flags.
|
*/
|
*/
|
|
|
int
|
int
|
cpp_valid_state (cpp_reader *r, const char *name, int fd)
|
cpp_valid_state (cpp_reader *r, const char *name, int fd)
|
{
|
{
|
struct macrodef_struct m;
|
struct macrodef_struct m;
|
size_t namebufsz = 256;
|
size_t namebufsz = 256;
|
unsigned char *namebuf = XNEWVEC (unsigned char, namebufsz);
|
unsigned char *namebuf = XNEWVEC (unsigned char, namebufsz);
|
unsigned char *undeftab = NULL;
|
unsigned char *undeftab = NULL;
|
struct ht_node_list nl = { 0, 0, 0 };
|
struct ht_node_list nl = { 0, 0, 0 };
|
unsigned char *first, *last;
|
unsigned char *first, *last;
|
unsigned int i;
|
unsigned int i;
|
|
|
/* Read in the list of identifiers that must be defined
|
/* Read in the list of identifiers that must be defined
|
Check that they are defined in the same way. */
|
Check that they are defined in the same way. */
|
for (;;)
|
for (;;)
|
{
|
{
|
cpp_hashnode *h;
|
cpp_hashnode *h;
|
const unsigned char *newdefn;
|
const unsigned char *newdefn;
|
|
|
if (read (fd, &m, sizeof (m)) != sizeof (m))
|
if (read (fd, &m, sizeof (m)) != sizeof (m))
|
goto error;
|
goto error;
|
|
|
if (m.name_length == 0)
|
if (m.name_length == 0)
|
break;
|
break;
|
|
|
/* If this file is already preprocessed, there won't be any
|
/* If this file is already preprocessed, there won't be any
|
macros defined, and that's OK. */
|
macros defined, and that's OK. */
|
if (CPP_OPTION (r, preprocessed))
|
if (CPP_OPTION (r, preprocessed))
|
{
|
{
|
if (lseek (fd, m.definition_length, SEEK_CUR) == -1)
|
if (lseek (fd, m.definition_length, SEEK_CUR) == -1)
|
goto error;
|
goto error;
|
continue;
|
continue;
|
}
|
}
|
|
|
if (m.definition_length > namebufsz)
|
if (m.definition_length > namebufsz)
|
{
|
{
|
free (namebuf);
|
free (namebuf);
|
namebufsz = m.definition_length + 256;
|
namebufsz = m.definition_length + 256;
|
namebuf = XNEWVEC (unsigned char, namebufsz);
|
namebuf = XNEWVEC (unsigned char, namebufsz);
|
}
|
}
|
|
|
if ((size_t)read (fd, namebuf, m.definition_length)
|
if ((size_t)read (fd, namebuf, m.definition_length)
|
!= m.definition_length)
|
!= m.definition_length)
|
goto error;
|
goto error;
|
|
|
h = cpp_lookup (r, namebuf, m.name_length);
|
h = cpp_lookup (r, namebuf, m.name_length);
|
if (m.flags & NODE_POISONED
|
if (m.flags & NODE_POISONED
|
|| h->type != NT_MACRO
|
|| h->type != NT_MACRO
|
|| h->flags & NODE_POISONED)
|
|| h->flags & NODE_POISONED)
|
{
|
{
|
if (CPP_OPTION (r, warn_invalid_pch))
|
if (CPP_OPTION (r, warn_invalid_pch))
|
cpp_error (r, CPP_DL_WARNING_SYSHDR,
|
cpp_error (r, CPP_DL_WARNING_SYSHDR,
|
"%s: not used because `%.*s' not defined",
|
"%s: not used because `%.*s' not defined",
|
name, m.name_length, namebuf);
|
name, m.name_length, namebuf);
|
goto fail;
|
goto fail;
|
}
|
}
|
|
|
newdefn = cpp_macro_definition (r, h);
|
newdefn = cpp_macro_definition (r, h);
|
|
|
if (m.definition_length != ustrlen (newdefn)
|
if (m.definition_length != ustrlen (newdefn)
|
|| memcmp (namebuf, newdefn, m.definition_length) != 0)
|
|| memcmp (namebuf, newdefn, m.definition_length) != 0)
|
{
|
{
|
if (CPP_OPTION (r, warn_invalid_pch))
|
if (CPP_OPTION (r, warn_invalid_pch))
|
cpp_error (r, CPP_DL_WARNING_SYSHDR,
|
cpp_error (r, CPP_DL_WARNING_SYSHDR,
|
"%s: not used because `%.*s' defined as `%s' not `%.*s'",
|
"%s: not used because `%.*s' defined as `%s' not `%.*s'",
|
name, m.name_length, namebuf, newdefn + m.name_length,
|
name, m.name_length, namebuf, newdefn + m.name_length,
|
m.definition_length - m.name_length,
|
m.definition_length - m.name_length,
|
namebuf + m.name_length);
|
namebuf + m.name_length);
|
goto fail;
|
goto fail;
|
}
|
}
|
}
|
}
|
free (namebuf);
|
free (namebuf);
|
namebuf = NULL;
|
namebuf = NULL;
|
|
|
/* Read in the list of identifiers that must not be defined.
|
/* Read in the list of identifiers that must not be defined.
|
Check that they really aren't. */
|
Check that they really aren't. */
|
undeftab = XNEWVEC (unsigned char, m.definition_length);
|
undeftab = XNEWVEC (unsigned char, m.definition_length);
|
if ((size_t) read (fd, undeftab, m.definition_length) != m.definition_length)
|
if ((size_t) read (fd, undeftab, m.definition_length) != m.definition_length)
|
goto error;
|
goto error;
|
|
|
/* Collect identifiers from the current hash table. */
|
/* Collect identifiers from the current hash table. */
|
nl.n_defs = 0;
|
nl.n_defs = 0;
|
nl.asize = 10;
|
nl.asize = 10;
|
nl.defs = XNEWVEC (cpp_hashnode *, nl.asize);
|
nl.defs = XNEWVEC (cpp_hashnode *, nl.asize);
|
cpp_forall_identifiers (r, &collect_ht_nodes, &nl);
|
cpp_forall_identifiers (r, &collect_ht_nodes, &nl);
|
qsort (nl.defs, nl.n_defs, sizeof (cpp_hashnode *), &comp_hashnodes);
|
qsort (nl.defs, nl.n_defs, sizeof (cpp_hashnode *), &comp_hashnodes);
|
|
|
/* Loop through nl.defs and undeftab, both of which are sorted lists.
|
/* Loop through nl.defs and undeftab, both of which are sorted lists.
|
There should be no matches. */
|
There should be no matches. */
|
first = undeftab;
|
first = undeftab;
|
last = undeftab + m.definition_length;
|
last = undeftab + m.definition_length;
|
i = 0;
|
i = 0;
|
|
|
while (first < last && i < nl.n_defs)
|
while (first < last && i < nl.n_defs)
|
{
|
{
|
int cmp = ustrcmp (first, NODE_NAME (nl.defs[i]));
|
int cmp = ustrcmp (first, NODE_NAME (nl.defs[i]));
|
|
|
if (cmp < 0)
|
if (cmp < 0)
|
first += ustrlen (first) + 1;
|
first += ustrlen (first) + 1;
|
else if (cmp > 0)
|
else if (cmp > 0)
|
++i;
|
++i;
|
else
|
else
|
{
|
{
|
if (CPP_OPTION (r, warn_invalid_pch))
|
if (CPP_OPTION (r, warn_invalid_pch))
|
cpp_error (r, CPP_DL_WARNING_SYSHDR,
|
cpp_error (r, CPP_DL_WARNING_SYSHDR,
|
"%s: not used because `%s' is defined",
|
"%s: not used because `%s' is defined",
|
name, first);
|
name, first);
|
goto fail;
|
goto fail;
|
}
|
}
|
}
|
}
|
|
|
free(nl.defs);
|
free(nl.defs);
|
free (undeftab);
|
free (undeftab);
|
|
|
/* We win! */
|
/* We win! */
|
return 0;
|
return 0;
|
|
|
error:
|
error:
|
cpp_errno (r, CPP_DL_ERROR, "while reading precompiled header");
|
cpp_errno (r, CPP_DL_ERROR, "while reading precompiled header");
|
return -1;
|
return -1;
|
|
|
fail:
|
fail:
|
if (namebuf != NULL)
|
if (namebuf != NULL)
|
free (namebuf);
|
free (namebuf);
|
if (undeftab != NULL)
|
if (undeftab != NULL)
|
free (undeftab);
|
free (undeftab);
|
if (nl.defs != NULL)
|
if (nl.defs != NULL)
|
free (nl.defs);
|
free (nl.defs);
|
return 1;
|
return 1;
|
}
|
}
|
|
|
/* Save all the existing macros. */
|
/* Save all the existing macros. */
|
|
|
struct save_macro_data
|
struct save_macro_data
|
{
|
{
|
uchar **defns;
|
uchar **defns;
|
size_t count;
|
size_t count;
|
size_t array_size;
|
size_t array_size;
|
char **saved_pragmas;
|
char **saved_pragmas;
|
};
|
};
|
|
|
/* Save the definition of a single macro, so that it will persist
|
/* Save the definition of a single macro, so that it will persist
|
across a PCH restore. Because macro data is in GCed memory, which
|
across a PCH restore. Because macro data is in GCed memory, which
|
will be blown away by PCH, it must be temporarily copied to
|
will be blown away by PCH, it must be temporarily copied to
|
malloced memory. (The macros will refer to identifier nodes which
|
malloced memory. (The macros will refer to identifier nodes which
|
are also GCed and so on, so the copying is done by turning them
|
are also GCed and so on, so the copying is done by turning them
|
into self-contained strings.) The assumption is that most macro
|
into self-contained strings.) The assumption is that most macro
|
definitions will come from the PCH file, not from the compilation
|
definitions will come from the PCH file, not from the compilation
|
before the PCH file is loaded, so it doesn't matter that this is
|
before the PCH file is loaded, so it doesn't matter that this is
|
a little expensive.
|
a little expensive.
|
|
|
It would reduce the cost even further if macros defined in the PCH
|
It would reduce the cost even further if macros defined in the PCH
|
file were not saved in this way, but this is not done (yet), except
|
file were not saved in this way, but this is not done (yet), except
|
for builtins, and for #assert by default. */
|
for builtins, and for #assert by default. */
|
|
|
static int
|
static int
|
save_macros (cpp_reader *r, cpp_hashnode *h, void *data_p)
|
save_macros (cpp_reader *r, cpp_hashnode *h, void *data_p)
|
{
|
{
|
struct save_macro_data *data = (struct save_macro_data *)data_p;
|
struct save_macro_data *data = (struct save_macro_data *)data_p;
|
if (h->type != NT_VOID
|
if (h->type != NT_VOID
|
&& (h->flags & NODE_BUILTIN) == 0)
|
&& (h->flags & NODE_BUILTIN) == 0)
|
{
|
{
|
if (data->count == data->array_size)
|
if (data->count == data->array_size)
|
{
|
{
|
data->array_size *= 2;
|
data->array_size *= 2;
|
data->defns = XRESIZEVEC (uchar *, data->defns, (data->array_size));
|
data->defns = XRESIZEVEC (uchar *, data->defns, (data->array_size));
|
}
|
}
|
|
|
switch (h->type)
|
switch (h->type)
|
{
|
{
|
case NT_ASSERTION:
|
case NT_ASSERTION:
|
/* Not currently implemented. */
|
/* Not currently implemented. */
|
return 1;
|
return 1;
|
|
|
case NT_MACRO:
|
case NT_MACRO:
|
{
|
{
|
const uchar * defn = cpp_macro_definition (r, h);
|
const uchar * defn = cpp_macro_definition (r, h);
|
size_t defnlen = ustrlen (defn);
|
size_t defnlen = ustrlen (defn);
|
|
|
data->defns[data->count] = (uchar *) xmemdup (defn, defnlen,
|
data->defns[data->count] = (uchar *) xmemdup (defn, defnlen,
|
defnlen + 2);
|
defnlen + 2);
|
data->defns[data->count][defnlen] = '\n';
|
data->defns[data->count][defnlen] = '\n';
|
}
|
}
|
break;
|
break;
|
|
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
data->count++;
|
data->count++;
|
}
|
}
|
return 1;
|
return 1;
|
}
|
}
|
|
|
/* Prepare to restore the state, by saving the currently-defined
|
/* Prepare to restore the state, by saving the currently-defined
|
macros in 'data'. */
|
macros in 'data'. */
|
|
|
void
|
void
|
cpp_prepare_state (cpp_reader *r, struct save_macro_data **data)
|
cpp_prepare_state (cpp_reader *r, struct save_macro_data **data)
|
{
|
{
|
struct save_macro_data *d = XNEW (struct save_macro_data);
|
struct save_macro_data *d = XNEW (struct save_macro_data);
|
|
|
d->array_size = 512;
|
d->array_size = 512;
|
d->defns = XNEWVEC (uchar *, d->array_size);
|
d->defns = XNEWVEC (uchar *, d->array_size);
|
d->count = 0;
|
d->count = 0;
|
cpp_forall_identifiers (r, save_macros, d);
|
cpp_forall_identifiers (r, save_macros, d);
|
d->saved_pragmas = _cpp_save_pragma_names (r);
|
d->saved_pragmas = _cpp_save_pragma_names (r);
|
*data = d;
|
*data = d;
|
}
|
}
|
|
|
/* Given a precompiled header that was previously determined to be valid,
|
/* Given a precompiled header that was previously determined to be valid,
|
apply all its definitions (and undefinitions) to the current state.
|
apply all its definitions (and undefinitions) to the current state.
|
DEPNAME is passed to deps_restore. */
|
DEPNAME is passed to deps_restore. */
|
|
|
int
|
int
|
cpp_read_state (cpp_reader *r, const char *name, FILE *f,
|
cpp_read_state (cpp_reader *r, const char *name, FILE *f,
|
struct save_macro_data *data)
|
struct save_macro_data *data)
|
{
|
{
|
size_t i;
|
size_t i;
|
struct lexer_state old_state;
|
struct lexer_state old_state;
|
|
|
/* Restore spec_nodes, which will be full of references to the old
|
/* Restore spec_nodes, which will be full of references to the old
|
hashtable entries and so will now be invalid. */
|
hashtable entries and so will now be invalid. */
|
{
|
{
|
struct spec_nodes *s = &r->spec_nodes;
|
struct spec_nodes *s = &r->spec_nodes;
|
s->n_defined = cpp_lookup (r, DSC("defined"));
|
s->n_defined = cpp_lookup (r, DSC("defined"));
|
s->n_true = cpp_lookup (r, DSC("true"));
|
s->n_true = cpp_lookup (r, DSC("true"));
|
s->n_false = cpp_lookup (r, DSC("false"));
|
s->n_false = cpp_lookup (r, DSC("false"));
|
s->n__VA_ARGS__ = cpp_lookup (r, DSC("__VA_ARGS__"));
|
s->n__VA_ARGS__ = cpp_lookup (r, DSC("__VA_ARGS__"));
|
}
|
}
|
|
|
old_state = r->state;
|
old_state = r->state;
|
r->state.in_directive = 1;
|
r->state.in_directive = 1;
|
r->state.prevent_expansion = 1;
|
r->state.prevent_expansion = 1;
|
r->state.angled_headers = 0;
|
r->state.angled_headers = 0;
|
|
|
/* Run through the carefully-saved macros, insert them. */
|
/* Run through the carefully-saved macros, insert them. */
|
for (i = 0; i < data->count; i++)
|
for (i = 0; i < data->count; i++)
|
{
|
{
|
cpp_hashnode *h;
|
cpp_hashnode *h;
|
size_t namelen;
|
size_t namelen;
|
uchar *defn;
|
uchar *defn;
|
|
|
namelen = ustrcspn (data->defns[i], "( \n");
|
namelen = ustrcspn (data->defns[i], "( \n");
|
h = cpp_lookup (r, data->defns[i], namelen);
|
h = cpp_lookup (r, data->defns[i], namelen);
|
defn = data->defns[i] + namelen;
|
defn = data->defns[i] + namelen;
|
|
|
/* The PCH file is valid, so we know that if there is a definition
|
/* The PCH file is valid, so we know that if there is a definition
|
from the PCH file it must be the same as the one we had
|
from the PCH file it must be the same as the one we had
|
originally, and so do not need to restore it. */
|
originally, and so do not need to restore it. */
|
if (h->type == NT_VOID)
|
if (h->type == NT_VOID)
|
{
|
{
|
if (cpp_push_buffer (r, defn, ustrchr (defn, '\n') - defn, true)
|
if (cpp_push_buffer (r, defn, ustrchr (defn, '\n') - defn, true)
|
!= NULL)
|
!= NULL)
|
{
|
{
|
_cpp_clean_line (r);
|
_cpp_clean_line (r);
|
if (!_cpp_create_definition (r, h))
|
if (!_cpp_create_definition (r, h))
|
abort ();
|
abort ();
|
_cpp_pop_buffer (r);
|
_cpp_pop_buffer (r);
|
}
|
}
|
else
|
else
|
abort ();
|
abort ();
|
}
|
}
|
|
|
free (data->defns[i]);
|
free (data->defns[i]);
|
}
|
}
|
r->state = old_state;
|
r->state = old_state;
|
|
|
_cpp_restore_pragma_names (r, data->saved_pragmas);
|
_cpp_restore_pragma_names (r, data->saved_pragmas);
|
|
|
free (data);
|
free (data);
|
|
|
if (deps_restore (r->deps, f, CPP_OPTION (r, restore_pch_deps) ? name : NULL)
|
if (deps_restore (r->deps, f, CPP_OPTION (r, restore_pch_deps) ? name : NULL)
|
!= 0)
|
!= 0)
|
goto error;
|
goto error;
|
|
|
if (! _cpp_read_file_entries (r, f))
|
if (! _cpp_read_file_entries (r, f))
|
goto error;
|
goto error;
|
|
|
return 0;
|
return 0;
|
|
|
error:
|
error:
|
cpp_errno (r, CPP_DL_ERROR, "while reading precompiled header");
|
cpp_errno (r, CPP_DL_ERROR, "while reading precompiled header");
|
return -1;
|
return -1;
|
}
|
}
|
|
|
